员工工资管理系统VB+SQL1(2)

用户表 用户名 密码 权限 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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库员工工资管理系统VB+SQL1(2)在线全文阅读。