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

📄 spseek.frm

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




Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command2.Enabled = False
Command1.Enabled = True
X = 1
Command1.SetFocus
Exit Sub
Else
Text11.Text = Data1.Recordset("职工编号")
Text12.Text = Data1.Recordset("职工姓名")
Text26.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command2.Enabled = False
Command1.Enabled = True
X = 1
Command1.SetFocus
Exit Sub
Else
Text13.Text = Data1.Recordset("职工编号")
Text14.Text = Data1.Recordset("职工姓名")
Text27.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command2.Enabled = False
Command1.Enabled = True
X = 1
Command1.SetFocus
Exit Sub
Else
Text15.Text = Data1.Recordset("职工编号")
Text16.Text = Data1.Recordset("职工姓名")
Text28.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command2.Enabled = False
Command1.Enabled = True
X = 1
Command1.SetFocus
Exit Sub
Else
Text17.Text = Data1.Recordset("职工编号")
Text18.Text = Data1.Recordset("职工姓名")
Text29.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command2.Enabled = False
Command1.Enabled = True
X = 1
Command1.SetFocus
Exit Sub
Else
Text19.Text = Data1.Recordset("职工编号")
Text20.Text = Data1.Recordset("职工姓名")
Text30.Text = Data1.Recordset(a)
reco = reco + 1
End If


Data1.Recordset.FindNext c

If Data1.Recordset.NoMatch Then
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Command1.Enabled = True
Command2.Enabled = False
X = 1
Command1.SetFocus
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
Command2.Enabled = False
Command1.Enabled = True

End If

Exit Sub

'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
a0:
End Sub

Private Sub Command3_Click()
On Error GoTo a0


Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False


Dim c
 
 Dim a As String, b As String, e As String
 a = Combo1.Text
 b = Text31.Text
 e = Text32.Text
 Label3.Caption = a

If Text31.Text = "" Then
MsgBox "请输入查找条件"
Text31.SetFocus
Exit Sub
End If
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 = ""


 c = Combo1.Text & "< #" & Text31.Text & "# and " & Combo1.Text & "> #" & Text32.Text & "#"

Data1.Recordset.FindFirst c '("出生日期 < #70-1-1# and 出生日期 > #60-1-1#")
If Data1.Recordset.NoMatch Then
MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text1.Text = Data1.Recordset("职工编号")
Text2.Text = Data1.Recordset("职工姓名")
Text21.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text3.Text = Data1.Recordset("职工编号")
Text4.Text = Data1.Recordset("职工姓名")
Text22.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text5.Text = Data1.Recordset("职工编号")
Text6.Text = Data1.Recordset("职工姓名")
Text23.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text7.Text = Data1.Recordset("职工编号")
Text8.Text = Data1.Recordset("职工姓名")
Text24.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text9.Text = Data1.Recordset("职工编号")
Text10.Text = Data1.Recordset("职工姓名")
Text25.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text11.Text = Data1.Recordset("职工编号")
Text12.Text = Data1.Recordset("职工姓名")
Text26.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text13.Text = Data1.Recordset("职工编号")
Text14.Text = Data1.Recordset("职工姓名")
Text27.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text15.Text = Data1.Recordset("职工编号")
Text16.Text = Data1.Recordset("职工姓名")
Text28.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text17.Text = Data1.Recordset("职工编号")
Text18.Text = Data1.Recordset("职工姓名")
Text29.Text = Data1.Recordset(a)
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
'MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
Exit Sub
Else
Text19.Text = Data1.Recordset("职工编号")
Text20.Text = Data1.Recordset("职工姓名")
Text30.Text = Data1.Recordset(a)
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
Command2.Enabled = True
Text31.Locked = True
Text32.Locked = True
Combo1.Locked = True
z = 0
Exit Sub

a0:
MsgBox "找不到与条件相符的记录", vbOKOnly, "提示信息"
End Sub

Private Sub Command4_Click()
Dim a As Date, b As Date
On Error GoTo a0

Command4.Enabled = True
Command5.Enabled = False
'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
Data1.Recordset.MoveFirst
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

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

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

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

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

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

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

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

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

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

Exit Sub
End If


X = 0
Command6.Enabled = True
a0:
End Sub

Private Sub Command5_Click()

Dim a As Date, b As Date
On Error GoTo a0
Dim r As Integer, i As Integer
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
1234

⌨️ 快捷键说明

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