【文章內(nèi)容簡(jiǎn)介】 還書(shū)等）做準(zhǔn)備工作，在這里用戶可以定義不同的讀者類(lèi)型，不同類(lèi)型的讀者具有不同的借書(shū)限制同時(shí)每一類(lèi)圖書(shū)的可借冊(cè)數(shù)不能超過(guò)借書(shū)總數(shù)。讀者借閱圖書(shū)的時(shí)間不能超過(guò)可借天數(shù)； ． 讀者借書(shū) 功能 :自動(dòng)審查讀者的借書(shū)證件是否有效。并為讀者辦理借閱手續(xù)。先進(jìn)行讀者編號(hào)登錄，自動(dòng)顯示出該讀者所借的圖書(shū)，然后在輸入要借圖書(shū)的編號(hào)，按登錄，單擊“借書(shū)”即可。 ．讀者還書(shū) 功能 :自動(dòng)審查讀者的借書(shū)證件是否有效。并為讀者辦理還書(shū)手續(xù)。 利用查閱借書(shū)人的借書(shū)證件還書(shū)（通過(guò)輸 入借書(shū)證號(hào)的方法），或利用借書(shū)人所借書(shū)的條碼號(hào)或書(shū)名的方法。輸入要還圖書(shū)的編號(hào)，會(huì)顯示出該圖書(shū)的借出時(shí)間，還書(shū)時(shí)間，超期會(huì)提醒你等。點(diǎn)擊“還書(shū)”即可。 ．圖書(shū)續(xù)借 功能 :續(xù)借圖書(shū)，當(dāng)有讀者需更多時(shí)間去瀏覽此書(shū) ,可通過(guò)圖書(shū)續(xù)借去使用更長(zhǎng)的時(shí)間。本子系統(tǒng)提供了只要通過(guò)修改借書(shū)日期的方式實(shí)現(xiàn)簡(jiǎn)單的續(xù)借程序。先輸入讀者編號(hào)登錄，自動(dòng)顯示出該讀者所借的圖書(shū)，然后單擊要續(xù)借的圖書(shū)，將時(shí)間該為即可 ．圖書(shū)流通統(tǒng)計(jì) 功能 : 圖書(shū)流通統(tǒng)計(jì)主要是對(duì)借閱圖書(shū)的統(tǒng)計(jì)，借閱情況的統(tǒng)計(jì)對(duì)研究文獻(xiàn)流通數(shù)量方面發(fā)展變 化的程度和規(guī)律具有參考價(jià)值，并能為實(shí)現(xiàn)文獻(xiàn)流通工作的目標(biāo)管理提供了科學(xué)的手段和方法。 ． 查詢(xún) 對(duì)圖書(shū)庫(kù)進(jìn)行查詢(xún)，以便用戶快速知道試卷合訂本的具體信息。 數(shù)據(jù)字典 第一章 圖書(shū)管理系統(tǒng)的分析和設(shè)計(jì) 第 5 頁(yè) 共 40 頁(yè) 名字 :圖書(shū)信息 描述 :描述圖書(shū)館所有已錄入的書(shū)目信息及該書(shū)的庫(kù)存情況 . 定義 :圖書(shū)號(hào) +圖書(shū)名 +圖書(shū)作 者 +出版時(shí)間 +索取號(hào) +價(jià)格 +圖書(shū)條碼。 位置 :事務(wù) 名字 :管理員信息 描述 :描述管理員身份和密碼 . 定義 :管理員 ID+密碼。 位置 :事務(wù) 名字 :圖書(shū)號(hào) 描述 : 此書(shū)在圖書(shū)館中的惟一的標(biāo)識(shí) . 定義 :1{數(shù)字 }8. 位置 : 圖書(shū)信息 借閱信息 名字 :用戶號(hào) 描述 : 此用戶在圖書(shū)館中 的惟一的標(biāo)識(shí) . 定義 :1{數(shù)字 }8. 位置 : 用戶信息 名字 :借閱號(hào) 描述 :用戶在圖書(shū)館中借還書(shū)的惟一的標(biāo)識(shí) . 定義 :1{數(shù)字 }8. 位置 : 借閱信息 名字 :管理員號(hào) 描述 :管理員在圖書(shū)館中 的 惟 一 的 標(biāo)識(shí) . 定義 :1{數(shù)字 }5. 位置 : 管理員信息 名字 :密碼 描述 :用戶和 管理員進(jìn)入管理系統(tǒng)的條件 . 定義 :1{數(shù)字或字符 }8. 位置 : 管理員信息 用戶信息 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 6 頁(yè) 共 40 頁(yè) 第二章 圖書(shū)館管理系統(tǒng)的具體實(shí)現(xiàn) 模塊化的開(kāi)發(fā)環(huán)境的簡(jiǎn)介 VISUAL BASIC 簡(jiǎn)介 VB 簡(jiǎn)介 VISUAL BASIC 是微軟公司出品的一個(gè)快速可視化程序開(kāi)發(fā)工具軟件。借助微軟在操作系統(tǒng)和辦公自動(dòng)化軟件的壟斷地位， VB 在短短的幾年內(nèi)風(fēng)靡全球。 VB是極具特色 和功能強(qiáng)大的軟件，主要表現(xiàn)：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，教易維護(hù)的代碼。同時(shí)眾多的 ACTIVE 控件，提高了軟件的使用效率。 VB 應(yīng)用程序語(yǔ)言的基本特點(diǎn)： 視化界面設(shè)計(jì)： VB 為用戶提供大量的界面元素（在 VB 中稱(chēng)為控件對(duì)象），這些控件對(duì)象對(duì)于熟悉 WINDOWS 應(yīng)用程序的用戶來(lái)說(shuō)是一點(diǎn)也不陌生，如“窗體”，“菜單”，“命令按扭”，“工具按扭”，“檢查框”等等，用戶只要利用鼠標(biāo)、鍵盤(pán)把這些控件對(duì)象拖動(dòng)到合適的位置，設(shè)置其大小、形狀、屬性等，就可以設(shè)計(jì)出所需的應(yīng)用程序 界面。 事件驅(qū)動(dòng)編程 在使用 VB 設(shè)計(jì)應(yīng)用程序是，必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互。例如發(fā)生鼠標(biāo)單擊、鍵盤(pán)輸入等事件是，由用戶編寫(xiě)代碼控制這些事件的響應(yīng)，這就是所謂的事件驅(qū)動(dòng)編程。 與數(shù)據(jù)庫(kù)的連接性 VISUAL BASIC 提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。 VISUAL BASIC 支持不同的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)。開(kāi)發(fā)人員和利用內(nèi)置的高性能數(shù)據(jù)庫(kù)引擎 —— JET 生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用，在開(kāi)發(fā)該圖書(shū)館管理系統(tǒng)時(shí) ,筆者就是使用該種數(shù)據(jù)庫(kù)引擎。 VISUAL BASIC存取數(shù)據(jù)庫(kù)的方式有兩種： 通過(guò)使用的 ODBC 接口。（ ODBC（開(kāi)放數(shù)據(jù)庫(kù)連接）是微軟公司的數(shù)據(jù)庫(kù)連接標(biāo)準(zhǔn)） 通過(guò)使用由 VISUAL BASIC 提供的專(zhuān)用的直接與數(shù)據(jù)庫(kù)相連的接口 第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 7 頁(yè) 共 40 頁(yè) 圖書(shū)館管理系統(tǒng)流通子模塊中用到的數(shù)據(jù)庫(kù)： 數(shù)據(jù)只有用數(shù)據(jù)庫(kù)來(lái)管理才能有自動(dòng)化管理的可能。數(shù)據(jù)的結(jié)構(gòu)將影響整個(gè)管理機(jī)制的應(yīng)用，而且一但建立以后要修改常會(huì)出現(xiàn)麻煩。所以一開(kāi)始就要仔細(xì)慎重地搭建一個(gè)完整而合理的結(jié)構(gòu)。對(duì)于我們用簡(jiǎn)單易操作的 Microsoft Access數(shù)據(jù)庫(kù)是比較適合的。我的范例中的數(shù)據(jù)庫(kù)文件 就是 Access 類(lèi)型的數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)中共有七個(gè)數(shù)據(jù)表“圖書(shū)總表”（對(duì)試卷合訂本總概括，如條形碼號(hào)、編號(hào)、合訂本名稱(chēng)、分類(lèi)等字段）和“圖書(shū)分表”（對(duì)試卷合訂本里邊的內(nèi)容的簡(jiǎn)單介紹，如編號(hào)，試卷代碼、試卷名稱(chēng)、頁(yè)號(hào)等字段）、“讀者“（存儲(chǔ)讀者的一些基本信息，如姓名、學(xué)生證號(hào)，班級(jí)等一些字段）、”借書(shū)流水表“、”還書(shū)流水表“、”借書(shū)歷史表“，讀者在借閱過(guò)程中管理員要對(duì)這三個(gè)表進(jìn)行修改。還有就是管理員的登錄時(shí)用到的”密碼“表。（如圖下圖）。 (a) 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 8 頁(yè) 共 40 頁(yè) (b) (c) (d) 第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 9 頁(yè) 共 40 頁(yè) (e) 圖 21 系統(tǒng)模塊的具體實(shí)現(xiàn) 在本系統(tǒng)中有四個(gè)子模塊組成。它們分別是登錄小模塊、借閱小模塊、流通統(tǒng)計(jì)小模塊和查詢(xún)小模塊、下面就開(kāi)發(fā)這幾個(gè)模塊的過(guò)程及所遇到的問(wèn)題分別加以介紹。 該模塊主要完成新書(shū)的錄入、查詢(xún)、統(tǒng)計(jì)及借閱功能。在此模塊中定義了四個(gè)主要窗口：借閱窗口、新書(shū)錄入窗口和條件查詢(xún)窗口，流通統(tǒng)計(jì)窗口。 當(dāng)你第一次啟動(dòng)本圖書(shū)館信息管理系統(tǒng)時(shí)，系統(tǒng)將出現(xiàn)如圖所示界面，用戶只要選擇自己的用戶名稱(chēng)，同時(shí)輸入相對(duì)應(yīng)的密碼按 [確定 ]即可以進(jìn)入圖書(shū)館信息管理系統(tǒng)的主控界面，此時(shí)你作為超級(jí)用戶對(duì)整個(gè)系統(tǒng)具有控制權(quán)，你首 先應(yīng)該做的就是更改密碼。 登錄子模塊有“用戶名稱(chēng)“，”用戶口令“，”當(dāng)前日期“等字段。用戶還可以在管理員小模塊對(duì)用戶進(jìn)行增加、修改、刪除等功能。 登錄子模塊的界面： 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 10 頁(yè) 共 40 頁(yè) 圖 22 查詢(xún)子模塊主要對(duì)“圖書(shū)總表“和”圖書(shū)分表“兩個(gè)數(shù)據(jù)庫(kù)進(jìn)行查詢(xún)，根據(jù)兩個(gè)數(shù)據(jù)庫(kù)中的編號(hào)相同進(jìn)行查詢(xún)來(lái)得到結(jié)果，組合查詢(xún)提供所有可檢索字段（包括條形碼號(hào)、編號(hào)、類(lèi)別、合訂本名稱(chēng)、試卷代號(hào)、試卷名稱(chēng)、頁(yè)碼、第幾冊(cè)等）的任意組合條件檢索，功能強(qiáng)大，能保證一定的查準(zhǔn)、查全率；同時(shí)提供你”并且“和”或者“兩種查詢(xún)方式。 查詢(xún)子模塊界面： 圖 23 新書(shū)錄入窗口中顯示的是員工必要信息?？晒┯脩粼黾?、修改、刪除、查詢(xún)第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 11 頁(yè) 共 40 頁(yè) 等功能。 向數(shù)據(jù)庫(kù)中添加新的記錄、刪除不需要的記錄、修改錯(cuò)誤的記錄、對(duì)數(shù)據(jù)庫(kù)中的信息進(jìn)行查詢(xún)。當(dāng)用戶想修改某條記錄時(shí)，只要雙擊 MSFLEGRID 控件中您要修改的記錄，就會(huì)自動(dòng)彈出詳細(xì)信息窗體，該窗體已經(jīng)顯示了你要得信息，你就可以對(duì)其該條記錄進(jìn)行修改了。 本系統(tǒng)的一大特點(diǎn)可以直接在 MSFLEGRID 中進(jìn)行數(shù)據(jù)修改，只要雙擊 MSFLEGRID，他就會(huì)出現(xiàn) TEXT 文本框， COMBOL 下拉列表框形式然后再其中輸入數(shù)據(jù)，按 ENTER 鍵即可 完成修改，并保存在數(shù)據(jù)庫(kù)中。同時(shí)可以向“圖書(shū)總表“和”圖書(shū)分表“數(shù)據(jù)庫(kù)增加數(shù)據(jù)。 新書(shū)錄入的界面： 圖 24 該模塊主要根據(jù)圖書(shū)流通情況進(jìn)行統(tǒng)計(jì)，同時(shí)可以根據(jù)試卷合訂本的登記時(shí)間段對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行統(tǒng)計(jì)，然后按“圖書(shū)總表“中”統(tǒng)計(jì)“字段對(duì)統(tǒng)計(jì)結(jié)果進(jìn)行排序，同時(shí)還可以根據(jù)”選擇“ FRAME 框的 OPTION 控件選擇一種關(guān)系，然后在 TEXT 框中輸入數(shù)字，按”顯示“按鈕， MSFLEGRID 中”統(tǒng)計(jì)“字段的蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 12 頁(yè) 共 40 頁(yè) 滿足該關(guān)系的數(shù)據(jù)顯示為紅色，以便用戶容易瀏覽。 流通統(tǒng)計(jì)子模塊： 圖 25 該模塊主要完成讀者借閱 功能，也是最重要的一項(xiàng)功能，圖書(shū)館管理員可以根據(jù)讀者的借書(shū) 證號(hào)來(lái)完成借閱功能，同時(shí)根據(jù)條形碼號(hào)進(jìn)行還書(shū)，管理員輸入讀者借書(shū)證號(hào)，按登錄按鈕后，讀者上次的借閱情況就會(huì)在 MSFLEGRID 中顯示出來(lái)，以便管理員能核對(duì)一下，以免出錯(cuò)，假如你已經(jīng)超過(guò)最大的借閱量，系統(tǒng)還會(huì)自動(dòng)提醒管理員該讀者已經(jīng)不能繼續(xù)借書(shū)了。同時(shí)還可以進(jìn)行簡(jiǎn)單的續(xù)借功能，只要單擊 MSFLEGRID 中想要續(xù)借的記錄項(xiàng)，按“保存“按鈕即可更改借書(shū)日期。在借書(shū)在個(gè)界面中，只要你輸入借書(shū)證號(hào)，按“登錄”按鈕，其他文本框中的信息就會(huì)自動(dòng)彈出，同時(shí)輸入條形 碼號(hào)，按“借書(shū)”即可完成借書(shū)功能。在還書(shū)界面中只要輸入條形碼號(hào)，按“還書(shū)”按鈕就可完成還書(shū)功能。當(dāng)你借書(shū)超期時(shí)，系統(tǒng)自動(dòng)彈出對(duì)話框提醒用戶超期。 第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 13 頁(yè) 共 40 頁(yè) 借閱子模塊的界面： 圖 26 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 14 頁(yè) 共 40 頁(yè) 圖 27 利用 DATA 控件訪問(wèn)數(shù)據(jù)庫(kù) 該軟件是利用 ACCESS 數(shù)據(jù)庫(kù)，操作方便，簡(jiǎn)單。在 ACCESS 數(shù)據(jù)庫(kù)中不需要?jiǎng)?chuàng)建數(shù)據(jù)連接，因?yàn)樗?VB 中默認(rèn)的數(shù)據(jù)庫(kù)形式。 以歸納為以下幾步： 1．創(chuàng)建數(shù)據(jù)庫(kù)源名（ DATABASE） 2．創(chuàng)建數(shù)據(jù)對(duì)象 3．操作數(shù)據(jù)庫(kù) 第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 15 頁(yè) 共 40 頁(yè) 4．關(guān)閉數(shù)據(jù)對(duì)象和鏈接 每一步的作法如下： 源名 先進(jìn)行定義： DIM DB AS DATABASE Set db = OpenDatabase(e:\圖書(shū)館管理系統(tǒng) \) 也可以直接在 DATA 控件的屬性中的 DATABASENAME 直接進(jìn)行連接。 (Record Set) ADO 中的數(shù)據(jù)對(duì)象通常保存的是查詢(xún)結(jié)果。 Record Set 是 ADO 中最復(fù)雜的對(duì)象，有許多屬性和方法。 Record Set 保存的是一行行的記錄，并標(biāo)有一個(gè)當(dāng)前記錄。以下是創(chuàng)建方法： 可 以 直 接利 用 DATA 控 件 直接 綁定 ， 在 DATA 控 件 的屬 性中 的RECORDSOURCE 對(duì)數(shù)據(jù)表進(jìn)行連接。 Set Record Set=(sqtStr) 這條語(yǔ)句創(chuàng)建并打開(kāi)了對(duì)象 Record Set，其中 db 是先前創(chuàng)建的鏈接對(duì)象，sqtStr 是一個(gè)字串，代表一條標(biāo)準(zhǔn)的 SQL 語(yǔ)句。例如： sqlStr=“ SELECT * FROM tab1” Set Record Set=(sqtStr) 這條語(yǔ)句執(zhí)行后，對(duì)象 Record Set 中就保存了表 tab1 中的所有記錄。 我們通過(guò)調(diào)用鏈接 對(duì)象的 openrecordset 方法來(lái)將查詢(xún)結(jié)果返回給一個(gè)數(shù)據(jù)對(duì)象或進(jìn)行插入、刪除等操作。例如： 修改： sql1 = select * from 圖書(shū)總表 where 條形碼號(hào) =39。 amp。 Text3(3).Text amp。 39。 If sql1 Then Set rec = (sql1) (8).Value = CDate() 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 16 頁(yè) 共 40 頁(yè) (5).Value = CBool(a) (6).Value = Text3(8).Text End If 刪除： 1 Dim s As Integer s = MsgBox(確定刪除這組記錄嗎 ?刪除后將不能恢復(fù)數(shù)據(jù) !, vbYesNo + vbQuestion, 刪除確定 ) If s = 6 Then 增加： Set rs = (借書(shū)流水表 ) a = False (0).Value = Trim(Text1(0).Text) (1).Value = Trim(Text1(1).Text) 在使用了 ADO 對(duì)象之后要關(guān)閉它，因?yàn)樗褂昧艘欢ǖ姆?wù)器資源。通過(guò)調(diào)用方法 close 實(shí)現(xiàn)關(guān)閉，然后再釋放它。 Record Set Record Set=Nothing /關(guān)閉創(chuàng)建的數(shù)據(jù)對(duì)象 第二章 圖書(shū)管理系統(tǒng)的具體實(shí)現(xiàn) 第 17 頁(yè) 共 40 頁(yè) Set mConn=Nothing /關(guān)閉創(chuàng)建的鏈接對(duì)象 ．顯示數(shù)據(jù)庫(kù)中的內(nèi)容