⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 alert.frm

📁 delphi财务管理系统.rar delphi财务管理系统.rar
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub

Else
Label9.Caption = Data1.Recordset("职工编号")
Label10.Caption = Data1.Recordset("职工姓名")
Label29.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label11.Caption = Data1.Recordset("职工编号")
Label12.Caption = Data1.Recordset("职工姓名")
Label30.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label13.Caption = Data1.Recordset("职工编号")
Label14.Caption = Data1.Recordset("职工姓名")
Label31.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label15.Caption = Data1.Recordset("职工编号")
Label16.Caption = Data1.Recordset("职工姓名")
Label32.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If



Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label17.Caption = Data1.Recordset("职工编号")
Label18.Caption = Data1.Recordset("职工姓名")
Label33.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If



Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label19.Caption = Data1.Recordset("职工编号")
Label20.Caption = Data1.Recordset("职工姓名")
Label34.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If

Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub
Else
Label21.Caption = Data1.Recordset("职工编号")
Label22.Caption = Data1.Recordset("职工姓名")
Label35.Caption = Data1.Recordset("合同到期时间")
reco = reco + 1
End If


Data1.Recordset.FindNext c

If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

Exit Sub

Else
Data1.Recordset.FindPrevious c
z = 0
End If







If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
X = 1
mnudown.Enabled = False
mnuup.Enabled = True

End If

Exit Sub
a0:
End Sub

Private Sub mnuprint_Click()
On Error GoTo a0
Me.PrintForm
a0:
End Sub

Private Sub mnuquit_Click()
Timer3.Interval = 1
Timer3.Enabled = True
End Sub

Private Sub mnuup_Click()

Dim c
Dim r As Integer, i As Integer


 Dim a As String, b As String, e As String
On Error GoTo a0
mnudown.Enabled = True
mnuup.Enabled = True
c = "合同到期时间 < #" & Date - 9 & "#"







If X = 1 Then
r = (reco - 1) Mod 10

If (reco Mod 10) = 0 Then
r = 9
End If
For i = 1 To r
Data1.Recordset.FindPrevious c
Next i
X = 0
Else
If z = 0 Then
For i = 1 To 9
Data1.Recordset.FindPrevious c
Next i

End If
End If




Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub

Else
Label1.Caption = ""
Label2.Caption = ""

Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
Label14.Caption = ""
Label15.Caption = ""
Label16.Caption = ""
Label17.Caption = ""
Label18.Caption = ""
Label19.Caption = ""
Label20.Caption = ""
Label21.Caption = ""
Label22.Caption = ""
Label26.Caption = ""
Label27.Caption = ""
Label28.Caption = ""
Label29.Caption = ""
Label30.Caption = ""
Label31.Caption = ""
Label32.Caption = ""
Label33.Caption = ""
Label34.Caption = ""
Label35.Caption = ""

Label21.Caption = Data1.Recordset("职工编号")
Label22.Caption = Data1.Recordset("职工姓名")
Label35.Caption = Data1.Recordset("合同到期时间")
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast

End If


Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then

mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label19.Caption = Data1.Recordset("职工编号")
Label20.Caption = Data1.Recordset("职工姓名")
Label34.Caption = Data1.Recordset("合同到期时间")

reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If






Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label17.Caption = Data1.Recordset("职工编号")
Label18.Caption = Data1.Recordset("职工姓名")
Label33.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label15.Caption = Data1.Recordset("职工编号")
Label16.Caption = Data1.Recordset("职工姓名")
Label32.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label13.Caption = Data1.Recordset("职工编号")
Label14.Caption = Data1.Recordset("职工姓名")
Label31.Caption = Data1.Recordset("合同到期时间")

reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label11.Caption = Data1.Recordset("职工编号")
Label12.Caption = Data1.Recordset("职工姓名")
Label30.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label9.Caption = Data1.Recordset("职工编号")
Label10.Caption = Data1.Recordset("职工姓名")
Label29.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If



Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label7.Caption = Data1.Recordset("职工编号")
Label8.Caption = Data1.Recordset("职工姓名")
Label28.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If



Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label5.Caption = Data1.Recordset("职工编号")
Label6.Caption = Data1.Recordset("职工姓名")
Label27.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If

Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then
mnuup.Enabled = False
mnudown.Enabled = True

Exit Sub
Else
Label1.Caption = Data1.Recordset("职工编号")
Label2.Caption = Data1.Recordset("职工姓名")
Label26.Caption = Data1.Recordset("合同到期时间")
reco = reco - 1
End If


Data1.Recordset.FindPrevious c

If Data1.Recordset.NoMatch Then

mnuup.Enabled = False
mnudown.Enabled = True
reco = 0
Y = 1
Exit Sub

Else
Data1.Recordset.FindNext c
z = 1
End If



If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
reco = 0
mnuup.Enabled = False
mnudown.Enabled = True
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If

Exit Sub
a0:
End Sub

Private Sub Timer1_Timer()
Label36.Caption = time
Label37.Caption = Date
End Sub

Private Sub Timer2_Timer()

If Form14.Left > 0 Then
mnuquit.Enabled = True
Timer2.Enabled = False
Else
Form14.Left = Form14.Left + 30
End If
End Sub

Private Sub Timer3_Timer()
If Form14.Left < -5500 Then
Timer2.Enabled = False
Unload Me
Else
Form14.Left = Form14.Left - 30
End If
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -