Office中国论坛/Access中国论坛

标题: [求助]如何调用系统用户 [打印本页]

作者: wangf 时间: 2007-3-9 21:49
标题: [求助]如何调用系统用户
我在数据库中自己做了一个登陆界面，请问我登陆用户名该如何调用系统用户，以下是我写的登陆代码，请大侠们帮忙指点，谢谢.

Private Sub 用户登录_Click()
On Error GoTo Err_用户登录_Click
'定义字符型变量
Dim STemp As String
'判断“用户ID”和“密码”文本框是否为空
If IsNull(Me![用户ID]) Then
      MsgBox "请输入“用户ID”！", vbInformation, "输入用户ID"
      Me![用户ID].SetFocus
ElseIf IsNull(Me![密码]) Then
      MsgBox "请输入登录密码！", vbInformation, "输入密码"
      Me![密码].SetFocus
Else
      '使用DLookup函数从“系统用户”数据表中搜索当前“用户ID”对应的“密码”
      STemp = DLookup("密码", "系统用户", "用户ID = '" & Me![用户ID] & "'")
      '判断STemp变量是否为空
      If IsNull(STemp) Then
         DoCmd.Close , , acSaveNo
      Else
         '判断输入的“密码”与从“系统用户”数据表中搜索出的值是否相等
         If CStr(Me![密码]) = STemp Then
            '把当前窗体中“用户ID”文本框值赋予UserID变量
            UserID = Me![用户ID]
            nusername = Me![用户名]
            '关闭窗体
            DoCmd.Close , , acSaveNo
            '使用DoCmd对象的OpenForm方法打开“切换面板”窗体
            DoCmd.OpenForm "切换面板", acNormal, , , , acWindowNormal
         Else
            '如果密码不对，则弹出“密码错误”窗口
            MsgBox "您输入的密码不正确！", vbCritical, "密码错误"
            Me.Requery    '刷新“用户登录”窗体
            Me![密码].SetFocus
         End If
      End If
End If
Exit_用户登录_Click:
Exit Sub
Err_用户登录_Click:
MsgBox Err.Description
Resume Exit_用户登录_Click
End Sub

作者: andymark 时间: 2007-3-9 21:56
"系统用户"是指当前用户 ???

作者: wangf 时间: 2007-3-9 22:05
我的意思是指：管理员组或用户组里面的用户

作者: andymark 时间: 2007-3-9 22:12
你设置了管理员组或用户组里面的用户了吗

你设置了安全机制了吗

作者: wangf 时间: 2007-3-9 22:50
设了管理员组或用户组里面的用户，因为我想利用利用工作组进行权限控制

作者: andymark 时间: 2007-3-9 22:57
你的工作组权限控制是自已编程写的，还是ACCESS的安全机制

如果是后者上面的语句并没看到你调用MDW的文件

作者: wangf 时间: 2007-3-9 23:00
是安全机制，我就是不知道该怎么调用MDW文件，请指点

作者: andymark 时间: 2007-3-9 23:05
供参考:

http://www.office-cn.net/forum.php?mod=viewthread&tid=43195

作者: wangf 时间: 2007-3-10 17:28
问题已经解决，谢谢andymark

作者: wu8313 时间: 2007-3-11 05:03
这个例子也非常好！[attach]23469[/attach]

[此贴子已经被作者于2007-3-10 21:03:16编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)