人事管理系统(源代码
附录:
毕业设计程序清单
设计题目 人事管理系统
教 学 班:
学生姓名:
学 号:
指导教师:
完成日期:
Option Explicit
Dim Bupdata As Boolean
Dim i As Integer
Private Sub Cmbdegree_Click()
If Cmbdegree.Text = "定制" Then
FrmTable.Show
Cmbdegree.ListIndex = 0
End If
End Sub
Private Sub Cmbdepart_Click()
If Cmbdepart.Text = "定制" Then
FrmTable.Show
Cmbdepart.ListIndex = 0
End If
End Sub
Private Sub CmdAddNew_Click()
If CmdAddNew.Caption = "添加" Then
CmdAddNew.Caption = "确认"
CmdDel.Enabled = False
CmdOK.Enabled = False
DataA.ReadOnly = False
For i = 1 To 12
If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0
Next i
DataA.Recordset.AddNew
Txt(0).Locked = False
If FrmMain.cutable = "employee" Then
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
If Opsex(0) Then
DataA.Recordset.Fields(4) = "男"
Else
DataA.Recordset.Fields(4) = "女"
End If
DataA.Recordset.Fields(7) = Cmbdegree.Text
DataA.Recordset.Fields(8) = Cmbdepart.Text
ElseIf FrmMain.cutable = "leave" Then
DataA.Recordset.Fields(8) = frmLogin.EmploID
DataA.Recordset.Fields(9) = Now
Else
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
End If
Txt(0).SetFocus
Else 'OK
If Txt(0).Text = "" Then
MsgBox "不可以为空"
Txt(0).SetFocus