frmsearchform.frm

一个用vb开发的档案管理程序

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