[求助] 数据库登陆

Jean1288

上边这个登陆系统是以前一位网友作的，我想知道如何做到：

1、在登陆进入菜单窗体后，打开 表1、表2 等相应窗体时关闭菜单窗体；

2、如果权限不对，在提示“无权对该窗体进行操作”，确定后仍旧打开菜单窗体。

请各位指教，谢谢！

一点通

这个数据库是源码提供的,按住SHIFT键打开数据库就可看到全部内容

Jean1288

没有源码呀，里面的内容我都看过，我想在原来的基础上实现以上功能，不知道该怎么改，麻烦帮我看一下，谢谢！

风筝

照一点通的方式来做就能看到代码:

Option Compare Database
Public rsX As Recordset
Public rsdb As Database
Public user_level As String
Public login_successful As Integer
Public user_name As String



Public Function check_level(form_name As String, login_level As String) As Integer

Set rsX = CurrentDb.OpenRecordset("select * from [对象列表] where [对象]='" & form_name & "' and [用户群组] like'*" & login_level & "*'")

  If Not rsX.EOF Then
    rsX.Close
    check_level = 1
  Else
    check_level = 0
    rsX.Close

   
  End If
  
  End Function

'检查登陆的用户的群组是否能打开对应的窗体

Jean1288

可能是我没说清楚，这个数据库里的所有代码我都看到了，只是我觉得这个登陆系统还有些缺陷，我想在原有的基础上实现：

1、在登陆进入菜单窗体后，打开 表1、表2 等相应窗体时关闭菜单窗体；



2、如果权限不对，在提示“无权对该窗体进行操作”，确定后仍旧打开菜单窗体。

但是我不知道该怎样修改原有的代码，请各位帮忙改一下。

weny1983

进来看看，学习一下