【文章內(nèi)容簡介】 內(nèi)所有圖書的信息，提供唯一的圖書 ID。 本系統(tǒng)涉及到的實體： (1)本系統(tǒng)中所涉及到的主要實體及其屬性有： tblbooK（圖書管理）表： {圖書編號 ,館藏編號 ,書名 ,作者 ,出版社 ,出版日期 ,入庫日期 ,價格 ,操作員 } tblCard(借書證 )表 :{借書證編號 ,是否有效 ,姓名 ,男女 ,身份證號 ,部門 ,電話 ,地址 ,最大供書量 ,操作員 ,創(chuàng)建日間 } tblLoan(借閱 )表 :{借書證編號 ,書號 ,借書日期 ,還書日期 ,操作員 } tblOperator(操作員 )表 :{操作員編號 ,姓名 ,密碼 ,備注 } (2)本系統(tǒng)的實體 聯(lián)系（ ER）圖 為了使 ER 圖表示得更加清晰，現(xiàn)將 ER 圖分成實體及其屬性圖和實體及其聯(lián)系圖。分別如下圖所示： 圖 6 ER實體及其 屬性 圖 圖書編號 館藏編號 書名 作者 出版社 出版日期 價格 數(shù)量 入庫時間 操作員 備注 圖書 管理 借書證編號 是否有效 姓名 男女 身份證號 部門 地址 有效日期 電話 最大借書量 操作員 借書證管理 辦證時間 15 圖 7 ER實體及其 聯(lián)系 圖 各表的物理結(jié)構(gòu)如下： 表 2 TblBook（圖書管理）表： 字段代碼 字段名稱 類型 寬度 小數(shù)位數(shù) Bookid 圖書編號 長整型 Libid 館藏編號 文本 8 BookName 書名 文本 100 Author 作者 文本 60 Publisher 出版社 文本 50 PublishDate 出版日期 文本 50 Price 價格 貨幣 2 Amount 館藏冊數(shù) 數(shù)字 整形 2 createdate 入庫時間 日期 /時間 Operator 操作員 數(shù)字 Memo 備注 文本 255 表 3 TblCard（借書證管理）表： 操作員 操作員編號 姓名 密碼 備注 借閱 借書證編號 圖書編號 借書日期 還書日期 操作員 16 字段代碼 字段名稱 類型 寬度 小 數(shù)位數(shù) CardId 借書證編號 自動編號 長整型 Enabled 是否有效 是 /否 Name 姓名 文本 8 Gender 男女 數(shù)字 長整型 IdCard 身份證號 文本 18 Vocation 部門 文本 50 Phone 電話 文本 50 Address 地址 文本 50 MaxBookNum 最大借書量 數(shù)字 整型 AvailDateNum 有效時間 數(shù)字 長整型 Operator 操作員 數(shù)字 長整型 CreateDate 辦證時間 日期 /時間 表 4 TblLoan(借閱 )表： 字段代碼 字段名稱 類型 寬度 小數(shù)位數(shù) CardID 借書證編號 數(shù)字 長整型 BookID 圖書編號 數(shù)字 長整型 LoanDate 借書日期 日期 /時間 ReturnDate 還書日期 日期 /時間 Operator 操作員 文本 表 5 TblOperato 表 ： 字段代碼 字段名稱 類型 寬度 小數(shù)位數(shù) OperatorID 操作員編號 自動編號 Name 姓名 文本 50 Password 密碼 文本 50 Memo 備注 文本 255 17 ER 圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下： 圖書管理（圖書編號 ,館藏編號 ,書名 ,作者 ,出版社 ,出版日期 ,入庫日期 ,價格 ,操作員） 圖書編號為此關(guān)系的碼。 借書證（借書證編號 ,是否有效 ,姓名 ,男女 ,身份證號 ,部門 ,電話 ,地址 ,最大借書量 ,操作員 ,創(chuàng)建日間） 借書證編號為此關(guān)系的碼。 借閱（借書證編號 ,書號 ,借書日期 ,還書日期 ,操作員） 借書證編號為此關(guān)系的碼。 操作員（操作員編號 ,姓名 ,密碼 ,備注） 操作員編號為此關(guān)系的碼。 計算機(jī)系統(tǒng)的配置方案 硬件環(huán)境： 表 6 硬件配置表 內(nèi)容 最低配置 建議配置 主機(jī) 奔騰二代 300M P4 內(nèi)存 64MB DDR256MB以上 硬盤 20GB 40GB以上 顯示器 VGA以上 軟件環(huán)境： 操作系統(tǒng)： Windows 2021 或 Windows XP 中文版 編程軟件和數(shù)據(jù)庫： Visual 中文版 +Access2021 中文版 系統(tǒng)的安全性和可靠性設(shè)計 對所有登錄本系統(tǒng)的使用用戶進(jìn)行嚴(yán)格的用戶名和密碼的管理，如果不屬于系統(tǒng)事先設(shè)定好的合法用戶，則系統(tǒng) 無法登錄，為了防止密碼外泄，本系統(tǒng)具備密碼修改功能。 18 第五章 系統(tǒng)詳細(xì)設(shè)計 程序按照三個主要管理功能進(jìn)行組織，其中借書和還書由于經(jīng)常使用，單獨列出來。下面我們按照操作順序?qū)Τ绦虻牟僮鳌⒔缑娴脑闯绦蜻M(jìn)行詳細(xì)說明。 啟動： 雙擊圖標(biāo)運(yùn)行程序以后，就可以看到程序的主界面。由于這個時候還沒有登陸系統(tǒng)，因此系統(tǒng)提示未登錄。這時，需要通過通過系統(tǒng)管理菜單進(jìn)行登錄操作。 圖 8 啟動后的主界面 登錄 系統(tǒng)進(jìn)行登錄時，用戶單擊了菜單“登錄”，此時系統(tǒng)開始顯示登錄窗口。 Private Sub mnuSysLogin_Click() vbModal If Then = amp。 （ amp。 amp。 ） Else = amp。 （未登錄） 19 End If End Sub 程序首先顯示 frmLogin 窗口，由于這個窗口是模態(tài)（ vbModal）顯示的 ，因此如果用戶只能關(guān)閉這個窗口后才能進(jìn)行其他的操作。 VB 的窗口分成模塊窗口和非模態(tài)窗口兩種，普通情況下都是非模態(tài)窗口，但是多數(shù)對話框是模態(tài)窗口。 程序的后面使用了一個結(jié)構(gòu)體，這個結(jié)構(gòu)體在公共模塊定義，程序的任何地方都可以訪問這個結(jié)構(gòu)體，同時程序初始化了一個全局變量 CurrentUser。該變量用來指示當(dāng)前是否有用戶登陸，用戶的 ID 和名稱是什么等信息。 Type Users ID As Integer Name As String Password As String LoginSuccess As Boolean End Type Public CurrentUser As Users 這里我們首先運(yùn)行了 frmLogin 窗體，然后根據(jù) frmLogin 窗體對用戶信息的判斷，由 frmLogin 窗體設(shè)置 CurrentUser 信息。如果成功， CurrentUser 的 LoginSuccess 屬性將為 True，否則為 False。如果 CurrentUser 的 LoginSuccess 屬性為 True，則主窗體顯示當(dāng)前用戶登錄的用戶名。 下面我們主要看 frmLogin 窗體的操作。 圖 9 登錄 窗體 這里我們詳細(xì)講解登錄的全部過程，因為這個過程中涉及到 DAO 數(shù)據(jù)庫訪問的全部過程，因此我們將著重介紹這些過程。以后程序中使用同樣功能的部分將不再介紹。 Private Sub cmdOK_Click() Dim strUserID As String Dim strUserPwd As String Dim db As Database Dim rs As Recordset 20 39。獲取用戶輸入 If = Then MsgBox 請 輸入正確的用戶名 , vbInformation Exit Sub End If strUserID = If = Then MsgBox 請輸入用戶密碼 , vbInformation Exit Sub End If strUserPwd = 39。開始校驗密碼 Set db = OpenDatabase(DB_NAME) Set rs = (select * from tblOperator where Name= _ amp。 Chr(34) amp。 strUserID amp。 Chr(34) amp。 and Password= amp。 _ (34) amp。 strUserPwd amp。 Chr(34)) If 0 Then = strUserID = rs!OperatorID = True Else = = False = 0 MsgBox 無效的用戶名或者密碼，請重新登錄 , vbCritical End If Set db = Nothing Set rs = Nothing Unload Me End Sub 程序首先定義了四個變量，其中 strUserID、 strUserPwd 是基本變量，用來臨時存儲用戶的登錄信息； db 和 rs 是 DAO 對象變量，其中 db 是數(shù)據(jù)庫對象，用于連接數(shù)據(jù) 21 庫，也可以用來直接執(zhí)行部分 SQL 語句（ insert、 delete、 update 等，通過使用 Database對象的 Execute 方法）。 rs 是記錄集對象（ Recordset），它可以對應(yīng)數(shù)據(jù)庫的一個表，或者是一個查詢執(zhí)行結(jié)果。 Recordset 是最為常用的數(shù)據(jù)對象，可以實現(xiàn)數(shù)據(jù)的漫游，數(shù)據(jù)的添加和刪除。 表 7 RecordSet的常用方法 AddNew 增加一條新記錄 Delete 刪除當(dāng)前的記錄 MoveFirst 移動到最前面一條記錄 MoveLast 移動到最后一條記錄 MovePrevious 移動到前一條記錄 MoveNext 移動到后一條記錄 Edit 當(dāng)前記錄進(jìn)入修改狀態(tài) Update 刷新當(dāng)前記錄集，將 AddNew 或者 Edit 所進(jìn)行的操作提交到數(shù)據(jù)庫 對象變量在使用前需要進(jìn)行實例化，這一點和普通變量是不同的。對象變量的實例化使用 Set 語句進(jìn)行的。 Set db = OpenDatabase(DB_NAME) Set rs = (select * from tblOperator where Name= _ amp。 Chr(34) amp。 strUserID amp。 Chr(34) amp。 and Password= amp。 _ (34) amp。 strUserPwd amp。 Chr(34)) 這里我們使用了 DAO 提供的 OpenDatabase 來進(jìn)行 db 的實例化，其中 DB_NAME是一個全局常量，在系統(tǒng)初始化時定義。 DB_NAME = amp。 \ 其中 App 是一個 VB 的對象，保存了應(yīng)用程序的很多屬性。在整個程序中我們使用了 App 對象的兩個屬性，即 Path 屬性（表示應(yīng)用程序所在的路徑）和 Title 屬性（表示應(yīng)用程序的標(biāo)題）。 Db 初始化完成以后就可以使用他的方法和屬性。這里我們使 用 Database 對象的OpenRecordset 方法來進(jìn)行初始化， OpenRecordSet 可以直接對一個表進(jìn)行操作，例如 OpenRecordSet（ “tblCard”），也可以通過執(zhí)行一個 SQL 語句來獲得記錄集，如上面的例子。我們查詢數(shù)據(jù)庫的管理員表，如果用戶提交的登錄信息存在，也就是用戶是合法用戶，則 Recordset 中有記錄，否則 recordset 將返回一個空記錄集。這里我們通過 Recordset 的 RecordCount 屬性來訪問。 If 0 Then 22 = strUserID = rs!OperatorID = True Else = = False = 0 MsgBox 無效的用戶名或者密碼，請重新登錄 , vbCritical End If 如果用戶存在，則我們將用戶的信息復(fù)制到 CurrentUser 中，同時設(shè)置登錄成功的標(biāo)志。保存用戶 ID是因為針對管理員的所有操