毕业设计程序清单

设计题目人事管理系统

教 学 班：
学生姓名：
学号：
指导教师：
完成日期：

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
Exit Sub
End If

For i = 1 To 12
If Txt(i).Text =Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0

Next i

If FrmMain.cutable = employee Then

DataB.Recordset.FindFirst 职工编号= + Txt(0).Text

If Not DataB.Recordset.NoMatch Then
MsgBox 职员编号重复
Txt(0).Text =
Txt(0).SetFocus
Exit Sub
End If

ElseIf FrmMain.cutable = leave Then

DataB.Recordset.FindFirst 假条编号= + Txt(0).Text

If Not DataB.Recordset.NoMatch Then
MsgBox 假条编号重复
Txt(0).Text =
Txt(0).SetFocus
Exit Sub
End If

Else
For i = 4 To 10
If Not IsNumeric(Txt(i).Text) Then
MsgBox not a number
Txt(i).SetFocus
Exit Sub
End If

Next i

DataB.Recordset.FindFirst 工资编号= + Txt(0).Text

If Not DataB.Recordset.NoMatch Then
MsgBox 工资编号重复
Txt(0).Text =
Txt(0).SetFocus
Exit Sub
End If

End If

DataA.Recordset.Update
DataA.Recordset.MoveLast
FrmMain.DataA.Refresh
FrmMain.DataB.Refresh

DataB.Refresh

CmdAddNew.Caption = 添加