工资管理系统 软件工程设计

第3章：详细设计

3．1操作流程图

初始登入用户:123 密码为:123

3．2 “登录模块”详细设计

登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。

登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。

窗体及核心代码如下：

- 8 -

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 = \* from 用户表 where 用户名='\& Trim(cmo_user.Text) & \

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

- 9 -

rst.Close

UserName = Trim(cmo_user.Text) frm_main.Show Unload Me Else

MsgBox \密码不正确，请重新输入\vbOKOnly + vbExclamation, \警告\ 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)

- 10 -

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

- 11 -