VB環(huán)境下基于Access數(shù)據(jù)庫圖書管理系統(tǒng)的開發(fā)與實現(xiàn)畢業(yè)論文設(shè)計

1、X X X X 畢 業(yè) 論 文 學(xué)院： 年級： 專業(yè)： 班級： 姓名：指導(dǎo)老師： 課題：VB環(huán)境下基于Access數(shù)據(jù)庫圖 書管理系統(tǒng)的開發(fā)與實現(xiàn)目錄內(nèi)容摘要1關(guān) 鍵 詞1Abstract1Keywords11.概 述 211數(shù)據(jù)庫及其應(yīng)用212數(shù)據(jù)庫設(shè)計概念213數(shù)據(jù)庫設(shè)計周期32需求分析521工程提出的背景522圖書管理信息系統(tǒng)的構(gòu)成53系統(tǒng)的概念631系統(tǒng)E-R圖設(shè)計632 Access數(shù)據(jù)庫設(shè)計74圖書管理系統(tǒng)的實現(xiàn)1441管理員登陸模塊設(shè)計1442增加用戶模塊設(shè)計1543修改密碼模塊設(shè)計1744圖書登記模塊設(shè)計1845圖書借閱模塊設(shè)計2146圖書賠償模塊設(shè)計2347查詢輸出模塊設(shè)計2

2、648值班管理模塊設(shè)計2749菜單編輯器模塊設(shè)計305調(diào)試與分析33參考文獻34致謝35VB環(huán)境下基于Access數(shù)據(jù)庫的圖書管理系統(tǒng)的開發(fā)與實現(xiàn)內(nèi)容摘要：圖書管理系統(tǒng)是一個教育單位不可缺少的局部, 是典型的信息管理系統(tǒng)(MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)平安性好的庫。而對于后者那么要求應(yīng)用程序功能完備,易使用等特點。因此，結(jié)合我校師生較多和生源較雜的情況，以方便我校師生和圖書管理人員，再加上對Microsoft Access 2003數(shù)據(jù)庫管理系統(tǒng)、VB應(yīng)用程序的學(xué)習(xí)和應(yīng)用，主要完成對圖書管理系統(tǒng)的需求分析、結(jié)構(gòu)

3、設(shè)計、總體規(guī)劃及數(shù)據(jù)庫的實現(xiàn)。關(guān)鍵詞：圖書管理、圖書資料、值班管理、系統(tǒng)管理Abstract: The book management system is an education unit indispensability of part,which is typical model of information management system. Its development is main to include a backstage database of of establishment and maintenance and head application procedure

4、 of development.For the former requests establishment data consistency and integrity strong, the data safety good database.But for the latter requests application the procedure function be completed, easy usage etc. characteristics.Therefore combing teachers and the students in my school is more wit

5、h living the source and more miscellaneous circumstance, with convenience teachers and the students in my school and book manager, again plus 2003 databases to the Microsoft Access management system, VB application procedure of study and application, Its main completion is to book management system

6、of need analysis, structure design, total programming and database of realization.Keywords: Book management、 book data、 on duty management 、 system management.第一章 概述11數(shù)據(jù)庫及其應(yīng)用從廣義上講，數(shù)據(jù)庫就是數(shù)據(jù)或信息的集合，相當(dāng)于一個數(shù)據(jù)倉庫。具體地說，數(shù)據(jù)庫是一組經(jīng)過計算機整理后的數(shù)據(jù)，它由許多數(shù)據(jù)組成。自20世紀(jì)70年代以來,數(shù)據(jù)庫技術(shù)得到迅速開展.目前世界上已經(jīng)有數(shù)百萬個數(shù)據(jù)庫系統(tǒng)在運行,其應(yīng)用已經(jīng)深入到社會生活的各個領(lǐng)域,從

7、企業(yè)管理,銀行管理,資源管理,經(jīng)濟預(yù)測一直到信息檢索,檔案管理,普查統(tǒng)計等。我國20世紀(jì)90年代初在全國范圍內(nèi)裝備了12個以數(shù)據(jù)庫為根底的大型計算機系統(tǒng),這些系統(tǒng)分布在郵電,計委,銀行,電力,鐵路,氣象,民航,情報,公安,軍事,航天和財稅等行業(yè)。 現(xiàn)在,數(shù)據(jù)庫技術(shù)還在不斷開展,并且不斷的與其它計算機技術(shù)相互滲透。數(shù)據(jù)庫技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合,產(chǎn)生了分布式的數(shù)據(jù)庫系統(tǒng)。數(shù)據(jù)庫技術(shù)與面象對象技術(shù)相結(jié)合,產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫系統(tǒng)等各種數(shù)據(jù)庫系統(tǒng)。 在人類邁向21世紀(jì)知識經(jīng)濟的時候,信息變?yōu)榻?jīng)濟開展的戰(zhàn)略資源,信息技術(shù)已成為社會生產(chǎn)力重要的組成局部。人們充分認識到,數(shù)據(jù)庫是信息化社會中信息資源管理與

8、開發(fā)利用的根底。對于一個國家,數(shù)據(jù)庫的建設(shè)規(guī)模,使用水平已成為衡量該國信息化程度的重要標(biāo)志.因此,數(shù)據(jù)庫的學(xué)習(xí)是非常重要的。12數(shù)據(jù)庫設(shè)計概念數(shù)據(jù)庫設(shè)計是指對于一個給定的應(yīng)用環(huán)境，提供一個確定最優(yōu)數(shù)據(jù)模型與處理模式的邏輯設(shè)計，以及一個確定數(shù)據(jù)庫存儲結(jié)構(gòu)與存取方法的物理設(shè)計，建立起既能反映現(xiàn)實世界信息和信息聯(lián)系，滿足用戶數(shù)據(jù)要求和加工要求，又能被某個數(shù)據(jù)庫管理系統(tǒng)所接受，同時能實現(xiàn)系統(tǒng)目標(biāo)，并有效存取數(shù)據(jù)的數(shù)據(jù)庫。當(dāng)數(shù)據(jù)庫所存儲的的信息邏輯關(guān)系簡單、數(shù)據(jù)記錄量不大時，數(shù)據(jù)庫的設(shè)計相對容易、編輯修改也方便；而當(dāng)數(shù)據(jù)庫內(nèi)容龐大、關(guān)系復(fù)雜且在使用中發(fā)現(xiàn)問題時再進行修改，就有可能造成數(shù)據(jù)喪失，這是用戶所

9、不希望發(fā)生的。所以在設(shè)計前應(yīng)該精心構(gòu)思，使之遵循以下幾條規(guī)那么。規(guī)那么一：字段的惟一性，即表中的每個字段只能含有惟一類型的數(shù)據(jù)信息。規(guī)那么二：記錄的惟一性，即表中沒有完全一樣的兩個記錄。規(guī)那么三：功能相關(guān)性，即在數(shù)據(jù)庫中，任意一個數(shù)據(jù)表都應(yīng)該有一個主關(guān)鍵字段與表中記錄的各實體相對應(yīng)。規(guī)那么四：字段無關(guān)性，即在不影響其他字段的情況下，必須能夠?qū)θ我庾侄芜M行修改總之，用戶在設(shè)計好一個數(shù)據(jù)庫之后，可以根據(jù)這4條規(guī)那么一條一條地去檢驗所設(shè)計的數(shù)據(jù)庫，對不合理的地方進行修改，以使數(shù)據(jù)庫符合以上規(guī)那么。13數(shù)據(jù)庫設(shè)計周期 根據(jù)軟件工程的思想，數(shù)據(jù)庫設(shè)計的周期可以劃分為六個階段：1 規(guī)劃階段確定開發(fā)的總目標(biāo)

10、，給出方案開發(fā)的軟件系統(tǒng)的功能、性能、可靠性以及接等方面的設(shè)想。 2 需求分析階段認真細致地了解用戶對數(shù)據(jù)的加工要求，確定系統(tǒng)的功能與邊界。本階段的最終結(jié)果，提供一個可作為設(shè)計根底的系統(tǒng)說明書，包括對軟硬件環(huán)境的要求和一整套完善的數(shù)據(jù)流程圖。3 設(shè)計階段把需求分析階段所確定的功能細化，主要工作是概念設(shè)計階段、邏輯設(shè)計階段、物理設(shè)計階段，然后，對每個階段內(nèi)部設(shè)計詳細的流程。 4 程序編制階段以一種或幾種特定的程序設(shè)計語言表達上一階段確定的各模塊控制流程。程序編制時應(yīng)遵循結(jié)構(gòu)化程序設(shè)計方法。5 調(diào)試階段對已編好的程序進行單元調(diào)試分調(diào)，整體調(diào)試聯(lián)調(diào)和系統(tǒng)測試驗收。6 運行和維護階段這是整個設(shè)計周期最

11、長的階段，其工作重點是收集和記錄系統(tǒng)實際運行的數(shù)據(jù)。在運行中，必須保持數(shù)據(jù)庫的完整性，必須有效的處理數(shù)據(jù)故障和進行數(shù)據(jù)庫恢復(fù)。同時解決開發(fā)過程的遺留問題，改正錯誤進行功能完善。 總結(jié)：本文設(shè)計的是一個關(guān)于學(xué)校圖書館圖書管理的數(shù)據(jù)庫系統(tǒng),通過這個系統(tǒng)管理員可以快速、方便的對圖書記錄查閱、增加、刪除等功能，而用戶也可以通過這個系統(tǒng)進行圖書查詢、借閱、歸還等功能。 本系統(tǒng)采用microsoft access 2003技術(shù)建立數(shù)據(jù)庫，使用VB 6.0技術(shù)建立數(shù)據(jù)源的鏈接,并且生成圖書管理的數(shù)據(jù)庫應(yīng)用程序從而實現(xiàn)數(shù)據(jù)庫的管理功能。第二章 需求分析需求分析階段確定的系統(tǒng)邏輯模型是以后設(shè)計和實現(xiàn)目標(biāo)系統(tǒng)的根

12、底，因此必須準(zhǔn)確完整地表達用戶的要求。在這一章里，我將給出系統(tǒng)的功能結(jié)構(gòu)圖，為系統(tǒng)的設(shè)計奠定根底。21工程提出的背景隨著計算機技術(shù)的飛速開展，其應(yīng)用方面已滲透到社會生活的各個領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校，尤其是在一些高校，圖書是學(xué)校的一項重要資源，圖書的管理也是學(xué)校的一項常規(guī)性的重要工作。近年來，我校招生情況越來越好，所以圖書管理越來越嚴(yán)重。又加之我校自08年10月份升入本科院校之后，由于生源雜、師生多、管理人員并沒有增加等種種原因，因此原有的圖書管理系統(tǒng)已不能適應(yīng)現(xiàn)行的工作需要。同時，以前的圖書管理系統(tǒng)也不能更好地滿足師生借閱圖書的要求，又不能表達我校圖書館藏書豐富的特點

13、。在此種情況下，做一個結(jié)合我校實際情況的圖書管理系統(tǒng)是很有必要的。圖書管理圖書資料值班管理系統(tǒng)管理圖書登記圖書借閱圖書賠償查詢輸出增加用戶修改密碼退出圖書管理系統(tǒng)圖22圖書管理系統(tǒng)功能結(jié)構(gòu)圖22圖書管理信息系統(tǒng)的構(gòu)成 第三章 系統(tǒng)的概念此階段主要的任務(wù)和目標(biāo)是根據(jù)需求分析的結(jié)果，畫出對應(yīng)的ER圖。對于復(fù)雜的系統(tǒng)，通常首先要對它的各功能模塊進行分析，然后再把它的功能結(jié)構(gòu)圖畫出來，便是設(shè)計和優(yōu)化。功能分析之后，再根據(jù)各個模塊、各個用戶對數(shù)據(jù)和使用權(quán)限的不同要求做出局部ER圖，然后再把各個局部ER圖結(jié)合起來形成統(tǒng)一的整體ER圖。31系統(tǒng)E-R圖設(shè)計圖書借閱書名編號類型姓名借書證號圖31.2圖書借閱實

14、體歸還日期日期借閱日期備注軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng)，因此，在軟件系統(tǒng)的整個開發(fā)過程中都必須考慮兩方面的問題：“數(shù)據(jù)及對數(shù)據(jù)的“處理。為了把用戶的數(shù)據(jù)要求清晰明確地表達出來，系統(tǒng)分析員通常建立一個概念性的數(shù)據(jù)模型。概念性數(shù)據(jù)模型是一種面向問題的數(shù)據(jù)模型，是按照用戶的觀點來對數(shù)據(jù)和信息建模，它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實環(huán)境，且與在軟件系統(tǒng)中的實現(xiàn)方法無關(guān)。這里運用最常用的表示概念性數(shù)據(jù)模型的方法，是實體聯(lián)系方法即ER模型。通常，軟件系統(tǒng)中有許多數(shù)據(jù)是需要長期保存的。為減少數(shù)據(jù)冗余，簡化修改數(shù)據(jù)的過程，實現(xiàn)對數(shù)據(jù)進化、標(biāo)準(zhǔn)化。圖書登記書名編號類型定價購置日期力日圖31.1圖書

15、登記實體圖31.3圖書賠償實體圖書賠償書名編號類型姓名圖書證號賠償金額損壞程度解決方案值班管理值班人記事值班截止日期圖31.4值班管理實體值班截止日期查詢輸出圖書編號購置日期力日圖31.5查詢輸出實體值班開始日期值班開始時間3.2 Access數(shù)據(jù)庫設(shè)計這里采用Access 2003數(shù)據(jù)庫,用ADO作為連接對象。建立Access數(shù)據(jù)庫 啟動Microsoft Access 2003，建立一個空的數(shù)據(jù)庫library.mdb,如3.1.1所示。圖建立library數(shù)據(jù)庫使用程序設(shè)計器建立系統(tǒng)需要的表格如下。圖書登記表，如3.1.2圖圖書借閱表圖書借閱表,如3.1.3圖31.3圖書借閱表 圖書賠償

16、表，如3.1.4圖3. 1.4圖書賠償表圖書資料表,如3.1.5圖3.1.5圖書資料表系統(tǒng)管理表,如3.1.6圖3.1.6系統(tǒng)管理表值班管理表,如3.1.7圖3.1.7值班管理表2.連接數(shù)據(jù)在Visual Basic環(huán)境下，選擇菜單欄“工程“部件，翻開“部件對話框，在隨后出現(xiàn)的對話框中選擇“Microsoft ado data control 6.0”，然后單擊“確定按鈕，如圖3.2.1所示。圖3.2.1部件對話框?qū)DO數(shù)據(jù)控件與Data Grid控件添加到窗體上ADO控件默認名為Adodc1，如3.2.2所示。圖3.2.2窗體上的ADO與DataGrid控件其中，ADO控件包括一個連接字符

17、串屬性ConnectionString，用于連接到計算機上某個數(shù)據(jù)源。數(shù)據(jù)源連接選擇數(shù)據(jù)源連接方式。鼠標(biāo)右鍵單擊ADO數(shù)據(jù)控件，選擇彈出菜單中的“ADODC屬性命令，翻開控件“屬性頁對話框，如圖3.2.3所示。數(shù)據(jù)源連接有三種不同的方式，日前使用的方式是“使用連接字符串。連接字符串包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息。圖32.3 ADO“屬性頁對話框選擇數(shù)據(jù)庫類型單擊“生成按鈕，翻開如圖3.2.4所示的數(shù)據(jù)鏈接屬性窗口，OLEDB提供者決定了將使用的數(shù)據(jù)庫類型，數(shù)據(jù)提供者可看成某種類型數(shù)據(jù)庫的驅(qū)動程序。連接Access 2003及更高版本的數(shù)據(jù)庫時，需要選擇Microsoft Jet 4.0

18、OLE DB Provider.圖32.4“數(shù)據(jù)鏈接屬性對話框指定數(shù)據(jù)庫文件名在選擇了OLE DB提供者后，單擊“下一步按鈕或選擇“連接按鈕，進入如圖3.2.5所示的對話框，指定數(shù)據(jù)庫文件名。為保證連接有效，可單擊右下方的“測試連接按鈕，如果測試成功那么關(guān)閉該對話框，返回到如圖3.2.3所示的“屬性頁對話框。圖3.2.5指定數(shù)據(jù)庫文件名指定記錄源。選擇圖3.2.-3中的“Record source選項卡，彈出記錄源“屬性頁對話框，如圖3.2.6所示。利用Data Grid 來顯示數(shù)據(jù)選定Data Grid控件，將其Data Source屬性設(shè)置為Adodc1控件，將網(wǎng)格綁定到產(chǎn)生的記錄集。運行

19、該程序即可對數(shù)據(jù)庫進行瀏覽。ADO控件上的4個箭頭為數(shù)據(jù)庫的導(dǎo)航裝置。單擊最左邊的箭頭移動到數(shù)據(jù)庫的第一條記錄，最右邊的箭頭移動到數(shù)據(jù)庫的最后一條記錄，中間兩個箭頭讓分別移動到前一條或后一條記錄。第四章 圖書管理系統(tǒng)的實現(xiàn)41管理員登陸模塊設(shè)計登陸界面的主要任務(wù)根據(jù)用戶名、密碼是否正確來判斷是否可以進入系統(tǒng)后臺。管理員登陸模塊界面:代碼如下：Private Sub Command1_Click() If Text1.Text = Then MsgBox 用戶名不能為空!, vbOKOnly Exit Sub Else If Text2.Text = Then MsgBox 密碼不能為空!, v

20、bOKOnly Exit Sub Else Adodc1.Recordset.Find 用戶名= & Text1.Text & If Adodc1.Recordset.EOF = False Then If Adodc1.Recordset.Fields(密碼) = Text2.Text Then MsgBox 登錄成功！, vbOKOnly Unload Me formmain.Show Else MsgBox 密碼不正確！, vbOKOnly End If Else MsgBox 用戶名不正確！, vbOKOnly Exit Sub End If End If End IfEnd SubP

21、rivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub42增加用戶模塊設(shè)計增加用戶模塊是用來增加用戶的用戶名、密碼和權(quán)限的。增加用戶模塊界面：代碼如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Find 用戶名= & Text1.Text & If Adodc1.Recordset.EOF = False Then MsgBox 已存

22、在此用戶,請重新輸入!, vbOKOnly Exit Sub Else Adodc1.Recordset.Fields(用戶名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密碼) = Trim(Text2.Text) MsgBox 新用戶添加成功, vbOKOnly End If Else MsgBox 兩次密碼輸入不一致,請重新輸入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() A

23、dodc1.RefreshEnd Sub43修改密碼模塊設(shè)計修改密碼模塊是用來修改用戶密碼的。修改密碼界面如下：代碼如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Filter = 用戶名= & Trim(Text1.Text) & If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.Fields(密碼) = Trim(Text2.Text) MsgBox 修改成功, vbOKOnly E

24、xit Sub Else MsgBox 不存在此用戶,無法修改!, vbOKOnly End If Else MsgBox 兩次密碼輸入不一致,請重新輸入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub44圖書登記模塊設(shè)計本模塊用來填寫圖書登記的信息。圖書登記模塊界面：代碼如下：Private Sub Command1_Click() On Error GoTo adderr Text

25、1.SetFocus Exit Subadderr: MsgBox Err.Description End SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then Adodc End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivat

26、e Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, v

27、bOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.EOF Then MsgBox 記錄空, vbOKCancel + vbQuestion End Else End If Exit Sub End SubPrivate Sub Command7_Click() formmain.Show Form4.HideEnd Sub45圖書借閱模塊設(shè)計圖書借閱模塊主要列出了書借閱的詳細信息。圖書借閱模塊界面：代碼如下：Private Sub Command1_Click() O

28、n Error GoTo adderr Text1.SetFocus Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then End If End If End With Exit Subdeleteerr: MsgBox Err.Descrip

29、tionEnd SubPrivate Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.EOF Then MsgBox 記

30、錄空, vbOKCancel + vbQuestion End Else End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, vbOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form6.HideEnd Sub46圖書賠償模塊設(shè)計該模塊是用來填寫圖書是否損壞及如何賠償?shù)男畔ⅰD書賠償模塊界面：代碼如下：Private Sub

31、 Command1_Click() On Error GoTo adderr Text1.SetFocus Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then End If End If End With Exit Subdeleteerr:

32、 MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordse

33、t.EOF Then MsgBox 記錄空, vbOKCancel + vbQuestion End Else End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, vbOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form7.HideEnd Sub47查詢輸出模塊設(shè)計查詢輸出模塊的主要任務(wù)就是對所有圖書信息進行查詢。查詢輸出

34、界面：代碼如下：Private Sub Command1_Click() Dim condition As String If Text1.Text Then condition = Combo1.Text & = & Text1.Text & Adodc1.Recordset.Filter = condition If Adodc1.Recordset.EOF = True Then MsgBox 沒有你要搜索的信息!, vbOKOnly End If Set DataGrid1.DataSource = Adodc1 Else MsgBox 搜索條件不能為空!, vbOKOnly End

35、IfEnd SubPrivate Sub Command2_Click() formmain.Show Form3.HideEnd SubPrivate Sub Form_Load() Combo1.AddItem 購置日期End Sub48值班管理模塊設(shè)計值班管理模塊的作用是把值班人員的時間安排形成列表。值班管理界面：代碼如下：Private Sub Command1_Click() On Error GoTo adderror If Command1.Caption = 新增記錄 Then Command1.Caption = 確定 Command2.Enabled = False Dat

36、aGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Else If Not IsNull(DataGrid1.Bookmark) Then If Not IsDate(Trim(DataGrid1.Columns(值班開始日期).CellText(DataGrid1.Bookmark) Then MsgBox 請按照格式y(tǒng)yyy-mm-dd輸入值班開始日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班開始時間).Cel

37、lText(DataGrid1.Bookmark) Then MsgBox 請按照格式hh-mm輸入值班開始時間, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止日期).CellText(DataGrid1.Bookmark) Then MsgBox 請按照格式y(tǒng)yyy-mm-dd輸入值班截止日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止時間).Ce

38、llText(DataGrid1.Bookmark) Then MsgBox 請按照格式hh-mm輸入值班截止時間, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(值班人).CellText(DataGrid1.Bookmark) = Then MsgBox 值班人不能為空!, vbOKOnly + vbExclamation, Exit Sub End If Adodc1.UpdateMsgBox 添加信息成功!, vbOKOnly + vbExclamation, DataGrid1.AllowAdd

39、New = False DataGrid1.AllowUpdate = False Else MsgBox 沒有添加信息!, vbOKOnly + vbExclamation, End If Command1.Caption = 新增記錄 Command2.Enabled = True End Ifadderror: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub Command2_Click() Dim answer As String On Error GoTo delerror answer = MsgBox(確定要刪除嗎?, vbYesNo, ) If answer = vbYes Then DataGrid1.AllowDelete = True Adodc1.Delete Adodc1.Update DataGrid1.Refresh MsgBox 成功刪除!, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = False Else Exit S