【正文】 .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單擊“注銷(xiāo)借閱者”按鈕。圖 注銷(xiāo)借閱者界面當(dāng)輸入要注銷(xiāo)的借閱卡號(hào)時(shí)，單擊“確定”按鈕，在列表中會(huì)顯示該借閱卡的詳細(xì)信息。然后單擊“注銷(xiāo)”按鈕，會(huì)觸發(fā)cmdLogoutde Click事件。“注銷(xiāo)”按鈕(cmdLogoutde)Click事件的代碼如下：Private Sub cmdLogout_Click() Dim tmpBorrId As String If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If tmpBorrId = Trim((0)) 39。確認(rèn)刪除 If MsgBox(是否要注銷(xiāo)當(dāng)前行?, vbYesNo, 確認(rèn)) = vbYes Then Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢(xún)語(yǔ)句 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 該用戶(hù)注銷(xiāo)操作成功. Else MsgBox 該用戶(hù)還有未完的書(shū)，不能注銷(xiāo)借閱卡. End If Refresh_DataList End IfEnd Sub 系統(tǒng)會(huì)判斷該借閱卡里是否還有未還的書(shū)，如果有，會(huì)出現(xiàn)提示界面。如果該借閱卡里面沒(méi)有未還的書(shū)，就會(huì)順利注銷(xiāo)，提交至數(shù)據(jù)庫(kù)。 借/還書(shū)業(yè)務(wù)模塊設(shè)計(jì)借/還書(shū)業(yè)務(wù)處理模塊包括“借書(shū)登記”和“還書(shū)登記”兩部分功能。(1)借書(shū)登記選擇“借/還書(shū)業(yè)務(wù)”|“借書(shū)登記”命令。圖 借閱登記界面管理員可憑借借閱者的借閱卡號(hào)進(jìn)行操作，當(dāng)輸入借閱卡卡號(hào)后，單擊“確定”按鈕，會(huì)觸發(fā)cmdEnter的Click事件，系統(tǒng)會(huì)把該借閱卡的其他信息顯示在界面上，以便核實(shí)。Click事件的代碼如下：Private Sub cmdEnter_Click() 39。檢驗(yàn)數(shù)據(jù)的有效性 If Trim(txtBorrId) = Then MsgBox 請(qǐng)輸入借書(shū)卡號(hào) Exit Sub End If Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢(xún)語(yǔ)句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 用戶(hù)不存在,請(qǐng)重新操作. End If 39。關(guān)閉連接 End Sub 在“借書(shū)登記”欄中輸入要借的書(shū)刊編號(hào)，單擊“查詢(xún)”按鈕，便可獲得該書(shū)刊的詳細(xì)信息，以便核實(shí)。 確認(rèn)后，單擊“提交”按鈕，會(huì)觸發(fā)cmdSubmit的Click事件，完成一次借書(shū)登記操作?！疤峤弧卑粹o(cmdSubmit)的Click事件代碼如下：Private Sub cmdSubmit_Click() 39。檢驗(yàn)數(shù)據(jù)的有效性 If Trim(txtBorrId) = Then MsgBox 請(qǐng)輸入借書(shū)卡號(hào) Exit Sub End If If Trim(txtBookId) = Then MsgBox 請(qǐng)輸入書(shū)刊編號(hào) 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。定義查詢(xún)語(yǔ)句 sql = SELECT loan FROM Book WHERE BookId=39。 + Trim(txtBookId) + 39。 Set rst = (sql) If Trim((0)) = 在庫(kù) Then 39。更新數(shù)據(jù)庫(kù)表 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 該書(shū)刊已經(jīng)借出,請(qǐng)重新操作. End If 39。關(guān)閉連接 End Sub(2)還書(shū)登記 選擇“借/還書(shū)業(yè)務(wù)”|“還書(shū)登記”命令。圖 還書(shū)登記界面輸入書(shū)刊編號(hào)，單擊“查詢(xún)”按鈕，可以獲得借該書(shū)的借閱者信息以及該書(shū)刊的信息，并會(huì)顯示該書(shū)刊的所屬類(lèi)別以及該類(lèi)別的限定時(shí)間，供管理員根據(jù)“結(jié)束日期”與該書(shū)可被借時(shí)間進(jìn)行判斷是否超時(shí)，以便處理。 確認(rèn)后，單擊“還書(shū)提交”按鈕，會(huì)觸發(fā)cmdSubmit的Click事件，完成一次還書(shū)登記操作，代碼如下：Private Sub cmdQuery_Click() 39。檢驗(yàn)數(shù)據(jù)的有效性 If Trim(txtBookId) = Then MsgBox 請(qǐng)輸入書(shū)刊編號(hào) Exit Sub End If Dim myDbOper As New DbOperation Dim rst As Dim sql As String 39。建立連接 39。定義查詢(xún)語(yǔ)句 sql = SELECT * FROM Book WHERE BookID=39。 + Trim(txtBookId) + 39。 Set rst = (sql) If (Not ) Then Refresh_DataList 39。顯示書(shū)刊類(lèi)別以及借用期限 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 該書(shū)刊不存在,請(qǐng)重新操作. End If 39。關(guān)閉連接 End Sub 庫(kù)存管理模塊設(shè)計(jì) 圖書(shū)館作為一個(gè)存儲(chǔ)圖書(shū)的大倉(cāng)庫(kù)，有其庫(kù)存管理的必要性，并且圖書(shū)館會(huì)定期的增加新書(shū)，淘汰一些破損書(shū)刊，為了滿(mǎn)足這些功能，該系統(tǒng)設(shè)計(jì)了庫(kù)存管理界面。 選擇“庫(kù)存管理”|“庫(kù)存信息”命令。 庫(kù)存管理界面 單擊“增加新書(shū)種”按鈕。 增加新書(shū)種界面在增加新書(shū)種界面中，為“提交”按鈕(cmdSubmit)的Click事件加入代碼，代碼如下：Private Sub cmdSubmit_Click() 39。檢驗(yàn)數(shù)據(jù)的有效性 If Trim(txtName) = Then MsgBox 請(qǐng)輸入書(shū)名 Exit Sub End If If Trim(txtAuthor) = Then MsgBox 請(qǐng)輸入作者 Exit Sub End If If Trim(txtIsbsn) = Then MsgBox 請(qǐng)輸入ISBSN Exit Sub End If If Trim(txtNum) = Then MsgBox 請(qǐng)輸入數(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。定義查詢(xún)語(yǔ)句 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。在庫(kù)39。,Null,Null) For i = 1 To CDec(txtNum) (insert_sql) Next MsgBox 信息添加成功. Else MsgBox 該書(shū)名已經(jīng)存在,請(qǐng)重新輸入. End If 39。關(guān)閉連接 End Sub另外，在庫(kù)存管理中設(shè)計(jì)了書(shū)刊查詢(xún)界面，是為了方便當(dāng)借閱者查找某一本已知書(shū)名的書(shū)刊時(shí)，可以快速查詢(xún)?cè)摃?shū)的書(shū)刊的狀態(tài)，包括有多少本庫(kù)存，什么編號(hào)的書(shū)還在庫(kù)等信息。選擇“庫(kù)存管理”|“書(shū)刊查詢(xún)”命令。 書(shū)刊查詢(xún)界面在書(shū)刊查詢(xún)界面中提供了3中查詢(xún)方式：書(shū)刊編號(hào)、書(shū)刊名稱(chēng)、書(shū)刊類(lèi)型，用戶(hù)可以選擇不同的方式，對(duì)書(shū)刊信息就行查詢(xún)。 載入界面時(shí)，各個(gè)列表框中自動(dòng)加入相關(guān)信息。在窗體的Form_Load事件中加入代碼，代碼如下：Private Sub Form_Load() 39。初始化列表框 請(qǐng)選擇 書(shū)刊編號(hào) 書(shū)刊名稱(chēng) 書(shū)刊類(lèi)型 = 0 Dim buildCombo As New BuildComboList Dim type_sql As String 39。定義查