圖書管理系統(tǒng)設(shè)計(jì)（附源代碼）

1、畢業(yè)設(shè)計(jì)論文目錄前言2摘要3第一章緒論41.1數(shù)據(jù)庫應(yīng)用開發(fā)4第二章 系統(tǒng)需求分析62.1系統(tǒng)性能要求：62.2項(xiàng)目背景62.3系統(tǒng)功能模塊圖：7第三章 系統(tǒng)設(shè)計(jì)8第四章 系統(tǒng)實(shí)現(xiàn)124.1系統(tǒng)功能流程圖124.2數(shù)據(jù)庫邏輯設(shè)計(jì)124.3圖書管理系統(tǒng)界面12第五章源代碼145.1數(shù)據(jù)庫連接文件145.2版塊代碼實(shí)現(xiàn)145.2.1 添加圖書信息版塊代碼145.2.2 添加讀者信息版塊代碼155.2.3查詢讀者版塊代碼175.2.4修改/刪除讀者信息版塊代碼18第六章 設(shè)計(jì)體會(huì)18第七章 感謝19參考文獻(xiàn)19 前言隨著社會(huì)的日益發(fā)展，尤其是科技的迅猛發(fā)展，使得我國各項(xiàng)事業(yè)得到了前所未有的進(jìn)步，計(jì)算

2、機(jī)在工作與學(xué)習(xí)中的應(yīng)用，不僅提高了工作效率，而且也降低了勞動(dòng)強(qiáng)度。隨著計(jì)算機(jī)廣泛地應(yīng)用在科學(xué)技術(shù)領(lǐng)域的各個(gè)方面，并逐漸進(jìn)入家庭，成為人們生活和工作中重要的工具。隨著社會(huì)信息量的與日俱增，作為信息存儲(chǔ)的主要媒體之一圖書，數(shù)量、規(guī)模比以往任何時(shí)候都大的多，不論個(gè)人還是圖書管理部門都需要使用方便而有效的方式來管理自己的書籍。在計(jì)算機(jī)日益普及的今天，對(duì)個(gè)人而言若采用一套行之有效的圖書管理系統(tǒng)來管理自己的書籍，會(huì)方便許多。對(duì)圖書管理部門而言，以前單一的手工檢索已不能滿足人們的要求，為了便于圖書資料的管理需要有效的圖書管理軟件。圖書管理系統(tǒng)軟件是一套功能比較完善的數(shù)據(jù)管理軟件，具有數(shù)據(jù)操作方便高效迅速等優(yōu)

3、點(diǎn)。該軟件采用功能強(qiáng)大的數(shù)據(jù)庫軟件開發(fā)工具進(jìn)行開發(fā)，具有很好的可移植性，可在應(yīng)用范圍較廣的dos、windows系列等操作系統(tǒng)上使用。隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代的產(chǎn)物，已被廣泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。目前，我國的科技水平高速發(fā)展，計(jì)算機(jī)作為今天使用最廣的現(xiàn)代化工具已深入到各個(gè)領(lǐng)域，并且正在成為未來社會(huì)信息社會(huì)的重要支柱。在這樣的大背景下，現(xiàn)代圖書管理系統(tǒng)的開發(fā)就是在于提高圖書管理的工作效率，加強(qiáng)圖書館的管理，全面實(shí)行計(jì)算機(jī)管理。摘要社會(huì)當(dāng)今科技日益發(fā)展迅猛,在這樣一個(gè)知識(shí)大爆炸的時(shí)代里圖書館作為一個(gè)獲取知識(shí)一個(gè)不可缺少的單元,其重要性是不言而喻的.圖書館在正常的運(yùn)營過程

4、中總是面對(duì)大量的讀者信息、書籍信息以及兩者相互作用所產(chǎn)生的借書信息、還書信息.因此快捷方便的對(duì)讀者資源、書籍資源、借書信息、還書信息進(jìn)行管理,如何提高工作效率成為一個(gè)關(guān)鍵性的問題.在此基礎(chǔ)以上構(gòu)建了針對(duì)于中小型校園圖書管理系統(tǒng).本論文闡述了校園圖書管理系統(tǒng)詳細(xì)開發(fā)過程。 該系統(tǒng)包括了借閱信息管理、書籍信息管理、讀者信息管理、系統(tǒng)管理等幾大模塊. 全文介紹了這些模塊的功能，程序設(shè)計(jì)及實(shí)現(xiàn)。具體從系統(tǒng)概敘、需求分析、總體設(shè)計(jì)、數(shù)據(jù)庫結(jié)構(gòu)、程序編制、模塊實(shí)現(xiàn)、技術(shù)背景、心得體會(huì)等幾個(gè)方面對(duì)此系統(tǒng)進(jìn)行了闡述【關(guān)鍵字】visualbasic6.0、access、借閱social science and

5、technology are growing rapidly in such a big explosion of knowledge era as a library to acquire knowledge an indispensable module, and its importance is self-evident. library in the normal course of the operation is always faced with a lot of readers information, books and information arising from t

6、he interaction between library information, book information. so convenient for readers to resources, books resources, library information, book information management, how to improve efficiency as a key issue. on this foundation and address in a medium-sized campus library management system. this p

7、aper elaborated on the campus library management system detailed development process. the system includes a library information management, information management books, readers information management, system management, several major modules.【keywords】book, visualbasic6.0, access, reader, borrow to

8、 read第一章 緒論1.1數(shù)據(jù)庫應(yīng)用開發(fā) 在數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)之前，對(duì)開發(fā)數(shù)據(jù)庫的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫的結(jié)構(gòu)、開發(fā)數(shù)據(jù)庫應(yīng)用程序的步驟、開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立一個(gè)滿足用戶長(zhǎng)期需求的產(chǎn)品。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用。 數(shù)據(jù)庫技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于60年代，30多年來數(shù)據(jù)庫技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系和一大批實(shí)用系統(tǒng)。并且，近年來，隨著world wide web(www)的猛增及i

9、nternet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時(shí)成為最熱門技術(shù)之一。 數(shù)據(jù)庫系統(tǒng)把用戶數(shù)據(jù)表示為關(guān)系?，F(xiàn)在把關(guān)系看作數(shù)據(jù)表。表的列包含域或?qū)傩?，表的行包含?duì)應(yīng)業(yè)務(wù)環(huán)境中的實(shí)體的記錄。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。1.1.1索引 改進(jìn)了數(shù)據(jù)庫的性能和可訪問性，這種數(shù)據(jù)經(jīng)常稱作開銷數(shù)據(jù)，盡管有時(shí)也采用其他類型的數(shù)據(jù)結(jié)構(gòu)，如鏈表，但它主要還是索引。索引可以用來排序和快速訪問數(shù)據(jù)。下面以本人的圖書管理信息系統(tǒng)中的book表為例來說明 磁盤上是按圖書編號(hào)的遞增順序排列的，用戶想打印一個(gè)按圖書名稱排序的圖書數(shù)據(jù)報(bào)表。為此，所有的數(shù)據(jù)都需要從源表中提取出來并排序，除非表很小，

10、否則這是一個(gè)很費(fèi)時(shí)的過程。或者，可以在圖書名稱字段上創(chuàng)建一個(gè)索引，該索引的條目按照?qǐng)D書名稱排序，這樣，該索引的條目可以讀出來，并用來按順序訪問book數(shù)據(jù)。引對(duì)排序和查找是有幫助的，但要付出代價(jià)。book表中的行每次改變時(shí)，索引也必須改變，這意味著索引并非隨意的，應(yīng)該在真正需要時(shí)保存。 1.1.2 數(shù)據(jù)庫管理系統(tǒng) dbms是數(shù)據(jù)庫系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過dbms進(jìn)行的。dbms總是基于某種數(shù)據(jù)模型，可以把dbms看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模型的不同，dbms可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。ms sql s

11、erver2000就是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。 關(guān)系模型是由若干個(gè)關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類型，它的實(shí)例稱為關(guān)系，每個(gè)關(guān)系實(shí)際上是一張二維表格。 關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存儲(chǔ)結(jié)構(gòu)，訪問技術(shù)等細(xì)節(jié)。關(guān)系模型是數(shù)學(xué)化模型。sql語言是關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。 設(shè)計(jì)子系統(tǒng)有一個(gè)方便數(shù)據(jù)庫及其應(yīng)用創(chuàng)建的工具集。它典型地包含產(chǎn)生表、窗體、查詢和報(bào)表的工具。dbms產(chǎn)品還提供編程語言和對(duì)編程語言的接口。 運(yùn)行子系統(tǒng)處理用設(shè)計(jì)子系統(tǒng)開發(fā)的應(yīng)用組件。它所包含的運(yùn)行處理器用來處理窗體和數(shù)據(jù)庫的

12、數(shù)據(jù)交互，以及回答查詢和打印報(bào)表等。 1.1.3 創(chuàng)建數(shù)據(jù)庫 1.1.4 數(shù)據(jù)庫模式 數(shù)據(jù)庫模式是一種設(shè)計(jì)，數(shù)據(jù)庫和應(yīng)用正是建立在此基礎(chǔ)上的。數(shù)據(jù)庫模式定義了數(shù)據(jù)庫的結(jié)構(gòu)、表、關(guān)系、域和業(yè)務(wù)規(guī)域是一列可能擁有的值的集合。必須為每一個(gè)表的每一列確定域。除了數(shù)據(jù)的物理格式外，還需要確定是否有些域?qū)Ρ韥碚f是唯一的。 業(yè)務(wù)規(guī)則是模式的一個(gè)重要部分，因?yàn)樗麄冎付藷o論什么數(shù)據(jù)變化到達(dá)dbms引擎，允許的數(shù)據(jù)值必須滿足的約束。不管無效的數(shù)據(jù)變化請(qǐng)求是來自窗體的用戶、查詢/修改請(qǐng)求還是應(yīng)用程序，dbms都應(yīng)該拒絕。 1.1.5 創(chuàng)建表 1.1.6 定義聯(lián)系 1.1.7應(yīng)用組件 數(shù)據(jù)庫應(yīng)用包括窗體、查詢、報(bào)表

13、、菜單和應(yīng)用程序。 1.2 圖書管理系統(tǒng) 當(dāng)今時(shí)代信息開發(fā)，正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。 圖書館采取手工方式對(duì)圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖書館的工作人員和管理員也只是當(dāng)時(shí)對(duì)它比較清楚，時(shí)間一

14、長(zhǎng)，如再要進(jìn)行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費(fèi)時(shí)、費(fèi)力。如要對(duì)很長(zhǎng)時(shí)間以前的圖書進(jìn)行更改就更加困難了。數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。 基于這此問題，我認(rèn)為有必要建立一個(gè)圖書管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢和修改圖書情況。 第二章 系統(tǒng)需求分析2.1系統(tǒng)性能要求：系統(tǒng)安全、可靠；功能齊全；操作方便、界面友好；易于維護(hù)和擴(kuò)充。2.2項(xiàng)目背景 隨著社會(huì)信息量的與日俱增，作為學(xué)校需要有一個(gè)很好的圖書管理系統(tǒng)對(duì)學(xué)生的借還書進(jìn)行管理，方便圖書館對(duì)學(xué)生借書信息的查詢、插入、修改

15、和維護(hù)，也方便學(xué)生對(duì)自己所借圖書的了解。在計(jì)算機(jī)日益普及的今天，對(duì)學(xué)校而言若采用一套行之有效的圖書管理系統(tǒng)來管理學(xué)生的借書情況會(huì)方便許多。圖書管理系統(tǒng)sgms v1.0是一套功能比較完善的數(shù)據(jù)管理軟件，具有數(shù)據(jù)操作方便高效迅速等優(yōu)點(diǎn)。該軟件采用功能強(qiáng)大的數(shù)據(jù)庫軟件開發(fā)工具進(jìn)行開發(fā)，具有很好的可移植性，可在應(yīng)用范圍較廣的windows系列等操作系統(tǒng)上使用。2.3系統(tǒng)功能模塊圖： 圖書管理系統(tǒng)讀者信息管理圖書管理添加借書信息修改借書信息刪除圖書添加讀者信息修改圖書信息刪除讀者信息 查找讀者 圖2-3-1系統(tǒng)模塊第三章 系統(tǒng)設(shè)計(jì)3 3.1系統(tǒng)模塊 圖書管理 圖書信息模塊 用戶界面 讀者身份查驗(yàn) 操作

16、命 令生成 輸出 獲取相 關(guān)信息 輸入 輸入 讀者信息修改/刪除 圖書信息登記數(shù)據(jù)庫操作 數(shù)據(jù)庫查詢 圖3-1-1圖書信息模塊 讀者信息模塊 讀者查詢 添加讀者信息 數(shù)據(jù)庫查詢 讀者信息登記/刪除 操作命 令生成數(shù)據(jù)庫操作 用戶界面 輸入 獲取相 關(guān)信息 輸出 圖3-1-2讀者信息模塊3.2系統(tǒng)數(shù)據(jù)庫需求分析設(shè)計(jì)數(shù)據(jù)庫之前，應(yīng)該首先了解用戶需求，弄清用戶需要存儲(chǔ)、更新、查詢哪些數(shù)據(jù)，弄清這些數(shù)據(jù)之間的關(guān)系和流向；然后對(duì)這些需求進(jìn)行分析，總結(jié)出數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。 用戶分為系統(tǒng)管理員和游客。 系統(tǒng)分借書、還書、賠償、讀者反饋、反饋管理。 每個(gè)讀者可以借一本或多本書 每本書可以被一個(gè)或多個(gè)讀者借用。

17、 游客可以通過反饋管理模塊提出寶貴意見。根據(jù)上述系統(tǒng)功能的分析和需求總結(jié)，考慮到將來功能上的擴(kuò)展，設(shè)計(jì)到如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。 圖書信息，包括：圖書編號(hào)、圖書類型、書名、作者、出版社等。 讀者信息，包括：讀者姓名、讀者編號(hào)、讀者類型等。3.3系統(tǒng)數(shù)據(jù)庫概念設(shè)計(jì)得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。這些實(shí)體包含各種實(shí)體信息，通過相互之間的作用形成數(shù)據(jù)之間的流動(dòng)。本系統(tǒng)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：圖書信息登記實(shí)體、讀者信息登記實(shí)體、查找讀者實(shí)體。3.4版塊e-r圖登記日期出版社圖書信息登記讀者姓名圖書編號(hào)書名圖書

18、類別圖3-4-1借書實(shí)體e-r圖 讀者信息實(shí)體讀者類型讀者姓名讀者編號(hào)書名性別工作單位家庭住址電話號(hào)碼圖3-4-2還書實(shí)體e-r圖讀者姓名查詢讀者讀者編號(hào)圖3-4-4查詢讀者實(shí)體e-r圖 3.4 acess2000數(shù)據(jù)庫簡(jiǎn)介access 是office2000里面的一個(gè)組件。是用來制作簡(jiǎn)單的數(shù)據(jù)庫。還有的意思就是訪問、還有接入的意思。如access list 訪問列表access point 接入點(diǎn) 在辦公軟件office套件中，最為廣大用戶熟悉的是word和excel，因?yàn)樗鼈児δ軓?qiáng)大且方便易用，更因?yàn)樗鼈儾粌H可用于辦公，還可用于個(gè)人寫作和家庭記帳理財(cái)?shù)?。同為office套件中一部分的acc

19、ess，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對(duì)少些，不像word和excel那樣廣泛。事實(shí)上，真正用過access的用戶，對(duì)其強(qiáng)大功能和靈活應(yīng)用均稱贊有加。 access 數(shù)據(jù)庫管理系統(tǒng)是microsoft office 套件的重要組成部分，適用于小型商務(wù)活動(dòng)，用以存貯和管理商務(wù)活動(dòng)所需要的數(shù)據(jù)。access不僅是一個(gè)數(shù)據(jù)庫，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報(bào)表和應(yīng)用程序等。 microsoft access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名

20、在一個(gè)表中不能重復(fù)。圖1是一個(gè)“產(chǎn)品”表的例子?！爱a(chǎn)品”表由10個(gè)記錄組成，一個(gè)記錄占一行，每一個(gè)記錄由產(chǎn)品id、產(chǎn)品名稱、庫存量、訂貨量、單價(jià)和折扣率6個(gè)字段組成?！爱a(chǎn)品id”是字段名，其下面的1，2等是字段的值。 表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。access數(shù)據(jù)庫以文件形式保存，文件的擴(kuò)展名是mdb。 access 數(shù)據(jù)庫由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。 表(table) 表是數(shù)據(jù)庫的基本對(duì)象，是創(chuàng)建其他5種對(duì)象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。 查詢(query)查詢可以按索引快速查找到需要的

21、記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。 窗體(form) 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。 報(bào)表(report) 報(bào)表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。 宏(macro) 宏相當(dāng)于dos中的批處理，用來自動(dòng)執(zhí)行一系列操作。access列出了一些常用的操作供用戶選擇，使用起來十分方便。 模塊(module) 模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用visual basic編程第四章 系統(tǒng)實(shí)現(xiàn) 4.1系統(tǒng)功能流程圖用戶登錄退出系統(tǒng)調(diào)用數(shù)據(jù)庫？

22、y/n系統(tǒng)主界面圖4-1 系統(tǒng)功能流程圖4.2數(shù)據(jù)庫邏輯設(shè)計(jì)數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計(jì)完畢后，現(xiàn)在可以將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)概念，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。4.3圖書管理系統(tǒng)界面圖書管理系統(tǒng)中各個(gè)界面的設(shè)計(jì)結(jié)果如下面表格所示。圖4-3-1.用戶主界面圖4-3-2借書管理界面圖4-3-2添加圖書界面 圖4-3-3讀者信息登記第五章 源代碼5.1數(shù)據(jù)庫連接文件為了操作方便,所連接數(shù)據(jù)庫、查詢、更新、插入、關(guān)閉、連接等數(shù)據(jù)庫操作都寫在一個(gè)公用文件conn.asp中，這樣其他頁面引入這個(gè)頁面，就可以調(diào)用數(shù)據(jù)庫操作方法，操作數(shù)據(jù)庫了，這樣便于提高程序的重用性，下面給出了這段程

23、序的參考代碼。用于標(biāo)記連接對(duì)象 public conn as new adodb.connection 用于打開數(shù)據(jù)庫rs_leibie.open sql, conn, adopenkeyset, adlockpessimistic5.2版塊代碼實(shí)現(xiàn)5.2.1 添加圖書信息版塊代碼private sub command1_click()dim rs_addbook as new adodb.recordsetdim sql as stringif trim(combo1.text) = then msgbox 請(qǐng)選擇圖書種類, vbokonly + vbexclamation, combo1.

24、setfocus exit subend ifif trim(text1.text) = then msgbox 圖書編號(hào)不能為空, vbokonly + vbexclamation, text1.setfocus exit subend ifif trim(text2.text) = then msgbox 書名不能為空, vbokonly + vbexclamation, text2.setfocus exit subend if if not isdate(text5.text) then msgbox 請(qǐng)按照 年-月-日 格式輸入日期, vbokonly + vbexclamation

25、, text5.setfocus exit sub end if if not isdate(text6.text) then msgbox 請(qǐng)按照 年-月-日 格式輸入日期, vbokonly + vbexclamation, text6.setfocus exit sub end if sql = select * from 書籍信息 where 書籍編號(hào)= & text1.text & rs_addbook.open sql, conn, adopenkeyset, adlockpessimisticif rs_addbook.eof then rs_addbook.addnew rs_

26、addbook.fields(0) = trim(text1.text) rs_addbook.fields(1) = trim(text2.text) rs_addbook.fields(2) = trim(combo1.text) rs_addbook.fields(3) = trim(text3.text) rs_addbook.fields(4) = trim(text4.text) rs_addbook.fields(5) = trim(text5.text) rs_addbook.fields(6) = trim(text6.text) rs_addbook.fields(7) =

27、 否 rs_addbook.fields(8) = txtcomment.text rs_addbook.update msgbox 添加書籍信息成功！, vbokonly, rs_addbook.close text1 = text2 = combo1.text = text3 = text4 = text5 = text6 = txtcomment.text = else msgbox 圖書編號(hào)重復(fù)！, vbokonly + vbexclamation, text1.setfocus text1.text = rs_addbook.close exit subend ifend sub 5

28、.2.2 添加讀者信息版塊代碼 private sub command1_click()dim sql as stringif trim(combo1.text) = then msgbox 請(qǐng)選擇讀者種類, vbokonly + vbexclamation, combo1.setfocus exit subend ifif trim(text1.text) = then msgbox 讀者姓名不能為空, vbokonly + vbexclamation, text1.setfocus exit subend ifif trim(text2.text) = then msgbox 讀者編號(hào)不能

29、為空, vbokonly + vbexclamation, text2.setfocus exit subend ifsql = select * from 讀者信息 where 讀者編號(hào)= & text2.text & rs_addreader.open sql, conn, adopenkeyset, adlockpessimisticif rs_addreader.eof then rs_addreader.addnew rs_addreader.fields(0) = trim(text1.text) rs_addreader.fields(1) = trim(text2.text)

30、rs_addreader.fields(2) = trim(combo2.text) rs_addreader.fields(3) = trim(combo1.text) rs_addreader.fields(4) = trim(text3.text) rs_addreader.fields(5) = trim(text4.text) rs_addreader.fields(6) = trim(text5.text) rs_addreader.fields(7) = cdate(text6.text) rs_addreader.fields(9) = txtcomment.text rs_a

31、ddreader.update msgbox 添加讀者信息成功！, vbokonly, rs_addreader.close text1 = text2 = text3 = text4 = text5 = text6 = txtcomment.text = combo2.text = combo1.text = else msgbox 讀者編號(hào)重復(fù)！, vbokonly + vbexclamation, text1.setfocus text1.text = rs_addreader.close exit subend ifend sub5.2.3查詢讀者版塊代碼 dim rs_findrea

32、der as new adodb.recordsetdim sql as stringif check1.value = vbchecked then sql = 讀者編號(hào)= & trim(text1.text & ) & end ifif check2.value = vbchecked then if trim(sql) = then sql = 讀者姓名= & trim(text2.text & ) & else sql = sql & and 讀者姓名= & trim(text2.text & ) & end ifend ifif check3.value = vbchecked th

33、en if trim(sql) = then sql = 讀者類別= & trim(combo1.text & ) & else sql = sql & and 讀者類別= & trim(combo1.text & ) & end ifend ifif check1.value = vbunchecked and check2.value = vbunchecked and check3.value = vbunchecked thensql = select * from 讀者信息elsesql = select * from 讀者信息 where & sqlend ifsql = sele

34、ct * from 讀者信息 where & sqlrs_findreader.cursorlocation = aduseclientrs_findreader.open sql, conn, adopenkeyset, adlockpessimisticdatagrid1.allowaddnew = falsedatagrid1.allowdelete = falsedatagrid1.allowupdate = falseset datagrid1.datasource = rs_findreaderend sub5.2.4修改/刪除讀者信息版塊代碼dim answer as stringon error goto cmdmodifycmddel.enabled = falsecmdmo