附录:
毕业设计程序清单设计题目人事管理系统
教学班:
学生姓名:
学号:
指导教师:
完成日期:
Option Explicit
Di米Bupdata As Boolean
Di米i As Integer
Private Sub 厘米bdegree_Click()
If 厘米bdegree.Text = "定制" Then
Fr米Table.Show
厘米bdegree.ListIndex = 0
End If
End Sub
Private Sub 厘米bdepart_Click()
If 厘米bdepart.Text = "定制" Then
Fr米Table.Show
厘米bdepart.ListIndex = 0
End If
End Sub
Private Sub 厘米dAddNew_Click()
If 厘米dAddNew.Caption = "添加" Then
厘米dAddNew.Caption = "确认"
厘米dDel.Enabled = False
厘米dOK.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 Fr米米ain.cutable = "e米ployee" Then
DataA.Recordset.Fields(13) = fr米Login.E米ploID
DataA.Recordset.Fields(14) = Now
If Opsex(0) Then
DataA.Recordset.Fields(4) = "男"
Else
DataA.Recordset.Fields(4) = "女"
End If
DataA.Recordset.Fields(7) = 厘米bdegree.Text
DataA.Recordset.Fields(8) = 厘米bdepart.Text
ElseIf Fr米米ain.cutable = "leave" Then
DataA.Recordset.Fields(8) = fr米Login.E米ploID
DataA.Recordset.Fields(9) = Now
Else
DataA.Recordset.Fields(13) = fr米Login.E米ploID
DataA.Recordset.Fields(14) = Now
End If
Txt(0).SetFocus
Else 'OK
If Txt(0).Text = "" Then
米sgBox "不可以为空"
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 Fr米米ain.cutable = "e米ployee" Then
DataB.Recordset.FindFirst "职工编号=" + Txt(0).Text
If Not DataB.Recordset.No米atch Then
米sgBox "职员编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
ElseIf Fr米米ain.cutable = "leave" Then
DataB.Recordset.FindFirst "假条编号=" + Txt(0).Text
If Not DataB.Recordset.No米atch Then
米sgBox "假条编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
Else
For i = 4 To 10
If Not IsNu米eric(Txt(i).Text) Then
米sgBox "not a nu米ber"
Txt(i).SetFocus
Exit Sub
End If
Next i
DataB.Recordset.FindFirst "工资编号=" + Txt(0).Text
If Not DataB.Recordset.No米atch Then
米sgBox "工资编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
End If
DataA.Recordset.Update
DataA.Recordset.米oveLast
Fr米米ain.DataA.Refresh
Fr米米ain.DataB.Refresh
DataB.Refresh
厘米dAddNew.Caption = "添加"
