PrivateTypeRecord
dateAsString*12
nameAsString*8
classAsString*8
sexAsString*2
positionAsString*8
logAsString*4
EndType
DimMyRecordAsRecord
DimnumAsInteger
PrivateSubCombo1_Click()
IfCombo1.TextMod4=0AndCombo1.TextMod4000AndCombo2.Text=\"2\"Then
Combo3.AddItem\"29\"
EndIf
If(Combo1.TextMod40OrCombo1.TextMod400=0)AndCombo2.Text=\"2\"AndCombo3.Text=\"29\"Then
Combo3.Clear
Fori=1To28
Combo3.AddItemi
Nexti
Combo3.Text=1
Combo3.Refresh
EndIf
EndSub
PrivateSubCombo6_Click()
IfCombo6.Text=\"日期\"Then
Frame5.Visible=True
Frame6.Visible=False
Frame7.Visible=False
Frame8.Visible=False
Frame9.Visible=False
ElseIfCombo6.Text=\"姓名\"Then
Frame5.Visible=False
Frame6.Visible=True
Frame7.Visible=False
Frame8.Visible=False
Frame9.Visible=False
ElseIfCombo6.Text=\"班组号\"Then
Frame5.Visible=False
Frame6.Visible=False
Frame7.Visible=True
Frame8.Visible=False
Frame9.Visible=False
ElseIfCombo6.Text=\"出勤情况\"Then
Frame5.Visible=False
Frame6.Visible=False
Frame7.Visible=False
Frame8.Visible=True
Frame9.Visible=False
ElseIfCombo6.Text=\"职称\"Then
Frame5.Visible=False
Frame6.Visible=False
Frame7.Visible=False
Frame8.Visible=False
Frame9.Visible=True
EndIf
EndSub
PrivateSubCombo7_Click()
IfCombo7.TextMod4=0AndCombo7.TextMod4000AndCombo8.Text=\"2\"Then
Combo9.AddItem\"29\"
EndIf
If(Combo7.TextMod40OrCombo7.TextMod400=0)AndCombo8.Text=\"2\"AndCombo9.Text=\"29\"Then
Combo9.Clear
Fori=1To28
Combo9.AddItemi
Nexti
Combo9.Text=1
Combo9.Refresh
EndIf
EndSub
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
|