PrivateSubCombo2_Click()
\'判断这个月的天数
SelectCaseCombo2.Text
Case1,3,5,7,8,10,12
Combo3.Clear
Fori=1To31
Combo3.AddItemi
Nexti
Combo3.Text=1
Combo3.Refresh
Case4,6,9,11
Combo3.Clear
Fori=1To30
Combo3.AddItemi
Nexti
Combo3.Text=1
Combo3.Refresh
Case2
Combo3.Clear
IfCombo1.TextMod4=0AndCombo1.TextMod4000Then
Fori=1To29
Combo3.AddItemi
Nexti
Else
Fori=1To28
Combo3.AddItemi
Nexti
EndIf
Combo3.Text=1
Combo3.Refresh
EndSelect
EndSub
PrivateSubCombo8_Click()
\'判断这个月的天数
SelectCaseCombo8.Text
Case1,3,5,7,8,10,12
Combo9.Clear
Fori=1To31
Combo9.AddItemi
Nexti
Combo9.Text=1
Combo9.Refresh
Case4,6,9,11
Combo9.Clear
Fori=1To30
Combo9.AddItemi
Nexti
Combo9.Text=1
Combo9.Refresh
Case2
Combo9.Clear
IfCombo7.TextMod4=0AndCombo7.TextMod4000Then
Fori=1To29
Combo9.AddItemi
Nexti
Else
Fori=1To28
Combo9.AddItemi
Nexti
EndIf
Combo9.Text=1
Combo9.Refresh
EndSelect
EndSub
PrivateSubCommand1_Click()
DimquestionAsInteger
OnErrorGoTowrite_error
IfCombo4.Text=\"\"ThenMsgBox\"请正确选择班组号!\",vbOKOnlyvbCritical,\"Error\":ExitSub
IfText1.Text=\"\"ThenMsgBox\"请正确填写姓名!\",vbOKOnlyvbCritical,\"Error\":ExitSub
IfCombo5.Text=\"\"ThenMsgBox\"请正确选择职称!\",vbOKOnlyvbCritical,\"Error\":ExitSub
MyRecord.date=Combo1.Text\"年\"Combo2.Text\"月\"Combo3.Text\"日\"
MyRecord.class=\"班组号\"Combo4.Text
MyRecord.name=Text1.Text
IfOption1.Value=TrueThen
MyRecord.sex=\"男\"
Else
MyRecord.sex=\"女\"
EndIf
MyRecord.position=Combo5.Text
IfOption3.Value=TrueThen
MyRecord.log=\"正常\"
ElseIfOption4.Value=TrueThen
MyRecord.log=\"迟到\"
ElseIfOption5.Value=TrueThen
MyRecord.log=\"早退\"
ElseIfOption6.Value=TrueThen
MyRecord.log=\"矿工\"
ElseIfOption7.Value=TrueThen
MyRecord.log=\"请假\"
EndIf
IfRight$(App.Path,1)=\"\\\"Then
curFile=App.Path\"datebase.txt\"
Else
curFile=App.Path\"\\datebase.txt\"
EndIf
|
