📄 spseek.frm

📁 delphi财务管理系统.rar delphi财务管理系统.rar
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
Command3.Enabled = False


Label3.Caption = "合同期限(天)"

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Text28.Text = ""
Text29.Text = ""
Text30.Text = ""
Text21.BackColor = &HFFFFFF
Text22.BackColor = &HFFFFFF
Text23.BackColor = &HFFFFFF
Text24.BackColor = &HFFFFFF
Text25.BackColor = &HFFFFFF
Text26.BackColor = &HFFFFFF
Text27.BackColor = &HFFFFFF
Text28.BackColor = &HFFFFFF
Text29.BackColor = &HFFFFFF
Text30.BackColor = &HFFFFFF

If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst

End If
If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast
r = Data1.Recordset.RecordCount Mod 10
If r = 0 Then
r = 10
End If
For i = 1 To r
Data1.Recordset.MovePrevious
Next i

Else

If X = 0 Then
For i = 1 To 11
Data1.Recordset.MovePrevious
Next i

End If

End If


a = Date

b = Data1.Recordset("入单位时间")
Text19.Text = Data1.Recordset("职工编号")
Text20.Text = Data1.Recordset("职工姓名")
Text30.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text30.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text17.Text = Data1.Recordset("职工编号")
Text18.Text = Data1.Recordset("职工姓名")
Text29.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text29.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If


b = Data1.Recordset("入单位时间")
Text15.Text = Data1.Recordset("职工编号")
Text16.Text = Data1.Recordset("职工姓名")
Text28.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text28.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If


b = Data1.Recordset("入单位时间")
Text13.Text = Data1.Recordset("职工编号")
Text14.Text = Data1.Recordset("职工姓名")
Text27.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text27.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If




b = Data1.Recordset("入单位时间")
Text11.Text = Data1.Recordset("职工编号")
Text12.Text = Data1.Recordset("职工姓名")
Text26.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text26.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If



b = Data1.Recordset("入单位时间")
Text9.Text = Data1.Recordset("职工编号")
Text10.Text = Data1.Recordset("职工姓名")
Text25.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text25.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If
b = Data1.Recordset("入单位时间")
Text7.Text = Data1.Recordset("职工编号")
Text8.Text = Data1.Recordset("职工姓名")
Text24.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text24.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text5.Text = Data1.Recordset("职工编号")
Text6.Text = Data1.Recordset("职工姓名")
Text23.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text23.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If



b = Data1.Recordset("入单位时间")
Text3.Text = Data1.Recordset("职工编号")
Text4.Text = Data1.Recordset("职工姓名")
Text22.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text22.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True

Exit Sub
End If



a = Date
b = Data1.Recordset("入单位时间")
Text1.Text = Data1.Recordset("职工编号")
Text2.Text = Data1.Recordset("职工姓名")
Text21.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text21.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Command5.Enabled = False
Command6.Enabled = True
Exit Sub
Else
X = 1
End If



a0:






End Sub

Private Sub Command6_Click()
Dim a As Date, b As Date
Dim i As Integer
On Error GoTo a0
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False



Label3.Caption = "合同期限(天)"

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Text28.Text = ""
Text29.Text = ""
Text30.Text = ""
Text21.BackColor = &HFFFFFF
Text22.BackColor = &HFFFFFF
Text23.BackColor = &HFFFFFF
Text24.BackColor = &HFFFFFF
Text25.BackColor = &HFFFFFF
Text26.BackColor = &HFFFFFF
Text27.BackColor = &HFFFFFF
Text28.BackColor = &HFFFFFF
Text29.BackColor = &HFFFFFF
Text30.BackColor = &HFFFFFF

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
For i = 1 To 10
Data1.Recordset.MoveNext
Next i

Else

If X = 1 Then
For i = 1 To 11
Data1.Recordset.MoveNext
Next i

End If
End If

a = Date
b = Data1.Recordset("入单位时间")
Text1.Text = Data1.Recordset("职工编号")
Text2.Text = Data1.Recordset("职工姓名")
Text21.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text21.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text3.Text = Data1.Recordset("职工编号")
Text4.Text = Data1.Recordset("职工姓名")
Text22.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text22.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text5.Text = Data1.Recordset("职工编号")
Text6.Text = Data1.Recordset("职工姓名")
Text23.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text23.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text7.Text = Data1.Recordset("职工编号")
Text8.Text = Data1.Recordset("职工姓名")
Text24.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text24.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command5.Enabled = True
Command6.Enabled = False
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text9.Text = Data1.Recordset("职工编号")
Text10.Text = Data1.Recordset("职工姓名")
Text25.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text25.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text11.Text = Data1.Recordset("职工编号")
Text12.Text = Data1.Recordset("职工姓名")
Text26.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text26.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text13.Text = Data1.Recordset("职工编号")
Text14.Text = Data1.Recordset("职工姓名")
Text27.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text27.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text15.Text = Data1.Recordset("职工编号")
Text16.Text = Data1.Recordset("职工姓名")
Text28.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text28.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text17.Text = Data1.Recordset("职工编号")
Text18.Text = Data1.Recordset("职工姓名")
Text29.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text29.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
End If

b = Data1.Recordset("入单位时间")
Text19.Text = Data1.Recordset("职工编号")
Text20.Text = Data1.Recordset("职工姓名")
Text30.Text = CInt(Data1.Recordset("合同期限")) * 365 - (a - b)
If CInt(Data1.Recordset("合同期限")) * 365 - (a - b) < 1 Then
Text30.BackColor = &HC0FFFF
Beep
End If

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command6.Enabled = False
Command5.Enabled = True
Exit Sub
Else
X = 0
End If

a0:
End Sub



Private Sub Command8_Click()
Unload Me

End Sub


Private Sub Text1_DblClick()
If Text1.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text1.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub



Private Sub Text11_DblClick()
If Text11.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text11.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text13_DblClick()
If Text13.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text13.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text15_DblClick()
If Text15.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text15.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text17_DblClick()
If Text17.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text17.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text19_DblClick()
If Text19.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text19.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text3_DblClick()
If Text3.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text3.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text5_DblClick()
If Text5.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text5.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text7_DblClick()
If Text7.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text7.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Text9_DblClick()
If Text9.Text = "" Then
Exit Sub
Else
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text9.Text
Data2.Recordset.Update
Form2.Show
End If
End Sub

Private Sub Timer1_Timer()
Label7.Caption = time
End Sub
上一页 1 2 34
💿 文件大小 634 K
👤 上传用户 lixuecheng
📂 所属分类软件设计/软件工程
🏷️ 相关标签

#delphi #财务管理系统
⌨️ 快捷键说明

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