企业人事管理系统毕业论文

CmdCancel.Enabled = False End Sub

Private Sub CmdState() TxtDeptName.Enabled = True CmdAdd.Visible = False CmdEdit.Visible = False CmdDelete.Visible = False CmdMove.Visible = False CmdSave.Visible = True CmdReTurn.Enabled = False End Sub

Private Sub CmdAdd_Click() RsDept.AddNew

TxtDeptName.Text = Empty Call CmdState End Sub

Private Sub CmdAdds_Click() RsTitle.AddNew

TxtTitleName.Text = Empty Call CmodState End Sub

Private Sub cmdcancel_Click() Unload Me End Sub

Private Sub CmdDel_Click()

If MsgBox(\确定要删除吗？\vbInformation + vbYesNo, \删除部门\= vbYes Then

On Error GoTo ERRDel

RsTitle.Delete Call CmdMoves_Click End If Exit Sub ERRDel:

MsgBox \至少有一个职务\验证错误\End Sub

Private Sub CmdDelete_Click()

If MsgBox(\确定要删除吗？\vbInformation + vbYesNo, \删除部门\= vbYes Then

On Error GoTo ERRDel RsDept.Delete Call CmdMove_Click End If Exit Sub ERRDel:

MsgBox \至少有一个部门\验证错误\End Sub

Private Sub CmdEdit_Click() Call CmdState End Sub

Private Sub CmdEdits_Click() Call CmodState End Sub

Private Sub CmdMove_Click() RsDept.MoveNext If RsDept.EOF Then