【正文】 .txtBorrId = Trim((0)) .txtStuNum = Trim((2)) .Combo1 = Trim((4)) .Combo2 = Trim((3)) .txtName = Trim((1)) .txtPhone = Trim((5)) .IsModify = True .Show 1 End With Refresh_DataList (query_sql)End Sub單擊“注銷借閱者”按鈕。圖 注銷借閱者界面當輸入要注銷的借閱卡號時，單擊“確定”按鈕，在列表中會顯示該借閱卡的詳細信息。然后單擊“注銷”按鈕，會觸發(fā)cmdLogoutde Click事件?！白N”按鈕(cmdLogoutde)Click事件的代碼如下：Private Sub cmdLogout_Click() Dim tmpBorrId As String If = True Then MsgBox 請選擇記錄 Exit Sub End If tmpBorrId = Trim((0)) 39。確認刪除 If MsgBox(是否要注銷當前行?, vbYesNo, 確認) = vbYes Then Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢語句 sql = SELECT borrowBookNum FROM Borrower WHERE BorrowerId=39。 + txtBorrId + 39。 Set rst = (sql) If (0) = 0 Then With rst .Delete adAffectCurrent .Update End With MsgBox 該用戶注銷操作成功. Else MsgBox 該用戶還有未完的書，不能注銷借閱卡. End If Refresh_DataList End IfEnd Sub 系統(tǒng)會判斷該借閱卡里是否還有未還的書，如果有，會出現(xiàn)提示界面。如果該借閱卡里面沒有未還的書，就會順利注銷，提交至數(shù)據(jù)庫。 借/還書業(yè)務模塊設計借/還書業(yè)務處理模塊包括“借書登記”和“還書登記”兩部分功能。(1)借書登記選擇“借/還書業(yè)務”|“借書登記”命令。圖 借閱登記界面管理員可憑借借閱者的借閱卡號進行操作，當輸入借閱卡卡號后，單擊“確定”按鈕，會觸發(fā)cmdEnter的Click事件，系統(tǒng)會把該借閱卡的其他信息顯示在界面上，以便核實。Click事件的代碼如下：Private Sub cmdEnter_Click() 39。檢驗數(shù)據(jù)的有效性 If Trim(txtBorrId) = Then MsgBox 請輸入借書卡號 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢語句sql=,,_ + FROM Borrower b,Institute i,Grade g + WHERE_ = AND = _+ AND BorrowerId=39。 + txtBorrId + 39。 Set rst = (sql) If (Not ) Then With rst = .Fields(0) = .Fields(1) = .Fields(2) = .Fields(3) = .Fields(4) End With Refresh_DataList1 Else MsgBox 用戶不存在,請重新操作. End If 39。關閉連接 End Sub 在“借書登記”欄中輸入要借的書刊編號，單擊“查詢”按鈕，便可獲得該書刊的詳細信息，以便核實。 確認后，單擊“提交”按鈕，會觸發(fā)cmdSubmit的Click事件，完成一次借書登記操作?！疤峤弧卑粹o(cmdSubmit)的Click事件代碼如下：Private Sub cmdSubmit_Click() 39。檢驗數(shù)據(jù)的有效性 If Trim(txtBorrId) = Then MsgBox 請輸入借書卡號 Exit Sub End If If Trim(txtBookId) = Then MsgBox 請輸入書刊編號 Exit Sub End If Dim nowDate As New BookDate Dim myDbOper As New DbOperation Dim rst As Dim sql As String Dim update1_sql As String Dim update2_sql As String 39。建立連接 39。定義查詢語句 sql = SELECT loan FROM Book WHERE BookId=39。 + Trim(txtBookId) + 39。 Set rst = (sql) If Trim((0)) = 在庫 Then 39。更新數(shù)據(jù)庫表 update1_sql = UPDATE Book SET loan=39。借出39。,borrowerID=39。 _ + Trim(txtBorrId) + 39。,BorrowDate=39。 _ + + 39。 WHERE BookID=39。 _ + Trim(txtBookId) + 39。 (update1_sql) update2_sql=UPDATE Borrower SET borrowBookNum=borrowBookNum +1 WHERE BorrowerId=39。 _+ Trim(txtBorrId) + 39。 (update2_sql) Refresh_DataList1 MsgBox 操作成功. Else MsgBox 該書刊已經(jīng)借出,請重新操作. End If 39。關閉連接 End Sub(2)還書登記 選擇“借/還書業(yè)務”|“還書登記”命令。圖 還書登記界面輸入書刊編號，單擊“查詢”按鈕，可以獲得借該書的借閱者信息以及該書刊的信息，并會顯示該書刊的所屬類別以及該類別的限定時間，供管理員根據(jù)“結束日期”與該書可被借時間進行判斷是否超時，以便處理。 確認后，單擊“還書提交”按鈕，會觸發(fā)cmdSubmit的Click事件，完成一次還書登記操作，代碼如下：Private Sub cmdQuery_Click() 39。檢驗數(shù)據(jù)的有效性 If Trim(txtBookId) = Then MsgBox 請輸入書刊編號 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢語句 sql = SELECT * FROM Book WHERE BookID=39。 + Trim(txtBookId) + 39。 Set rst = (sql) If (Not ) Then Refresh_DataList 39。顯示書刊類別以及借用期限 Dim type_rst As Dim type_sql As String type_sql = SELECT , _ + FROM Title t,DatesRestrict d,Book b _ + WHERE = and = and =39。+ Trim(txtBookId) + 39。 Set type_rst = (type_sql) With type_rst lblBookType = .Fields(0) lblDateRestrict = .Fields(1) End With Else MsgBox 該書刊不存在,請重新操作. End If 39。關閉連接 End Sub 庫存管理模塊設計 圖書館作為一個存儲圖書的大倉庫，有其庫存管理的必要性，并且圖書館會定期的增加新書，淘汰一些破損書刊，為了滿足這些功能，該系統(tǒng)設計了庫存管理界面。 選擇“庫存管理”|“庫存信息”命令。 庫存管理界面 單擊“增加新書種”按鈕。 增加新書種界面在增加新書種界面中，為“提交”按鈕(cmdSubmit)的Click事件加入代碼，代碼如下：Private Sub cmdSubmit_Click() 39。檢驗數(shù)據(jù)的有效性 If Trim(txtName) = Then MsgBox 請輸入書名 Exit Sub End If If Trim(txtAuthor) = Then MsgBox 請輸入作者 Exit Sub End If If Trim(txtIsbsn) = Then MsgBox 請輸入ISBSN Exit Sub End If If Trim(txtNum) = Then MsgBox 請輸入數(shù)量 Exit Sub End If If CDec(txtNum) = 0 Then MsgBox 數(shù)量必須為正值 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢語句 sql = SELECT * FROM Title WHERE Name=39。 + Trim(txtName) + 39。 Set rst = (sql) If = True Then 39。向Title添加新記錄 With rst .AddNew !Name = !author = !isbsn = !Type = !Num = .Update End With 39。向Book表中添加新記錄 Dim insert_sql As String insert_sql = INSERT INTO Book(name,loan,borrowerId,BorrowDate) VALUES(39。 + Trim(txtName) + 39。,39。在庫39。,Null,Null) For i = 1 To CDec(txtNum) (insert_sql) Next MsgBox 信息添加成功. Else MsgBox 該書名已經(jīng)存在,請重新輸入. End If 39。關閉連接 End Sub另外，在庫存管理中設計了書刊查詢界面，是為了方便當借閱者查找某一本已知書名的書刊時，可以快速查詢該書的書刊的狀態(tài)，包括有多少本庫存，什么編號的書還在庫等信息。選擇“庫存管理”|“書刊查詢”命令。 書刊查詢界面在書刊查詢界面中提供了3中查詢方式：書刊編號、書刊名稱、書刊類型，用戶可以選擇不同的方式，對書刊信息就行查詢。 載入界面時，各個列表框中自動加入相關信息。在窗體的Form_Load事件中加入代碼，代碼如下：Private Sub Form_Load() 39。初始化列表框 請選擇 書刊編號 書刊名稱 書刊類型 = 0 Dim buildCombo As New BuildComboList Dim type_sql As String 39。定義查