【正文】 圖所示： 圖 41圖書館管理系統(tǒng)示意圖 系統(tǒng)結(jié)構(gòu)圖示意如下： 圖 42 圖書館管理系統(tǒng)結(jié)構(gòu)圖 系統(tǒng)功能圖如下： 接受數(shù)據(jù) 事務(wù)中心 圖書采編 讀者管理 圖書流通 查詢 圖書館管理系統(tǒng) 圖書采編 讀者管理 圖書流通 查詢 輸入圖書信息 借書 還書 圖書館管理系統(tǒng) 系統(tǒng)登陸 系統(tǒng)管理 圖書管理 借書證管理 借 書 添加管理員 修改密碼 退 出 圖書類別管理 圖書信息管理 新開借書證 借書證查詢 借 書 還 書 讀者管理 讀者類別管理 讀者信息管理 圖 43 系統(tǒng)功能模塊圖 4． 2數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫 (Database)，是按 照數(shù)據(jù)結(jié)構(gòu)來組織、存儲和管理數(shù)據(jù)的倉庫，是用于查詢的大量數(shù)據(jù)的存儲區(qū)域。此外，數(shù)據(jù)庫技術(shù)還為用戶提供了非常簡便的使用手段，使用戶易于編寫有關(guān)數(shù)據(jù)庫應(yīng)用程序。 數(shù)據(jù)庫的設(shè)計是指對一個給定的應(yīng)用環(huán)境，構(gòu)造數(shù)據(jù)庫模式，建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)，滿足各種用戶需求。對一個實際的系統(tǒng)來說，數(shù)據(jù)庫表的設(shè)計在遵循數(shù)據(jù)庫理論的同時，必須能用開發(fā)工具來實現(xiàn)用戶在各方面提出的功能要求?？梢圆捎?E－ R圖的方法來進行數(shù)據(jù)結(jié)構(gòu)分析， E－ R設(shè)計方法是一種通過 E－ R圖來描述現(xiàn)實世界信息結(jié)構(gòu)的 DB設(shè)計方法。 E－ R圖的符號說明如圖 4－ 4所示。如圖 411所示（實體的屬性沒有標(biāo)出）： 圖 411 ER圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下（帶下劃線的字段為此關(guān)系的碼）： 讀者類別表： {類別名稱 ,借書數(shù)量 ,借書期限 ,有效期限 } 讀者信息表： {讀者編號 ,性別 ,讀者類別 ,工作單位 ,家庭住址 ,電話號碼 ,登記日期 ,已借書數(shù)量 } 借閱信息表： {借閱編號 ,讀者編號 ,讀者姓名 ,書籍編號 ,書籍名稱，借出日期，還書日系統(tǒng)管理員 用戶名 密碼 權(quán)限 讀者 書籍 圖書館工作人員 m n 借閱 借閱還書 n m 登記維護 n m n m 還書 期 } 書籍信息表 ： {書籍編號 ,書名 ,類別 ,作者，出版社，出版日期，登記日期，是否被借出 } 圖書類別表： {類別編號 ,類別名稱 } 系統(tǒng)管理表： {用戶名 ,密碼，權(quán)限 } 、各表的物理結(jié)構(gòu)如下： 讀者類別表： 讀者信 息表： 字段名稱 類型 寬度 小數(shù)位數(shù) 讀者編號 文本 10 性別 文本 2 讀者類別 文本 8 工作單位 文本 18 家庭住址 文本 18 電話號碼 文本 10 登記日期 日期 /時間 已借書數(shù)量 數(shù)字 5 借閱信息表： 書籍信息： 字段名稱 類型 寬度 小數(shù)位數(shù) 類別名稱 文本型 10 借書數(shù)量 數(shù)字 5 借書期限 數(shù)字 5 有效期限 數(shù)字 5 字段名稱 類型 寬度 小數(shù)位數(shù) 借閱編號 文本 10 讀者編號 文本 10 讀者姓名 文本 8 借書日期 日期 /時間 書籍編號 文本 10 書籍名稱 文本 10 還書日期 日期 /時間 字段名稱 類型 寬度 小數(shù)位數(shù) 圖書類 別： 系統(tǒng)管理： 硬件環(huán)境： 內(nèi)容 最低配置 建議配置 主機 奔騰二代 300M P4 內(nèi)存 64MB DDR256MB以上 硬盤 20GB 40GB以上 顯示器 VGA以上 操作系統(tǒng)： Windows 2020或 Windows XP中文版 編程軟件和數(shù)據(jù)庫： Visual +Access2020中文版 第五章 圖書借閱系統(tǒng)的實現(xiàn) 模塊設(shè)計舉例： 一、建立公共模塊 運行 VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn) EXE”項，單擊“確定”按鈕。在這個實例中，先刪除這個窗體，然后選擇“文件”→“保存工程”菜單，在出現(xiàn)的“文件另存 為”對話框中輸入這個工程項目的名稱“ book” ,并且選擇要保存書籍編號 文本 10 書名 文本 50 類別 文本 50 作者 文本 50 出版社 文本 50 出版日期 日期 /時間 登記日期 日期 /時間 是否被借出 邏輯型 字段名稱 類型 寬度 小數(shù)位數(shù) 類別編號 文本 10 類別名稱 文本 10 字段名稱 類型 寬度 小數(shù)位數(shù) 用戶名 文本 10 密碼 文本 10 權(quán)限 文本 10 這個工程的目錄，單擊“保存”按鈕，保存工程。在這個系統(tǒng)中，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用有數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的 SQL語句。標(biāo)記連接對象 Public select_menu As String 39。標(biāo)記當(dāng)前用戶 ID Public userpow As String 39。要借的書的編號 二、登錄窗體： 界面及最終運行效果如圖 51 圖 51 用戶可 輸入系統(tǒng)管理員的用戶名，如“ aa”，然后輸入密碼，系統(tǒng)對輸入的用戶名及相應(yīng)的密碼進行校驗。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。 amp。 amp。 ) amp。 End If If = vbChecked Then If Trim(sql) = Then sql = 類別 =39。 Trim( amp。 39。 and 書名 =39。 Trim( amp。 39。 amp。 ) amp。 Else sql = sql amp。 amp。 ) amp。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 出版社 =39。 Trim( amp。 39。 and 出版社 =39。 Trim( amp。 39。 amp。 ) amp。 Else sql = sql amp。 amp。 ) amp。 End If End If If Trim(sql) = Then MsgBox 請選擇查詢方式！ , vbOKOnly + vbExclamation Exit Sub End If sql = select * from 書籍信息 where amp。 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書！ , vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then MsgBox 此書已被借出！ , vbOKOnly + vbExclamation Exit Sub End If End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue() panduan = (7).CellValue() End Sub Private Sub Form_Load() Dim rs_find As New Dim sql As String sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (0) Loop = 0 End If End Sub b、借書表單的有關(guān)代碼： Private Sub Command1_Click() Dim rs_borrowbook As New Dim sql As String sql = select * from 讀者信息 where 讀者編號 =39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic leibie = (3) shumu = (8) sql = select * from 讀者類別 where 種類名稱 =39。 leibie amp。 sql, conn, adOpenKeyset, adLockPessimistic qixian = (2) maxnum = (1) If shumu = maxnum Then MsgBox 該讀者借書數(shù)額已滿！ , vbOKOnly + vbExclamation Exit Sub End If sql = select * from 借閱信息 sql, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Date (6) = DateAdd(Ww, qixian, Date) sql = select * from 書籍信息 where 書籍編號 =39。 book_num amp。 sql, conn, adOpenKeyset, adLockPessimistic (7) = 是 sql = select * from 讀者信息 where 讀者編號 =39。 amp。 sql, conn, adOpenKeyset, adLockPessimistic (8) = (8) + 1 MsgBox 本書借閱成功！ , vbOKOnly + vbExclamation Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_borrow As New Dim rs_reader As New Dim sql As String sql = select * from 書籍信息 where 書籍編號 =39。 book_num amp。 sql, conn, adOpenKeyset, adLockPessimistic = (0) = (1) = (2) = (3) = (4) = (5) = (6) sql = select * from 讀者信息 sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop Else MsgBox 請先登記讀者！ , vbOKOnly + vbExclamation Exit Sub End If End Sub 限于篇幅，其它模塊的代碼舉例從略。 硬件平臺是指開發(fā)與運行所需要的硬件環(huán)境，主要包括計算機機型及硬件配置。 軟件平臺是指系統(tǒng)開發(fā)與運行的軟件環(huán)境。 Visual Basic 具有可視化的開發(fā)環(huán)境，可以快速完成系統(tǒng)的開發(fā)，內(nèi)部集成的數(shù)據(jù)庫訪問通道，使得可以輕松方便的對數(shù)據(jù)庫管理。 本系統(tǒng)在單機上運行。 數(shù)據(jù)跟