frm_mutiquery.frm

来自「关于图书馆管理的vfp程序」· FRM 代码 · 共 312 行

VERSION 5.00
Begin VB.Form Frm_MutiQuery 
   Caption         =   "组合条件查询"
   ClientHeight    =   4710
   ClientLeft      =   4245
   ClientTop       =   4125
   ClientWidth     =   7605
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleWidth      =   7605
   Begin VB.CommandButton cmdExit 
      Caption         =   "返回主界面"
      Height          =   495
      Left            =   6000
      TabIndex        =   13
      Top             =   3120
      Width           =   1215
   End
   Begin VB.CommandButton Cmd_Clear 
      Cancel          =   -1  'True
      Caption         =   "清 空"
      Height          =   495
      Left            =   6000
      TabIndex        =   12
      Top             =   1980
      Width           =   1215
   End
   Begin VB.CommandButton Cmd_Search 
      Caption         =   "搜 索"
      Default         =   -1  'True
      Height          =   495
      Left            =   6000
      TabIndex        =   11
      Top             =   840
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "按类别查询"
      Height          =   3255
      Left            =   600
      TabIndex        =   0
      Top             =   600
      Width           =   5055
      Begin VB.TextBox Tex_Year 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1680
         TabIndex        =   10
         Top             =   2520
         Width           =   2295
      End
      Begin VB.TextBox Tex_Press 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1680
         TabIndex        =   9
         Top             =   2040
         Width           =   2295
      End
      Begin VB.CheckBox Chk_Year 
         Caption         =   "出版年份"
         Height          =   180
         Left            =   360
         TabIndex        =   8
         Top             =   2520
         Width           =   1215
      End
      Begin VB.CheckBox Chk_Press 
         Caption         =   "出版社"
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox Tex_Index 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1680
         TabIndex        =   6
         Top             =   1560
         Width           =   2295
      End
      Begin VB.TextBox Tex_Writer 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1680
         TabIndex        =   5
         Top             =   1080
         Width           =   2295
      End
      Begin VB.TextBox Tex_Bookname 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1680
         TabIndex        =   4
         Top             =   600
         Width           =   2295
      End
      Begin VB.CheckBox Chk_Index 
         Caption         =   "索书号"
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   1560
         Width           =   855
      End
      Begin VB.CheckBox Chk_Writer 
         Caption         =   "作者"
         Height          =   255
         Left            =   360
         TabIndex        =   2
         Top             =   1080
         Width           =   1215
      End
      Begin VB.CheckBox Chk_Bookname 
         Caption         =   "书名"
         Height          =   180
         Left            =   360
         TabIndex        =   1
         Top             =   600
         Width           =   855
      End
   End
End
Attribute VB_Name = "Frm_MutiQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bFlag As Boolean, pos As Integer, lft As String

Private Sub Chk_Bookname_Click()
If Chk_Bookname = 1 Then
    Tex_Bookname.Enabled = True
    Tex_Bookname.SetFocus
Else:
    pos = InStr(SQL, "书名")
    If pos <> 0 Then
        lft = Mid(SQL, 1, pos - 1)
        SQL = Replace(SQL, Trim(Tex_Bookname.Text), "", pos, 1)
        SQL = lft & SQL
    End If
    Tex_Bookname.Enabled = False
    Tex_Bookname = ""
End If
End Sub

Private Sub Chk_Index_Click()
If Chk_Index = 1 Then
    Tex_Index.Enabled = True
    Tex_Index.SetFocus
Else
    pos = InStr(SQL, "索书号")
    If pos <> 0 Then
        lft = Mid(SQL, 1, pos - 1)
        SQL = Replace(SQL, Trim(Tex_Index.Text), "", pos, 1)
        SQL = lft & SQL
    End If
    Tex_Index.Enabled = False
    Tex_Index = ""
End If
End Sub

Private Sub Chk_Press_Click()
If Chk_Press = 1 Then
    Tex_Press.Enabled = True
    Tex_Press.SetFocus
Else
    pos = InStr(SQL, "出版社")
    If pos <> 0 Then
        lft = Mid(SQL, 1, pos - 1)
        SQL = Replace(SQL, Trim(Tex_Press.Text), "", pos, 1)
        SQL = lft & SQL
    End If
    Tex_Press.Enabled = False
    Tex_Press = ""
End If
End Sub

Private Sub Chk_Writer_Click()
If Chk_Writer = 1 Then
    Tex_Writer.Enabled = True
    Tex_Writer.SetFocus
Else
    pos = InStr(SQL, "作者")
    If pos <> 0 Then
        lft = Mid(SQL, 1, pos - 1)
        SQL = Replace(SQL, Trim(Tex_Writer.Text), "", pos, 1)
        SQL = lft & SQL
    End If
    Tex_Writer.Enabled = False
    Tex_Writer = ""
End If
End Sub

Private Sub Chk_Year_Click()
If Chk_Year = 1 Then
    Tex_Year.Enabled = True
    Tex_Year.SetFocus
Else
    pos = InStr(SQL, "出版年份")
    If pos <> 0 Then
        lft = Mid(SQL, 1, pos - 1)
        SQL = Replace(SQL, Trim(Tex_Year.Text), "", pos, 1)
        SQL = lft & SQL
    End If
    Tex_Year.Enabled = False
    Tex_Year = ""
End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Tex_Index_LostFocus()
If bFlag Then
    SQL = SQL & "and "
End If
SQL = SQL & "索书号 like'%" & Trim(Tex_Index.Text) & "%'"
bFlag = True
Tex_Index.Enabled = False
End Sub

Private Sub Tex_Press_LostFocus()
If bFlag Then
    SQL = SQL & "and "
End If
Tex_Press.Enabled = False
SQL = SQL & "出版社 like'%" & Trim(Tex_Press.Text) & "%'"
bFlag = True
End Sub

Private Sub Tex_Writer_LostFocus()
If bFlag Then
    SQL = SQL & "and "
End If
SQL = SQL & "作者 like'%" & Trim(Tex_Writer.Text) & "%'"
bFlag = True
Tex_Writer.Enabled = False
End Sub

Private Sub Tex_Year_LostFocus()
If bFlag Then
    SQL = SQL & "and "
End If
Tex_Year.Enabled = False
SQL = SQL & " 出版年份 like '%" & Trim(Tex_Year.Text) & "%'"
bFlag = True
End Sub

Public Sub Cmd_Clear_Click()
bFlag = False
SQL = "select*from 书籍资料 where "
Tex_Bookname.Text = ""
Tex_Writer.Text = ""
Tex_Index.Text = ""
Tex_Press.Text = ""
Tex_Year.Text = ""
Chk_Bookname = 0
Chk_Writer = 0
Chk_Index = 0
Chk_Press = 0
Chk_Year = 0
Tex_Bookname.Enabled = False
Tex_Writer.Enabled = False
Tex_Index.Enabled = False
Tex_Press.Enabled = False
Tex_Year.Enabled = False
End Sub

Private Sub Cmd_Search_Click()
If SQL <> "select*from 书籍资料 where " Then
    Frm_SingleQuery.Adodc1.RecordSource = SQL
    Frm_SingleQuery.Adodc1.Refresh
    If Frm_SingleQuery.Adodc1.Recordset.EOF Then
        MsgBox "没有匹配的信息", vbInformation, "查找信息"
    Else
        Unload Me
        Frm_SingleQuery.Show
        Frm_SingleQuery.Cmd_Print.Enabled = True
        Frm_SingleQuery.Cmd_CardInfo.Enabled = True
        Frm_SingleQuery.Cmd_Print.Enabled = True
        Frm_SingleQuery.Cmd_DoOrder.Enabled = True
        Frm_SingleQuery.Cmd_BookRecord.Enabled = True
    End If
Else
    MsgBox "请先选择查询条件", vbCritical, "查找信息"
End If
End Sub

Private Sub Form_Load()
Dim mpath As String, mlink As String
mpath = App.Path
If (Right(mpath, 1) <> " \") Then mpath = mpath + "\"
mlink = "provider=microsoft.jet.oledb.3.51;data source=" + mpath + "book.mdb"
Frm_SingleQuery.Adodc1.ConnectionString = mlink
bFlag = False
SQL = "select*from 书籍资料 where "
End Sub

Private Sub Tex_Bookname_LostFocus()
If bFlag Then
    SQL = SQL & "and "
End If
Tex_Bookname.Enabled = False
SQL = SQL & "书名 like'%" & Trim(Tex_Bookname.Text) & "%'"
bFlag = True
End Sub