findbook.frm

图书管管理系统 借阅还书续借用户的添加删除修改 用户的权限

         Left            =   3720
         TabIndex        =   15
         Top             =   360
         Width           =   1695
      End
      Begin VB.OptionButton Option2 
         Caption         =   "按名称查询"
         Height          =   375
         Left            =   2040
         TabIndex        =   14
         Top             =   360
         Width           =   1335
      End
      Begin VB.OptionButton Option1 
         Caption         =   "按编号查询"
         Height          =   375
         Left            =   360
         TabIndex        =   13
         Top             =   360
         Width           =   1215
      End
   End
End
Attribute VB_Name = "findbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim findsql As String
Dim strcon(6) As String
Dim x As Integer
findsql = "select * from bookinfo where "

If Option1.Value = False And Option2.Value = False And Option3.Value = False And _
   Option4.Value = False And Option5.Value = False And Option6.Value = False Then
       MsgBox "请选择查询方式", vbInformation + vbOKOnly, "警告"
       Option1.Value = True
       Exit Sub
End If

If Text1.Text = "" Then
     MsgBox "请填写查询内容！", vbInformation + vbOKOnly, "警告"
     Text1.SetFocus
     Exit Sub
End If

If Option1.Value = True Then
    If Check1.Value = 0 Then
         strcon(1) = "书籍编号='" & Text1.Text & "'"
         
    Else
         strcon(1) = "书籍编号 like '%" & Text1.Text & "%'"
    End If
Else
  strcon(1) = ""
End If

If Option2.Value = True Then
     If Check1.Value = 0 Then
         strcon(2) = "书籍名称='" & Text1.Text & "'"
     Else
         strcon(2) = "书籍名称 like '%" & Text1.Text & "%'"
     End If
Else
  strcon(2) = ""
End If

If Option3.Value = True Then
     If Check1.Value = 0 Then
         strcon(3) = "类别代码='" & Text1.Text & "'"
     Else
         strcon(3) = "类别代码 like '%" & Text1.Text & "%'"
     End If
Else
  strcon(3) = ""
End If

If Option4.Value = True Then
    If Check1.Value = 0 Then
        strcon(4) = "出版社='" & Text1.Text & "'"
    Else
        strcon(4) = "出版社 like'%" & Text1.Text & "%'"
    End If
Else
  strcon(4) = ""
End If

If Option5.Value = True Then
    If Check1.Value = 0 Then
        strcon(5) = "作者姓名='" & Text1.Text & "'"
    Else
        strcon(5) = "作者姓名 like'%" & Text1.Text & "%'"
    End If
Else
  strcon(5) = ""
End If

If Option6.Value = True Then
    If Check1.Value = 0 Then
        strcon(6) = "登记日期=#" & Text1.Text & "#"
    Else
        strcon(6) = "登记日期 like '%" & Text1.Text & "%'"
    End If
Else
  strcon(6) = ""
End If

For x = 1 To 6
   If strcon(x) <> "" Then
      findsql = findsql + strcon(x)
   End If
Next x

Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = findsql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
   Command3.Enabled = True
   Command4.Enabled = True
Else
   MsgBox "对不起馆内没有你所查询的书籍，请核对后再查询！", vbInformation + vbOKOnly, "提示"
   OptionV
   Text1.Text = ""
   Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
OptionV
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
If MDIForm1.mfadd.Enabled = False Then
    MsgBox "对不起，你的权限不够，不能进行修改操作！", vbInformation + vbOKOnly, "信息"
   Exit Sub
Else
editbook.Show
End If

End Sub

Private Sub Command4_Click()
Dim BookID As String
Dim lent As String
If MDIForm1.mfadd.Enabled = False Then
    MsgBox "对不起，你的权限不够，不能进行删除操作！", vbInformation + vbOKOnly, "信息"
   Exit Sub
Else
DataGrid1.Col = 0
BookID = DataGrid1.Text
If MsgBox("你确定要删除编号为" + BookID + _
       "的书籍信息吗？", vbInformation + vbOKCancel, "删除") = vbOK Then
         DataGrid1.Col = 8
         lent = DataGrid1.Text
            If lent = -1 Then
               If MsgBox("此书尚未还回馆内，你是否继续删除操作？", vbInformation + vbOKCancel, "提示") = vbOK Then
                 With Adodc1.Recordset
                   .Delete
               
                    If Not .EOF Then
                         .MoveNext
                    Else
                         .MoveLast
                    End If
                 End With
                 MsgBox "编号为" + BookID + "的书籍信息已经删除！", vbInformation + vbOKOnly, "提示"
                 Exit Sub
              Else
                    Exit Sub
              End If
           End If
        With Adodc1.Recordset
          .Delete
               
            If Not .EOF Then
                 .MoveNext
            Else
                 .MoveLast
            End If
            MsgBox "编号为" + BookID + "的书籍信息已经删除！", vbInformation + vbOKOnly, "提示"
            Exit Sub
        End With
Else
    Exit Sub
End If
End If
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" _
                         & App.Path & "\db2.mdb;Mode=ReadWrite;persist security info=true;Jet OLEDB:Database Password=xgg2213"
Command3.Enabled = False
Command4.Enabled = False
OptionV
End Sub

Private Sub Option1_Click()
Label1.Caption = "按编号查询"
Text1.SetFocus
End Sub

Private Sub Option2_Click()
Label1.Caption = "按名称查询"
Text1.SetFocus
End Sub

Private Sub Option3_Click()
Label1.Caption = "按类别代码查询"
Text1.SetFocus
End Sub

Private Sub Option4_Click()
Label1.Caption = "按出版社查询"
Text1.SetFocus
End Sub

Private Sub Option5_Click()
Label1.Caption = "按作者姓名查询"
Text1.SetFocus
End Sub

Private Sub Option6_Click()
Label1.Caption = "按登记日期查询"
Text1.SetFocus
End Sub

Public Sub OptionV()
   Option1.Value = False
   Option2.Value = False
   Option3.Value = False
   Option4.Value = False
   Option5.Value = False
   Option6.Value = False
   Option7.Value = False
   Check1.Value = 0
End Sub

Private Sub Option7_Click()
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "bookinfo"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
   Command3.Enabled = True
   Command4.Enabled = True
End If
End Sub