[求助]如何调用系统用户

wangf

我在数据库中自己做了一个登陆界面，请问我登陆用户名该如何调用系统用户，以下是我写的登陆代码，请大侠们帮忙指点，谢谢.

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

"系统用户"是指  当前用户 ???

wangf

我的意思是指：管理员组或用户组里面的用户

andymark

你设置了管理员组或用户组里面的用户了吗

你设置了安全机制了吗

wangf

设了管理员组或用户组里面的用户，因为我想利用利用工作组进行权限控制

andymark

你的工作组权限控制是自已编程写的，还是ACCESS的安全机制

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

wangf

是安全机制，我就是不知道该怎么调用MDW文件，请指点

andymark

供参考:

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

wangf

问题已经解决，谢谢andymark

wu8313

这个例子也非常好！

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