Private Sub Form_Activate()
Dim i, j As Integer
Do
For i = 0 To 2
Call fq(i) ''''等同于X=1语句
Call zz(i)
If Vehicle(i).Finish Then
DoEvents
Exit For
End If
DoEvents
Next i
DoEvents
Loop While True
End Sub
Private Sub Form_Load()
Dim i As Integer
cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Mtc;Password='hqztjx';Mode=Read|Write"
rstBasic.Open "BasicNow", cn, adOpenDynamic, adLockOptimistic, 2
Do While Not rstBasic.EOF
If (DatePart("yyyy", rstBasic.Fields(16)) = DatePart("yyyy", Date)) And (DatePart("m", rstBasic.Fields(16)) = DatePart("m", Date)) And (DatePart("d", rstBasic.Fields(16)) = DatePart("d", Date)) Then
Combo4.AddItem rstBasic.Fields(0)
Combo(2).AddItem rstBasic.Fields(5)
End If
rstBasic.MoveNext
Loop
cn.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 0 To 2
Tips i, "请等候" '上灯牌显示
Next i
For i = 3 To 4
TipsOld i, " 请等候" '上灯牌显示
Next
Unload Me