Lentfrm.Show (1)
    cmdKong_Click
End Sub
Private Sub cmdKong_Click() '清空所有文本
    txtBookId.Text = ""
    txtName.Text = ""
    txtClass.Text = ""
    txtDepart.Text = ""
    txtBookHao.Text = ""
    txtBookName = ""
    txtZhiCheng = ""
    txtFa.Text = ""
    txtBookBian.Text = ""
    Frame4.Visible = False
    Frame7.Visible = True
    LV2.ListItems.Clear
    CmdLogin.SetFocus
End Sub
Private Sub cmdOkCancel_Click(Index As Integer)
    Select Case Index
      Case 1
        If rst3.Fields("是否借出") = True Then
            MsgBox "此書已經(jīng)借出！", 0 + 48, "提示"
            txtBookBian.Text = ""
            txtBookBian.SetFocus
            Frame4.Visible = False
            Frame7.Visible = True
            Exit Sub
        End If
        rst2.AddNew
        rst2.Fields("圖書編號") = rst3.Fields("圖書編號")
        rst2.Fields("書名") = rst3.Fields("書名")
        rst2.Fields("價格") = rst3.Fields("價格")
        rst2.Fields("出版社") = rst3.Fields("出版社")
        rst2.Fields("借出日期") = rst3.Fields("借出日期")
        rst2.Fields("借書證號") = BookId
        rst2.Fields("姓名") = txtName.Text
        rst2.Fields("類別") = rst3.Fields("類別")
        rst2.Update
        rst3.Edit
        rst3.Fields("是否借出") = True
        rst3.Fields("借出日期") = rst3.Fields("借出日期")
        rst3.Update
        DataRef
        txtBookBian.Text = ""
        txtBookBian.SetFocus
        'CmdLogin.SetFocus
        Frame4.Visible = False
        Frame7.Visible = True
    End Select
End Sub
Private Sub CmdLogin_Click()
loop1:          '如果沒有此證，返回
    LentLogin.Show (1)
    If LoginFlag Then
        LV2.ListItems.Clear
        rst1.Seek "=", BookId  '查找借書證號碼
        If rst1.NoMatch Then
            MsgBox "沒有此借書證號碼！", 0 + 48, "錯誤"
            LoginFlag = False
            GoTo loop1  '返回loop1
        End If
        txtBookId.Text = BookId
        txtName.Text = rst1.Fields("姓名") & vbNullString
        txtClass.Text = rst1.Fields("班級") & vbNullString
        txtDepart.Text = rst1.Fields("部門") & vbNullString
        txtZhiCheng = rst1.Fields("職稱") & vbNullString
        txtFa.Text = rst1.Fields("罰款") & Empty
        txtBookBian.Text = ""
        Frame4.Visible = False
        Frame7.Visible = True
        txtBookBian.SetFocus
        DataRef '輸出所借圖書
        LoginFlag = False
        If rst1.Fields("罰款") > 0 Then
            If MsgBox(txtBookId & " " & txtName & " 共計欠費 " _
               & rst1.Fields("罰款") & "元 是否從數(shù)據(jù)庫中刪除？", 4 + 48, "欠費") _
               = vbYes Then
                '從數(shù)據(jù)庫中刪除欠費記錄
                rst1.Edit
                rst1.Fields("罰款") = 0
                rst1.Update
                txtFa.Text = rst1.Fields("罰款") & Empty
            End If
        Else            '把罰款復(fù)制為0
            rst1.Edit
            rst1.Fields("罰款") = 0
            rst1.Update
        End If

    End If
End Sub

Private Sub dc_Click()
    DataReport2.Show
    DataReport2.WindowState = 2

End Sub

Private Sub dzbb_Click()
    DataReport3.Show
    DataReport3.WindowState = 2

End Sub

Private Sub EditIdMnu_Click()
    Sb.Panels(1).Text = "編輯借書證"
    EditBookId.Show (1)
    Sb.Panels(1).Text = "編輯借書證"
End Sub

Private Sub EditMnu_Click()
    Sb.Panels(1).Text = "編輯圖書"
    EditBook.Show (1)
    Sb.Panels(1).Text = "編輯圖書"
End Sub

Private Sub ExitMnu_Click()
       End
End Sub

Private Sub FenMnu_Click()
    SetType.Show (1)
End Sub

Private Sub Form_Load()
    Set db1 = Workspaces(0).OpenDatabase(App.Path & "\DataBase\BookMIS.mdb", False)
    Set rst1 = db1.OpenRecordset("Personal", dbOpenTable)
    rst1.Index = "借書證號"

    Set db2 = Workspaces(0).OpenDatabase(App.Path & "\DataBase\BookMIS.mdb", False)
    Set rst2 = db2.OpenRecordset("BookFf", dbOpenTable)
    Set qry2 = db2.CreateQueryDef("")
    rst2.Index = "圖書編號"

    Set db3 = Workspaces(0).OpenDatabase(App.Path & "\DataBase\BookMIS.mdb", False)
    Set rst3 = db3.OpenRecordset("Book", dbOpenTable)
    rst3.Index = "圖書編號"

    Open App.Path & "\DataBase\Set.Dat" For Random As #1 Len = Len(SetFlag)
    Get #1, 1, SetFlag
    BookNum = SetFlag.BookNum
    FaCost = SetFlag.BookCost

    LV2.View = lvwReport
    LV2.ColumnHeaders.Add , , "借書證號"
    LV2.ColumnHeaders.Add , , "借書人姓名"
    LV2.ColumnHeaders.Add , , "圖書編號"
    LV2.ColumnHeaders.Add , , "書名"
    LV2.ColumnHeaders.Add , , "價格"
    LV2.ColumnHeaders.Add , , "類別"
    LV2.ColumnHeaders.Add , , "出版社"
    LV2.ColumnHeaders.Add , , "借出日期"

    
    txtBookId.Text = ""
    txtName.Text = ""
    txtClass.Text = ""
    txtDepart.Text = ""
    txtBookHao.Text = ""
    txtBookName = ""
    txtZhiCheng = ""
    txtFa.Text = ""

    txtCost = ""
    txtChuBan = ""
    txtLentDate = ""
     
     
    Sb.Panels(1).Text = "當前圖書管的操作人員為：" & Libadmin
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rst1.Close
    rst2.Close
    rst3.Close
    db1.Close
    db2.Close
    db3.Close
    Close #1
End Sub

Private Sub LoginMnu_Click()
    CmdLogin_Click
End Sub

Private Sub mnuSysAdmin_Click()
SetPer.Show
End Sub

Private Sub SearchMnu_Click()
    Findfrm.Show
End Sub

Private Sub SetMnu_Click()
    setfrm.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
      Case 3
        Sb.Panels(1).Text = "編輯借書證"
        EditBookId.Show (1)
        Sb.Panels(1).Text = "編輯借書證"
      Case 5
        SetPer.Show (1)
      Case 7
        SetType.Show
      Case 9
        setfrm.Show
      Case 12
        End
    End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As MSComctlLib.buttonmenu)
    Select Case buttonmenu.Key
      Case "添加"
        Sb.Panels(1).Text = "添加新書"
        AddNewBook.Show (1)
        Sb.Panels(1).Text = SFlag
      Case "編輯"
        Sb.Panels(1).Text = "編輯圖書"
        EditBook.Show (1)
        Sb.Panels(1).Text = "編輯圖書"
      Case "新借"
        MsgBox "Add BookCard"
      Case "編借"
        MsgBox "Edit BookCard"
    End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
      Case 1
        CmdLogin_Click
      Case 3
        cmdKong_Click
      Case 7
        cmdBackBook_Click
      Case 5
        Findfrm.Show
    End Select
End Sub

Private Sub tsbb_Click()
    DataReport1.Show
    DataReport1.WindowState = 2

End Sub

Private Sub txtBookBian_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If txtBookId.Text = "" Then
            MsgBox "請先登錄！", 0 + 48, "提示"
            CmdLogin.SetFocus
            txtBookBian.Text = ""
            Exit Sub
        End If
        rst3.Seek "=", txtBookBian.Text
        If rst3.NoMatch Then
            MsgBox "沒有此圖書編號，請重新填寫", 0 + 48, "填寫錯誤"
            txtBookBian.SetFocus
            Frame4.Visible = False
            Frame7.Visible = True
            Exit Sub
        End If
        Frame4.Visible = True
        Frame7.Visible = False
        txtBookHao.Text = txtBookBian.Text
        txtBookName.Text = rst3.Fields("書名") & vbNullString
        txtChuBan.Text = rst3.Fields("出版社") & vbNullString
        txtCost.Text = rst3.Fields("價格") & Empty
        txtLentDate = rst3.Fields("借出日期") & vbNullString
        txtType.Text = rst3.Fields("類別") & vbNullString
    End If
End Sub
Private Sub DataRef()
    Dim i As Integer
    Dim SeaStr As String
    SeaStr = "select * from Bookff where 借書證號="
    SeaStr = SeaStr & "'" & BookId & "'"
    qry2.SQL = SeaStr
    Set rst = qry2.OpenRecordset()
    If rst.RecordCount = 0 Then
        Label1.Caption = "可以借" & BookNum & "本書"
        Exit Sub
    End If
    rst.MoveLast
    RecNumBookFf = rst.RecordCount
    rst.MoveFirst
    LV2.ListItems.Clear
    For i = 1 To RecNumBookFf
        LV2.ListItems.Add i, , rst.Fields("借書證號") & vbNullString
        With LV2.ListItems(i)
            .SubItems(1) = rst.Fields("姓名") & vbNullString
            .SubItems(2) = rst.Fields("圖書編號") & vbNullString
            .SubItems(3) = rst.Fields("書名") & vbNullString
            .SubItems(4) = rst.Fields("價格") & Empty
            .SubItems(5) = rst.Fields("類別") & vbNullString
            .SubItems(6) = rst.Fields("出版社") & vbNullString
            .SubItems(7) = rst.Fields("借出日期") & vbNullString
        End With
        rst.MoveNext
        If rst.EOF Then Exit For
    Next i
    If RecNumBookFf = BookNum Then
        MsgBox "已經(jīng)借了 " & BookNum & "本書,不能再借了,請登錄其它借書證號", 0 + 48, "提示"
        txtBookId.Text = ""
        txtName.Text = ""
        txtClass.Text = ""
        txtDepart.Text = ""
        txtZhiCheng = ""
        txtFa.Text = ""
        CmdLogin.SetFocus
        LV2.ListItems.Clear
        Label1.Caption = "已經(jīng)借的書"
        Exit Sub
    End If
    Label1.Caption = "已經(jīng)借出 " & RecNumBookFf & "本，還可以再借 " _
                     & BookNum - RecNumBookFf & "本"
End Sub
Private Sub txtBookId_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        LV2.ListItems.Clear
        BookId = txtBookId
        rst1.Seek "=", BookId  '查找借書證號碼
        If rst1.NoMatch Then
            MsgBox "沒有此借書證號碼！", 0 + 48, "錯誤"
            txtBookId.SetFocus
            txtName.Text = ""
            txtClass.Text = ""
            txtDepart.Text = ""
            Exit Sub
        End If
        txtBookHao.Text = ""
        txtBookName.Text = ""
        txtCost.Text = ""
        txtChuBan.Text = ""
        txtLentDate.Text = ""
        txtBookBian.Text = ""
        txtBookId.Text = BookId
        txtName.Text = rst1.Fields("姓名") & vbNullString
        txtClass.Text = rst1.Fields("班級") & vbNullString
        txtDepart.Text = rst1.Fields("部門") & vbNullString
        txtZhiCheng = rst1.Fields("職稱") & vbNullString
        txtFa.Text = rst1.Fields("罰款") & Empty
        txtBookBian.SetFocus
        DataRef '輸出所借圖書
    End If
End Sub