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

Dim objrs As ADODB.Recordset Dim msg_sql As String

Private Sub cmd_add_Click()

Dim sqlbianhao, sqlmingcheng, sqlfuzeren, sqlrenshu As String sqlbianhao = cmo_bianhao.Text

sqlmingcheng = cmo_mingcheng.Text sqlfuzeren = txt_fuzeren.Text sqlrenshu = txt_renshu.Text

If cmo_bianhao.Text <> \

If MsgBox(\确定添加吗？\警告\

Set objrs = ExecuteSQL(\部门信息 values(\sqlmingcheng + \ Set objrs = ExecuteSQL(\部门信息\ Set DataGrid1.DataSource = objrs

MsgBox \添加成功！\警告\ End If End If End Sub

Private Sub cmd_alter_Click()

If Trim(cmo_bianhao.Text) = \\

MsgBox \请将修改后的信息填写完整！\警告\Else

If MsgBox(\确定修改吗？\警告\

Set rst = ExecuteSQL(\部门信息 set 部门名称='\& Trim(cmo_mingcheng.Text) & \where 部门编号 = '\

Set rst = ExecuteSQL(\部门信息 set 部门负责人='\& Trim(txt_fuzeren.Text) & \

where 部门编号 = '\

Set rst = ExecuteSQL(\部门信息 set 部门人数='\& Trim(txt_renshu.Text) & \where 部门编号 = '\Set rst = ExecuteSQL(\基部门信息\Set DataGrid1.DataSource = objrs

MsgBox \修改成功！\警告\cmo_bianhao.SetFocus cmo_bianhao.Text = \cmo_mingcheng.Text = \txt_fuzeren.Text = \txt_renshu.Text = \End If End If End Sub

Private Sub cmd_cancel_Click() frm_main.Show Unload Me End Sub

Private Sub cmd_delete_Click() If objrs.RecordCount = 0 Then MsgBox \库中没有记录!\Else

If objrs.RecordCount <> 0 Then

If MsgBox(\真的要删除该部门?\警告\objrs.Delete

MsgBox \删除成功!\提示\ End If End If End If End Sub

Private Sub Form_Load()

Set objrs = ExecuteSQL(\部门信息\Set DataGrid1.DataSource = objrs End Sub

3.4.8员工管理

选择“信息维护”->“员工管理”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。

3.4.9 发放工资

选择“信息维护”->“发放工资”菜单，单击“添加”或“修改”按钮则弹出“添加员工工资”菜单，单击“添加”或“修改”则可以实现添加员

工

工

资

或

者

修

改

员

工

工

资

。

Dim rst As ADODB.Recordset Dim sql As String

Private Sub cmd_add_Click() frm_tianjiagongzi.Show End Sub

Private Sub cmd_alter_Click() frm_tianjiagongzi.Show 'txt_no.Enabled = False

frm_tianjiagongzi.Show

frm_tianjiagongzi.txt_bianhao.Text = DataGrid1.Columns(0) 'frm_addsalary.txt_name = DataGrid1.Columns(1)

frm_tianjiagongzi.cmo_jiben = DataGrid1.Columns(1) frm_tianjiagongzi.cmo_gangwei = DataGrid1.Columns(2) frm_tianjiagongzi.txt_shuidian = DataGrid1.Columns(3) End Sub

Private Sub cmd_delete_Click() If rst.RecordCount <> 0 Then

If MsgBox(\确定删除该员工的工资信息吗？\警告\Then

rst.Delete

Set rst = ExecuteSQL(\工资信息\

Set DataGrid1.DataSource = rst

MsgBox \删除成功!\提示\ End If End If End Sub

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