frmbookqueue.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

     txt图书编号.Enabled = True
Else
     txt图书编号.Enabled = False
End If
End Sub

Private Sub chk图书名称_Click()
If chk图书名称.Value Then
     txt图书名称.Enabled = True
Else
     txt图书名称.Enabled = False
End If
End Sub

Private Sub chk译者_Click()
If chk译者.Value Then
     txt译者称.Enabled = True
Else
     txt译者.Enabled = False
End If
End Sub

Private Sub chk作者_Click()
If chk作者.Value Then
     txt作者称.Enabled = True
Else
     txt作者.Enabled = False
End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdqueue_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim bf(8) As Boolean
    Dim i As Integer
    
    For i = 0 To 8 - 1 Step 1
       bf(i) = False
    Next i
    
    sql = "select * from tsxxb where "
    '判断是否选择按编号查询
    If chk图书编号.Value = 1 Then
       If Trim(txt图书编号.Text) = "" Then
         MsgBox "图书编号不能为空！", vbOKOnly + vbExclamation, "警告"
         txt图书编号.SetFocus
         Exit Sub
       Else
         bf(0) = True
         '组合查询语句
         sql = sql & " 图书编号 like '" & Trim(txt图书编号.Text) & "%'"
       End If
    End If
    '判断是否按书名查询
    If chk图书名称.Value = 1 Then
       If Trim(txt图书名称.Text) = "" Then
          MsgBox "图书名称不能为空！", vbOKOnly + vbExclamation, "警告"
          txt图书名称.SetFocus
          Exit Sub
        Else
          bf(1) = True
          If bf(0) Then
             '组和查询语句
             sql = sql & " and 图书名称 like '" & Trim(txt图书名称.Text) & "%'"
          Else
             sql = sql & " 图书名称 like'" & Trim(txt图书名称.Text) & "%'"
          End If
        End If
    End If
    
     '判断是否选择按类别编号查询
    If chk类别编号.Value = 1 Then
       If Trim(Cmbo类别编号.Text) = "" Then
         MsgBox "类别编号不能为空！", vbOKOnly + vbExclamation, "警告"
         Cmbo类别编号.SetFocus
         Exit Sub
       Else
         bf(2) = True
         '组合查询语句
         If bf(0) Or bf(1) Then
             '组和查询语句
             sql = sql & " and 类别编号 = '" & Trim(Cmbo类别编号.Text) & "'"
          Else
             sql = sql & " 类别编号 = '" & Trim(Cmbo类别编号.Text) & "'"
          End If
       End If
    End If
    
    '判断是否按类别名称查询
    If chk类别名称.Value = 1 Then
       If Trim(Cmbo类别名称.Text) = "" Then
          MsgBox "类别名称不能为空！", vbOKOnly + vbExclamation, "警告"
          Cmbo类别名称.SetFocus
          Exit Sub
        Else
          bf(3) = True
          If bf(0) Or bf(1) Or bf(2) Then
             '组和查询语句
             sql = sql & " and 类别名称 = '" & Trim(Cmbo类别名称.Text) & "'"
          Else
             sql = sql & " 类别名称='" & Trim(Cmbo类别名称.Text) & "'"
          End If
        End If
    End If
    
    '判断是否选择按作者查询
    If chk作者.Value = 1 Then
       If Trim(txt作者.Text) = "" Then
          MsgBox "作者不能为空！", vbOKOnly + vbExclamation, "警告"
          txt作者.SetFocus
          Exit Sub
        Else
          bf(4) = True
          If bf(0) Or bf(1) Or bf(2) Or bf(3) Then
             '组合查询语句
             sql = sql & "and 作者 like'" & Trim(txt作者.Text) & "%'"
          Else
             sql = sql & " 作者 like'" & Trim(txt作者.Text) & "%'"
          End If
        End If
    End If
    
    '判断是否设置出版社名查询方式
    If chk出版社名.Value = 1 Then
       If Trim(Cmbo出版社名.Text) = "" Then
          MsgBox "出版社信息不能为空！", vbOKOnly + vbExclamation, "警告"
          Cmbo出版社名.SetFocus
          Exit Sub
        Else
          bf(5) = True
          If bf(0) Or bf(1) Or bf(2) Or bf(3) Or bf(4) Then
             '组和查询语句
             sql = sql & "and 出版社名 = '" & Trim(Cmbo出版社名.Text) & "'"
          Else
             sql = sql & " 出版社名 = '" & Trim(Cmbo出版社名.Text) & "'"
          End If
        End If
    End If
    
     '判断是否选择按译者查询
    If chk译者.Value = 1 Then
       If Trim(txt译者.Text) = "" Then
          MsgBox "作者不能为空！", vbOKOnly + vbExclamation, "警告"
          txt译者.SetFocus
          Exit Sub
        Else
          bf(6) = True
          If bf(0) Or bf(1) Or bf(2) Or bf(3) Or bf(4) Or bf(5) Then
             '组合查询语句
             sql = sql & "and 译者 like'" & Trim(txt译者.Text) & "%'"
          Else
             sql = sql & " 译者 like'" & Trim(txt译者.Text) & "%'"
          End If
        End If
    End If
    
      '判断是否选择按入库日期查询
    If chk入库日期.Value = 1 Then
        bf(7) = True
        If bf(0) Or bf(1) Or bf(2) Or bf(3) Or bf(4) Or bf(5) Or bf(6) Then
        '组合查询语句
           
            sql = sql & "and DateDiff( 'd','" & DTP入库日期.Value & "',入库日期) =0 "
            
        Else
            sql = sql & " DateDiff( 'd','" & DTP入库日期.Value & "',入库日期) =0 "
            
        End If
    End If

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

    '查询所有满足条件的内容
    sql = sql & " order by 图书编号"
    Set rs = TransactSQL(sql)
    If rs.EOF = True Then
      MsgBox "没有找到要查询的信息", vbOKOnly
    Else
      With frmbookmanage.bookGrid
        .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)
          .TextMatrix(.Rows - 1, 5) = rs.Fields(5)
          .TextMatrix(.Rows - 1, 6) = rs.Fields(6)
          .TextMatrix(.Rows - 1, 7) = rs.Fields(7)
          .TextMatrix(.Rows - 1, 8) = rs.Fields(8)
          .TextMatrix(.Rows - 1, 9) = rs.Fields(9)
          .TextMatrix(.Rows - 1, 10) = rs.Fields(10)
          .TextMatrix(.Rows - 1, 11) = rs.Fields(11)
          .TextMatrix(.Rows - 1, 12) = rs.Fields(12)
          .TextMatrix(.Rows - 1, 13) = rs.Fields(13)
          .TextMatrix(.Rows - 1, 14) = rs.Fields(14)
          .TextMatrix(.Rows - 1, 15) = rs.Fields(15)
          .TextMatrix(.Rows - 1, 16) = rs.Fields(16)
          .TextMatrix(.Rows - 1, 17) = rs.Fields(17)
          .TextMatrix(.Rows - 1, 18) = rs.Fields(18)
          .TextMatrix(.Rows - 1, 19) = rs.Fields(19)
          .TextMatrix(.Rows - 1, 20) = rs.Fields(20)
          rs.MoveNext
         Loop
      End With
      Unload Me
    End If
    rs.Close
End Sub

Private Sub Form_Load()
  Call fullpic(Me, Picbg1) '背景图
  Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
  Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
  '书籍类别编号加入到cmbo类别编号组合框中
  Dim rs As New ADODB.Recordset
  Dim sqlType As String
  sqlType = "select 类别编号 from tslbb order by 类别编号"
  Set rs = TransactSQL(sqlType)
  While Not rs.EOF
       Cmbo类别编号.AddItem rs(0)
       rs.MoveNext
  Wend

  
  sqlType = "select 类别名称 from tslbb order by 类别名称"
  Set rs = TransactSQL(sqlType)
     While Not rs.EOF
       Cmbo类别名称.AddItem rs(0)
       rs.MoveNext
     Wend
  
  sqlType = "select 出版社名 from cbslbb order by 出版社名"
  Set rs = TransactSQL(sqlType)
     While Not rs.EOF
       Cmbo出版社名.AddItem rs(0)
       rs.MoveNext
     Wend
  rs.Close
  
  Cmbo类别编号.Text = ""
  Cmbo类别名称.Text = ""
  Cmbo出版社名.Text = ""
  DTP入库日期.Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmbookmanage.Show
frmbookmanage.SetFocus
End Sub