【正文】 參考文獻(xiàn) 1. 劉韜 駱娟 何旭洪《 Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo) 航》 出版社： 人民郵電出版社 2020 年 5月 2. Visual Basic 編程篇 作者： 郝志恒 劉舫 出版社： 電子工業(yè)出版社 2020 年 1 月 3. 數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用 作者： 劉世峰 出版社： 中央電大出版社 2020 年 12 月 。不僅使我們?cè)谝?guī)定的時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我們學(xué)到了很多有益的知識(shí)和寶貴的經(jīng)驗(yàn)。同時(shí)，也使我認(rèn)識(shí)到自己所學(xué)的知識(shí)還很膚淺，這也正是我今后要努力提高的。它具有的可視化的編程環(huán)境和連接數(shù)據(jù)庫(kù)的便捷性，為數(shù)據(jù)庫(kù)的連接提供了多種方法 。另外，合理的數(shù)據(jù)結(jié)構(gòu)將非常有利于程序的實(shí)現(xiàn)。 前臺(tái)開(kāi)發(fā)涉及到整個(gè)圖書(shū)管理系統(tǒng)功能的實(shí)現(xiàn)，及實(shí)現(xiàn)的效率。前臺(tái)是應(yīng)用程序的開(kāi)發(fā)：功能模塊設(shè)計(jì)、源代碼開(kāi)發(fā)。或者也可以利用已經(jīng)設(shè)置好的快捷鍵進(jìn)行操作。 3. 操作方法 1．直接啟動(dòng)應(yīng)用系統(tǒng) 2．在登錄窗體中輸入用戶名及密碼就可以直接進(jìn)入主界面。 軟件配置： Windows 98/XP 操作系統(tǒng)， Visual Basic 數(shù)據(jù)庫(kù)管理系統(tǒng)。如果將該系統(tǒng)進(jìn)一步改進(jìn)，使之能應(yīng)用于網(wǎng)絡(luò)環(huán)境，則可以大大提高工作效率，提高其時(shí)效性和應(yīng)用范圍。各個(gè)模塊應(yīng)能獨(dú)立使用。 39。 amp。 Else MsgBox 讀者類別重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 添加圖書(shū)信息窗體的實(shí)現(xiàn) 26 添加圖書(shū)信息窗體由 1 個(gè) Frame 控件、 1個(gè) Combox 控件、 2個(gè) CommandButton 控件、6個(gè) Text 控件和 7 個(gè) Label 控件作為標(biāo)識(shí)， 6個(gè) Text 控件和 1個(gè) ComboBox 控件用于接收用戶輸入， 2個(gè) CommandButton 控件作為“確定”和“取消”按鈕。 sql, conn, adOpenKeyset, adLockPessimistic 如果沒(méi)有重復(fù)，此時(shí) TECORDSET 對(duì)象的 EOF 屬性應(yīng)改為 FASLE，此時(shí)將新的數(shù)據(jù)添加到數(shù)據(jù)庫(kù)，并給出提示代碼如下。 amp。 End If sql = select * from 圖書(shū)類別 where 類別名稱 =39。 運(yùn)行時(shí)的窗體如下： 圖書(shū)統(tǒng)計(jì)窗口 期刊統(tǒng)計(jì)窗口圖書(shū)存取窗口 23 期刊存取窗口 圖書(shū)瀏覽窗口 24 其實(shí)現(xiàn)代碼如下： 當(dāng)單擊添加圖書(shū)類別菜單時(shí)，代碼如下： Private Sub add_book_style_Click() End Sub 當(dāng)單擊“確定”按鈕時(shí)，首先檢查輸入的圖書(shū)類型和種類編號(hào)是否為空，代碼如下： Private Sub Command1_Click() Dim rs_bookstyle As New Dim sql As String If Trim() = Then MsgBox 圖書(shū)種類不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 種類編號(hào)不能為空 , vbOKOnly + vbExclamation, Exit Sub End If 如果不為空，則檢查類別名稱是否有重復(fù)，需要打開(kāi)圖書(shū)類別表，先定義一個(gè)字符串類型的變量和一個(gè) RECORDSET 對(duì)象變量。單擊“系統(tǒng)管理” “退出系統(tǒng)”菜單，關(guān)閉系統(tǒng)代碼如下： Private Sub exit_sys_Click() End End sub 系統(tǒng)主窗體的實(shí)現(xiàn) 19 登陸窗口 用戶 錄入窗口 其代碼如下： Private Sub add_admin_Click() End Sub Private Sub add_back_book_Click() 20 End Sub Private Sub add_book_info_Click() End Sub Private Sub add_book_style_Click() End Sub Private Sub add_lend_book_Click() End Sub Private Sub add_reader_info_Click() End Sub Private Sub add_reader_style_Click() End Sub Private Sub change_pwd_Click() End Sub Private Sub del_book_info_Click() End Sub Private Sub del_book_style_Click() 21 End Sub Private Sub del_reader_info_Click() End Sub Private Sub del_reader_style_Click() End Sub Private Sub exit_sys_Click() End End Sub Private Sub find_book_info_Click() End Sub Private Sub find_lend_book_Click() End Sub Private Sub find_reader_info_Click() End Sub Private Sub gu_Click() End Sub Private Sub H_Click() End Sub Private Sub Image1_Click() 22 End Sub Private Sub modify_book_info_Click() End Sub Private Sub modify_book_style_Click() End Sub Private Sub modify_reader_info_Click() End Sub Private Sub modify_reader_style_Click() End Sub 圖書(shū)類別管理窗體的實(shí)現(xiàn) 圖書(shū)類別管理窗體由 2 個(gè) Text 控件、 2個(gè) label 控件、 2個(gè) mandbutton 控件組成。 amp。 39。 amp。記錄確定次數(shù) 程序裝載的過(guò)程中將此變量初始化為 0 Dim sql As String Dim rs_login As New If Trim() = Then 39?！?amp。打開(kāi)數(shù)據(jù) 16 庫(kù)應(yīng)該安排在 Form_Load 事件中，因?yàn)榇_定用戶 名和密碼是否正確就已經(jīng)使用數(shù)據(jù)庫(kù)中的內(nèi)容了。 功能模塊的實(shí)現(xiàn) 按結(jié)構(gòu)化的程序設(shè)計(jì)思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計(jì)后，就可以進(jìn)行系統(tǒng)實(shí)現(xiàn)階段了