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

📄 alert.frm

📁 delphi财务管理系统.rar delphi财务管理系统.rar
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Label26.Caption = Data1.Recordset("合同到期时间")


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

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.FindNext c
If Data1.Recordset.NoMatch Then
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.FindNext c
If Data1.Recordset.NoMatch Then
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

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
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

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

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

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

Exit Sub
Else
Label21.Caption = Data1.Recordset("职工编号")
Label22.Caption = Data1.Recordset("职工姓名")
Label35.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
mnudown.Enabled = True
z = 0
Exit Sub
a0:
End Sub

Private Sub Form_Load()

Timer1.Interval = 1000
Timer2.Interval = 1
Timer2.Enabled = True
End Sub

Private Sub Label1_Click()
If Label1.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label1.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.Caption = "" Then
Label1.MousePointer = 0
Exit Sub
Else
Label1.MouseIcon = Image1.Picture
Label1.MousePointer = 99
End If
End Sub



Private Sub Label11_Click()
If Label11.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label11.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label11.Caption = "" Then
Label11.MousePointer = 0
Exit Sub
Else
Label11.MouseIcon = Image1.Picture
Label11.MousePointer = 99
End If
End Sub

Private Sub Label13_Click()
If Label13.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label13.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label13.Caption = "" Then
Label13.MousePointer = 0
Exit Sub
Else
Label13.MouseIcon = Image1.Picture
Label13.MousePointer = 99
End If
End Sub

Private Sub Label15_Click()
If Label15.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label15.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label15.Caption = "" Then
Label15.MousePointer = 0
Exit Sub
Else
Label15.MouseIcon = Image1.Picture
Label15.MousePointer = 99
End If
End Sub

Private Sub Label17_Click()
If Label17.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label17.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label17.Caption = "" Then
Label17.MousePointer = 0
Exit Sub
Else
Label17.MouseIcon = Image1.Picture
Label17.MousePointer = 99
End If
End Sub

Private Sub Label19_Click()
If Label19.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label19.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label19.Caption = "" Then
Label19.MousePointer = 0

Exit Sub
Else
Label19.MouseIcon = Image1.Picture
Label19.MousePointer = 99
End If
End Sub

Private Sub Label21_Click()
If Label21.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label21.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label21.Caption = "" Then
Label21.MousePointer = 0
Exit Sub
Else
Label21.MouseIcon = Image1.Picture
Label21.MousePointer = 99
End If
End Sub

Private Sub Label5_Click()
If Label5.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label5.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label5.Caption = "" Then
Label5.MousePointer = 0

Exit Sub
Else
Label5.MouseIcon = Image1.Picture
Label5.MousePointer = 99
End If
End Sub

Private Sub Label7_Click()
If Label7.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label7.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label7.Caption = "" Then
Label7.MousePointer = 0

Exit Sub
Else
Label7.MouseIcon = Image1.Picture
Label7.MousePointer = 99
End If
End Sub

Private Sub Label9_Click()
If Label9.Caption = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Label9.Caption
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label9.Caption = "" Then
Label9.MousePointer = 0

Exit Sub
Else
Label9.MouseIcon = Image1.Picture
Label9.MousePointer = 99
End If
End Sub

Private Sub mnudown_Click()
Dim c
Dim i As Integer, r 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 Y = 1 Then
For i = 1 To 9
Data1.Recordset.FindNext c
Next i
Y = 0
Else
If z = 1 Then
For i = 1 To 9
Data1.Recordset.FindNext c
Next i

End If
End If

Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.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 = ""

Label1.Caption = Data1.Recordset("职工编号")
Label2.Caption = Data1.Recordset("职工姓名")
Label26.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
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.FindNext c
If Data1.Recordset.NoMatch Then
mnudown.Enabled = False
mnuup.Enabled = True
X = 1

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
123

⌨️ 快捷键说明

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