数据库课程设计(企业员工工资管理系统) (1)(4)

图4.11 员工不存在提示

4.2.9选择“工资查询”→“按员工查询”菜单，弹出如图4.12所示对话框，用户可以选择单人查询或者全部显示，但是不能对员工的工资做任何的改动。

管理员可以查看所有人的工资情况，但是普通用户只可以查看自己的工资情况，别人的工资情况不允许查看。

图4.12 按员工查询

4.2.10 选择“工资查询”→“按部门查询”菜单，弹出对话框，当选择“部门编号”后可执行“单个显示”，若想全部显示，可直接单击”显示所有“按钮。网格中将会同时刷新后台数据库信息，但是不能做任何的修改。

15

第五章 各个模块部门代码

5.1登陆界面

Static try_times As Integer Dim sql As String

Dim rst As ADODB.Recordset If Trim(cmo_user.Text) = \

MsgBox \请选择用户名\提示\ cmo_user.SetFocus Else

If Trim(txt_key.Text) = \

MsgBox \请输入密码\提示\ txt_key.SetFocus Else

sql = \用户表 where 用户名='\ Set rst = ExecuteSQL(sql, \

If Trim(rst.Fields(1)) = Trim(txt_key.Text) Then tempuser = Trim(cmo_user.Text) power = Trim(rst.Fields(2))

username = Trim(cmo_user.Text) rst.Close

frm_main.Show Unload Me

If power <> \管理员\ frm_main.set.Enabled = False frm_main.defend = False End If Else

MsgBox \密码不正确，请重新输入\警告\ txt_key.SetFocus txt_key.Text = \ try_times = try_times + 1 If try_times = 3 Then

MsgBox \您已三次尝试进入本系统失败，系统将自动关闭\vbExclamation, \结束\

Unload Me End If End If End If End If End Sub

Private Sub Form_Load() Dim i As Integer Dim sql As String

16

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 rst.Close End Sub

5.2 各个子模块代码设置

5.2.1 以用户添加为例，部分代码如下所示 Private Sub cmd_add_Click() Dim rst As ADODB.Recordset Dim sql As String Dim i As Integer

If Trim(txt_adduser.Text) = \ MsgBox \请将用户信息填写完整！\警告\ txt_adduser.SetFocus txt_adduser.Text = \ txt_addkey.Text = \ txt_rekey.Text = \ cmo_addpower.Clear Call Form_Load Else

sql = \用户名 from 用户表\ Set rst = ExecuteSQL(sql, \

If Trim(txt_adduser.Text) = Trim(rst.Fields(0)) Then

MsgBox \您输入的用户已经存在，请重新输入！\警告\ rst.Close

txt_adduser.SetFocus txt_adduser.Text = \ txt_addkey.Text = \

17

cmo_addpower.Clear Call Form_Load txt_rekey.Text = \Else

If Trim(txt_addkey.Text) <> Trim(txt_rekey.Text) Then

MsgBox \两次输入的密码不相同,请重新输入!\警告\ txt_addkey.SetFocus txt_addkey.Text = \ txt_rekey.Text = \Else

sql = \用户表 values(\ & \ & \ Set rst = ExecuteSQL(sql, \

MsgBox \添加成功\添加结果\ txt_adduser.SetFocus txt_adduser.Text = \ txt_addkey.Text = \ txt_rekey.Text = \ cmo_addpower.Clear Call Form_Load End If End If End If End Sub

Private Sub cmd_cancel_Click() Unload Me End Sub

Private Sub Form_Load() With cmo_addpower

18

.AddItem \管理员\ .AddItem \普通用户\End With End Sub

5.2.2 工资设置代码

以基本工资中的修改和删除为例，岗位工资与基本工资雷同，不再赘述。 Private Sub cmd_alter_Click()

If Trim(cmo_scale.Text) = \

MsgBox \请填写需要修改的信息！\警告\cmo_scale.SetFocus cmo_scale.Text = \txt_money.Text = \Else

sql = \工资级别 from 基本工资 where 工资级别='\Set rst = ExecuteSQL(sql, \If rst.RecordCount = 0 Then

MsgBox \您输入的级别不存在，请重新输入！\警告\cmo_scale.SetFocus cmo_scale.Text = \txt_money.Text = \Else

sql = \基本工资 set 工资金额='\工资级别='\Trim(cmo_scale.Text) & \Set rst = ExecuteSQL(sql, \

MsgBox \修改成功！\操作结果\cmo_scale.SetFocus cmo_scale.Text = \txt_money.Text = \Call Form_Load End If

19

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库数据库课程设计(企业员工工资管理系统) (1)(4)在线全文阅读。