www.pudn.com > 档案管理系统源码VB.zip > frmSearchForm.frm
VERSION 5.00
Begin VB.Form frmSearchForm
BorderStyle = 3 'Fixed Dialog
Caption = "档案查询模块"
ClientHeight = 1665
ClientLeft = 45
ClientTop = 330
ClientWidth = 6165
Icon = "frmSearchForm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1665
ScaleWidth = 6165
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdSearch
Caption = "开始搜索(&S)"
Enabled = 0 'False
Height = 435
Left = 4710
TabIndex = 1
Top = 975
Width = 1245
End
Begin VB.TextBox txtSearch
Height = 300
Left = 1950
MaxLength = 20
TabIndex = 0
Top = 1035
Width = 2580
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 690
Left = 180
TabIndex = 7
Top = 105
Width = 5760
Begin VB.CheckBox chkValue
Caption = "档案名"
ForeColor = &H000040C0&
Height = 300
Index = 1
Left = 330
TabIndex = 2
Top = 255
Value = 1 'Checked
Width = 885
End
Begin VB.CheckBox chkValue
Caption = "文件说明"
ForeColor = &H000040C0&
Height = 300
Index = 3
Left = 2850
TabIndex = 4
Top = 255
Value = 1 'Checked
Width = 1170
End
Begin VB.CheckBox chkValue
Caption = "参考说明"
ForeColor = &H000040C0&
Height = 300
Index = 4
Left = 4350
TabIndex = 5
Top = 255
Value = 1 'Checked
Width = 1035
End
Begin VB.CheckBox chkValue
Caption = "文件名"
ForeColor = &H000040C0&
Height = 300
Index = 2
Left = 1545
TabIndex = 3
Top = 255
Value = 1 'Checked
Width = 975
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 0
X2 = 0
Y1 = 60
Y2 = 705
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = -30
X2 = 5805
Y1 = 45
Y2 = 45
End
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 165
X2 = 5955
Y1 = 810
Y2 = 810
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 5940
X2 = 5940
Y1 = 150
Y2 = 810
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 6135
X2 = 6135
Y1 = 0
Y2 = 1650
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 6120
X2 = 6120
Y1 = 0
Y2 = 1620
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 30
X2 = 30
Y1 = 15
Y2 = 1605
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 15
Y1 = 0
Y2 = 1635
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 45
X2 = 6135
Y1 = 1620
Y2 = 1620
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 30
X2 = 6120
Y1 = 1635
Y2 = 1635
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 45
X2 = 6105
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 6120
Y1 = 0
Y2 = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请输入查询的条件："
ForeColor = &H00000000&
Height = 180
Left = 300
TabIndex = 6
Top = 1080
Width = 1620
End
End
Attribute VB_Name = "frmSearchForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSearch_Click()
'检查选项
Dim optSelect As Boolean
Dim X As Integer
For X = 1 To 4
If chkValue(X).Value = vbChecked Then
optSelect = True
End If
Next
If optSelect = False Then
MsgBox "请您选择一个查询项目：" & vbCrLf & vbCrLf & "如：档案名、文件名、档案说明等等... ", vbInformation
Exit Sub
End If
Dim strTemp As String, lblTemp As String
strTemp = " And ("
For X = 1 To 4
If chkValue(X).Caption = "档案名" Then
lblTemp = "档案号"
Else
lblTemp = chkValue(X).Caption
End If
If chkValue(X).Value = vbChecked Then
If strTemp = " And (" Then
strTemp = strTemp + lblTemp + " Like '*" & Trim(txtSearch.Text) & "*'"
Else
strTemp = strTemp + " Or " + lblTemp + " Like '*" & Trim(txtSearch.Text) & "*'"
End If
End If
Next
strSearchString = strTemp + ")" '搜索代码
Call frmManager.cmdLoad_Click '刷新数据
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = Val(GetSetting(App.EXEName, "SearchForm", "Left"))
Me.Top = Val(GetSetting(App.EXEName, "SearchForm", "Top"))
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "SearchForm", "Left", Me.Left
SaveSetting App.EXEName, "SearchForm", "Top", Me.Top
End Sub
Private Sub txtSearch_Change()
If Trim(txtSearch.Text) <> "" Then
cmdSearch.Enabled = True
Else
cmdSearch.Enabled = False
End If
End Sub
Private Sub txtSearch_GotFocus()
txtSearch.SelStart = 0
txtSearch.SelLength = Len(txtSearch.Text)
End Sub
Private Sub txtSearch_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If cmdSearch.Enabled = True Then
cmdSearch.SetFocus
End If
End If
End Sub