【正文】 ateReaderIssueTag() updateBookStatus() MsgBox(成功借閱 , , 圖書館管理系統(tǒng) ) Catch c As Exception MsgBox() End Try End If End If End If End Sub Sub updateReaderIssueTag() Dim CurrentIssueTag As String Dim CurrentIssueTagUsed As String Dim itag As Integer Dim itagused As Integer CurrentIssueTag = getCurrentReaderIssueTag() CurrentIssueTagUsed = getCurrentReaderTagUsed() itag = CInt(CurrentIssueTag) itagused = CInt(CurrentIssueTagUsed) itag = itag 1 itagused = itagused + 1 CurrentIssueTag = CurrentIssueTagUsed = () MyCommand = New OleDbCommand(UPDATE ReaderDetails SET IssueTag =39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。, MyConnection) MyReader = () Dim TempString As String While TempString = MyReader(SN) End While () () () If = TempString Then Return True Else If TempString Then Return False End If End If End Function Function clearFields() = = = = = = = = = = = = = End Function Function checkTextbox(ByVal t As TextBox) As Boolean If = Then Return False Else Return True End If End Function Function display_MsgBox(ByVal myMsg As String) 26 MsgBox(myMsg, , 圖書館管理系統(tǒng) ) End Function Function add_IntoComboBookCode() () MyCommand = New OleDbCommand(SELECT * FROM BookCode, MyConnection) MyReader = () While (MyReader(Code)) End While () () () End Function Function add_IntoComboBookType() () MyCommand = New OleDbCommand(SELECT * FROM BookType, MyConnection) MyReader = () While (MyReader(Type)) End While () () () End Function ⑵讀者信息管理模塊的實(shí)現(xiàn) 點(diǎn)擊讀者管理主菜單如下 ： 然后單擊添加讀者信息，其窗口如下： 本窗口實(shí)現(xiàn)讀者信息的添加，通過本窗口把讀者的詳細(xì)信息添加到讀者信息庫中，方便對讀者的管理。 amp。 代碼如下： Private Sub BtnAdd_Click(ByVal sender As , ByVal e As ) Handles If checkSpecificFields() = False Then display_MsgBox(請?jiān)谙鄳?yīng)的文本框中添加書籍信息 ) Else If checkSpecificFields() = True Then add_BookIntoDatabase() Beep() () display_MsgBox(書籍信息已被添加到數(shù)據(jù)庫 ) clearFields() End If 25 End If End Sub Function checkIfAlreadyExists() As Boolean () MyCommand = New OleDbCommand(SELECT * FROM BookDetails WHERE SN =39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 = True End Function Private Sub MenuItem36_Click(ByVal sender As , ByVal e As ) Handles MsgBox(本軟件的所有權(quán)為作者所有，不得用于商業(yè) ) End Sub 其他功能模塊設(shè)計(jì) ⑴圖書管理模塊的實(shí)現(xiàn) ⑷系統(tǒng)管理員模塊的實(shí)現(xiàn) 實(shí)現(xiàn)系統(tǒng)管理功能，點(diǎn)擊系統(tǒng)管理主菜單如下 ： 單擊添加用戶信息，其窗口如下 ： 新用戶可以通過本窗口實(shí)現(xiàn)注冊和添加。 = New (6, 14) = = CType(($), ) = = New (842, 511) = CType(($), ) = True = = frm_MainInterface = = 圖書管理系統(tǒng) (False) End Sub End Region Private Sub MenuItem11_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddBookType = Me () End Sub Private Sub MenuItem12_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddNewBookCode = Me () End Sub Private Sub MenuItem13_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddNewCharges = Me () End Sub Private Sub MenuItem15_Click(ByVal sender As , ByVal e As ) myFrm = New frm_UnlockUser = Me () End Sub 20 Private Sub MenuItem16_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ChangePassword = Me () End Sub Private Sub MenuItem27_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ChangePassword = Me () End Sub Private Sub MenuItem17_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub MenuItem21_Click(ByVal sender As , ByVal e As ) myFrm = New frm_AddNewBook = Me () End Sub Private Sub MenuItem22_Click(ByVal sender As , ByVal e As ) myFrm = New frm_FindBook = Me () End Sub Private Sub MenuItem26_Click(ByVal sender As , ByVal e As ) myFrm = New frm_EditBookDetails = Me () End Sub Private Sub MenuItem24_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ReaderDetails = Me () End Sub Private Sub MenuItem25_Click(ByVal sender As , ByVal e As ) 21 myFrm = New frm_EditReaderDetails = Me () End Sub Private Sub MenuItem23_Click(ByVal sender As , ByVal e As ) myFrm = New frm_TodayIssueView = Me () End Sub Private Sub MenuItem30_Click(ByVal sender As , ByVal e As ) myFrm = New frm_IssueReturnBook = Me () End Sub Private Sub MenuItem31_Click(ByVal sender As , B