【文章內(nèi)容簡(jiǎn)介】 ute)、年級(jí)信息表(Grade)、借閱卡信息表(Borrower)、日期限定信息表(DatesRestrict)、書中信息表(Title)和書刊信息表(Book)等7個(gè)表。下面分別介紹這些。(1)管理員信息表 管理員信息表(Librarian)用來(lái)記錄管理員的權(quán)限信息。 表 管理員信息表(Librarian)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Seq數(shù)字管理員編號(hào)2Id文本登錄id3Password文本登錄密碼4onJobTime文本工作時(shí)間5Telephone文本聯(lián)系電話Seq字段是表Librarian的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。(2)學(xué)院信息表學(xué)院信息表(Institute)用來(lái)描述借閱者的學(xué)院信息。表 學(xué)院信息表(Institute)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1InstituteID文本學(xué)院編號(hào)2Institute文本學(xué)院名稱InstituteID字段是表Institute的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。(3)年級(jí)信息表(Grade)年級(jí)信息表(Grade)用來(lái)描述借閱者的年級(jí)信息。表 年級(jí)信息表(Grade)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1GradeID文本年級(jí)編號(hào)2Grade文本年級(jí)名稱GradeID字段是表Grade的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。(4)借閱卡信息表(Borrower) 借閱卡信息表(Borrower)用來(lái)保存借閱者的基本信息。 表 借閱卡信息表(Borrower)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1BorrowerID數(shù)字借閱卡編號(hào)2InstituteID文本學(xué)院編號(hào)3GradeID文本年級(jí)編號(hào)4Name文本借閱者姓名5StudentNum文本借閱者學(xué)好6Telephone文本借閱者電話7borrowerBookNum文本以借書數(shù)目BorrowerID字段是表Borrower的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。表Borrower與表Institute是一對(duì)多的關(guān)系，InstituteID字段是一個(gè)外部鍵，它將這兩個(gè)表連接起來(lái)。另外，表Borrower也以一對(duì)多的關(guān)系鏈接到表Grade,GradeID字段是一個(gè)外部鍵，它將該表同表Grade鏈接在一起。(5)日期限定信息表(DatesRestrict)日期限定信息表(DatesRestrict)用來(lái)描述各類書限定的被借閱天數(shù)。表 日期限定信息表(DatesRestrict)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Type文本書種2Dates_restrict數(shù)字天數(shù)Type字段是表Grade的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。(6)書中信息表(Title) 書中信息表(Title)用來(lái)描述圖書館中書刊信息。表 書中信息表(Title)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1NameChar(10)書名2AuthorChar(10)作者3IsbsnChar(10)IS/BSN號(hào)碼4TypeChar(10)書所述種類5NumChar(10)該書中有多少書刊書種信息表Title與日期限定信息表DatesRestrict是一對(duì)一的關(guān)系，Type是一個(gè)外部鍵，它將這兩個(gè)表連接起來(lái)。(7)書刊信息表(Book)書刊信息表(Book)用來(lái)記錄圖書館中書刊的基本信息。表 書刊信息表(Book)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1bookID文本書刊編號(hào)2Name文本書名3Loan文本狀態(tài)4BorrowerID文本結(jié)束的借閱卡ID5BorrowerDate文本該書被借閱的時(shí)間BookID字段是表Book的主鍵，它唯一標(biāo)識(shí)每個(gè)記錄。在Access中使用設(shè)計(jì)視圖創(chuàng)建表。下面以表Librarian為例介紹如何使用設(shè)計(jì)視圖創(chuàng)建數(shù)據(jù)表。在數(shù)據(jù)庫(kù)窗口的“對(duì)象”欄中選擇“表”，然后在右側(cè)的列表中雙擊“使用設(shè)計(jì)器創(chuàng)建表”連接，出現(xiàn)“表設(shè)計(jì)視圖”窗口。圖 “表設(shè)計(jì)視圖”窗口在“表設(shè)計(jì)視圖”窗口中，可以定義表Librarian中每個(gè)字段的字段名稱、數(shù)據(jù)類型以及字段屬性，然后選中seq字段所造的那一行，并在工具欄中單擊“主鍵”按鈕，將seq字段設(shè)置為該表的主鍵，此時(shí)該行的“列選擇器”上將多出一把鑰匙圖標(biāo)。設(shè)置完成后，在工具欄中單擊“保存”按鈕，將彈出“輸入表明”對(duì)話框。輸入Librarian，單擊“確定”按鈕，完成管理員信息表Librarian的創(chuàng)建。圖 輸入表名關(guān)于其他表與字段的創(chuàng)建，可以按照上面的方法自行創(chuàng)建。創(chuàng)建完所有表之后，首先在用戶管理表(Librarian)中創(chuàng)建一個(gè)用戶，插入相應(yīng)的信息。 設(shè)定表關(guān)系 Accesss作為關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，指定表之間的關(guān)系很重要。Lib數(shù)據(jù)庫(kù)的所有表與字段創(chuàng)建完成，就需要設(shè)定表關(guān)系了，Access將來(lái)會(huì)憑借表關(guān)系來(lái)連接兩個(gè)表或查詢中的數(shù)據(jù)，步驟如下。(1)打開數(shù)據(jù)庫(kù)窗口，選擇“工具”|“關(guān)系”命令，或者單擊工具欄中的“關(guān)系”按鈕，出現(xiàn)“關(guān)系”窗口。在窗口的任意空白處單擊右鍵，在彈出的快捷菜單中選擇“顯示表”，或單擊工具欄的“顯示表”按鈕，出現(xiàn)“顯示表”對(duì)話框。圖 “顯示表”對(duì)話框(2)在“表”選項(xiàng)卡中，使用鍵盤上的Ctrl及shift鍵與鼠標(biāo)共同操作，同時(shí)選取剛才所創(chuàng)建的7個(gè)表，并單擊“添加”按鈕。確認(rèn)后，單擊“關(guān)閉”按鈕。圖 “關(guān)系”窗口(3)在“關(guān)系”窗口中，首先選中標(biāo)DatesRestrict中的type字段，接著按住拖動(dòng)至表Title上方，然后釋放鼠標(biāo)左鍵，出現(xiàn)“編輯關(guān)系”對(duì)話框。圖 “編輯關(guān)系”對(duì)話框(4)確保顯示在兩個(gè)列表的字段名稱的正確性后，單擊“確定”按鈕，Access會(huì)根據(jù)關(guān)系字段在兩個(gè)表中的特性，自動(dòng)判斷關(guān)系類型為“一對(duì)多”。按照上述方法創(chuàng)建其他關(guān)系。圖 “編輯關(guān)系”對(duì)話框 創(chuàng)建數(shù)據(jù)源在用程序代碼實(shí)現(xiàn)調(diào)用數(shù)據(jù)庫(kù)之前，首先應(yīng)該在Windows的ODBC數(shù)據(jù)庫(kù)管理器中注冊(cè)數(shù)據(jù)庫(kù)Lib，具體步驟如下。(1)選擇“開始”|“程序”|“管理工具”|“數(shù)據(jù)源(ODBC)”命令，打開“ODBC數(shù)據(jù)源管理器”對(duì)話框，選擇“用戶DSN”選項(xiàng)卡，然后單擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對(duì)話框。(2)在“創(chuàng)建新數(shù)據(jù)源”對(duì)話框列表中選擇數(shù)據(jù)源的驅(qū)動(dòng)程序?yàn)镈river do Microsoft Access(*.mdb),然后單擊“完成”按鈕。(3)在顯示的“OBNC Microsoft Access安裝”對(duì)話框中單擊“選擇”按鈕，在出現(xiàn)的“選擇數(shù)據(jù)庫(kù)”對(duì)話框中選擇要定義數(shù)據(jù)源的數(shù)據(jù)庫(kù)Lib。圖 “選擇數(shù)據(jù)庫(kù)”對(duì)話框單擊“確定”按鈕關(guān)閉對(duì)話框，返回“OBNC Microsoft Access安裝”對(duì)話框，然后將數(shù)據(jù)源名稱填寫為L(zhǎng)ib。圖 “OBNC Microsoft Access安裝”對(duì)話框(4)單擊“確定”按鈕此時(shí)可以看到在“OBNC數(shù)據(jù)管理器”對(duì)話框中，用戶“用戶DSN”選項(xiàng)卡中的“用戶數(shù)據(jù)庫(kù)源”列表中多了Lib數(shù)據(jù)庫(kù)。4 圖書借閱系統(tǒng)的實(shí)現(xiàn) 創(chuàng)建工程項(xiàng)目 本設(shè)計(jì)是在Visual Basic ，具體步驟如下。(1)運(yùn)行Visual Basic ，在工程模板中選擇新建“標(biāo)準(zhǔn)EXE”。(2)單擊“打開”按鈕后，在主窗口中會(huì)出現(xiàn)一個(gè)默認(rèn)的窗體Form1。(3)選擇“工程”|“工程1屬性”命令，彈出工程屬性對(duì)話框，在對(duì)話框中將工程命名為L(zhǎng)ibManagement。(4)單擊“確定”按鈕。另外。 添加模塊在Visual Basic ，模塊文件相當(dāng)于用戶的程序庫(kù)，用戶可以使用模塊來(lái)管理工程中的全局常量、變量、自定義函數(shù)和過(guò)程。在窗體中事件代碼中調(diào)用模塊中的公用代碼，可以提供代碼的復(fù)用率，從而大大優(yōu)化了系統(tǒng)結(jié)構(gòu)。在項(xiàng)目資源管理器中項(xiàng)目添加一個(gè)模塊(Module),。Module1模塊的代碼如下：39。定義全局常量Public Const ConnectString As String = DSN=Lib。UID=。PWD=39。初始化系統(tǒng)登錄界面Sub Main() 39。系統(tǒng)開始，首先進(jìn)入登錄界面 Dim fLogin As New FrmLogin vbModal If Not Then 39。 Login Failed so exit app End End If Unload fLogin 39。用戶身份驗(yàn)證成功后，進(jìn)入主界面 End Sub在該模塊中定義了一個(gè)全局常量ConnectString，用于保存連接數(shù)據(jù)源的配置信息。其中，DSN指定為數(shù)據(jù)源Lib，用戶名和密碼(UID和PEW)需要同建立數(shù)據(jù)源時(shí)使用的用戶名和密碼一致，這里設(shè)置為空。另外，還需要重新定義過(guò)程Main，該過(guò)程可以用來(lái)初始化系統(tǒng)登錄界面。在Main中，定義系統(tǒng)運(yùn)行時(shí)，首先進(jìn)入登錄界面FrmLogin,如果登錄成功，則顯示主界面FrmMain。 添加類模塊類模塊相當(dāng)于用戶自定義的對(duì)象庫(kù)，在類模塊中可以編寫自定義的對(duì)象，為對(duì)象定義屬性、事件或者添加方法。通過(guò)使用類模塊，將特定的操作封裝在一起，從而極大的提高了軟件調(diào)試和測(cè)試的效率。 在項(xiàng)目資源管理器中，為項(xiàng)目添加3個(gè)類模塊。 類模塊名稱及功能描述類模塊功能描述DbOperation用來(lái)完成對(duì)數(shù)據(jù)庫(kù)的相關(guān)操作BuildComboList用來(lái)完成對(duì)界面中所使用的列表框的操作BookDate用來(lái)格式化要保存到數(shù)據(jù)表Book中的系統(tǒng)日期1 DbOperation類模塊在該模塊中，首先聲明一個(gè)連接conn和一個(gè)數(shù)據(jù)集對(duì)象rst，代碼如下：39。聲明一個(gè)連接Dim conn As 39。聲明一個(gè)數(shù)據(jù)集對(duì)象Dim rst As 由于系統(tǒng)中的各個(gè)功能模塊都將頻繁對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，首先需要實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的鏈接。定義過(guò)程DB_Connect(),代碼如下：Public Sub DB_Connect() 39。建立連接 Set conn = New ConnectStringEnd Sub 用戶每次訪問(wèn)數(shù)據(jù)庫(kù)，都要調(diào)用DB_Connect()過(guò)程連接數(shù)據(jù)庫(kù)。注意，這里所使用的ConnectString就是模塊Module1中所定義的全局變量，它保存了與數(shù)據(jù)源Lib的連接信息。 在對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作的過(guò)程中，通常需要執(zhí)行查詢(Select)語(yǔ)句對(duì)各種數(shù)據(jù)進(jìn)行查詢。定義函數(shù)querySQL()，代碼如下：Public Function querySQL(ByVal sql As String) As 39。執(zhí)行查詢 Set rst = New Trim$(sql), conn, adOpenKeyset, adLockOptimistic 39。 39。get RecordCount Set querySQL = rstEnd Function 如果要執(zhí)行更新(Update)或刪除(Delete)語(yǔ)句對(duì)數(shù)據(jù)進(jìn)行操作，可定義過(guò)程executeSQL(),代碼如下：Public Sub executeSQL(ByVal sql As String) 39。執(zhí)行sql語(yǔ)句 (sql)End Sub 最后，定義過(guò)程DB_DisConnect()，用戶每次訪問(wèn)數(shù)據(jù)庫(kù)結(jié)束，都要調(diào)用該過(guò)程斷開連接，代碼如下：Public Sub DB_DisConnect() 39。關(guān)閉連接 39。釋放連接 Set conn = NothingEnd Sub2 BuildComboList 在界面設(shè)計(jì)過(guò)程中，經(jīng)常會(huì)使用組合框控件(ComboBox)。例如，在借閱卡登記過(guò)程中，需要填寫學(xué)生所在的年紀(jì)和學(xué)院，可以使用組合框控件，然后將數(shù)據(jù)庫(kù)表Grade和Institute中的信息添加都組合框中去。如何實(shí)現(xiàn)？定義函數(shù)getList(),代碼如下：Public Function getList(ByVal sql As String, Combo As ComboBox) As ComboBox Dim myDbOper As New DbOperation Dim rst As 39。建立連接 Set rst = (sql) If Not Then With rst Do While Not .EOF .Fields(0) .MoveNext Loop End With = 0 End If 39。關(guān)閉連接 Set getList = ComboEnd FunctiongetList()函數(shù)有兩個(gè)參數(shù)。Sql用于指定一條查詢語(yǔ)句，Combo是要使用的Combobox控件，通過(guò)對(duì)參數(shù)sql的操作，將直接影響到Combobox控件得數(shù)據(jù)顯示。當(dāng)在組合框的選項(xiàng)列表中指定了一項(xiàng)后，有時(shí)需要獲得該項(xiàng)在數(shù)據(jù)表中所對(duì)應(yīng)的程序號(hào)。比如，同時(shí)是在借閱卡登