【正文】 其代碼如下： Private Sub cmdSave_Click() Set g_rs = (SELECT * FROM bookType,_ 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 37 dbOpenDynaset) ’ 如果是添加新類別 保存 的操作 If m_intSaveFlag = 1 Then ’判斷新添進(jìn)去的類別代碼是否重復(fù) ??（代碼略） ’ 添加記錄 ’設(shè)置記錄的字段值 g_rs!類別代碼 = g_rs!圖書類別 = g_rs!借出天數(shù) = CInt() Else ’ 如果是修改類別保存的操作 g_rs!圖書類別 = g_rs!借出天數(shù) = CInt() End If Set g_rs = Nothing MsgBox 保存完畢 !, vbOKOnly, 提示 = True = True = True = True = True End Sub 當(dāng)單擊“刪除舊類別”按鈕時，首先詢問工作人員是否確定要刪除選定的類別信息，在得到確認(rèn)后便進(jìn)行刪除操作。如果是添加新類別 還要進(jìn)行類別代碼是否重復(fù)的判斷，對于不重復(fù)的類別某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 36 進(jìn)行入庫保存的操作。代碼略。 圖 17 基本設(shè)置窗體的設(shè)計界面 圖 18 設(shè)置圖書類別窗體的設(shè)計界面 首先定義一個窗體級變量，作為標(biāo)志變量以區(qū)分是添加類別信息的保存操作還是 修改舊類別的保存操作。在“基本設(shè)置”窗體中可以對讀者可借閱圖書的最大數(shù)量和每本書超期一天的罰 款數(shù)目的設(shè)置，單擊其中的“保存”按鈕，便可 更新數(shù)據(jù)庫；在“圖書類別”窗體中可以設(shè)置圖書類別的分類信息，其中的“添加新類別”、“修改舊類別”、“刪除舊類別”等按鈕分別可以對圖書類別代碼、類別名稱、借出天數(shù)進(jìn)行增加、刪除和修改操作。 為了增強系統(tǒng)的適應(yīng)性，這些基礎(chǔ)信息要能夠進(jìn)行更改，而基礎(chǔ)信息維護(hù)模塊就能夠很好地完成這個功能。 End If Else strCon(1) = End If ’獲得圖書名稱查詢條件 ??（代碼略） ’獲得類別代碼查詢條件 ??（代碼略） ’獲得出版社查詢條件 ??（代碼略） ’獲得圖書價格查詢條件 ??（代碼略） ’獲得登記日期查詢條件 ??（代碼略） ’根據(jù)查詢條件進(jìn)行查詢 SQL 語句的設(shè)置 If strCon(1) = And strCon(2) = And strCon(3) = And _ strCon(4) = And strCon(5) = And strCon(6) = Then strSQL = select * from bookInfo Else strSQL = select * from bookInfo where For i = 1 To 6 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 34 If strCon(i) Then intCount = intCount + 1 If intCount = 1 Then strSQL = strSQL + strCon(i) Else strSQL = strSQL + and + strCon(i) End If End If Next End If ’ 設(shè)置 Adodc 控件 ??（代碼略） End Sub 響應(yīng)“清空”和“關(guān)閉”按鈕的單擊事件的代 碼略。 amp。 Else strCon(1) = 圖書編號 =39。 amp。其主要代碼如下： Private Sub cmdFind_Click() Dim strSQL As String Dim strCon(6) As String ’保存設(shè)置的查詢條件 Dim intCount As Integer ’判斷用戶添寫的條件的數(shù)目 Dim i As Integer intCount = 0 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 33 ’獲得查詢條件，根據(jù)是否選擇“執(zhí)行模糊查詢”分別進(jìn)行查詢條件的設(shè)置 ’獲得 圖書編號查詢條件 If Then If = 1 Then strCon(1) = 圖書編號 like 39。 響應(yīng)窗體加載的事件，進(jìn)行圖書類別組合框的初始化 的代碼略。單擊“清 空”按鈕就對所有查詢條件進(jìn)行清空，單擊“關(guān)閉”按鈕就關(guān)閉該窗口。接下來就輸入查詢條件，如果選中“登記日期”復(fù)選框，查詢條件就增加登記日期這一項。 窗體界面的設(shè)計及相關(guān)代碼的編寫 根據(jù)上述 的功能，該窗體的設(shè)計界面如 圖 16所示。 創(chuàng)建圖書信息查詢窗體模塊 窗體模塊的功能 圖書信息查詢模塊主要完成圖書信息的查詢，可以根據(jù)不同的查詢條件以及不同的查詢方式進(jìn)行圖書信息的查詢，以方便讀者查找到自己所需要的圖書。 保存修改 Set g_rs = Nothing MsgBox 新書添加完畢 , vbOKOnly, 提示 End Sub 在修改圖書信息時，首先選定要修改的圖書信息，然后單擊“修改”按鈕，便會彈出修改圖書窗體，該窗體上顯示出要修改圖書的信息，以便工作人員進(jìn)行修改后，單擊“保存”按鈕就可 進(jìn)行圖書的更新了。添加記錄 39。實現(xiàn)這一事件的代碼如下： Private Sub cmdSave_Click() ’保存新添加的圖書信息 Set g_rs = (SELECT * FROM bookInfo,_ dbOpenDynaset) 39。 \圖書館信息 管理 系統(tǒng) .mdb。_ Data Source= amp。 , ,_ , ,_ amp。 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 27 圖 13 圖書管理窗體的設(shè)計界面 圖 14 添加新書窗體的設(shè)計界面 圖 15 修改圖書窗體的設(shè)計界面 該窗體在加載時， Ado Data 控件要進(jìn)行數(shù)據(jù)庫的連接，同時在 DataGrid 控件中將相某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 28 關(guān)信息顯示出來。 窗體界面的設(shè)計及相關(guān)代碼的編寫 根據(jù)上述的功能，該窗體的設(shè)計界面如 圖 13 所 示。 當(dāng)要刪除圖書時，工作人員在列表中選擇將要刪除的圖書，然后單擊 “刪除”按鈕，這時系統(tǒng)會彈出確認(rèn)對話框，提示是否確認(rèn)要刪除該圖書信息，在得到確認(rèn)后，便會刪除該圖書信息。圖書館工作人員可以根據(jù)不同的需要，依靠單擊窗體中相應(yīng)的按鈕分別進(jìn)行不同的操作。 End If Else strCon(2) = End If ’獲得讀者編號查詢條件 ??（代碼略） ’獲得讀者姓名查詢條件 ??（代碼略） ’獲得借書日期查詢條件 ??（代碼略） ’查詢結(jié)果包含幾個表的信息 strSQL = select ?? ?? （相應(yīng)代碼略） ’根據(jù)查詢條件進(jìn)行查詢語句的設(shè)置 For i = 1 To 5 If strCon(i) Then strSQL = strSQL + and + strCon(i) End If Next ’連接數(shù)據(jù)庫 ??（代碼略） 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 26 End Sub 而當(dāng)單擊“清空”按鈕時，將清空所有的查詢條件。 amp。 Else strCon(2) = =39。 amp。 End If Else 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 25 strCon(1) = End If ’獲得圖書名稱查詢條件 If Then If = 1 Then strCon(2) = like 39。 amp。 Else strCon(1) = =39。 amp。響應(yīng)這一事件的代碼如下： Private Sub cmdFind_Click() ’ 根據(jù)查詢條件進(jìn)行查詢 Dim strSQL As String Dim strCon(5) As String ’保存查詢條件 Dim i As Integer ’獲得查詢條件，根據(jù)是否選擇“執(zhí)行模糊查詢”分別進(jìn)行查詢條件的設(shè)置 ’獲得圖書編號查詢條件 If Then If = 1 Then strCon(1) = like 39。 窗體界面的設(shè)計及相關(guān)代碼的編寫 根據(jù)上述功能，該窗體的設(shè)計界面 如 圖 12 所示。只要在窗體中輸入各個查詢條件，單擊“查詢” 按鈕系統(tǒng)便會根據(jù)所輸入的查詢 條件查找滿足條件的數(shù)據(jù)。 最后，響應(yīng)窗體的關(guān)閉事件，斷開數(shù)據(jù)庫的連接。 39。 _ amp。 amp。 39。 _ amp。 39。_ amp。 and = g_strSql = strSQL Set g_rs = (g_strSql) If Not Then ’ 判斷是否找到該圖書的信息 ??（代碼略） = Date ’設(shè)置還書日期為當(dāng)前日期 ’設(shè)置實際借書天數(shù) = CStr(Date g_rs!借書日期 ) ’設(shè)置超期天數(shù) If CInt() CInt() 0 Then = CStr(CInt()_ CInt()) Else = 0 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 22 End If Set g_rs = Nothing g_strSql = strSQL Set g_rs = (select * from basicSet) ’ 設(shè)置 因超期 罰款金額 = g_rs!罰款 * CInt() Set g_rs = Nothing = True Else ’ 提示沒 有該圖書信息，并清空記錄 ??（代碼略） End If ElseIf KeyAscii = 13 And = Then MsgBox 請先輸入圖書編號 , vbOKOnly, 提示 End If End Sub 進(jìn)行圖書信息的確認(rèn)后，就可以響應(yīng)“還書”中“歸還圖書”按鈕的單擊事件了， 并更新數(shù)據(jù)庫。 39。 amp。 from readerInfo,_ bookInfo,lentInfo,bookType where _ = _ amp。判斷用戶按下回車鍵并且是否輸入 圖書編號 If KeyAscii = 13 And Then ’從數(shù)據(jù)庫中獲取 讀者信息和要還圖書信息 strSQL = select , ,_ , ,_ amp。通過確認(rèn)的圖書便會在下面的多個文本框中顯示該書的信息。 Set g_rs = (g_strSql) (借書日期 ).Value = Set g_rs = Nothing MsgBox 續(xù)借完畢 !, vbOKOnly, 提示 End Sub 至此，續(xù)借圖書的操作就完成了。 and 借書日期 =_ amp。 amp。 and 讀者編號 =39。 amp。 下面是響應(yīng)“續(xù)借圖書”中“確定”按鈕的 單擊事件的相關(guān)代碼： Private Sub cmdOK_Click() 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計與實現(xiàn) 20 g_strSql = select