发布时间 : 星期一 文章员工工资管理系统(VB+SQL)更新完毕开始阅读f3fc5328cfc789eb172dc8fa
Private Sub cmd_cancel_Click() frm_main.Show Unload Me End Sub
Private Sub Form_Load()
Set rst = ExecuteSQL(\工资信息\Set DataGrid1.DataSource = rst End Sub
Dim rst As ADODB.Recordset Dim msg_sql As String
Dim jiben, gangwei, salary As Double Dim addsalarysql As String Private Sub cmd_alter_Click() Dim updatesql As String txt_bianhao.Enabled = False
Set rst = ExecuteSQL(\员工信息 where 员工编号='\\
txt_xingming.Text = rst.Fields(0) If rst.RecordCount = 0 Then
MsgBox \请将修改后的信息填写完整!\警告\Else
If rst.RecordCount <> 0 Then
If MsgBox(\确定修改吗?\警告\
Set rst = ExecuteSQL(\基本工资 where 工资级别='\\
jiben = rst.Fields(1)
Set rst = ExecuteSQL(\岗位工资 where 工资级别='\& \
gangwei = rst.Fields(1)
salary = jiben + gangwei - Trim(txt_shuidian.Text)
updatesql = \工资信息 set 基本工资= \岗位工资 = \\& \水电费=\& \& Trim(txt_shuidian.Text) & \& \& \实发金额 = \& salary & \where 员工编号='\ Set rst = ExecuteSQL(updatesql, msg_sql)
MsgBox \修改成功!\警告\Unload Me
Set rst = ExecuteSQL(\工资信息\
Set frm_fafanggongzi.DataGrid1.DataSource = rst txt_bianhao.Text = \txt_xingming.Text = \cmo_jiben.Text = \cmo_gangwei.Text = \txt_shuidian.Text = \End If End If End If
End Sub
Private Sub cmd_cancel_Click() Unload Me End Sub
Private Sub cmd_ok_Click()
Set rst = ExecuteSQL(\基本工资\If rst.RecordCount = 0 Then
MsgBox \请先录入基本工资信息\Else
If rst.RecordCount = 0 Then
MsgBox \请先录入岗位工资信息\Else
Set rst = ExecuteSQL(\基本工资 where 工资级别='\\
jiben = rst.Fields(1)
Set rst = ExecuteSQL(\岗位工资 where 工资级别='\& \
gangwei = rst.Fields(1)
salary = jiben + gangwei - Trim(txt_shuidian.Text)
addsalarysql = \工资信息 values ('\& gangwei & \ Set rst = ExecuteSQL(addsalarysql, msg_sql) Unload Me
Set rst = ExecuteSQL(\工资信息\ Set frm_salary.DataGrid1.DataSource = rst End If End If End Sub
Private Sub Form_Load()
Set rst = ExecuteSQL(\基本工资\
For i = 1 To rst.RecordCount
cmo_jiben.AddItem (rst.Fields(0)) rst.MoveNext Next i
Set rst = ExecuteSQL(\岗位工资\For i = 1 To rst.RecordCount
cmo_gangwei.AddItem (rst.Fields(0)) rst.MoveNext Next i
End Sub
Private Sub txt_bianhao_LostFocus()
Set rst = ExecuteSQL(\员工信息 where 员工编号='\\
If rst.RecordCount = 0 Then MsgBox \无此人\ txt_bianhao.SetFocus txt_bianaho.Text = \ Exit Sub End If
Set rst = ExecuteSQL(\员工信息 where 员工编号='\\
txt_xingming.Text = rst.Fields(0)
End Sub
3.4.10 按员工查询
选择“工资查询”->“按员工查询”,输入员工编号和姓名,单击“查询”即可
查看个人工资情况。 Dim msg_sql As String Dim objrs As ADODB.Recordset
Private Sub cmd_cancel_Click() frm_main.Show
frm_main.xitong.Enabled = False '在这里设计非管理员用户的权限,这里我假设让非管理员用户不能用菜单中的‘系统’
frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False Unload Me End Sub
Private Sub cmd_search_Click()
Set objrs = ExecuteSQL(\工资信息 where 员工编号='\& \
Set DataGrid1.DataSource = objrs End Sub
3.4.11 按部门查询
选择“工资查询”->“按部门查询”,输入部门编号和名称,单击“查询”即可
查看工资。
Dim msg_sql As String
Dim objrs As ADODB.Recordset Private Sub cmd_cancel_Click() frm_main.Show
frm_main.xitong.Enabled = False '在这里设计非管理员用户的权限,这里我假设让非管理员用户不能用菜单中的‘系统’ frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False Unload Me End Sub
Private Sub cmd_search_Click() Dim searchsql As String
searchsql = \工资信息.员工编号,姓名,基本工资,岗位工资,水电费,实发金额 from 工资信息,部门信息,员工信息 where 员工信息.所属部门='\ & Trim(txt_bianhao.Text) & \
& \工资信息.员工编号=员工信息.员工编号 AND 部门信息.部门编号=员工信息.所属部门\
Set objrs = ExecuteSQL(searchsql, msg_sql) Set DataGrid1.DataSource = objrs