1、【摘要】本課題針對當前我國圖書借閱管理多數采用人工管理的現狀以及即使采用了計算機圖書管理系統卻不能完全滿足本單位圖書管理的需要的實際情況出發，對圖書管理業務經過詳細的系統調查，開發出的操作簡單而且方便實用的一個圖書借閱管理系統，以適應新時代發展的需要。本系統使用VisualBasic6.0開發工具，主要使用SQL語句，結合Access數據庫、VB的DAO據訪問對象，DATA控件和ADO$件來實現數據庫的操作。圖書借閱管理系統主要對圖書管理日常工作中遇到的實際問題，例如書籍信息、讀者信息、借閱信息、能夠實現以下任務：用戶分級權限操作、借還圖書操作、書庫維護操作等。本系統經過測試，運行穩定，可投入

2、使用。【關鍵詞】圖書；Visualbasic6.0;ACCESS讀者；借閱44刖百隨著計算機技術的不斷發展，計算機作為知識經濟時代的產物，已被廣泛應用于社會各個行業和領域。目前，我國的科技水平高速發展，計算機作為今天使用最廣的現代化工具已深入到各個領域，并且正在成為未來社會一一信息社會的重要支柱。在這樣的大背景下，現代圖書館的管理方式，資源建設等方面都發生了重大變化，這種變化表現在圖書館工作，管理和服務平臺發生的變化，圖書館不再是傳統的手工操作，人工管理，而是全面實行計算機管理。圖書館的正常運營中總是面對大量的讀者信息，圖書信息以及兩者相互作用產生的借書信息，因此要對讀者資源，圖書資源，借書信

3、息進行管理。本系統的開發就是在于提高圖書管理的工作效率，加強圖書館的管理，全面實行計算機管理。第一章圖書借閱管理系統概述1.1 圖書借閱管理系統簡介1、圖書借閱管理系統的發展歷史圖書借閱管理系統的發展歷史可以追溯到20世紀60年代末期。由于當時計算機技術已經進入實用階段，同時大型圖書館用手工來查找圖書信息或統計借閱信息既費時費力又非常容易出差錯，為了解決這個矛盾，第一代的圖書借閱管理系統應運而生。當時由于技術條件和需求的限制，用戶非常少，它的出現為圖書借閱的管理展示了美好的前景，即用計算機的高速度和自動化來代替手工的巨大工作量，用計算機的高準確性來避免手工的錯誤和誤差。第二代的圖書借閱管理系統

4、出現于20世紀70年代末。由于計算機技術的飛速發展，無論是計算機的普及性，還是計算機系統工具和數據庫技術的發展，都為圖書借閱管理系統的階段發展提供了可能。但未能系統地考慮圖書借閱的需求和理念。圖書借閱管理系統的革命性變革出現在20世紀90年代末。隨著信息爆炸、知識經濟時代的到來，使個人、單位、社會對圖書借閱管理系統有了更高的需求；同時由于個人電腦的普及，數據庫技術、客戶/服務器技術，特別是Internet/Intranet技術的發展，使得第三代圖書借閱管理系統的出現成為必然。第三代圖書借閱管理系統的特點是從圖書借閱管理的角度出發，用集中的數據庫處理幾乎所有與圖書借閱相關的數據。友好的用戶界面，

5、強有力的報表生成工具、分析工具和信息的共享使得圖書借閱管理人員得以擺脫繁重的日常工作，集中精力從戰略的角度來考慮圖書借閱規劃和政策。1.2 圖書借閱管理相關軟件簡介隨著計算機的發展及網絡技術的應用，當今社會正快速向信息化社會前進，信息自動化的作用也越來越大。而在日常生活中信息技術的不斷融入，在技術越來越先進的同時，應該從以前繁瑣的事務中解放出來，來提高我們的工作效率。目前在大的圖書館已經有一整套比較完整的信息管理系統，而在一般小型的圖書館中大部分工作還是進行著手工管理，工作效率很低，并且不能及時了解圖書館各類圖書的存庫，讀者比較需求的圖書難以在短時間找到、圖書的入庫和更新比較麻煩等等，不便于動

6、態及時調整圖書結構。同時由于不可避免的人為因素，造成數據的遺漏、誤報等。為了更好的適應當前讀者的借閱需求，緩解手工管理存在的各種弊端，我們開發了圖書館查詢管理系統，圖書查詢管理系統向用戶提供的服務將傳統的“采一一編一一借一一查”基礎上，進一步提供全方位的信息服務。具有以下幾個特點：可以存儲所有館中圖書的資料以及借閱人員的情況，具有安全，高效的特性。只需一至二名檔案錄入人員即可操作系統，節省大量人力。可以迅速查到所需信息。用戶的需求可分為如下4個方面：第一是圖書館人員通過計算機來管理各種圖書、編號、增加圖書庫存、適應讀者的需求；第二是讀者能通過計算機來查詢瀏覽圖書館中的圖書，來確定自己需要的書籍

7、，為借閱做好準備；第三是管理員可以對管理者和操作員及讀者進行增刪改；第四是工作人員對讀者的借書情況能做好全面掌握，對圖書的借閱進行管理。在軟硬件方面對系統的需求，軟件要求易學，容易掌握，可以很方便地管理各種圖書信息。硬件的配置要求不能太高，這樣可以很好的適應當前的學校圖書館。在開發過程中，采用了SQLServer2000網絡數據庫，使得本系統可以方便的和其他子系統進行數據交換。同時，注意從軟件的圖形應用界面上優化軟件質量，使得本系統具有較強的可操作性。總之，圖書管理系統旨在提供一個可以操作的，查詢的，易于修改的輔助管理系統。同時提供了系統智能輔助與用戶自主選擇的兩種方式，提高查詢效率。第二章圖

8、書借閱管理系統分析2.1 系統初步調查我所在的學校，在三年的時間里，我經常光顧我校圖書館借閱圖書，發現我校圖書館的借閱操作仍使用手工管理。在本系統被批準立項之后，我實地去我校圖書館進行了參觀和學習，現對該單位圖書館的整體情況進行調研，調研分兩步進行，一是初步調研，二是詳細調研。由于該圖書館職工人數較少，因此在調研時采用了會議討論法和個人訪談法兩種方法，通過會議討論法了解圖書館的整體情況，對開發新系統的態度等。通過個人訪談法了解各個部門的主要職能及具體運作方式、過程等。對該圖書館進行初步調研的具體內容為：（1）圖書館的規模：現藏書冊數、種類；（2）圖書館的主要業務；（3）圖書館中的幾個部門；（4

9、）圖書館職工情況；（5）職工受教育程度；（6）主要購書單位；（7）圖書編碼方式；（8）現在多少讀者在此借書；（9）讀者借書憑證；（10）讀者分類；（11）圖書館的上級領導；（12）對開發新系統的態度；（13）開發新系統所需的時間（規定多長時間開發完成）。2.2 現行業務描述我校圖書館現在藏書七十余萬冊，分為社會、人文、哲學、數理、工具、期刊等六大類，圖書館的主要業務是對圖書進行入庫、出庫管理、借閱管理、讀者管理等，圖書館分為采購處、辦公室、借閱室、閱覽室、工具書期刊室，職工相應地分為圖書采購小組、書籍維護小組、借閱室工作人員、閱覽室工作人員。圖書編碼采用國家標準進行編碼，如類別+小類+序號的方

10、式。現有7000多人借閱，讀者分為教職員工和學生，圖書館的上級領導是總務處，又開發新系統持支持態度，開發本系統約需2個月時間。2.3 系統詳細調查及安全性絕大多數管理人員已經認識到采用圖書借閱管理系統的必要性，紛紛開發或選購適合本企業特點的圖書借閱管理系統。圖書借閱管理系統具體以下優點：1、采用圖書借閱管理系統，可以用集中的數據庫將與圖書借閱管理相關的信息全面、有機地聯系起來，有效地減少了信息更新和查找中的重復勞動，保證了信息的相容性，從而大大地提高了工作效率。2、圖書借閱管理系統有著易訪問、易查詢的信息庫。在沒有采用和實施圖書借閱管理系統之前，當管理人員要統計數字時，往往依賴于某個人或某些人

11、來獲取。這種依賴于人的過程往往會因為花費的時間較長或某個人不在辦公室而不能及時完成。在采用和實施圖書借閱管理系統之后，就會將依賴于人的過程改為依賴于計算機系統的過程。管理人員只要獲取了相應的權限，就可以隨時進入系統，直接查閱相應的信息。實施了圖書借閱管理系統之后，不僅可以得到較為全面的、詳細的、未經過過濾的第一手圖書借閱信息，還可以從這些信息中得到某些有用的決策信息及靈感和啟發，從而改進圖書館的管理及經營效率，避免或減少經營風險。第三章新系統邏輯方案3.1數據流圖圖3.1系統的數據流圖3.2數據字典圖書管理系統數據流圖中，數據信息和處理過程需要通過數據字典才能描述清楚。在定義的圖書管理系統數據

12、字典中，主要對數據流圖中的數據項、數據流、數據存儲和處理過程進行說明。（1） 數據項描述1 ）數據項名稱：借書證號含義說明：惟一標識一個借書證類型：字符型長度：50邏輯關系：不允許為空2 ）數據項名稱：用戶名含義說明：讀者的名稱類型：字符型長度：20邏輯關系：不允許為空3 ）數據項名稱：密碼含義說明：對用戶名和操作員管理員進行加密類型；字符型長度：10邏輯關系：允許為空4 ）數據項名稱：性別類型：字符型長度：10邏輯關系：允許為空5 ）數據項名稱：所在系別類型；字符型長度：10邏輯關系：允許為空6 ）數據項名稱：所在班級類型：字符型長度：10邏輯關系：允許為空7 ）數據項名稱：操作員名稱類型：

13、字符型長度：30邏輯關系：不允許為空8 ）數據項名稱：操作員簡稱含義說明：惟一標識一個操作員類型：字符型長度：10邏輯關系：不允許為空9 ）數據項名稱：操作員級別含義說明：對操作員和管理員進行區分類型：字符型長度：10邏輯關系：不允許為空10 ）數據項名稱：圖書編號含義說明：惟一標識一個圖書類型：字符型長度：10邏輯關系：不允許為空11 ）數據項名稱：圖書名稱類型：字符型長度：50邏輯關系：不允許為空12 ）數據項名稱：作者類型：字符型長度：50邏輯關系：不允許為空13 ）數據項名稱：作者類型：字符型長度：50邏輯關系：不允許為空14 ）數據項名稱：作者類型：字符型長度：50邏輯關系：不允許為

14、空15 ）數據項名稱：出版社類型：字符型長度：50邏輯關系：不允許為空16 ）數據項名稱：出版時間類型：日期時間型長度：8邏輯關系：不允許為空17 ）數據項名稱：價格類型：整型長度：4邏輯關系：不允許為空18 ）數據項名稱：備注類型：字符型長度：200邏輯關系：允許為空19 ）數據項名稱：借書日期類型：日期時間長度：8邏輯關系：不允許為空20 ）數據項名稱：還書日期類型：日期時間長度：8邏輯關系：不允許為空（2）數據結構描述1 ）數據流名稱：用戶情況含義說明：定義了一個讀者的有關信息組成結構：用戶情況=用戶名+借書證號+密碼M生別+所在系別+所在班級2 ）數據流名稱：操作員情況含義說明：定義了

15、一個操作員的有關信息組成結構：操作員情況=操作員名稱+操作員簡稱+操作員級別+操作員密碼3）數據流名稱：圖書情況含義說明：定義了一個圖書的有關信息組成結構：圖書情況=圖書編號+圖書名稱+乍者+出版社+出版時間+價格+備注（3） 數據流（非數據項）說明1 ）數據流名稱：借書單含義：讀者借書時要填寫的單據來源：讀者去向：審核借書數據流量：250份/天組成：借書單=借書證號+圖書編號+借書日期2 ）數據流名稱：還書單含義：讀者還書時要填寫的單據來源：讀者去向：審核還書數據流量：250份/天組成：還書單=圖書編號+還書日期（4） 數據存儲說明1） 數據存儲名稱：圖書數據表含義說明：存放圖書的有關信息組

16、成結構：圖書編號+圖書名稱+作者+出版社+出版時間+價格+備注說明；書號具有惟一性和非空性2）數據存儲名稱：用戶信息表含義說明：存放讀者的注冊信息組成結構：用戶名+借書證號+密碼+性別+所在系別+所在班級說明：證號具有惟一性和非空性，性別只能是男和女3）數據存儲名稱：借書記錄含義說明：存放讀者的借書，還書信息組成結構：借書證號+圖書編號+借書日期+還書日期說明：要求能夠立即查詢（5） 處理過程說明1 ）處理過程名稱：圖書管理輸入：圖書情況，輸出：圖書記錄處理說明：對館內所有圖書按圖書編號進行管理，將圖書數據數據化，存儲圖書數據表中。2 ）處理過程名稱：讀者管理輸入：讀者情況，輸出：讀者記錄處理

17、說明：建立讀者信息表，對讀者進行統一編號，實現讀者記錄表的增刪改維護功能。3 ）處理過程名稱：查看數目輸入：借書請求，讀者，輸出：借書記錄，圖書信息處理說明：實現根據圖書編號等查詢圖書。4 ）處理過程名稱：借書處理輸入：圖書情況，讀者，借書記錄輸出：借書記錄處理說明：確認讀者符合借書條件，辦理借書手續。5 ）處理過程名稱：還書處理輸入：圖書情況，輸出：借書記錄處理說明：對照相應的圖書編號可辦理還書手續。6 ）處理過程名稱：安全管理輸入：操作員情況，用戶情況輸出：操作員級別，操作員記錄，用戶記錄處理說明：通過用戶名和口令，確認用戶身份，保證系統的安全型。第四章系統詳細設計4.1 圖書借閱管理系統

18、模塊設計舉例在進行系統的詳細設計時，我們先進行了系統的總體設計流程圖，如圖4-1所示，然后是子系統的流程圖，如圖4-2及4-3所示4-2子系統借書流程圖用戶登陸還書日期超期提示還書q查看所借圖書4-3子系統還書流程圖4.2 數據庫設計4.2.1 數據表的設計用戶表的設計如表4-1所示表4-1用戶表字段名是否主鍵字段類型字段大小是否為空用戶名username否char20否借書證號cid是number11否regTime否datetime100否密碼password否varchar220否性別sex否char2是所在系別department否varchar210是所在班級class否varcha

19、r210是操作員信息表的設計如表4-2所示表4-2操作員信息表字段名是否主鍵字段類型字段大小是否為空操作員名稱一否Char30否操作員簡稱是Char10否操作員級別1否Char10否操作員密碼否char30否圖書數據表的設計如表4-3所示表4-3圖書數據表字段名是否主鍵字段類型字段大小是否為空圖書編號是char10否圖書名稱否Char50否作者否Char50否出版社否Char50否出版時間否Datetime8否分類否Varchar220否備注否char200是借閱圖書信息的設計如表4-4所示表4-4借閱圖書信息字段名是否主鍵字段類型字段大小是否為空借書證號二是number20否圖書編P是num

20、ber20否借書日期1否Datetime8是還書日期否Datetime8是4.2.2 本系統中所涉及到的主要實體圖系統E-R圖設計E-R模型的“聯系”用于刻畫實體之間的關聯。一種完整的方式是對局部結構中任意兩個實體類型，依據需求分析的結果，考察局部結構中任意兩個實體類型之間是否存在聯系。若有聯系，進一步確定是1:N,M:N,還是1:1等。還要考察一個實體類型內部是否存在聯系，兩個實體類型之間是否存在聯系，多個實體類型之間是否存在聯系，等等。根據上面的設計可以規劃出的實體有：讀者實體、操作員實體、圖書實體和借書信息實體。系統分E-R圖設計系統分E-R圖設計如下各圖所示圖4-1-3圖書實體結束信息

21、實體編二圖4-1-4ui書日期二借書實體4.2.3 本系統的實體一聯系（E-R）圖圖4-2系統總E-R圖設計4.2.4 系統的模塊設計a.圖書管理員管理模塊設計(1)當管理員登錄后出現如圖4-4所示的界面，用戶單擊系統菜單里的“基本信息管理”出現的界面如圖4-5所示在“基本信息管理”窗口主要實現的如下功能I添加圖書分類管理。A:界面上出現圖書分類。分為：金融類，社會學類，文學類等B:當你想要添加，修改，刪除時，可點下面的按鈕。C:在A,B都完成時，可點返回按鈕退出程序。 修改圖書分類信息。當要修改某個內容時，只需直接在上面修改即可實現數據庫的修改。 刪除圖書信息。當在操作員名稱中輸入所要刪除的

22、圖書名稱時，點擊刪除按鈕時，出現“確實要刪除當期圖書信息嗎？”的對話框。點擊OK時，即出現”該記錄已刪除“的對話框。 調出所有圖書信息時。即可把所有的圖書的信息調出來。 查詢圖書信息：在所有的查詢條件都填寫完后，點擊查詢按鈕時即可查到所要的信息，否則出現“請輸入查詢信息，不能為空的對話框。登入界面：圖4.4系統的主界面圖書借閱模塊設計(1)。當用戶當擊系統菜單的“圖書借閱管理”時出現的界面如圖4-5所示。“圖書借閱管理”窗口主要實現如下功能：圖書編號圖書名稱姓名借閱數量借閱編號借閱證編號借閱日期4-5圖書借閱管理的界面(2)在本窗體中設置的主要屬性如表所示對象屬性屬性名對象屬性屬性名Butto

23、nlCaption借閱Label2Caption圖書編號Button2Caption歸還Label3Caption圖書名稱Button3Caption圖書催還Label4Caption借閱數量Button4Caption返回Label5Caption借閱證編號LabellCaption圖書借閱Label6Caption借閱編號Label7Caption姓名Label8Caption借閱日期.系統用戶管理模塊設計(1)用戶管理的界面如圖4-8所示，修改密碼的界面如圖4-9所示。系統用戶管理主要完成如下功能：添加用戶刪除用戶修改用戶返回用戶名密碼確認密碼確定取消圖4-8用戶管理的界面圖4-9編輯用

24、戶信息界面(2)在本窗體中設置的主要屬性如表所示對象屬性屬性值對象屬性屬性值Buttonlcaption添加用戶Edit4TextButton2caption修改用戶Label1caption用戶列表Button3caption刪除用戶Label2caption用戶信息Button4caption返回Label3caption用戶名Button5caption確定Label4caption用戶類型Button6caption取消Label5caption用戶名EditlTextLabel6caption密碼Edit2TextLabel7caption確認密碼Edit3Text4.3 計算機系統

25、的配置方案A.系統的總體框架系統功能模塊框圖B.系統功能分析本系統主要由幾個模塊構成分別為登陸模塊，圖書查詢模塊，圖書館管理員模塊，圖書管理模塊和工作人員-圖書借閱/歸還模塊等。其中本人所做的功能包括：1）圖書館管理員模塊：瀏覽操作員信息，添加操作員信息，修改操作員信息，刪除和查詢操作員信息等。瀏覽用戶信息，添加用戶信息，修改用戶信息，刪除和查詢用戶信息等。2）圖書管理模塊：新圖書信息入庫，整理圖書庫（包括添加，修改和刪除圖書信息）。3）工作人員-圖書借閱/歸還模塊：操作員操作借閱，歸還及超期提示等功能。第五章系統的測試5.1 軟件功能測試軟件測試是一個長期的過程，只要軟件還在使用中，測試工作

26、就一直存在。軟件的測試從編碼就開始了，并貫穿著軟件的始終。1 .模塊測試在設計好的軟件系統中，每個模塊都應當完成一個清晰定義的子功能而且這個功能和同級其他模塊的功能之間沒有相互依賴的關系。因此，有可能把每個模塊作為一個單獨的實體來測試而且通常比較容易設計檢驗模塊正確性的測試方案。模塊測試的目的是保證每個模塊作為一個單元能正確運行，所以模塊測試通常又稱為單元測試。在這個測試步驟中所發現的往往是編碼和詳細實際的錯誤和異常。2 .子系統測試了系統測試是把經過單元測試的模塊放在一起形成一個子系統來測試。模塊相互間的協調和通信是這個測試過程的主要問題，因此這個步驟著重測試模塊的接口。3 .系統測試系統測

27、試是把經過測試的子系統裝配成一個系統來調試。在這個過程中不僅應該發現實際和編碼的錯誤，還應該驗證系統能否提供需求說明中指定的功能，而且系統的動態特性也應該符合預定的要求。在這個測試步驟中發現的往往是軟件設計中的錯誤，也有可能發現的是需求說明中的錯誤。測試工作可以說是整個編程過程中最復雜、最費事的一個過程，但這一過程不是獨立的，合理的系統設計以及好的文檔的設計都是提高測試效率的重要方面，將使我們的測試工作事半功倍。這樣的教訓在日后的軟件開發工作中都大有益處。ODBC此次設計好的程序在本機上可以正常運行，但拿到其他機器上編碼調試后就無法運行，運行失敗的原因主要是由于沒能機器上安裝配置數據庫而引起的

28、。只要將數據庫添加到數據源管理器（中，經測試，本系統的各項功能模塊運行良好，基本達到了設計要求。第六章結論6.1 系統開發遇到的問題在系統的開發時，遇到了很多問題，比如在建數據庫時，不但要符合實驗的要求還要與同組人的相聯系起來，因此在編寫數據庫時進行了多次的修改。在更換電腦進行數據庫連接時也常犯些小錯誤，如忘記填寫服務器名稱或則是個錯誤的服務器名稱導致在連接測試時老是報錯。還有在進行界面設計時，只是按照參考書上的進行設計，最后導致編程的時候很難和數據庫表的記錄符合上，于是拋開了所有的參考書，自己根據數據庫的內容設計了界面，獨立的編程。雖然有點過于簡單。6.2 總結本系統是一個校園圖書管理系統，

29、具有一定實用性的數據庫信息管理系統。它只要完成了對圖書的分類，圖書進步信息管理，圖書入庫管理，圖書盤點管理，節約證件類型管理，借閱證件管理，圖書借閱，用戶管理。本系統采用當前流行的VB來完成整個系統的設計，在數據庫的設計上利用了SQLServer的便利性和實用性。本系統具有一定的實用功能。在查詢方面，系統實現了多條件任意字段的模糊查詢，系統可以自動識別用戶不同的輸入。在圖書入庫、借出和歸還三者之間建立了良好的鏈接關系，某一部分地修改均會自動引發系統對與其相關的部分進行連鎖修改。在用戶管理方面，系統較好地實現了辦理借書卡，以及用戶密碼修改等各項功能。總之，關于本次設計的命題，我的設計只能提供其基

30、本的功能。還有許多的設想由于時間和自身和因素無法得以實現，這不能不說是本次設計的遺憾之處。不過，至少它已經啟發了自己的思維，提高了我的動手能力，這是我在課本中學不到的。它為我們在以后的學習上發揮自己的才能奠定了堅實的基礎。參考文獻:1 黃明，梁旭，石興民等編著.VisualBasic課程設計電子工業出版社，20062 李春葆，張植民等編著.VisualBasic6.0數據庫系統設計與開發清華大學出版社，20033 黃明，梁旭等編著.VisualBasic6.0信息系統設計與開發實例機械工業出版社，20054 唐邦民，郭瑞軍等編著.VisualBasic數據庫開發實例精粹電子工業出版社，2005

31、5 蔡敏，汪杰等編著.VisualBasic6.0數據庫開發工程案例人民郵電出版社，2007致謝感謝我們的老師張老師，他的嚴謹細致、一絲不茍的作風一直是我在學習和生活種的榜樣。你的循循善誘的教導和不拘一格的思路給予我無盡的啟迪。感謝我們的陶老師，這篇論文的每個實驗細節和每個數據，都離不開您的悉心教導。而您開朗的性格和寬容的態度，幫助我很快的融入到了這個新的實驗中。還要感謝和我一起做這個實驗的三個朋友們，謝謝你們一直陪在身邊，我們一起努力完成這個實驗，當結果演示出來的時候，我們都很高興。在論文即將完成的時候，我的心情無法平靜。從開始進入課題到論文的順利完成，有多少可敬的師長、同學、朋友給了我無言

32、的幫助，在這里請接收我誠摯的謝意。最后，還要感謝培養我長大含辛茹苦的父母，謝謝你們！附錄程序代碼：圖書借閱管理：PublicSchCndAsStringPrivateSubCmd_Add_Click()初始化FrmBorrowEdit信息設置借閱編號為當前編號最大值+1DimJYNoAsString取表中的最大借閱編號JYNo=00+Trim(Str(Val(MyBorrow.GetMaxNo()+1)FrmBorrowEdit.txtBorrowNo=JY+JYNoFrmBorrowEdit.txtBorrowDate=DateFrmBorrowEdit.txtReturnDate=FrmB

33、orrowEdit.txtBCount=0FrmBorrowEdit.txtCardNo=FrmBorrowEdit.txtName=FrmBorrowEdit.txtCardType=FrmBorrowEdit.txtMaxCount=0FrmBorrowEdit.txtMaxDays=0FrmBorrowEdit.txtBookNo=FrmBorrowEdit.txtBookName=FrmBorrowEdit.txtBookType=FrmBorrowEdit.txtLCount=0FrmBorrowEdit.txtTotal=0設置添加圖書按鈕不能用FrmBorrowEdit.Cmd_

34、Add.Enabled=FalseFrmBorrowEdit.Cmd_Del=FalseFrmBorrowEdit.Cmd_Ok.Enabled=False設置圖書信息不能用FrmBorrowEdit.Frame2.Enabled=False啟動編輯窗體FrmBorrowEdit.Show1刷新DataGrid表格的內容GridRefreshEndSub單擊“返回”按鈕PrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Push_Click()列出離應歸還日期小于等于5天的圖書FrmPush.Show1EndSubPrivateSubCm

35、d_Return_Click()歸還調用FrmReturnEdit窗體，需要輸入借閱證號，提取該證借閱信息FrmReturnEdit.Show1GridRefreshEndSubPrivateSubComboFlag_click()GridRefreshEndSub啟動窗體PrivateSubForm_Load()設置借閱狀態為借閱ComboFlag.ListIndex=0刷新DataGrid表格的內容GridRefreshEndSubPrivateSubGridRefresh。IfComboFlag.ListIndex0ThenSchCnd=ANDl.Status=+Trim(ComboFl

36、ag.Text)+”ElseSchCnd=EndIf設置ADC控件的連接字符串Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=_+App.Path+Books.mdb;PersistSecurityInfo=False刷新DataGrid記錄設置數據源AdodcI.RecordSource=SELECTl.BookNoAS圖書編號，i.BookNameAS圖書名稱,_+l.BCountAS借閱數量，b.BorrowNoAS借閱編號，b.CardNoAS借閱證編號，c.NameAS姓名,_+BorrowDat

37、eAS借閱日期”+FROMBorrowb,BorrowListl,Cardsc,BookInfoi_+WHEREl.BNo=b.BorrowNoANDb.CardNo=c.CardNoANDl.BookNo=i.BookNo+SchCnd+ORDERBYl.BookNo,b.BorrowDateDESCMsgBox(Adodc1.RecordSource)Adodc1.RefreshDataGrid1.Columns(0).Width=1200DataGrid1.Columns(1).Width=1600DataGrid1.Columns(2).Width=1200DataGrid1.Colu

38、mns(3).Width=1400DataGrid1.Columns(4).Width=1400DataGrid1.Columns(5).Width=1200DataGrid1.Columns(6).Width=1400EndSub編輯用戶信息：PublicModifyAsBooleanPublicOriUserAsStringPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfTrim(txtUserName)=ThenMsgBox請輸入用戶名”txtUserName.SetFocusExitSubEndIf

39、IfLen(txtPass)6ThenMsgBox密碼長度不能小于6txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPasstxtPass2ThenMsgBox密碼和確認密碼不相同，請重新確認txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIfWithMyUserIfModify=FalseOrOriUserTrim(txtUserName)ThenIf.In_DB(Mak

40、eStr(txtUserName)=TrueThenMsgBox用戶名已經存在，請重新輸入”txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)IfModify=FalseThen.InsertMsgBox添加完成Else.Update(OriUser)MsgBox修改完成如果修改自身用戶名，則更新CurUser對象IfOriUser=CurUser.UserNameAndTrim(txtUserName)OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfE