frmregister.frm

实现某班级的图书信息管理

            .Fields("returntime") = #1/1/1111#
            
            .Update
            
     End With
     
     DatBorrow.RecordSource = "select status from bookmessage where bookindex =" & TxtBookindex & ""
     DatBorrow.Refresh
     
     With DatBorrow.Recordset
        .Edit
        .Fields("status") = "借出"
        .Update
     End With
    
    MsgBox "借阅成功！", vbOKOnly + vbInformation, ""
    
    cmbSelectReader.SetFocus
    TxtBookindex = ""
    TxtBookName = ""
         
End Sub

Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()

End Sub

Private Sub cmdShowBook_Click()
     
     FrmAllBooks.Show
     FrmAllBooks.Top = 0
     FrmAllBooks.Left = 0
     FrmAllBooks.SetFocus
'     MDILibrary.Arrange (vbTileHorizontal)
End Sub

Private Sub cmdShowReader_Click()
    FrmAllReaders.Show
'    MDILibrary.Arrange (vbTileVertical)
    FrmAllReaders.SetFocus
End Sub

Private Sub Form_Activate()
    cmbSelectReader.SetFocus
End Sub

Private Sub Form_Load()
    On Error Resume Next
    
    Dim mdb As Database
    Dim rs As Recordset
    Dim dbname As String
    
    Me.Left = (Screen.Width - Me.ScaleWidth) * 1 / 2
    Me.Top = (Screen.Height - Me.ScaleHeight) * 1 / 2
    '进行自动编号
     
    If Right(App.Path, 1) <> "\" Then
       dbname = App.Path & "\LibraryDB.mdb"
    Else
    
        dbname = App.Path & "librarydb.mdb"
    End If
    
    Set mdb = OpenDatabase(dbname)
    Set rs = mdb.OpenRecordset("select max(index) as MaxIndex from borrowmessage")
    
    If rs.RecordCount > 0 Then

        With rs
            TxtIndex.Text = .Fields("maxindex") + 1
            
            If TxtIndex.Text = "" Then
                TxtIndex.Text = 1
            End If
            
        End With
        
         TxtBorrowTime.Text = Date
         TxtBorrowTime.Locked = True
    
    End If

     InitializeDataPath
     
     DatRMessage.DatabaseName = DataPath

    
    
    Exit Sub
'
End Sub

Private Sub TxtBookIndex_LostFocus()
    
    On Error GoTo err:
    Dim db As Database
    Dim rs As Recordset
    Dim dbname As String
    
    If TxtBookindex = "" Then
        Exit Sub
        
    End If

    DatBMessage.DatabaseName = DataPath
    '注意查询语句这间不能隔空行
    DatBMessage.RecordSource = "select bookindex,bookname from bookmessage where bookindex = " & TxtBookindex & ""
    DatBMessage.Refresh
    
   Set recBookRs = DatBMessage.Recordset
   
    If recBookRs.RecordCount = 0 Then
        MsgBox "该书不存在！", vbOKOnly + vbInformation, ""
        TxtBookindex = ""
        TxtBookindex.SetFocus
        Exit Sub
 
    End If
    
    If Right(App.Path, 1) <> "\" Then
       dbname = App.Path & "\LibraryDB.mdb"
    Else
        dbname = App.Path & "librarydb.mdb"
    End If
    
    Set db = OpenDatabase(dbname)
    Set rs = db.OpenRecordset("select bookindex from borrowmessage where  bookindex = " & TxtBookindex.Text & "And returntime = #1/1/1111# ")
    
    If rs.RecordCount > 0 Then
         MsgBox "此书已借出！", vbOKOnly + vbInformation, ""
         TxtBookindex = ""
         TxtBookName = ""
         TxtBookindex.SetFocus
        Exit Sub
    End If

    TxtBookName.Text = recBookRs.Fields("bookname")
    CmdOK.SetFocus
    Exit Sub
    
err:
    MsgBox "该书不存在！", vbOK + vbInformation, ""
    TxtBookindex = ""
    
End Sub

Private Sub cmbSelectReader_LostFocus()
    On Error Resume Next
    If cmbSelectReader = "" Then
        Exit Sub
        
    End If

    DatRMessage.RecordSource = "select readermessage.readerindex,readermessage.readername " _
    & " from readermessage Where  readermessage.readerindex  = " & cmbSelectReader.Text & ""
   
    DatRMessage.Refresh  '
    Set recReaderRs = DatRMessage.Recordset
    
    If recReaderRs.RecordCount > 0 Then
        TxtReaderName.Text = recReaderRs.Fields("readername")
     Else
        MsgBox "该读者不存在，请先进行资料登记！", vbOKOnly, ""
        Exit Sub
    End If
    

    
    
    DatRMessage.RecordSource = "select count( readerindex ) as RTimes " _
    & " from Borrowmessage Where readerindex  = " & cmbSelectReader.Text & " and  returntime = #1/1/1111# " _
    & "  group by readerindex "
    DatRMessage.Refresh
    Set recReaderRs = DatRMessage.Recordset
    If recReaderRs.RecordCount > 0 Then
    If recReaderRs.Fields(0) >= 3 Then
        
        MsgBox "对不起," & TxtReaderName & "你已借满3本，不能再借了！", vbOKOnly + vbInformation, ""
        TextClear
'        RIErrorNow = True
        
        Exit Sub
    End If
    
    End If
'    RIErrorNow = False
End Sub
'Public Sub Datatotext()
'
'    If recBookRs.RecordCount > 0 Then
'        TxtBookIndex.Text = recBookRs.Fields("bookindex")
'        TxtBookName.Text = recBookRs.Fields("bookname")
'
'    Else
'
'
'    End If
'
   
    
'End Sub
'Private Sub Position()
'
'    On Error Resume Next
'
'    Dim intCount As Integer
'    Dim strBookmark As String
'
'    Dim Po As Integer
'
'    If rs.Bookmarkable Then
'
'        strBookmark = rs.Bookmark
'
'    End If
'
'    Po = rs.AbsolutePosition + 1
'
'    rs.MoveLast
'
'    intCount = rs.RecordCount
'    rs.Bookmark = strBookmark
'
'    Position = "位置/记录数：" & Po & "/" & intCount
'
'End Sub

Private Sub TextClear()
    
'        With rs
'
'            TxtIndex.Text = .Fields("index") + 1
'
'        End With
        
         cmbSelectReader.Text = ""
         TxtReaderName.Text = ""
         TxtBookindex.Text = ""
         TxtBookName.Text = ""
         
         TxtBorrowTime.Text = Date
         TxtBorrowTime.Locked = True


End Sub


Private Sub TxtReaderName_LostFocus()
   
    Dim i, j As Integer
    If TxtReaderName.Text = "" Then
        Exit Sub
        
    End If
    DatRMessage.RecordSource = "select readermessage.readerindex,readermessage.readername " _
    & " from readermessage Where  readermessage.readername  = '" & TxtReaderName.Text & "'"
   
    DatRMessage.Refresh  ' 这个语句有看病
    Set recReaderRs = DatRMessage.Recordset
    With recReaderRs
    
        If .RecordCount > 0 Then
            .MoveLast
            If .RecordCount = 1 Then
                TxtReaderName.Text = .Fields("readername")
                cmbSelectReader.AddItem .Fields("readerindex")
                cmbSelectReader.ListIndex = 0
                TxtBookindex.SetFocus
            Else
                               
                .MoveFirst
                cmbSelectReader.Clear
                For i = 1 To .RecordCount
                  cmbSelectReader.AddItem .Fields("readerindex")
                  .MoveNext
                  If .EOF Then
                    .MoveLast
                  End If
                Next
           
                    MsgBox "有" & .RecordCount & "个读者的姓名为：" & TxtReaderName.Text & Chr(10) & Chr(13) & "请选择！"
                
            End If
         Else
            MsgBox "该读者不存在，请先进行资料登记！", vbOKOnly, ""
    '        RIErrorNow = True
    '        CmdExit.SetFocus
            Exit Sub
        End If
    
    End With
End Sub