frmfilterp.frm

档案管理系统,使用vb6+access数据库开发

VERSION 5.00
Begin VB.Form frmFilterP 
   Caption         =   "数据过滤"
   ClientHeight    =   4068
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   7920
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.8
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   MaxButton       =   0   'False
   ScaleHeight     =   4068
   ScaleWidth      =   7920
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame FrameF 
      Caption         =   "综合筛选条件"
      Height          =   3492
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   5772
      Begin VB.CheckBox CheckP 
         Caption         =   "时  间(&5)"
         Height          =   372
         Index           =   4
         Left            =   360
         TabIndex        =   15
         Top             =   2880
         Width           =   1332
      End
      Begin VB.TextBox TextP 
         BackColor       =   &H80000004&
         BeginProperty DataFormat 
            Type            =   1
            Format          =   "yyyy.MM.dd"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   3
         EndProperty
         Enabled         =   0   'False
         Height          =   324
         Index           =   4
         Left            =   1680
         MaxLength       =   10
         TabIndex        =   14
         ToolTipText     =   "拍摄时间"
         Top             =   2880
         Width           =   1212
      End
      Begin VB.CheckBox CheckP 
         Caption         =   "档  号(&1)"
         Height          =   372
         Index           =   0
         Left            =   360
         TabIndex        =   2
         ToolTipText     =   "档号"
         Top             =   360
         Width           =   1332
      End
      Begin VB.CheckBox CheckP 
         Caption         =   "照片号(&2)"
         Height          =   372
         Index           =   1
         Left            =   360
         TabIndex        =   4
         ToolTipText     =   "文件编号"
         Top             =   840
         Width           =   1332
      End
      Begin VB.CheckBox CheckP 
         Caption         =   "底片号(&3)"
         Height          =   372
         Index           =   2
         Left            =   360
         TabIndex        =   6
         ToolTipText     =   "形成日期"
         Top             =   1320
         Width           =   1332
      End
      Begin VB.CheckBox CheckP 
         Caption         =   "题  名(&4)"
         Height          =   372
         Index           =   3
         Left            =   360
         TabIndex        =   8
         ToolTipText     =   "正题名"
         Top             =   1800
         Width           =   1332
      End
      Begin VB.TextBox TextP 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   324
         Index           =   0
         Left            =   1680
         TabIndex        =   3
         ToolTipText     =   "档号"
         Top             =   360
         Width           =   1692
      End
      Begin VB.TextBox TextP 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   324
         Index           =   1
         Left            =   1680
         TabIndex        =   5
         ToolTipText     =   "照片号"
         Top             =   840
         Width           =   1692
      End
      Begin VB.TextBox TextP 
         BackColor       =   &H80000004&
         BeginProperty DataFormat 
            Type            =   1
            Format          =   "yyyy.MM.dd"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   3
         EndProperty
         Enabled         =   0   'False
         Height          =   324
         Index           =   2
         Left            =   1680
         TabIndex        =   7
         ToolTipText     =   "底片号"
         Top             =   1320
         Width           =   1692
      End
      Begin VB.TextBox TextP 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   924
         Index           =   3
         Left            =   1680
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   9
         ToolTipText     =   "题名"
         Top             =   1800
         Width           =   3732
      End
   End
   Begin VB.CommandButton cmdALL 
      Caption         =   "全选(&A)"
      Height          =   372
      Left            =   6480
      TabIndex        =   13
      Top             =   600
      Width           =   1212
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "清除(&C)"
      Enabled         =   0   'False
      Height          =   372
      Left            =   6480
      TabIndex        =   12
      Top             =   1080
      Width           =   1212
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "下一步(&N)"
      Height          =   372
      Left            =   6480
      TabIndex        =   0
      Top             =   3360
      Width           =   1212
   End
   Begin VB.CommandButton cmdLast 
      Caption         =   "上一步(&L)"
      Height          =   372
      Left            =   6480
      TabIndex        =   11
      Top             =   2880
      Width           =   1212
   End
   Begin VB.CheckBox CheckF 
      Caption         =   "模糊查询"
      Enabled         =   0   'False
      Height          =   252
      Left            =   6480
      TabIndex        =   10
      Top             =   1680
      Width           =   1212
   End
End
Attribute VB_Name = "frmFilterP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PText As String

Private Sub CheckP_Click(Index As Integer)
With CheckP(Index)
  If .Value = 0 Then
     With TextP(Index)
       .Enabled = False
       .BackColor = &H80000004
       .Text = ""
     End With
  Else
     With TextP(Index)
       .Enabled = True
       .BackColor = &H80000005
       .SetFocus
     End With
  End If
End With
cmdClear.Enabled = True
End Sub

Private Sub cmdALL_Click()
Dim i As Integer
For i = 0 To 4
  CheckP(i).Value = 1
Next
cmdALL.Enabled = False
cmdClear.Enabled = True
End Sub

Private Sub cmdClear_Click()
Dim i As Integer
For i = 0 To 4
  CheckP(i).Value = 0
Next
cmdALL.Enabled = True
cmdClear.Enabled = False
End Sub

Private Sub cmdLast_Click()
frmFilterP.Hide
Unload frmFilterP
Load frmFtype
frmFtype.Show
End Sub

Private Sub cmdNext_Click()
PText = ""
Call FillText       '组织数据过滤条件
'FilterTest.Text = PText
frmFtype.FilterText = PText
frmFilterP.Hide
Unload frmFilterP
Select Case frmMain.FileManage      '选择管理方式
       Case 2       '查询
            Load frmSeekP
            frmSeekP.Show
       Case 3       '打印
'            Load frmPrintP
'            frmPrintP.Show
       Case 4       '修改
'            Load frmModifyP
'            frmModifyP.Show
End Select
End Sub

Private Sub Form_Load()
frmFilterP.Caption = frmFilterP.Caption + "  （照片档案）"
End Sub

Private Sub TextP_LostFocus(Index As Integer)
If InStr(TextP(Index).Text, "'") Then
   TextP(Index).SetFocus
   Exit Sub
End If
End Sub

Private Sub FillText()      '组织过滤条件子程序
Dim lWhere As Boolean
Dim i As Integer
If CheckF.Value = 0 Then
  '普通查询
  For i = 0 To 4
    If CheckP(i).Value = 1 And TextP(i).Text <> "" Then
       If PText <> "" Then PText = PText + " and "
       PText = PText + "InStr(" & CheckP(i).ToolTipText & _
            ",'" & Trim(TextP(i).Text) & "')"
    End If
  Next i
  If PText <> "" Then PText = "Where " & PText
Else
  '模糊方式
End If
End Sub