bookquery.frm

是有关于音像制品的管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form bookQuery 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "产品信息查询"
   ClientHeight    =   5025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8640
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "bookQuery.frx":0000
   ScaleHeight     =   5025
   ScaleWidth      =   8640
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox QueryTermNo 
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   600
      Width           =   2415
   End
   Begin VB.CheckBox Checkbox 
      BackColor       =   &H0080FFFF&
      Caption         =   "按编号"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   0
      Left            =   960
      TabIndex        =   5
      Top             =   720
      Width           =   975
   End
   Begin VB.CheckBox Checkbox 
      BackColor       =   &H0080FFFF&
      Caption         =   "按产品名称"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   225
      Index           =   1
      Left            =   960
      TabIndex        =   4
      Top             =   1200
      Width           =   1695
   End
   Begin VB.TextBox QueryTermName 
      Height          =   375
      Left            =   2760
      TabIndex        =   3
      Top             =   1080
      Width           =   2415
   End
   Begin MSFlexGridLib.MSFlexGrid bookQueryGrid 
      Height          =   4095
      Left            =   0
      TabIndex        =   2
      Top             =   1560
      Width           =   9735
      _ExtentX        =   17171
      _ExtentY        =   7223
      _Version        =   393216
      Rows            =   15
      Cols            =   15
      FixedCols       =   0
      BackColorBkg    =   14737632
      AllowUserResizing=   1
   End
   Begin VB.CommandButton exit 
      Caption         =   "返  回"
      Height          =   375
      Left            =   6600
      TabIndex        =   1
      Top             =   1080
      Width           =   1095
   End
   Begin VB.CommandButton bookQuery 
      Caption         =   "查  询"
      Height          =   375
      Left            =   6600
      TabIndex        =   0
      Top             =   600
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入查询条件："
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   360
      Width           =   1695
   End
End
Attribute VB_Name = "bookQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bookQuery_Click()
    Dim sql As String
    Dim rs As ADODB.Recordset
    Dim bf(4) As Boolean
    sql = "select * from books where "
    '判断是否选择按编号查询
    If Checkbox(0).Value Then
       If Trim(QueryTermNo.Text) = "" Then
         MsgBox "产品编号不能为空！", vbOKOnly + vbExclamation, "警告"
         QueryTermNo.SetFocus
         Exit Sub
       Else
         bf(0) = True
         '组合查询语句
         sql = sql & " bookno ='" & Trim(QueryTermNo.Text) & "'"
       End If
    End If
    '判断是否按产品名查询
    If Checkbox(1) Then
       If Trim(QueryTermName.Text) = "" Then
          MsgBox "产品名称不能为空！", vbOKOnly + vbExclamation, "警告"
          QueryTermName.SetFocus
          Exit Sub
        Else
          bf(1) = True
          If bf(0) Then
             '组和查询语句
             sql = sql & " and bookname='" & Trim(QueryTermName.Text) & "'"
          Else
             sql = sql & " bookname='" & Trim(QueryTermName.Text) & "'"
          End If
        End If
    End If

    '判断是否设置查询方式
    If Not (bf(0) Or bf(1) Or bf(2) Or bf(3)) Then
      MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
       Exit Sub
    End If

    '查询所有满足条件的内容
    sql = sql & " order by bookno"
    Set rs = TransactSQL(sql)
    If rs.EOF = True Then
      MsgBox "没有找到要查询的信息", vbOKOnly
    Else
    With bookQueryGrid
      .Rows = 1
    Do While Not rs.EOF
      .Rows = .Rows + 1
      .TextMatrix(.Rows - 1, 0) = rs.Fields(0)
      .TextMatrix(.Rows - 1, 1) = rs.Fields(1)
      .TextMatrix(.Rows - 1, 2) = rs.Fields(2)
      .TextMatrix(.Rows - 1, 3) = rs.Fields(3)
      .TextMatrix(.Rows - 1, 4) = rs.Fields(4)
      rs.MoveNext
      Loop
    End With
    End If
    rs.Close
End Sub

Private Sub exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
   With bookQueryGrid
         .TextMatrix(0, 0) = "产品编号"
         .TextMatrix(0, 1) = "产品名称"
         .TextMatrix(0, 2) = "产品类型"
         .TextMatrix(0, 3) = "产品价格"
         .TextMatrix(0, 4) = "产品说明"
         .ColWidth(3) = 1500
         .ColWidth(4) = 1800
         .ColWidth(7) = 1500
         .ColWidth(8) = 1500
         .ColWidth(9) = 1200
         .ColWidth(13) = 1200
         .ColWidth(14) = 2000
         .BackColorFixed = RGB(247, 214, 157)
    End With
End Sub