【文章內容簡介】 者信息 添加讀者信息 借書信息修改 借書信息添加 還書信息修改 還書信息添加 還書信息查詢 借書信息查詢 書籍信息修改 書籍信息查詢 書籍信息刪除 書籍信息添加 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 8 頁 共 39 頁 借閱管理部分 借閱管理部分包括借書管理和還書管理 ,其功能是實現(xiàn)對各部分數(shù)據(jù)內容的添加和查詢 操作。各管理部分的明細如下 : （ 1）借書管理 :包括添加借書信息和查詢借書信息 2部分功能。其中 ,借閱信息包括借閱編號、讀者編號、讀者姓 名、書籍編號、書籍名稱、出借日期和還書日期。 (2)還書管理 :實現(xiàn)添加還書信息功能。其中 ,還書信息與借閱信息各部分明細相同。 系統(tǒng)管理部分 設置操作人員。系統(tǒng)初始設置一個超級用戶名和密碼 ,操作人員可以利用這個超級用戶 名和密碼登錄 ,之后 ,可以設置其他的超級用戶名稱 ,也可以設置權限用戶 ,同時也設置了 這個用戶可以使用的權限。 此外 ,在系統(tǒng)登錄界面中輸入密碼與用戶名不符 3次將自動退出登錄。 第三章 數(shù)據(jù)庫及開發(fā)平臺 數(shù)據(jù)庫設計 根據(jù)上面分析的系統(tǒng)的各種功能要求 ,可以很容易想到系統(tǒng)所 需的數(shù)據(jù)庫應該按照如下 思路設計 :書籍類別、書籍信息、讀者類別、讀者信息和圖書借閱部分等應該各自作為一個表存在 ,此外 ,系統(tǒng)管理員的信息單獨使用一個表來記錄。 本系統(tǒng)服務器端采用 Windows 2021 作為操作系統(tǒng)，同時配置 Access 數(shù)據(jù)庫服務器，用于數(shù)據(jù)的存儲和處理，客戶端采用 Windows2021 操作系統(tǒng)。 前臺開發(fā)工具采用 Visual Basic，后臺數(shù)據(jù)庫連接是采用 Access 數(shù)據(jù)庫服務器。 （ 1） Microsoft Access 建立一個數(shù)據(jù)庫我們有多種選擇，在本系統(tǒng)中，作為圖書館管理系統(tǒng)的一 個比較小的應用系統(tǒng)，它所產生和處理的數(shù)據(jù)量也比較小。因此，沒有必要使用像SQL Server 和 Oracle 這樣的大型數(shù)據(jù)庫。 Microsoft Office 中的 Access 數(shù)據(jù)庫在計算機上的應用比較普及，是開發(fā)小型數(shù)據(jù)庫系統(tǒng)的比較理想的選擇，所以，在本系統(tǒng)中我選擇了 Access 數(shù)據(jù)庫。 與其他數(shù)據(jù)庫系統(tǒng)相比， Access 更加簡單易學，普通的計算機用戶可以很快的掌握它。 Access2021 的功能十分強大，利用它可以方便地實現(xiàn)對信息保存、維圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 9 頁 共 39 頁 護、查詢、統(tǒng)計、打印、交流、發(fā)布，而且它可以方便地與 Office 其他組件 交流數(shù)據(jù)，這些功能對一般用戶而言已經足夠 （ 2） Visual Basic Microsoft Visual basic 是可視化的 ,面向對象的 ,由事件驅動的結構化高級程序設計語言 .它提供了最迅速 ,最簡潔的開發(fā)應用程序的方法 . Visual 的中文意思是可視的 ,直觀的 ,看得見的 ,形象化的 .這里的 Visual 指直觀的開發(fā)應用程序界面的方法 ,只需將系統(tǒng)提供的標準控件手臂放到屏幕窗體上 , Visual basic 就會自動地生成相應控件的程序代碼和其屬性數(shù)據(jù) ,而不需要用戶去編寫大量的界面程序代碼 . Basic 指的是 BASIC 語言 ,為 Beginner’ Allpurpose Symbolic Instruction Code 一詞的縮寫 ,意思是初學者通用符號指令代碼 .該語言在發(fā)展史上是使用最為廣泛的程序合計語言 ,它易學 ,易懂 ,深受廣大初學者的歡迎 . Visual basic 在原有 BASIC 語言的基礎上發(fā)展成為易學 ,易掌握的 ,功能強大的最新程序設計語言 . 第四章 圖書館管理系統(tǒng)的具體實現(xiàn) 建立主窗體 添加菜單 使用菜單編輯器編輯系統(tǒng)主菜單 。 添加代碼 主窗體中的代碼不多 ,基本上都是實現(xiàn)單擊某個菜單選項即彈出相應窗體的語句 ,這些 語句將分別在各個窗體中介紹。單擊 系統(tǒng)管理 一 )退出系統(tǒng) 菜單 ,關閉系統(tǒng)代碼如下。 Private sub exit_sys_click( ) End End Sub 建立添加圖書類別窗體 建立窗體 添加一個窗體 ,并按照表所示設置窗體的屬性 。 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 10 頁 共 39 頁 添加控件 添加圖書類別窗體由 2 個 Text 控件、 2個 Label 控件、 2 個 CommandButton控件組成。 其中 ,2 個 Label 控件作為標識 ,2 個 Text 控件接收用戶輸 入 ,2 個CommandButton 控件作 為 確定 和 取消 按鈕。添加這些控件 ,并按照表所示設置這些控件的屬性。 添加代碼 當單擊 圖書管理 /圖書類別管理 /添加圖書類別 菜單時 ,彈出如圖所示窗體。 代碼如下。 Private Sub add_book_style_click() End sub 當單擊 確定 按鈕時 ,首先檢查輸入的圖書類型和種類編號是否為空 ,代碼如下。 Private submand1_click() Dim sql As string If trim()=”” then Msgbox” 圖書種類不能為空 ” ,vbOKOnly+vbExclamation,” Exit sub End if If trim()=”” then Msgbox” 種類不能為空 ” ,vbOKOnly+vbExclamation,” Exit sub End if ?? 如果不為空 ,則檢查類別名稱是否有重復 ,需要打開 圖書類別表 ,先定義一個字符串類 型的變量和一個 Recordset 對象變量。 Private sub () 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 11 頁 共 39 頁 Dim rs_booksytle as new Dim sql as string If trim()=”” then ?? 使用 Recordset 對象的 open 方法打開數(shù)據(jù)表。 Private sub () ?? end if sql=” select * from 圖書類別 where 類 別名稱＝“ amp。amp?！薄? sql,conn,adOpenKeyset,adLockPessimistic 如果沒有重復 ,此時 Recordset 對象的 EOF 屬性應改為 Fasle,此時將新的數(shù)據(jù)添加到數(shù)據(jù)庫 ,并給出提示代碼如下。 Private sub mand1_click() ?? if then (0)=trim() (1)=trim() Msgbox” 添加圖書類別成功！ ” ， vbOKOnly, ”” else ?? 如果有重復 ,則給出提示 ,然后將焦點設置給 Text1,并將所有的文本框清空 ,代碼如下。 Private sub mand1_click() ?? else msgbox” 讀者類別重復！ ” ,vbokonly+vbExclamation.”” =”” 。 Exit sub End if End sub 當單擊 取消 時 ,則退出此窗體 ,代碼如下。 Private sub mand2_click() Unload me End sub 以上就是添加圖書類別窗體的實現(xiàn)過程。 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 12 頁 共 39 頁 建立圖書類別管理窗體 (修改、刪除類別 ) 建立窗體 添加一個窗體 ,并按照表 1所示設置窗體的屬性。 表 1 圖書類別管理窗體的屬性設置 窗體屬性 取值 Name Frmmodifybookstyle caption 圖書類別管理 StartUpPosition 2eterScreen maxButton false 添加控件 圖書類別管理窗體由 1個 Datagrid控件、 2個 Frame控件、 4個 CommandButton控件組成。其中 ,2 個 Frame 控件作為容器 ,分別用來放置 Datagrid 控件和CommandButton 控件 , 4 個 CommandButton 控件作為 修改類別 、 刪除類別 、 更新 和 取消 按鈕。 這一 部分需要用到 Datagdd 控件。用戶自行將其添加到控件欄內。方法是 單擊 工程 一》 部件 菜單 ,在窗體中找到 Microsoft Datagrid Control 。 選項并在其前面的方框內打勾。添加完后 ,在控件欄內應該顯示 Datagrid 的圖標。 添加這些控件 ,并按照表 2所示設置這些控件的屬性。 表 2 控件的屬性設置 控件 屬性 屬性取值 Frame1 Caption 空 Frame2 Caption 空 Command1 (名稱 ) cmdmodify Caption 修改類別 Command2 (名稱 ) Cmddel Caption 刪除類別 Command3 (名稱 ) Cmdupdate Caption 更新 Command2 (名稱 ) Cmdcancel Caption 取消 Datagdd 控件的屬性不需要做任何修改 ,取默認值即可。 添加代碼 當單擊 圖書管理 /圖書類別管理 /修改圖書類別 菜單時 ,彈出如圖所示的窗體。 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 13 頁 共 39 頁 代碼如下： Private sub modify_book_style_click() End sub 當單擊 圖書管理 /圖書類別管理 /刪除圖書類別 菜單時 ,彈出窗體。 代碼如下。 Private sub del_book_style_click() End sub 在窗體力加載時 ,首先打開數(shù)據(jù)表。在通用變量聲明部分定義一個 Recordset 數(shù)據(jù)對象 , 代碼如下。 Option explicit Dim rs_reader as new 在 Form _Load事件中首先打開圖書類別數(shù)據(jù)表 ,使用 Recordset對象的 Open方法 ,代碼 如下。 Private sub form_lock() Dim sql as string On error goto loaderror Sql=” select * from 圖書類別 ” =adUseClient sql,conn,adopenKeyset,adLockPessimistic ‘ 打開數(shù)據(jù)庫 ?? 窗體剛剛加載時，“更新”按鈕應設置 為不可用，即將其 Enabled 書行為 false private sub form_load() ?? =false 設置 Datagrid 控件不可更改 ,即將其 AllowAddNew、 AllowDelete、 AllowUpdate屬性 設置為 Fdse。 Private sub form_load() ?? ‘ 設定 datagrid 控件屬性 =false 不可增加 =false 不可刪除 =false 使用 datagrid 控件顯示圖書類別數(shù)據(jù)表中的數(shù)據(jù)信息，只需將該控件的datasource 屬性設置為 recordset 對象即可 private sub form_load() ?? set = rs_reader 圖書管理系統(tǒng)的設計與應用 計算機科學與技術 第 14 頁 共 39 頁 ?? end sub 添加錯誤處理部分的語句如下。 private sub form_load()