1、精選優質文檔-傾情為你奉上唐 山 學 院畢 業 設 計設計題目：信息工程系圖書管理系統 系 別： 信息工程系 班 級： 10電氣自動化2班 姓 名： 賈建輝 指 導 教 師： 張國旭 2013年5月25日信息工程系圖書管理系統摘 要隨著計算機的普及以及知識信息化的變革，圖書館作為知識傳播的一個機構也逐漸的采用系統化、信息化的管理。基于計算機技術的圖書管理系統就是計算機應用技術的一個創新，傳統的圖書管理都是由圖書管理員手工記錄，查閱，操作過程繁瑣并且浪費了大量的人力物力。時下一般的圖書館采用的圖書管理系統都是以計算機作為工具的實用的計算機圖書管理程序來幫助圖書館管理員進行更快捷高效的圖書管理。圖

2、書管理系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。 關鍵字:圖書管理 信息管理系統 數據庫 數據安全專心-專注-專業Information Engineering Library Management SystemAbstract With the popularity of computers and knowledge of information technology revolution, the library as a

3、n institution but also the dissemination of knowledge gradually adopt systematic information management. Computer-based library management system technology is an innovative computer application technology, traditional books are managed by the librarian manual records, inspection, operation process

4、cumbersome and waste a lot of manpower and resources. Nowadays generally used library book management system are based on the computer as a tool for computer library management procedures to help librarians be more fast and efficient library management.Book Management System is a typical management

5、information system (MIS), including the development of its background of the establishment and maintenance of the database front-end applications, as well as the development of both. The former set up the requirements for data integrity and consistency of strong data security a good library. For the

6、 latter applications require full-featured and easy to use and so on. Keywords: Library Management ，Information Management System ，Database ，Data Security目錄1 引言隨著計算機技術的飛速發展，當今時代已進入了信息時代。計算機的普遍應用也使得人們的生活更加的便捷，日常應用更加簡便。這些也都歸功于計算機強大的運算能力與信息存儲能力。這也正是計算機被廣泛應用于信息管理系統的一個原因。使用計算機對信息進行存儲、分類、并控制，安全、高效，并且減少了大量

7、的人力物力。鑒于圖書館的書籍管理與讀者的借閱管理繁瑣，所以開發本系統用于對圖書的管理、借閱、分類，讀者信息的管理、讀者借閱圖書記錄，以及管理員信息管理和權限的維護。本設計采用Visual Basic6.0作為系統開發軟件。Visual Basic（簡稱VB）是近年來在國內外得到迅速推廣應用的可視化，具有簡單易學，功能強大，費用支出低，見效快等特點。利用Visual Basic可視化，面向對象，事件驅動，沿用結構化的思想等的特點，使圖書管理系統實現圖書的人性化管理，解決圖書和用戶借閱資料繁多，數據信息處理工作量大，容易出錯；數據繁多，容易丟失，且不易查找；缺乏系統，規范的信息管理手段等的缺點問題

8、。2 系統開發工具本圖書管理系統采用Microsoft公司的 Visual Basic6.0為開發工具，利用其提供的各種面向對象的可視化開發平臺作為開發工具來開發這款簡潔的系統。并且根據系統功能的要求，本系統數據庫采用Microsoft Access,它不但適合工作的要求，而且它所支持的數據類型十分豐富，維護簡單，費用較低，人員素質要求不是很高，容易升級。并且本系統在使用visual basic 6.0及Microsoft access的同時，也運用到了SQL語言。2.1 Visual Basic6.0 概述VisualBasic 6.0是一種由公司開發的包含協助開發環境的。它源自于編程語言。

9、VB擁有（）和快速應用程序開發（RAD）系統，可以輕易的使用、連接，或者輕松的創建控件。Visual Basic（簡稱VB）是近年來在國內外得到迅速推廣應用的可視化，具有簡單易學，功能強大，費用支出低，見效快等特點。它提供了開發Windows最迅速,最簡捷的方法，不但是專業人員得心應手的開發工具，而且易于被非專業人員掌握使用6。可視化，面向對象，事件驅動，沿用結構化的的思想等的特點使得VB得到廣大程序編輯這的青睞。使用Visual Basic語言進行編程時會發現，在Visual Basic中無須編程即可完成許多操作。因為在Visual Basic中引入了控件的概念，在Windows中控件的身影

10、無處不在，如按鈕、文本框等，Visual Basic把這些控件模式化，并且每個控件都有若干屬性用來控制控件的外觀和工作方法，并且能夠響應用戶操作（事件）。使復雜枯燥的的編程變得簡單富有樂趣。2.11 Visual Basic6.0 的發展1991年，微軟公司推出了Visual Basic 1.0版。這在當時引起了很大的轟動。這個連接編程語言和用戶界面的進步被稱為Tripod（有些時候叫做Ruby），最初的設計是由阿蘭·庫珀（Alan Cooper）完成的。許多專家把VB的出現當做是軟件開發史上的一個具有劃時代意義的事件。在當時，它是第一個“可視”的編程軟件。這使得程序員欣喜之極，都嘗

11、試在VB的平臺上進行軟件創作。微軟也不失時機地在四年內接連推出VB2.0，VB3.0，4.0三個版本。并且從VB3開始，微軟將的數據庫驅動集成到了VB中，這使得VB的數據庫編程能力大大提高。從VB4開始，VB也引入了面向對象的程序設計思想。VB功能強大，學習簡單。而且，VB還引入了“”的概念，使得大量已經編好的VB程序可以被我們直接拿來使用。 2002年 2002 (v7.0)問世，2003年Visual Basic .NET 2003 (v7.1)問世，2005年11月7日Visual Basic 2005 (v8.0)問世，同時間推出Visual Basic 2005的免費簡化版本Visu

12、al Basic 2005 Express Edition給Visual Basic初學者及學生使用。VB 2005的“顯著”優點是，可以直接編寫出XP風格的按鈕，以及其他的控件。但是其編寫的小程序占用近10MB的內存。2007年12月,微軟推出了 2008 Beta 2 （v9），在代碼輸入上可比VB2005快很多,在非特殊的情況下,VB2008會自動開啟、自動完成關鍵字，而且支持最新的.NET Framework 3.5 Beta 2。 通過幾年的發展，它已成為一種專業化的開發語言和環境。用戶可用Visual Basic快速創建程序，現在還可以編寫企業水平的/程序及強大的數據庫應用程序。2

13、.12 Visual Basic 的特點1可視化編程visual Basic為用戶提供了大量的界面元素（在Visual Basic中稱為控件），如窗體、菜單、命令按鈕等，用戶只需要利用鼠標或鍵盤把這些控件拖動到適當的位置，再設置它們的外觀屬性等，即可設計出所需的應用程序界面。Visual Basic還提供了易學易用的集成開發環境，該環境集程序的設計、運行和調試為一體，在本章后面的小節中將對集成開發環境進行詳細的介紹。2事件驅動機制Windows操作系統出現以來，圖形化的用戶界面和多任務多進程的應用程序要求程序設計不能是單一性的，在使用Visual Basic設計應用程序時，必須首先確定應用程序

14、如何同用戶進行交互。例如，發生鼠標單擊、鍵盤輸入等事件時，用戶必須編寫代碼控制這些事件的響應方法。這就是所謂的事件驅動編程。3面向對象的程序設計語言Visual Basic 6.0是支持面向對象的程序設計語言。它不同于其他面向對象的程序設計語言，且不需要編寫描述每個對象的功能特征的代碼，因為這些代碼都已經被封裝到各個控件中了，用戶只需調用即可。4支持多種數據庫訪問機制Visual Basic 6.0具有強大的數據庫管理功能。利用其提供的ADO訪問機制和ODBC數據庫連接機制可以訪問多種數據庫，如Access、SQL Server、Oracle、MySQL等。2.13 Visual Basic

15、主要控件及其屬性1標簽框類的控件主要屬性：屬性功能介紹Caption在應用程序界面上加入說明Autosize決定控件是否自動改變大小以顯示其全部內容Backstyle用以指示標簽是否透明Bordstyle用以設定控件是否有邊框2.文本框類的控件主要屬性：屬性功能介紹Text通過像text屬性賦值的方法來改變該屬性的值Maxlength該屬性設定在文本框控件中能夠輸入的最大字符數Multline該屬性設定text字符串中是否接受換行符Scrollbars該屬性決定是否為文本框加滾動條Passwordchar該屬性設定輸入文本的特殊顯示字符,在設計密碼程序時非常有用Alignment設定控件中的文

16、本對其方式Appearance設定一個對象在運行時是否可以3D效果顯示BackColor設置返回背景色BorderStyle設置對象的邊框樣式DataField設定數據使用者將被綁定到的字段名DataFormat設定DataFormat對象，用于數據綁定DataMember從數據供應程序提供的幾個數據成員中返回/設定一個特定的數據成員DataSource設定控件綁定的一個數據源DragIcon設定圖標，它將在拖放操作中作為指針顯示Enabled設置/返回運行時TextBox是否相應用戶事件Font設置/返回字體屬性ForeColor設置/返回文本的前景色Height設置/返回TextBox的高

17、度IMEMode設置/返回數值用來確定輸入方法編輯器的狀態Index設置/返回唯一的標識控件數組中該控件的編號Left設置/返回TextBox控件的水平位置Locked設置/返回TextBox中文本是否可編輯LinkItem設置/返回DDE與另一個應用程序會話時，傳給接受端的數據MaxLength設置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值MouseIcon設置/返回自定義鼠標的圖標Top設置/返回TextBox控件的垂直位置Tag存儲過程所需的附加數據3單選按鈕類的控件主要屬性：屬性功能介紹caption顯示在控件上的文本,是單選按鈕的標題Alignment決定單選按鈕的

18、標題在控件上的位置Enable該控件為灰色時為false,表示運行時不可用Index屬性值表示為單選按鈕組成的控件中某個按鈕的索引值Tabindex建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。Value反映控件狀態的屬性,返回true表示已選擇了該按鈕Appearance設置/返回一個對象在運行時是否以3D效果顯示BackColor設置/返回背景色DataField設置/返回數據使用者將被綁定到的字段名。DisabledPicture設置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中DownPicture設置/返回一個對圖片的引用，該圖片在控

19、件單擊下處于壓下狀態時顯示Font設置/返回字體屬性FontBold設置/返回字體粗體樣式FontName設置/返回控件中顯示文本所用的字體大小FontSize設置/返回控件中顯示文本所用的字體大小Height設置/返回控件的高度MousePointer設置/返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型4. 框架類的控件主要屬性：屬性功能介紹List列表框控件的表項是使用數組的方式保存,數組的每一個元素存儲列表控件的一個表項Listcount控件列表部分項目的個數Mutselect可以設置列表框為單選或允許多選屬性Selectd表示一個數組，數組各元素組為： Selected

20、(0),selected(1)5. 滾動條類的控件主要屬性：屬性功能介紹Value滾動條上滑塊所在位置由value值所決定Max和min對value值的最大,最小進行限制Largechange用戶點擊滾動條與鍵頭之間的區域時,value的改變量6. 定時器類類的控件主要屬性：屬性功能介紹Interval表示定時的時間間隔,以毫秒為單位Enable為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態7.命令按鈕類的控件主要屬性：屬性功能介紹Caption用來顯示在控件上的標題Enable控制控件的激活狀態灰色或可用Appearance值為1時,則以3D效果顯示該控件,0則不然B

21、ackcolor用來改變在按鈕上顯示圖像的背景色Cancel該屬性決定按鈕是否為一個”取消”按鈕Default決定哪一個命令按鈕控件是窗體的缺省命令按鈕Font控制各種文字字體類型Left,top,height width設定控件的位置與大小設定控件寬度Style,picture決定按鈕的顯示方式是否為圖像形式出現Visible確定控件運行時是否為可見Index當控件為一控件數組時,此屬性值為該控件在數組的下標值DownPicture設置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態時顯示DisabledPicture設置/返回一個對圖片的引用，該圖片在控件無效時顯示在控件中MaskC

22、olor設置/返回一個在按鈕的圖片中作為“掩碼”的顏色Picture設置返回commandButton控件中要顯示的圖片2.2 Microsoft Access 的概述Microsoft Access（Microsoft Office Access）是由微軟發布的關聯式數據庫管理系統。它結合了 Microsoft Jet Database Engine 和 圖形用戶界面兩項特點，是Microsoft Office的成員之一。 Assess能夠存取 Access/Jet、Microsoft SQL Server、Oracle，或者任何 ODBC 兼容數據庫內的資料。熟練的軟件設計師和資料分析師利

23、用它來開發應用軟件，而一些不熟練的程序員和非程序員的"進階用戶"則能使用它來開發簡單的應用軟件。2.21 Microsoft Access 特性Access的優點：（1）存儲方式單一 Access管理的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（.mdb）的種，便于用戶的操作和管理。 （2）面向對象 Access是一個面向對象的開發工具，利用面向對象的方式將數據庫系統中的各種功能對象化，將數據庫管理的各種功能封裝在各類對象中。它將一個應用系統當作是由一系列對象組成的，對每個對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴展

24、方法和屬性。通過對象的方法、屬性完成數據庫的操作和管理，極大地簡化了用戶的開發工作。同時，這種基于面向對象的開發方式，使得開發應用程序更為簡便。 （3）界面友好、易操作 Access是一個可視化工具，是風格與Windows完全一樣，用戶想要生成對象并應用，只要使用鼠標進行拖放即可，非常直觀方便。系統還提供了表生成器、查詢生成器、報表設計器以及數據庫向導、表向導、查詢向導、窗體向導、報表向導等工具，使得操作簡便，容易使用和掌握。 （4）集成環境、處理多種數據信息 Access基于Windows操作系統下的集成開發環境，該環境集成了各種向導和生成器工具，極大地提高了開發人員的工作效率，使得建立數據

25、庫、創建表、設計用戶界面、設計數據查詢、報表打印等可以方便有序地進行。 （5）Access支持ODBC（開發數據庫互連，Open Data Base Connectivity），利用Access強大的DDE（動態數據交換）和OLE（對象的聯接和嵌入）特性，可以在一個數據表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動態的數據庫報表和窗體等。Access還可以將程序應用于網絡，并與網絡上的動態數據相聯接。利用數據庫訪問頁對象生成HTML文件，輕松構建Internet/Intranet的應用。 ACCESS的缺點：ACCESS是小型數據庫，既然是小型就有他根本的局限性，以下幾種情況下

26、數據庫基本上會吃不消： 1.數據庫過大，一般達到50M左右的時候性能會急劇下降！ 2.網站訪問頻繁，經常達到100人左右的在線。 3.記錄數過多，一般記錄數達到10萬條左右的時候性能就會急劇下降！2.3 SQL語言概述SQL(Structured Query Language)結構化查詢語言，是一種數據庫查詢和程序設計語言，用于存取數據以及查詢、更新和管理關系數據庫系統。同時也是文件的擴展名。SQL是高級的非過程化編程語言，允許用戶在高層數據結構上工作。它不要求用戶指定對數據的存放方法，也不需要用戶了解具體的數據存放方式，所以具有完全不同底層結構的不同數據庫系統，可以使用相同的SQL語言作為數

27、據輸入與管理的接口。它以記錄集合作為操作對象，所有SQL語句接受集合作為輸入，返回集合作為輸出，這種集合特性允許一條SQL語句的輸出作為另一條SQL語句的輸入，所以SQL語句可以嵌套，這使他具有極大的靈活性和強大的功能，在多數情況下，在其他語言中需要一大段程序實現的功能只需要一個SQL語句就可以達到目的，這也意味著用SQL語言可以寫出非常復雜的語句。 結構化查詢語言(Structured Query Language)最早是的圣約瑟研究實驗室為其關系數據庫管理系統SYSTEM R開發的一種查詢語言，它的前身是SQUARE語言。SQL語言結構簡潔，功能強大，簡單易學，所以自從IBM公司1981年

28、推出以來，SQL語言得到了廣泛的應用。如今無論是像、Informix、SQL Server這些大型的數據庫管理系統，還是像Visual Foxpro、PowerBuilder這些PC上常用的數據庫開發系統，都支持SQL語言作為查詢語言。 美國國家標準局(ANSI)與國際標準化組織（ISO）已經制定了SQL標準。ANSI是一個美國工業和商業集團組織，負責開發美國的商務和通訊標準。ANSI同時也是ISO和International Electrotechnical Commission(IEC)的成員之一。ANSI 發布與國際標準組織相應的美國標準。1992年，ISO和IEC發布了SQL國際標準，

29、稱為SQL-92。ANSI隨之發布的相應標準是ANSI SQL-92。ANSI SQL-92有時被稱為ANSI SQL。盡管不同的關系數據庫使用的SQL版本有一些差異，但大多數都遵循 ANSI SQL 標準。SQL Server使用ANSI SQL-92的擴展集，稱為T-SQL，其遵循ANSI制定的 SQL-92標準。 SQL語言包含4個部分： 1. 數據定義語言(DDL)，例如：CREATE、DROP、ALTER等語句。 2.數據操作語言(DML)，例如：INSERT（插入）、UPDATE（修改）、DELETE（刪除）語句。 3 數據查詢語言(DQL)，例如：SELECT語句。（這也是本系統

30、中運用到的sql語句。） 4.數據控制語言(DCL)，例如：GRANT、REVOKE、COMMIT、ROLLBACK等語句。 SQL語言包括三種主要程序設計語言類別的語句：數據定義語言(DDL)，數據操作語言(DML)及數據控制語言(DCL)。3 系統的總體分析3.1 任務要求實現圖書添加、刪除、查詢等功能的管理系統的基礎上，錄入并整理信息系圖書資源。整個圖書管理大體流程：1.新的圖書購進后，錄入圖書的相關信息，并進行分類編號。2.新書錄入完成，將圖書放置在其相應的書架上，以供老師同學們借閱。3.如某學生或老師需要借閱圖書時，圖書管理員將其與圖書的信息記錄在本系統上，方便管理員的管理。3.2

31、系統功能· 借閱管理實現的借書和還書功能。· 書籍管理：書庫管理和圖書類別設置功能。· 書籍管理：對圖書進行查詢，添加，刪除，修改。· 讀者管理：對讀者進行查詢，添加，刪除，修改。· 讀者查詢可以對圖書進行查找并可以對借閱情況進行查詢。· 用戶管理可以添加用戶，并且可以修改用戶密碼。3.3 系統功能模塊圖根據本系統的設計要求，再結合軟件工程中軟件設計的概念和原理，由此畫出圖書管理系統的系統功能模塊圖如圖3-1所示：用戶管理權限設置修改密碼退出系統系統管理借書管理還書管理借閱管理圖書類別圖書查閱圖書信息借閱信息圖書管理計算機圖書管理系統

32、用戶登錄讀者類別讀者信息借閱信息讀者管理圖3-1 圖書管理系統功能模塊圖4 數據庫的設計4.1 數據庫設計分析根據系統的設計要求繪制數據庫的E-R圖。其圖如下所示：讀者信息姓名備注編號性別通信地址聯系電話出生年月圖4-1 讀者信息E-R書籍信息簡介定價備注ISBN出版日期作者出版社版本名稱編號圖4-2圖書信息E-R讀者類別讀者編號讀者類別圖4-3讀者信息E-R借閱信息讀者姓名書籍名稱借閱時間讀者姓名讀者姓名圖4-4借閱信息E-R歸還信息讀者姓名書籍名稱借閱時間讀者姓名讀者姓名圖4-5歸還信息E-R用戶信息用戶密碼圖4-6用戶信息E-R書籍類別書籍編號書籍類別圖4-7書籍類別E-R42數據庫的設

33、計依據數據庫的原理，結合以上E-R圖，經過轉化，即可進行數據庫的物理設計。基于以上數據庫的邏輯設計，考慮程序設計的簡易性，該系統的數據庫采用Microsoft access，本系統總共創建七個表，其結構分別如下：1讀者信息表，其設計的結構圖如下圖4-8所示圖4-8讀者信息表2圖書信息表，如下圖4-9所示圖4-9圖書信息表3讀者類別表，如下圖4-10所示圖4-10讀者類別表4借閱信息表，如下圖4-11所示：圖4-11借閱信息表5歸還信息表，如下圖4-12所示：圖4-12歸還信息表6用戶信息表，如下圖4-13所示：圖4-13用戶信息表7.書籍類別表，如下圖4-14所示：圖4-14書籍類別表4.3數

34、據庫的連接Visual basic6.0連接數據庫的主要方式以下幾種方式：一是：用data控件進行數據庫鏈接 二是：利用adodc（ADO Data Control)進行數據庫鏈接三是: 利用DataEnvironment進行數據庫鏈接。四是：利用ADO(ActiveX Data Objects)進行編程本設計系統采用的是data控件進行的數據庫連接，下面介紹一下用data控件進行數據庫的鏈接的過程：第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數據庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數據），forecolor(文本），font

35、name(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。如果你的機器沒安裝有Access，可通過VB建庫。5系統設計以及代碼編寫實現5.1登陸界面登陸界面如圖5-1所示圖5-1登陸界面1填寫用戶名和密碼并選擇用戶身份2用戶名和密碼驗證正確后進入系統3跳出提示：歡迎使用本系統！。5.2圖書管理系統主界面系統的主界面如下圖圖5-2圖5-2系統主界面主界面分為七個模塊：借閱信息管理、歸還信息管理、書籍信息管理、書籍類別管理、讀者信息管理、讀者類別管理、系統用戶管理。在下面會對各個模塊進行介紹5.3圖書管理5.31書籍信息管理書籍信息管理窗口如下圖5-3所示圖5-3書籍信息管理1

36、 點擊添加按鈕，添加新的書籍，然后點保存按鈕。2 點擊修改按鈕，對當前選擇的書籍進行書籍信息更改，然后保存。3 點擊刪除按鈕，刪除當前選擇的書籍。4點擊查詢按鈕可以按書籍編號或書籍名稱查詢要找的書籍。5.32書籍類別管理書籍類別窗口如下圖圖5-4圖5-4書籍類別5.4讀者管理5.41讀者信息管理讀者信息管理窗口如圖5-5所示圖5-5讀者信息管理窗口此窗口能夠實現對讀者信息的添加，修改查詢等操作。5.42讀者類別管理讀者類別管理窗口如下圖5-6所示：圖5-6讀者類別窗口5.5借閱信息管理借閱信息管理窗口如下圖5-7所示：圖5-7借閱信息管理窗口借閱信息管理窗口實現管理員對讀者書籍借閱的管理，當讀

37、者借閱圖書時，先查找到該讀者，找到該讀者時讀者信息會顯示在左下角的讀者詳細信息窗口上，點擊添加按鈕，然后在找到該讀者要借閱的圖書，書籍信息會顯示在書籍詳細信息窗口上，該書籍的名稱會顯示在借閱信息窗口上，借閱時間自動生成，手動輸入歸還期限，點擊保存，該圖書借出成功，信息會顯示在借閱信息一覽表上。5.6書籍歸還信息管理書籍歸還信息管理窗口如下圖5-8所示：圖5-8書籍歸還信息管理窗口書籍歸還時找到相應的讀者，讀者借閱圖書的信息顯示在借閱記錄顯示窗口，點擊添加并手動輸入歸還時間，點擊保存，書籍歸還成功。歸還的記錄顯示在歸還信息一覽表中。5.7 系統用戶信息系統用戶信息設置窗口如下圖5-9所示：圖5-

38、9系統用戶信息設置窗口系統用戶信息設置是針對系統管理員與普通用戶登錄本系統而設計的，系統管理員的權限是對本系統的整體操作，而普通用戶只能對書籍進行查詢，別的 操作都是不允許的。6系統的運行調試代碼編寫成功后將系統的工程文件生成 .exe的文件即最后可運行的軟件程序。運行“圖書管理系統.exe”，進入登錄界面，輸入用戶名和密碼并選擇用戶身份以系統管理員的身份進入系統，登錄成功后進入系統的主界面。錄入圖書信息，讀者信息，圖書類別信息，讀者類別信息等信息后，操作本系統進行書籍的查閱，書籍借閱，書籍歸還等操作，本系統能夠完整的按照設計要求運行。滿足設計要求。7總結此次的畢業設計我們采用的編程軟件是Vi

39、sual Basic6.0，數據庫為Microsoft access，用Visual Basic6.0的data控件將開發系統與數據庫Access進行的連接，最后開發出本圖書管理系統，系統運行穩定，維護簡單，費用較低。通過這次的畢業設計，我大體理解了軟件開發的步驟與流程，也學會了Visual Basic6.0開發軟件的編程，由于VB 的程序是一種基于的可視化組件安排的聯合，并且增加代碼來指定組件的屬性和方法，默認的屬性和方法已經有一部分定義在了組件內， 不用太多代碼就可以將本系統開發出來。在開發本管理系統時發現自己在編程設計上還有很多不足，例如知識儲備方面的不足，所以以后還需積極地學習所欠缺的

40、知識，增加編程的實踐。相信只要自己能夠努力的學習就一定會有所收獲。謝辭在此我要感謝在這次畢業設計中給予過我幫助的老師和同學，在老師的指導與同學們的幫助下我才能順利的將本系統設計出來。感謝我們的指導老師張國旭老師，在張老師耐心負責的指導下，我們才能將畢業設計順利完成，在張老師這我也學到了做事要認真，勤于思考，只有嚴謹的對待每件事才能將事情做好。團隊的齊心合作也是本畢業設計成功的關鍵，在大家一同努力解決問題，提出系統改進想法并將想法實現的工程中，使我們都學會了團隊合作的重要性。再次感謝我們的張老師，以及我們組的每一位成員。參考文獻1Michael Halvorson.Visual Basic 20

41、08從入門到精通M.北京清華大學出版社.20082陳紫紅 安劍.Visual Basic項目開發全程實錄M.北京清華大學出版社.200834Visual Basic 6.0 信息管理系統開發M.人民郵電出版社.20055Visual Basic 控件編程百例通M.科學出版社.2002.6VB程序設計M.人民交通出版社.2004.7 VBScript程序員參考手冊（第3版）M.清華大學出版社.20098 Visual Basic編程典型實例解析M.中國水利水電出版社.20079 VB數據庫項目設計模塊化教程M.機械工業出版社.2009附錄系統書籍信息管理的代碼Dim isAdd As Boole

42、an '用于判斷當前是添加還是修改操作Dim IsCh As BooleanPrivate Sub CmdAdd_Click()If IsCh = True Then If MsgBox("是否放棄修改操作？", vbYesNo + vbQuestion, "系統提示") = vbNo Then Exit Sub Else IsCh = False End IfEnd IfAllClearMsgBox "請輸入要添加的相關信息，然后點擊保存按鈕進行保存！", vbInformation, "系統提示"Txt

43、No.SetFocusCmdOk.Enabled = TrueisAdd = TrueEnd SubPrivate Sub CmdALL_Click()D2.RecordSource = "select 書籍編號,書籍名稱,書籍版本,書籍作者,書籍出版社,書籍出版日期,ISBN,書籍內容簡介,書籍定價,備注 from 書籍信息表"D2.RefreshIf D2.Recordset.RecordCount < 1 Then MsgBox "當前數據庫中無任何書籍信息記錄！", vbExclamation, "系統提示" Frame

44、2.Caption = "數據庫中無記錄" TxtTishi = "數據庫中無記錄"Else ShowData Frame2.Caption = "錄入信息一覽表（點擊查看詳細內容）"End IfCmdALL.Enabled = FalseEnd SubPrivate Sub CmdCh_Click()If isAdd = True Then If MsgBox("是否放棄添加操作？", vbYesNo + vbQuestion, "系統提示") = vbNo Then Exit Sub Els

45、e isAdd = False If D2.Recordset.RecordCount < 1 Then MsgBox "數據庫中已無任何相關信息記錄!不能進行修改!", vbCritical, "系統提示" Exit Sub End If ShowData End IfEnd IfIf D2.Recordset.RecordCount < 1 Then MsgBox "當前數據庫或者查詢結果集中無任何相關信息記錄!不能進行修改!", vbCritical, "系統提示" Exit SubEnd IfM

46、sgBox "請直接對相關的信息進行修改，然后點擊保存按鈕進行保存！", vbInformation, "系統提示"CmdOk.Enabled = TrueTxtNo.SetFocusIsCh = TrueEnd SubPrivate Sub CmdCK_Click()If Trim(TxtNo) = "" Then MsgBox "請先輸入要查看的書籍編號！", vbCritical, "系統提示" TxtNo = "" TxtNo.SetFocus Exit SubEnd

47、 IfD1.RecordSource = "select * from 書籍類別表 where 書籍編號='" & Trim(TxtNo) & "'"D1.RefreshIf D1.Recordset.RecordCount < 1 Then MsgBox "查詢結束，數據庫中無該編號的書籍類別記錄，請重新輸入相關的書籍編號！", vbCritical, "系統提示" TxtNo.SetFocus Exit SubEnd IfMsgBox "查詢結束，編號為 &quo

48、t; & Trim(TxtNo) & " 的書籍類別為 " & Trim(D1.Recordset.Fields!書籍類別), vbInformation, "系統提示"End SubPrivate Sub CmdDel_Click()If isAdd = True Then If MsgBox("是否放棄添加操作？", vbYesNo + vbQuestion, "系統提示") = vbNo Then Exit Sub Else isAdd = False CmdOk.Enabled =

49、False If D2.Recordset.RecordCount < 1 Then MsgBox "數據庫中已無任何相關信息記錄!刪除失敗!", vbCritical, "刪除記錄" Exit Sub End If ShowData End IfEnd IfIf IsCh = True Then If MsgBox("是否放棄修改操作？", vbYesNo + vbQuestion, "系統提示") = vbNo Then Exit Sub Else IsCh = False CmdOk.Enabled =

50、 False End IfEnd IfIf D2.Recordset.RecordCount < 1 Then MsgBox "數據庫中已無任何相關信息記錄!刪除失敗!", vbCritical, "刪除記錄" Exit SubEnd IfIf MsgBox("您真的要刪除書籍編號為 " & Trim(D2.Recordset.Fields!書籍編號) & " 的相關信息記錄嗎？", vbYesNo + vbQuestion, "刪除記錄") = vbYes Then D2

51、.Recordset.Delete D2.Refresh MsgBox "記錄刪除成功！", vbInformation, "系統提示" If D2.Recordset.RecordCount < 1 Then Frame2.Caption = "數據庫中已無記錄" AllClear TxtTishi = "當前已無記錄" Exit Sub End If D2.Recordset.MoveFirst ShowDataElse Exit SubEnd IfEnd SubPrivate Sub Form_Unlo

52、ad(Cancel As Integer)If IsChBook = True Then Unload FrmSch1End IfEnd SubPrivate Sub MGrid1_Click() '單擊此控件時，對應的數據動態顯示On Error GoTo err1D2.Recordset.AbsolutePosition = CInt(MGrid1.MouseRow) - 1TxtTishi = "當前記錄：" & CInt(MGrid1.MouseRow) - 1 & " / " & D2.Recordset.Rec

53、ordCountTxtNo = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 0) '取對應的列值賦值給文本控件TxtName = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 1)TxtBB = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 2)TxtZZ = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 3)TxtCBS = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 4)TxtCBRQ = Trim(MGrid

54、1.TextMatrix(MGrid1.MouseRow, 5)TxtNum = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 6)TxtNRJJ = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 7)TxtDJ = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 8)TxtBZ = Trim(MGrid1.TextMatrix(MGrid1.MouseRow, 9)Exit Suberr1: Exit Sub End SubPublic Sub AllClear()TxtNo = ""TxtName = ""TxtBB = ""TxtZZ = ""TxtCB