【正文】 開發(fā)數(shù)據(jù)庫信息管理系統(tǒng)需要選擇兩種工具：前臺(tái)開發(fā)語言和后臺(tái)數(shù)據(jù)庫。 7 系統(tǒng)模塊功能 的實(shí)現(xiàn) 和窗體的設(shè)計(jì) 由于借閱 信息管理模塊在整個(gè) 管理 系統(tǒng)中的作用十分重要，而且是圖書館工作人員使用最為頻繁的功能模塊，所以在運(yùn)行本系統(tǒng)時(shí)，其系統(tǒng)主界面的下方就添加了借閱信息管理模塊的部分，以便于工作人員的使用。 窗體界面的設(shè)計(jì)及相關(guān)代碼的編寫 其實(shí)，該窗體的運(yùn)行界面就是系統(tǒng)的主界面，設(shè)計(jì)界面如 圖 9所示。 amp。 =39。_ Persist Security Info=False = adUseClient = adCmdText ’ 將臨時(shí)數(shù)據(jù)控件中的屬性值賦給和數(shù)據(jù)表格相連的 ADO 數(shù)據(jù)控件 = strDataSource 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 16 ’刷新數(shù)據(jù)表格 ’如果是正常借書，則進(jìn)行如下操作 If blnRenew = False Then Set = Adodc1 ’ 顯示一共借了多少本書 = 所借圖書 :_ + CStr() ’顯示還能借多少本書 g_strSql = select * from basicSet Set g_rs = (g_strSql) intCount = g_rs!借出冊(cè)數(shù) = CStr(intCount) Else Set = Adodc1 End If End Function 在確認(rèn)讀者已借閱的圖書信息后，就可以輸入要借圖書的編碼，然后按下回車鍵，系統(tǒng) 同樣 會(huì)對(duì)輸入的圖書編碼進(jìn)行有效性的 確認(rèn)，看該書是否已經(jīng)借出。 其代碼如下： Private Sub cmdLendBook_Click() If Then If 0 Then 39。 圖 10 “續(xù)借圖書”標(biāo)簽頁面的設(shè)計(jì)界面 在進(jìn)行“續(xù)借圖書”時(shí)，也是先輸入讀者編號(hào)并按下回車鍵以通過查詢數(shù)據(jù)庫來進(jìn)行讀者編號(hào)有效性的確認(rèn)，通過確認(rèn)的用戶，便會(huì)在下面的 DataGrid 控件中顯示已經(jīng)借閱圖書信息。 amp。判斷用戶按下回車鍵并且是否輸入 圖書編號(hào) If KeyAscii = 13 And Then ’從數(shù)據(jù)庫中獲取 讀者信息和要還圖書信息 strSQL = select , ,_ , ,_ amp。 and = g_strSql = strSQL Set g_rs = (g_strSql) If Not Then ’ 判斷是否找到該圖書的信息 ??（代碼略） = Date ’設(shè)置還書日期為當(dāng)前日期 ’設(shè)置實(shí)際借書天數(shù) = CStr(Date g_rs!借書日期 ) ’設(shè)置超期天數(shù) If CInt() CInt() 0 Then = CStr(CInt()_ CInt()) Else = 0 某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計(jì)與實(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 請(qǐng)先輸入圖書編號(hào) , vbOKOnly, 提示 End If End Sub 進(jìn)行圖書信息的確認(rèn)后，就可以響應(yīng)“還書”中“歸還圖書”按鈕的單擊事件了， 并更新數(shù)據(jù)庫。 39。 最后，響應(yīng)窗體的關(guān)閉事件，斷開數(shù)據(jù)庫的連接。 amp。 amp。圖書館工作人員可以根據(jù)不同的需要，依靠單擊窗體中相應(yīng)的按鈕分別進(jìn)行不同的操作。 , ,_ , ,_ amp。添加記錄 39。接下來就輸入查詢條件，如果選中“登記日期”復(fù)選框，查詢條件就增加登記日期這一項(xiàng)。 amp。 為了增強(qiáng)系統(tǒng)的適應(yīng)性，這些基礎(chǔ)信息要能夠進(jìn)行更改，而基礎(chǔ)信息維護(hù)模塊就能夠很好地完成這個(gè)功能。如果是添加新類別 還要進(jìn)行類別代碼是否重復(fù)的判斷，對(duì)于不重復(fù)的類別某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 36 進(jìn)行入庫保存的操作。代碼略。 End If Else strCon(1) = End If ’獲得圖書名稱查詢條件 ??（代碼略） ’獲得類別代碼查詢條件 ??（代碼略） ’獲得出版社查詢條件 ??（代碼略） ’獲得圖書價(jià)格查詢條件 ??（代碼略） ’獲得登記日期查詢條件 ??（代碼略） ’根據(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è)計(jì)與實(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)閉”按鈕的單擊事件的代 碼略。其主要代碼如下： 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è)置 ’獲得 圖書編號(hào)查詢條件 If Then If = 1 Then strCon(1) = 圖書編號(hào) like 39。 窗體界面的設(shè)計(jì)及相關(guān)代碼的編寫 根據(jù)上述 的功能，該窗體的設(shè)計(jì)界面如 圖 16所示。實(shí)現(xiàn)這一事件的代碼如下： Private Sub cmdSave_Click() ’保存新添加的圖書信息 Set g_rs = (SELECT * FROM bookInfo,_ dbOpenDynaset) 39。 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 27 圖 13 圖書管理窗體的設(shè)計(jì)界面 圖 14 添加新書窗體的設(shè)計(jì)界面 圖 15 修改圖書窗體的設(shè)計(jì)界面 該窗體在加載時(shí)， Ado Data 控件要進(jìn)行數(shù)據(jù)庫的連接，同時(shí)在 DataGrid 控件中將相某中學(xué) 圖書館信息 管理 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 關(guān)信息顯示出來。 End If Else strCon(2) = End If ’獲得讀者編號(hào)查詢條件 ??（代碼略） ’獲得讀者姓名查詢條件 ??（代碼略） ’獲得借書日期查詢條件 ??（代碼略） ’查詢結(jié)果包含幾個(gè)表的信息 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è)計(jì)與實(shí)現(xiàn) 26 End Sub 而當(dāng)單擊“清空”按鈕時(shí)，將清空所有的查詢條件。 End If Else 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 25 strCon(1) = End If ’獲得圖書名稱查詢條件 If Then If = 1 Then strCon(2) = like 39。響應(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è)置 ’獲得圖書編號(hào)查詢條件 If Then If = 1 Then strCon(1) = like 39。 39。 _ amp。 39。通過確認(rèn)的圖書便會(huì)在下面的多個(gè)文本框中顯示該書的信息。 and 讀者編號(hào) =39。 Set g_rs = (g_strSql) (是否借出 ).Value = True Set g_rs = Nothing ’ 提示借書操作完成，并清空記錄 廣西師范學(xué)院 2021屆本科畢業(yè) 論文 19 ??（代碼略） ’進(jìn)行 DataGrid 控件初始化， False 參數(shù)表明的正常借書標(biāo)簽頁 InitDataGrid (False) Else MsgBox 您的書已經(jīng)借滿 ,不能再借 !, vbOKOnly, 提示 End If Else MsgBox 請(qǐng)先輸入讀者編號(hào) !, vbOKOnly, 提示 End If End Sub 至此，借書的操作就完成了。 amp。 amp。 _ , ,_ from readerInfo,_ bookInfo,lentInfo,bookType _ amp。響應(yīng)這一事件的代碼如下： Private Sub txtReaderID_KeyPress(KeyAscii As Integer) ’ 判斷用戶按下回車鍵并且是否輸入讀者編號(hào) If KeyAscii = 13 And Then ’ 根 據(jù)輸入的讀者編號(hào)，查找讀者姓名 g_strSql = select * from readerInfo where 讀者編號(hào) =39。同樣在“續(xù)借圖書”標(biāo)簽頁下，工作人員通過輸入讀者編號(hào)，系統(tǒng)便會(huì)列出該讀者所有已借的圖書信息，工作人員選擇其中讀者要續(xù)借的圖書后，在“借書日期改為”的日期選擇框中選擇要修改的日期，最后單擊“確定”按鈕就可以完成對(duì)該圖書的續(xù)借工作了。 軟件環(huán)境：操作系統(tǒng)為 Windows 2021(SP4),Windows 2021 或 Windows XP。本系統(tǒng)完全可以在一般的個(gè)人計(jì)算機(jī)上進(jìn)行開發(fā) 和運(yùn)行 ， 而當(dāng)今發(fā)展日趨完善的 網(wǎng)絡(luò)為系統(tǒng) 服務(wù)器 /客戶端 (S/C)的結(jié)構(gòu)提供了硬件 上的支持。 各表間的關(guān)系如圖 2所示。 根據(jù)上面的設(shè)計(jì)得到的實(shí)體有：讀者信息表、圖書信息表、圖書類別表、借閱信息表、廣西師范學(xué)院 2021屆本科畢業(yè) 論文 7 基本信息 表。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。 續(xù)借部分：在進(jìn)行了用戶信息的確認(rèn)后，只需要更新需要續(xù)借圖書的借書日期即可完