用户表 用户名 密码 权限 char (8) char (20) char (20) 主键,不允许重复 E-R图：
第三章：企业工资管理系统应用程序设计
3．1操作流程图
初始登入用户:admin 密码为:admin 用户登入
录入口令是否正确？
3．2 “登录模块”详细设计
登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通
用户，进入后将面对的是主界面，从而进行相关的操作。
登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。
窗体及核心代码：
Private Sub cmd_cancel_Click() txt_key.Text = \
cmo_user.Text = \请选择\ Unload Me End Sub
Private Sub cmd_ok_Click() Dim try_times As String Dim sql As String
Dim rst As ADODB.Recordset try_times = 0
If (Trim(txt_key.Text) = \
MsgBox \请输入密码\提示\Else
sql = \用户表 where 用户名='\ Set rst = ExecuteSQL(sql, \
If Trim(rst.Fields(1)) = Trim(txt_key.Text) Then If Trim(rst.Fields(2)) <> \管理员\
frm_main.xitong.Enabled = False '在这里设计非管理员用户的权限，这里我假设让非管理员用户不能用菜单中的‘系统’ frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False End If rst.Close
UserName = Trim(cmo_user.Text) frm_main.Show Unload Me
Else
MsgBox \密码不正确，请重新输入\警告\ txt_key.SetFocus txt_key.Text = \
try_times = try_times + 1
Exit Sub '在这里若密码错了应该跳出该过程，否则下面的语句还会执行，这不是你想要的 End If
'try_times = try_times + 1 '个人认为密码输入错了才加一，你这样的话，用户名错了也会加一，当然你这里用户名不会错是吧，改得多余了 If try_times = 3 Then Unload Me End If End If End Sub
Private Sub Form_Load() Dim i As Integer Dim sql As String
Dim rst As ADODB.Recordset
sql = \用户名 from 用户表 \ Set rst = ExecuteSQL(sql, \ For i = 1 To rst.RecordCount cmo_user.AddItem (rst.Fields(0)) rst.MoveNext Next i End Sub
主窗体：Private Sub bumenxinxi_Click() Dim sql As String
Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)
If Trim(power) <> \管理员\
MsgBox \您无权进行该操作！\警告\Else
If Trim(power) = \管理员\frm_bumenxinxi.Show Unload Me End If End If End Sub
Private Sub gangweigongzi_Click() Dim sql As String
Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)
If Trim(power) <> \管理员\
MsgBox \您无权进行该操作！\警告\Else
If Trim(power) = \管理员\frm_gangweigongzi.Show Unload Me End If End If End Sub
Private Sub jiben_Click() Dim sql As String
Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)
If Trim(power) <> \管理员\
MsgBox \您无权进行该操作！\警告\Else
If Trim(power) = \管理员\frm_jiben.Show Unload Me End If End If End Sub
Private Sub yonghushanchu_Click() Dim sql As String
Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)
If Trim(power) <> \管理员\
MsgBox \您无权进行该操作！\警告\Else
If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If