Office中国论坛/Access中国论坛

标题: 一个弱弱的问题 [打印本页]

作者: sam_yuan 时间: 2004-1-3 18:35
标题: 一个弱弱的问题
我做了一个表(密码)，一个用户登陆窗体，主窗体1、主窗体2、主窗体3
Private Sub Cmd确定_Click()
On Error GoTo Err_Cmd确定_Click
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
And Me.Combo用户名 <> "" Then                         '验证用户和密码)
DoCmd.Close
DoCmd.Close acForm, "登陆背景", acSaveYes
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(20027) & ChrW(25511) & ChrW(-26782) & ChrW(26495)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "用户名和密码错误", , "请重新输入"
Me.Combo用户名.SetFocus
End If
Exit_Cmd确定_Click:
Exit Sub
Err_Cmd确定_Click:
MsgBox Err.Description
Resume Exit_Cmd确定_Click
End Sub
问题：如何使不同的人进入不同的主窗体？

作者: 宿命的风 时间: 2004-1-3 19:24
对“用户”和“主窗体“名编号
例如：
“主窗体1”对应客户编号为 ”1“的用户

作者: sam_yuan 时间: 2004-1-3 19:30
如何对应,请具体点,谢谢

作者: CJB_2001 时间: 2004-1-3 19:37
其实,可以参考ACCESS主菜单的显示方式,规划窗体,建立人员与窗体的对应关系.

作者: yrg 时间: 2004-1-4 06:52
我觉得可以在“用户密码表”中增加一字如：权限，把用户打开的相应窗体名称输入到权限字段中，在登陆窗体中，用Dlookup函数或其它方法获取当前登陆用户的相应权限（窗体名称）后用 DoCmd.OpenForm stDocName

作者: sam_yuan 时间: 2004-1-4 18:19
标题: 有做好的程序吗?
有做好的程序可以看一下吗?

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