【正文】 * from lentInfo where 圖書編號 =39。 圖 10 “續(xù)借圖書”標簽頁面的設計界面 在進行“續(xù)借圖書”時，也是先輸入讀者編號并按下回車鍵以通過查詢數據庫來進行讀者編號有效性的確認，通過確認的用戶，便會在下面的 DataGrid 控件中顯示已經借閱圖書信息。 Set g_rs = (g_strSql) (是否借出 ).Value = True Set g_rs = Nothing ’ 提示借書操作完成，并清空記錄 廣西師范學院 2021屆本科畢業(yè) 論文 19 ??（代碼略） ’進行 DataGrid 控件初始化， False 參數表明的正常借書標簽頁 InitDataGrid (False) Else MsgBox 您的書已經借滿 ,不能再借 !, vbOKOnly, 提示 End If Else MsgBox 請先輸入讀者編號 !, vbOKOnly, 提示 End If End Sub 至此，借書的操作就完成了。 amp。更新 bookInfo 表 ,設置該書是否借出屬性為 借出 g_strSql = select * from bookInfo where 圖書編號 =39。 其代碼如下： Private Sub cmdLendBook_Click() If Then If 0 Then 39。 amp。 amp。 , _ 廣西師范學院 2021屆本科畢業(yè) 論文 17 from bookInfo,bookType where 圖書編號 =39。_ Persist Security Info=False = adUseClient = adCmdText ’ 將臨時數據控件中的屬性值賦給和數據表格相連的 ADO 數據控件 = strDataSource 某中學 圖書館信息 管理 系統(tǒng)的設計與實現 16 ’刷新數據表格 ’如果是正常借書，則進行如下操作 If blnRenew = False Then Set = Adodc1 ’ 顯示一共借了多少本書 = 所借圖書 :_ + CStr() ’顯示還能借多少本書 g_strSql = select * from basicSet Set g_rs = (g_strSql) intCount = g_rs!借出冊數 = CStr(intCount) Else Set = Adodc1 End If End Function 在確認讀者已借閱的圖書信息后，就可以輸入要借圖書的編碼，然后按下回車鍵，系統(tǒng) 同樣 會對輸入的圖書編碼進行有效性的 確認，看該書是否已經借出。 amp。 and =_ and is null ’ 連接 Access 數據庫 = Provider=。 strReaderID amp。 =39。 _ , ,_ from readerInfo,_ bookInfo,lentInfo,bookType _ amp。其主要代碼如下： Public Function InitDataGrid(blnRenew As Boolean) Dim strDataSource As String 廣西師范學院 2021屆本科畢業(yè) 論文 15 Dim intCount As Integer Dim strReaderID As String If blnRenew = False Then strReaderID = ’ 正常借書頁面 Else strReaderID = End If ’ 用 SQL 相關語句查詢數據庫中的表 strDataSource = select , ,_ , amp。 ’ 進行數據庫的查詢 Set g_rs = (g_strSql) ’判斷是否找到 If Not Then = g_rs!讀者姓名 InitDataGrid(False) ’ 初始化 DataGrid 控件信息 Else MsgBox 沒有該讀者信息！ ,vbOkOnly, 提示 = End If Set g_rs = Nothing ElseIf KeyAscii = 13 And = Then MsgBox 請先輸入讀者編號 ,vbOkOnly, 提示 End If End Sub 其中 InitDataGrid()函數主要是為了進行 DataGrid 控件的顯示，因為在“正常借書”和“續(xù)借”中都 有 DataGrid 控件顯示的問題，因此要用函數中的參數來區(qū)分是正常借書頁面還是續(xù)借頁面，以分別進行相關的操作。 amp。響應這一事件的代碼如下： Private Sub txtReaderID_KeyPress(KeyAscii As Integer) ’ 判斷用戶按下回車鍵并且是否輸入讀者編號 If KeyAscii = 13 And Then ’ 根 據輸入的讀者編號，查找讀者姓名 g_strSql = select * from readerInfo where 讀者編號 =39。代碼如下： Private Sub Form_Load() ’ 打開主窗口的同時進行數據庫的連接 = Date = Date Set g_ws = (0) Set g_db = ( +_ \圖書館信息 管理 系統(tǒng) .mdb) End Sub 在進行“正常借書 ” 時，輸入讀者編碼后按下鍵盤上的回車鍵，系統(tǒng)會通過查詢數據庫來對輸入的讀者編號進行有效性的確認。 首先定義項目級變量，保存數據庫的連接和減少重復的變量定義。 窗體界面的設計及相關代碼的編寫 其實，該窗體的運行界面就是系統(tǒng)的主界面，設計界面如 圖 9所示。同樣在“續(xù)借圖書”標簽頁下，工作人員通過輸入讀者編號，系統(tǒng)便會列出該讀者所有已借的圖書信息，工作人員選擇其中讀者要續(xù)借的圖書后，在“借書日期改為”的日期選擇框中選擇要修改的日期，最后單擊“確定”按鈕就可以完成對該圖書的續(xù)借工作了。圖書館工作人員可以根據使用的需要，通過單擊 Tab 標簽頁中分別進入不同的操作。 圖 9 系統(tǒng)運行主界面 創(chuàng)建借閱信息管理窗體模塊 鑒于借閱信息管理模塊在整個系統(tǒng)中的重要地位，所以首先著重介紹這一 窗體模塊。 7 系統(tǒng)模塊功能 的實現 和窗體的設計 由于借閱 信息管理模塊在整個 管理 系統(tǒng)中的作用十分重要，而且是圖書館工作人員使用最為頻繁的功能模塊，所以在運行本系統(tǒng)時，其系統(tǒng)主界面的下方就添加了借閱信息管理模塊的部分，以便于工作人員的使用。 軟件環(huán)境：操作系統(tǒng)為 Windows 2021(SP4),Windows 2021 或 Windows XP。由此，我們選擇 Visual Basic 作為前臺開發(fā)工具， Access 作為后臺數據庫。在 前面的數據庫設計 中，已經使用 Access 來設計數據庫，即選擇 Access 作為后臺數據庫。 5 開發(fā)工具的選擇 開發(fā)數據庫信息管理系統(tǒng)需要選擇兩種工具：前臺開發(fā)語言和后臺數據庫。本系統(tǒng)完全可以在一般的個人計算機上進行開發(fā) 和運行 ， 而當今發(fā)展日趨完善的 網絡為系統(tǒng) 服務器 /客戶端 (S/C)的結構提供了硬件 上的支持。而開發(fā)環(huán)境則選擇 Visual Basic ， VB 語言作為 一種可視化的編程語言，不僅提供了完善的 指令控制語句、類與對象的支持及豐富的數據類型 ，還 提供了比較豐富的數據訪問技術 ,如ADO、 ODBC 、 DAO 和 RDO 等 。而開發(fā)這樣一個小型的信息管理系統(tǒng)在一般的計算機上就可以進行，所需耗費的資源和費用并不高，對運行環(huán)境的要求也不高， 加之現在計算機的管理成本在不斷降低， 這對于一般的中學而言在經濟上 是 完全可以承受 的 。 [5] 對于研究中可能提出的任何一種解決方案，我們都要從經濟、 技術和運行 等方面來研究其可行性，作出明確的結論供用戶參考。 各表間的關系如圖 2所示。 表 1 讀者信息表 — readerInfo（用來存放讀者的信息） 編號 字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 1 讀者編號 文本 20 讀者編號 是 有（無重復） 是 2 讀者姓名 文本 15 讀者姓名 否 無 3 讀者性別 文本 3 讀者性別 否 無 4 所在班別 文本 20 所在班別 否 無 5 辦證日期 日期 /時間 辦證日期 否 無 表 2 圖書信息表 — bookInfo（用來存放圖書的信息） 編號 字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 1 圖書編號 文本 20 圖書編號 是 有（無重復） 是 2 圖書名稱 文本 50 圖書名稱 否 無 3 類別代碼 文本 10 類別代碼 否 無 4 作者姓名 文本 30 作者姓名 否 無 5 出版 社 文本 50 出版社 否 無 6 圖書價格 數字 單精度型 圖書價格 否 無 7 圖書頁碼 文本 10 圖書頁碼 否 無 8 登記日期 日期 /時間 登記日期 否 無 9 是否借出 是 /否 借出否 否 無 表 3 圖書類別表 — bookType（用來存放圖書類別的信息） 編號 字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 1 類別代碼 文本 5 類別代碼 是 有（無重復） 是 2 圖書類別 文本 20 圖書類別 是 有（無重復） 3 借出天數 數字 整型 借出天數 否 無 某中學 圖書館信息 管理 系統(tǒng)的設計與實現 10 表 4 借閱信息表 — lentInfo（用來存放進行借閱的信息） 編號 字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 1 讀者編號 文本 20 讀者編號 是 有（ 無 重復） 是 2 圖書編號 文本 20 圖書編號 是 有（有重復） 3 借書日期 日期 /時間 借書日期 否 無 4 還書日期 日期 /時間 還書日期 否 無 5 超出天數 數字 整型 超出天數 否 無 6 罰款金額 數字 單精度型 罰款金額 否 無 表 5 基本信息表 — basicSet（用來存放基礎設置的信息） 編號 字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 1 借出冊數 數字 整型 類別代碼 是 有（無重復） 2 罰款 數字 整型 圖書類別 是 有（無重復） 按照數據庫規(guī)范化設計的理念，這里將圖書館信息 管理 系統(tǒng)的數據分成以上 6 個表，減少了數據的冗余，同時在這些表之間又存在著一些關聯的關系。 根據系統(tǒng)功能的需求， 選擇 Access 作為數據庫開發(fā)工具，它完全可以適合工作需求，并且它所支持的數據類型非常豐富，維護又簡單，費用比較底，而人員的素質要求不是很高，且容易升級。 圖 2 讀者 信息 表 實體及其屬性 圖 圖 3 圖書 信息 表 實體及其屬性 圖 4 圖書類別 表 實體及其屬 性 讀者信息表 讀者編號 讀者 編號 讀者姓名 讀者性別 所在班別 辦證日期 圖書信息表 圖書頁碼 出版社 圖書名稱 作者姓名 圖書編號 類別代碼 圖書價格 是否借出 登記日期 圖書類別表 類別代碼 圖書類別 借出天數 某中學 圖書館信息 管理 系統(tǒng)的設計與實現 8 圖 5 借閱信息 表 實體及其屬性 圖 6 基本信息 表 實體及其屬性 綜合以上各個 信息表的 實體 及其屬性 圖，并根據系統(tǒng)設計可得整個系統(tǒng)的 基本 ER圖如圖 7所示。 根據上面的設計得到的實體有：讀者信息表、圖書信息表、圖書類別表