del.frm

delphi财务管理系统.rar delphi财务管理系统.rar

End If
If a = 3 Then
Image3.Picture = Image1.Picture
Label3.Caption = " 8%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 4 Then
Image4.Picture = Image1.Picture
Label3.Caption = " 12%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 5 Then
Image5.Picture = Image1.Picture
Label3.Caption = " 16%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 6 Then
Image6.Picture = Image1.Picture
Label3.Caption = " 20%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 7 Then
Image7.Picture = Image1.Picture
Label3.Caption = " 24%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 8 Then
Image8.Picture = Image1.Picture
Label3.Caption = " 28%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 9 Then
Image9.Picture = Image1.Picture
Label3.Caption = " 32%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 10 Then
Image10.Picture = Image1.Picture
Label3.Caption = " 36%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 11 Then
Image11.Picture = Image1.Picture
Label3.Caption = " 40%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 12 Then
Image12.Picture = Image1.Picture
Label3.Caption = " 44%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 13 Then
Image13.Picture = Image1.Picture
Label3.Caption = " 48%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 14 Then
Image14.Picture = Image1.Picture
Label3.Caption = " 52%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 15 Then
Image15.Picture = Image1.Picture
Label3.Caption = " 60%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 16 Then
Image16.Picture = Image1.Picture
Label3.Caption = " 60%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 17 Then
Image17.Picture = Image1.Picture
Label3.Caption = " 64%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 18 Then
Image18.Picture = Image1.Picture
Label3.Caption = " 68%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 19 Then
Image19.Picture = Image1.Picture
Label3.Caption = " 72%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 20 Then
Image20.Picture = Image1.Picture
Label3.Caption = " 76%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 21 Then
Image21.Picture = Image1.Picture
Label3.Caption = " 80%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 22 Then
Image22.Picture = Image1.Picture
Label3.Caption = " 84%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 23 Then
Image23.Picture = Image1.Picture
Label3.Caption = " 88%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 24 Then
Image24.Picture = Image1.Picture
Label3.Caption = " 92%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 25 Then
Image24.Picture = Image1.Picture
Label3.Caption = " 96%"
Do Until q > e - 1
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Call ima
Label3.Caption = "100%"
Timer1.Enabled = False
End If

q = q + 1
Loop

End If
If a = 26 Then
Image24.Picture = Image1.Picture
Label3.Caption = "100%"
Do Until Data1.Recordset.RecordCount = 0
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Data1.Recordset.Delete
Data2.Recordset.Delete
Loop
MsgBox " 数据库以清空"
End If

a = a + 1
If a = 27 Then
Command1.Enabled = False
Timer1.Enabled = False
End If
End Sub