基于VBACCESS書城管理系統(tǒng)設計

1、本科畢業(yè)論文（設計）封面模板捆綁式作業(yè)（設計）作業(yè)題目： 書城管理系統(tǒng) 學生姓名及學號：（） （） （） 專 業(yè)： 信息管理與信息系統(tǒng) 班 級： 信管0811班 指導教師： 完成日期：2008年12月28日書城管理系統(tǒng)論文摘要本論文首先描述了目前所面對的課題, 然后介紹了系統(tǒng)的背景,主要內容以及應用軟件。根據具體的情況，明確了設計的目標和要求，詳細介紹了開發(fā)書城管理系統(tǒng)所需要的技術、環(huán)境、平臺和工具，分析了這個系統(tǒng)所應實現的各個功能模塊，給出了詳盡的設計方案，設計出了一個用于信息發(fā)布的具有針對性的書城信息管理系統(tǒng)。隨后結合數據庫設計理論論述了該系統(tǒng)的總體規(guī)劃及功能模塊分割，所實現的功能都提供了

2、詳細的工作方法和過程。 最后,描述了系統(tǒng)的調試過程,以及在本次作業(yè)中的收獲和體會。 關鍵詞 ：VB；ACCESS；查詢The Book City Management SystemAbstractThis thesis first described the topic which at present faces, then introduced the system background, primary coverage as well as application software.According to the concrete situation, has been clear

3、about the design goal and the request, introduced in detail develops technology, environment, platform and tool which the book city management system management system needs, has analyzed each function module which this system should realize, has given the exhaustive design proposal, designed one to

4、 use in the information issuing has the pointed book city information management system. Afterwards unified the database design theory to elaborate this system overall plan and the function module division, realized the function has all provided the detailed method of work and the process. Finally,

5、described the system debugging process, as well as in this work harvest and experience. Key word ：VB; ACCESS; Inquiry目 錄一、系統(tǒng)開發(fā)背景與可行性分析4 （一）開發(fā)環(huán)境.4 （二） 可行性分析.4二、系統(tǒng)分析.5 （一）需求分析.5 （二）業(yè)務流程.5（三）系統(tǒng)數據流程.7（四）數據字典.7三、系統(tǒng)總體設計與模塊構成.13（一）系統(tǒng)功能模塊.14 （二）系統(tǒng)E-R圖.14四、系統(tǒng)詳細設計.16（一）系統(tǒng)子功能模塊說明.16 (二）關系模式. 18 （三）數據表文件18 （四）程

6、序設計界面. .20五、系統(tǒng)實施.21（一）系統(tǒng)處理流程圖 21（二）數據庫實施 22六、系統(tǒng)調試.23（一）調試計劃23（二） 程序調試內容.24七、系統(tǒng)運行.25八、總結.30附錄：源代碼.30一、系統(tǒng)開發(fā)背景與可行性分析（一）開發(fā)環(huán)境Microsoft Office Access2003 是一種數據庫管理程序，可賦予更佳的用戶體驗，并且新增了導入、導出和處理 XML 數據文件等功能。由于該程序可以識別和標記常見錯誤，同時提供更正錯誤的選項，因此在 Access 2003 中工作變得更加輕松自如。另外，Access 2003 的新功能還可以幫助數據庫開發(fā)人員查看有關數據庫對象之間相關性的信

7、息。Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅動編程語言。從任何標準來說，VB都是世界上使用人數最多的語言不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。并且從VB3開始，微軟將ACCESS的數據庫驅動集成到了VB中，這使得VB的數據庫編程能力大大提高。（二）可行性分析1.經濟可行性：實驗室里有開發(fā)所需的各種資源，無需經濟投入。2

8、.技術可行性：技術上的可行性分析主要分析技術條件能否順利完成開發(fā)工作，硬、軟件能否滿足開發(fā)者的需要等。該管理系統(tǒng)采用了當前主流的Visual Basic 6.0工具進行開發(fā)。數據庫服務器選用Access數據庫，它能夠處理大量數據，同時保持數據的完整性并提供許多高級管理功能。它的靈活性、安全性和易用性為數據庫編程提供了良好的條件。而且，從VB3開始，微軟將ACCESS的數據庫驅動集成到了VB中，這使得VB的數據庫編程能力大大提高，因此，系統(tǒng)的軟件開發(fā)平臺已成熟可行。硬件方面，科技飛速發(fā)展的今天，硬件更新的速度越來越快，容量越來越大，可靠性越來越高，價格越來越低，其硬件平臺完全能滿足此系統(tǒng)的需要。

9、3.操作可行性1）管理可行性：主要是管理人員是否支持，現有的管理制度和方法是否科學，規(guī)章制度是否齊全，原始數據是否正確等。規(guī)章制度和管理方法為書城的建設提供了制度保障。2)用戶使用可行性：本系統(tǒng)界面美觀，操作簡單方便，不熟悉計算機的用戶亦能自如的操作，按所需可對各類信息進行查詢與狀態(tài)顯示。綜上所述，此系統(tǒng)開發(fā)目標已明確，在技術，經濟，操作等方面都可行，并且投入少、見效快。因此系統(tǒng)的開發(fā)是完全可行的。二、系統(tǒng)分析（一） 需求分析隨著社會的飛速發(fā)展，人們生活水平的不斷提高，物質文化的發(fā)展已經遠遠滿足不了人們的需求，精神文明有了飛速的發(fā)展，因此圖書事業(yè)的發(fā)展就成為精神文明進步的一個動力。在邁入二十一

10、世紀的今天，對書店的管理顯得極其重要，合理地管理不但反映一個國家的科技水平，而且影響人們對知識掌握的速度和質量。在知識經濟時代到來的今天，用計算機控制書城的工作由自動化系統(tǒng)運行而完成。這不僅節(jié)省了人力，還提高了工作效率和服務質量，而且還加速了圖書的流通。書城管理工作的現代化是極其重要的,又由于科學和技術的不斷發(fā)展和進步,現代技術已經成為一個動態(tài)的概念。而本次開發(fā)的書城管理系統(tǒng),是為了解決現有矛盾,充分利用現有技術和資源，發(fā)揮科學創(chuàng)新，探索數字科技的魅力，增強書城競爭力的探索過程。該軟件設計可用于所有書城的信息管理， 它能提高書城本身管理水平，能代替工作人員進行圖書信息的某些加工處理，把工作人員

11、從繁重的手工勞動，重復勞動中解放出來。（二）業(yè)務流程通過對書城的管理業(yè)務的實際調查分析，弄清了書城管理工作的業(yè)務流程和管理功能，系統(tǒng)的業(yè)務流程如下圖所示。日報表月報表銷售員管理員圖書上架圖書售出消費者賬本發(fā)票圖2-1 書城管理業(yè)務流程圖(三）系統(tǒng)數據流程書城管理的數據流程圖如圖所示：圖書信息信息反饋查找信息反饋信息圖書信息圖書銷售銷售信息銷售員新圖書管理員用戶圖書上架查找圖書目標圖書無目標圖書意見薄 發(fā)票賬簿 報表圖2-2書城管理數據流程圖（四）、數據字典（1）數據流的描述數據流編號：D-01數據流名稱：圖書簡述：管理員添加的圖書數據流來源：管理員數據流去向：圖書上架模塊數據項組成：書號+書名

12、+作者+類別+零售價+出版社+版本+出版日期+頁碼+語言+簡介數據流量：約50種/ 月高峰流量：約70種/月數據流編號：D-02數據流名稱：目標圖書簡述：消費者找到的要購買的圖書數據流來源：查找圖書模塊數據流去向：銷售員數據項組成：書號+數量數據流量：約400本/日高峰流量：約700本/日數據流編號：D-03數據流名稱：無目標圖書簡述：消費者沒有查找到的圖書數據流來源：查找圖書模塊數據流去向：信息反饋模塊數據項組成：書名+作者數據流量：約50種/日高峰流量：約80種/日數據流編號：D-04數據流名稱：圖書信息簡述：圖書的基本信息。數據流來源：圖書上架模塊數據流去向：消費者數據項組成：書號+書名

13、+作者+類別+零售價+出版社+版本+出版日期+頁碼+語言+簡介數據流量：約400條/日高峰流量：約700條/日數據流編號：D-05數據流名稱：銷售信息簡述：圖書銷售的信息數據流來源：銷售員數據流去向：會員積分數據項組成：書號+數量+零售價+會員號+銷售額數據流量：約200條/日高峰流量：約300條/日（2）處理邏輯的描述處理邏輯編號：P-01處理邏輯名稱：圖書上架 簡述： 管理員添加圖書輸入的數據流：圖書處理描述：管理員將圖書上架，并更新圖書信息輸出的數據流：圖書信息處理頻率：50次/日處理邏輯編號：P-02處理邏輯名稱：查找圖書 簡述：消費者查找想要購買的圖書。輸入的數據流：查找信息處理描述

14、：消費者根據查找信息，查找相應的圖書信息。輸出的數據流：目標圖書/無目標圖書處理頻率：800次/日處理邏輯編號：P-03處理邏輯名稱：信息反饋 簡述：消費者反饋想要購買但庫中沒有的圖書輸入的數據流：無目標圖書處理描述：消費者找不到想要購買的圖書時，將想要購買的圖書的名稱與作者反饋給管理員輸出的數據流：反饋信息。處理頻率：10次/日處理邏輯編號：P-04處理邏輯名稱：圖書銷售 簡述：銷售員銷售圖書輸入的數據流：目標圖書處理描述：銷售員售出圖書，用戶支付應收帳。輸出的數據流：銷售信息處理頻率：400次/日（3）數據存儲的描述 數據存儲編號：F-01數據存儲名稱：圖書基本信息簡述：記錄各種圖書的基本

15、信息數據存儲的組成：書號+書名+作者+類別+零售價+出版社+版本+出版日期+頁碼+語言+簡介關鍵字：書號相關聯(lián)的處理：P-01,P-02,P-04數據存儲編號：F-02數據存儲名稱：會員信息簡述：記錄會員的信息數據存儲的組成：會員號+會員名+密碼+電子郵箱+積分關鍵字：會員號相關聯(lián)的處理：P-04,P-03數據存儲編號：F-03數據存儲名稱：銷售信息簡述：記錄每條銷售信息數據存儲的組成：書號+數量+時間+零售價+會員名+銷售額關鍵字：無 相關聯(lián)的處理：P-04數據存儲編號：F-04數據存儲名稱：職工信息簡述：記錄職工的基本信息數據存儲的組成：職工號+職工名+密碼+職位關鍵字：職工號相關聯(lián)的處理

16、：P-01,P-04（4）、外部實體的描述外部實體編號：S-01外部實體的名稱：消費者簡述：查找、購買圖書輸入的數據流：D-02輸出的數據流：D-02外部實體編號：S-02外部實體的名稱：管理員簡述：管理圖書輸入的數據流：D-03輸出的數據流：D-01外部實體編號：S-03外部實體的名稱：銷售員簡述：銷售圖書，并記錄銷售信息。輸入的數據流：D-02輸出的數據流：D-05三、系統(tǒng)總體設計與模塊構成本系統(tǒng)設計要求具有友好的用戶界面、操作簡單方便，不熟悉計算機的用戶亦能自如的操作，按所需要求對各類信息進行修改、查詢、統(tǒng)計與狀態(tài)顯示。要求系統(tǒng)具有良好的安全性和保密措施，不同的用戶具有不同的安全級別，只

17、能進行系統(tǒng)允許的操作，可以脫離開發(fā)環(huán)境運行，同時系統(tǒng)還應該具備通用性與可擴充性。而且，本系統(tǒng)是針對書城的管理活動進行系統(tǒng)管理的平臺，需要擔負書城管理活動正常運行的重責，因此對系統(tǒng)的穩(wěn)定性要求較高，可通過系統(tǒng)簡潔、有效的特點，來做到長期穩(wěn)定的工作特點。為此，我們把該系統(tǒng)功能分為三大模塊用戶查詢模塊、后臺管理模塊和前臺銷售模塊。在原系統(tǒng)中，圖書上架仍由管理員人工完成，圖書銷售時開發(fā)票也仍由銷售員手工完成。新系統(tǒng)為每種圖書設計了代碼，一方面可統(tǒng)一圖書的品種及其特性，另一方面是為了方便數據輸入。圖書代碼采用的是區(qū)間碼結構。 在系統(tǒng)運行過程中凡是需要查詢某種圖書時，只需輸入圖書代碼即可，系統(tǒng)可以自動將相

18、應的圖書信息調出。 圖書代碼設計 圖書語言圖書類別圖書順序（一）系統(tǒng)功能模塊新系統(tǒng)軟件設計采用模塊化程序設計方法，系統(tǒng)總體設計主要分為三個功能模塊用戶查詢模塊，后臺管理模塊，前臺銷售模塊。信息反饋書城管理系統(tǒng)圖書查詢用戶查詢月末盤點圖書銷售前臺銷售普通用戶會員個人信息查詢修改圖書信息添加新圖書后臺管理圖3-1 書城管理系統(tǒng)功能模塊圖（二）系統(tǒng)E-R圖（1）各子系統(tǒng)基本E-R圖信息個人信息VIP用戶反饋修改M普通用戶M圖書書名作者類別查詢N11N1圖3-2用戶查詢的基本E-R圖修改添加管理員新圖書圖書信息11NN圖3-3后臺管理的基本E-R圖NN1NNMNMNM支付用戶應收帳購買組成積分折扣規(guī)則

19、圖書參照1M銷售員銷售更新銷售信息圖3-4前臺銷售的基本E-R圖（2）系統(tǒng)E-R圖MMN管理MMN11M查詢普通用戶會員修改個人信息反饋信息管理員MMN1NNMNN1NN支付應收帳購買組成積分折扣規(guī)則圖書參照銷售員銷售更新銷售信息用戶圖3-5系統(tǒng)E-R圖四、系統(tǒng)詳細設計（一）系統(tǒng)子功能模塊說明：為了方便消費者了解圖書信息，新系統(tǒng)特別設計了數據查詢模塊并提供多種查詢功能：如按書名或作者查詢；按圖書類別查詢；以及會員對自己個人信息的查詢等。此模塊是新系統(tǒng)最主要的部分，也是對原系統(tǒng)最大的改進。后臺管理用于錄入圖書的基本數據，以及修改和刪除數據等操作。它是新系統(tǒng)最基本的部分。前臺銷售可以實現報表輸出，

20、可以完成系統(tǒng)所需的各種報表的計算和打印輸出功能。（1）用戶登錄：用戶登錄系統(tǒng)是進入系統(tǒng)的必需條件，目的是驗證用戶賦予的操作權限，確保系統(tǒng)的安全。普通用戶可以不登錄，只進行圖書的查詢。進入系統(tǒng)驗證用戶號、密碼圖4-1 用戶登錄系統(tǒng)流程圖（2）查詢模塊：查詢模塊是通過查詢條件給出結果。定位顯示庫查詢條件查詢模塊過濾圖4-2 查詢模塊流程圖（3）信息錄入信息通過書城信息管理系統(tǒng)輸入到數據庫中相應信息圖4-3 信息錄入流程圖（4）圖書查詢系統(tǒng)圖書信息的關鍵字利用關鍵字在數據庫中找到圖書的全部信息圖書信息的全部內容圖4-4 圖書查詢系統(tǒng)流程圖（二）關系模式：根據系統(tǒng)分析，設計了關系模式： 圖書（書號，書

21、名，作者，類別，零售價，出版社，版本，出版日期，頁碼，語言，簡介）會員（會員編號，會員名，密碼，電子郵箱，積分）職工（職工號，職工名，職位）信息（會員編號，作者，書名，意見和建議）銷售（會員編號，書號，數量，時間，零售價，銷售額）查詢（作者，書名，類別）（三）數據表文件根據關系模式，設計了8數據表文件，它們的結構及其說明如下：1、 圖書基本信息表字段字段名稱類型格式字段大小小數1書號文本82書名文本403作者文本204類別文本105零售價數字貨幣826出版社文本207版本文本88出版日期日期短日期89頁碼數字210語言文本411簡介文本2552、圖書分類表字段字段名稱類型寬度1代碼文本82分類

22、文本43、會員信息表字段字段名稱類型寬度1會員編號文本82會員名文本203密碼文本204電子郵箱文本305積分數字4、職工表字段字段名稱類型寬度1職工號文本82職工名文本203密碼文本204職位文本105、職工分類表字段字段名稱類型寬度1職工號文本82職位文本106、銷售信息表字段字段名稱類型格式寬度1書號文本82數量數字3時間日期/時間常規(guī)日期4會員號文本85零售價數字貨幣7、信息反饋表字段字段名稱類型寬度1會員編號文本82作者文本203書名文本404意見和建議文本255（三）程序設計界面從前面分析中，我們已基本知道書城管理系統(tǒng)所需要達到的功能，可以確定基本界面有： 文件功能主界面圖書查詢，

23、選擇身份登錄。圖書信息列表顯示圖書查詢的結果職工登錄界面管理員或銷售員登錄會員登錄界面會員登錄管理界面管理員可添加、修改圖書信息。銷售界面銷售員可銷售圖書，并查看銷售報表。會員個人信息修改會員可修改個人信息會員個人購買記錄可查詢會員以往購買的圖書信息反饋會員可反饋想要購買的圖書及對書城的建議銷售報表統(tǒng)計每日銷售額表4-1 基本文件表五、系統(tǒng)實施（一）系統(tǒng)處理流程圖系統(tǒng)處理流程圖如圖所示：銷售信息文件個人信息文件反饋信息文件用戶信息文件ID&Password驗證結果界面輸入查詢條件顯示管理界面銷售界面會員界面管理圖書信息文件更新修改添加圖5-1系統(tǒng)處理流程圖（二）、數據庫實施1、利用Micros

24、oft Access 制作數據庫，取名為漢唐書城,然后制作表“圖基本信息表”。如圖所示：2、 繼續(xù)制作表“會員信息表”3、 繼續(xù)制作了其他表。4、 設計表間關系如下：5、 根據用戶操作順序建立界面。（相應代碼見附錄）六、系統(tǒng)調試當模塊設計完成并經過編譯沒有錯誤之后，便要進行調試和測試，這是程序設計中一個非常重要的環(huán)節(jié)，只有通過反復調試和測試，才能確保能實現其預期的目標和保障系統(tǒng)的可靠性，實用性的提高。由于程序員本身能力的局限性，所編寫的代碼，即使經過反復檢查也難免出錯，所以在本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中先是自行調試后，直到不再發(fā)現錯誤，再請

25、一位不熟悉本系統(tǒng)的人來進行隨意性的操作，打破習慣的操作順序和慣常的邏輯思維，從中發(fā)現錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。（一）調試計劃本系統(tǒng)的調試工作并不是在所有模塊設計完成之后才進行的，當某個模塊編譯完成之后都要進行調試，這樣做的好處是可以及時的發(fā)現問題并及時的對其進行解決，避免了當某個模塊都設計好后才進行調試，從而出現問題的堆積和遺忘且做要大量的重復性工作。所有的功能模塊定義完成之后，再把它們連接到主菜單。各模塊經過相互協(xié)調，使得系統(tǒng)整個界面更為直觀，更為方便用戶的使用。對于運行的各個模塊，不僅要注意局部，而且要照顧全局進行總體調試。如果調試過程中發(fā)現局部影響了全局，則需在最小限度修改

26、的原則上做合理的調整。如果是某個模塊的問題，則單獨進行修改，是其適應全局的需要。這樣多次的反復調試，不斷改進，整個系統(tǒng)才可確定為初步正確。（二） 程序調試內容（1）代碼測試調試過程中通常要編寫測試數據。測試數據除采用正常數據外，還應包括一些異常數據和錯誤數據，用來考驗程序邏輯上的正確性。測試數據是經過精心挑選的，使得程序和模塊中的每一條語句都能得到有效執(zhí)行，即能夠測試程序中的任一邏輯通路。常用的測試數據有以下幾種：1、用正常數據調試。2、用異常數據調試。例如用非正常數據參加測試，檢查程序能否正常運行，并發(fā)出錯誤警告。3、用錯誤數據調試。試驗程序對錯誤和處理能力，包括顯示出信息以及容許修改錯誤的

27、可能性。2程序功能測試經代碼測試正確的程序只是基本上驗證了程序邏輯上的正確性，但并不能驗證是否滿足程序說明中定義的功能，也不能驗證測試數據本身是否能完成預期的目標。程序功能測試是面向程序的應用環(huán)境，把程序看做一個“黑盒子”，認為程序只要滿足應用功能上的需求，就是可行的。（2）功能調試系統(tǒng)的應用軟件通常由多個功能模塊組成，每個模塊由一個或幾個程序構成。在單個程序調試完成以后，尚需進行分調，即將一個功能內所有程序按次序串聯(lián)起來進行調試。這種調試的目的是要保證模塊內各程序間具有正確的控制關系，同時可以測試模塊的運行效率。（3）總調最后是對程序進行總調，也就是將主控制程序和高度程序與各功能模塊聯(lián)接起來

28、進行總體高度。對系統(tǒng)各種可能的使用權用形態(tài)及其組合在軟件中的流通情況進行能行性測試。這一階段查出的往往是模塊間相互關系方面的錯誤和缺陷。七、系統(tǒng)運行在主界面中，訪客可以直接查詢圖書，職工和會員可登錄。圖書查詢結果顯示如下：點擊“會員登錄”，出現會員登錄界面如下：登錄后會員可進行個人信息查看和修改，以及購買記錄的查看，還可以提出建議。點擊“職工登錄”，出現職工登錄界面如下：選擇“管理員”身份進行登錄，出現管理界面如下：選擇“銷售員”身份進行登錄，出現銷售界面如下：點擊“銷售報表”，出現如下界面：八、總結經過近一個月的設計和開發(fā)，這套管理系統(tǒng)已基本結束。主要能實現圖書信息的錄入、修改、刪除、統(tǒng)計、

29、查詢等功能，此外，在程序中還設計了用戶登錄，以確保本系統(tǒng)應用的安全性。本管理系統(tǒng)設計合理、界面美觀、操作方便、運行穩(wěn)定、功能完備，為書城進行現代化的圖書管理工作起到了重要作用。但是由于設計時間較短，所以該系統(tǒng)還有一些不盡人意的地方，如功能不夠健全等問題，這些都有待進一步改善，敬請各位老師指正。在本次設計中，我們從實踐與理論的不斷對比參照中學到了不少東西，無論在理論上還是在實踐都感覺有了很大提高。今后的學習中，我們一定會更加努力學習，不斷提高自己的水平，做一名優(yōu)秀的現代大學生。這次設計是我們從理論走向實踐邁出的堅實的一步。從分析到設計直到具體實現，原來學的理論知識對我們有很大的指導，我們也發(fā)現了

30、其中有很多不足的地方。我們深深體會到，一個好的程序設計人員必須具有認真、謹慎的作風，與人合作的精神，和堅忍不拔的毅力，我們會向著這個方向去努力。參考文獻Visual basic6.0程序設計 作者：劉新民 蔡瓊 白康生 清華大學出版社數據庫系統(tǒng)概論（第四版） 作者：王珊 薩師煊 高等教育出版社管理信息系統(tǒng)（第三版） 作者 黃梯云 高等教育出版社附錄：源代碼一、歡迎界面代碼：Private Sub Command1_Click()Form1.ShowEnd Sub二、主界面代碼：Private Sub Command1_Click()Form5.ShowEnd SubPrivate Sub Co

31、mmand2_Click()form2.ShowEnd SubPrivate Sub Command3_Click()Form6.ShowEnd Sub三、職工登錄界面代碼：Private Sub Command1_Click()Dim conn As New adodb.ConnectionDim rs As New adodb.RecordsetIf Text1.Text = Or Text2.Text = Then MsgBox 對不起，用戶名與密碼不能為空, vbInformation, 輸入錯誤 Exit SubEnd If conn.ConnectionString = Provi

32、der=Microsoft.Jet.OLEDB.4.0;Data Source=E:大作業(yè)漢唐書城.mdb;Persist Security Info=FalseIf Combo1.Text = 管理員 And Text1.Text Like 02* Then conn.Open rs.Open select * from 職工表 where 職工號= & Text1.Text & and 密碼= & Text2.Text & , conn, 3, 3 If rs.RecordCount 0 Then Load Form4 Form4.Show form2.Hide rs.Close conn

33、.Close Unload Me Else MsgBox 對不起，登錄失敗, vbinforamtion, 提示 rs.Close conn.Close Exit Sub End IfElseIf Combo1.Text = 銷售員 And Text1.Text Like 03* Then conn.Open rs.Open select * from 職工表 where 職工號= & Text1.Text & and 密碼= & Text2.Text & , conn, 3, 3 If rs.RecordCount 0 Then Load Form3 Form3.Show form2.Hid

34、e rs.Close conn.Close Unload Me Else MsgBox 對不起，登錄失敗, vbinforamtion, 提示 rs.Close conn.Close Exit SubEnd IfElse MsgBox 請選擇正確身份登錄！, vbinforamtion, 提示 End IfEnd SubPrivate Sub Command2_Click()Form1.Showform2.HideEnd Sub四、銷售界面代碼：Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text3.Tex

35、t) b = Val(Text4.Text) Text5.Text = Str(a * b)End SubPrivate Sub Command2_Click()Dim pros As Stringpros = MsgBox(是否確認刪除？, vbOKCancel + vbExclamation)Select Case vbOKCase vbOK Adodc1.Recordset.DeleteEnd SelectEnd SubPrivate Sub Command3_Click()If Val(Text6.Text) Val(Text5.Text) Then MsgBox (金額不足！) El

36、se Text7.Text = Text6.Text - Text5.Text Adodc1.Recordset.Fields(0) = Text2 Adodc1.Recordset.Fields(1) = Text3 Adodc1.Recordset.Fields(3) = Text1 Adodc1.Recordset.Fields(4) = Text4 Adodc1.Recordset.Fields(2) = Date Adodc1.Recordset.Fields(5) = Text5 Adodc1.Recordset.Update MsgBox (添加成功！)End IfEnd Sub

37、Private Sub Command4_Click()Adodc1.Recordset.AddNewText5.Text = Text6.Text = Text7.Text = End SubPrivate Sub Command5_Click()Form1.ShowForm3.HideEnd SubPrivate Sub Command6_Click()DataReport1.ShowEnd SubPrivate Sub Form_Load()Adodc1.Recordset.AddNewEnd Sub五、管理界面代碼：Private Sub Command1_Click()On Erro

38、r Resume NextForm1.ShowForm4.HideEnd SubPrivate Sub Command6_Click()On Error Resume NextText11.Locked = FalseEnd SubPrivate Sub Command7_Click()On Error Resume NextAdodc1.Recordset.AddNewText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked

39、= FalseText7.Locked = FalseText8.Locked = FalseText9.Locked = FalseText10.Locked = FalseText11.Locked = FalseEnd SubPrivate Sub Command8_Click()On Error Resume Next Adodc1.Recordset.Fields(0) = Text1 Adodc1.Recordset.Fields(1) = Text2 Adodc1.Recordset.Fields(2) = Text3 Adodc1.Recordset.Fields(3) = T

40、ext4 Adodc1.Recordset.Fields(4) = Text5 Adodc1.Recordset.Fields(5) = Text6 Adodc1.Recordset.Fields(6) = Text7 Adodc1.Recordset.Fields(7) = Text8 Adodc1.Recordset.Fields(8) = Text9 Adodc1.Recordset.Fields(9) = Text10 Adodc1.Recordset.Fields(10) = Text11 Adodc1.Recordset.Update MsgBox (添加成功！) Text1.Lo

41、cked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueText11.Locked = TrueEnd SubPrivate Sub Command2_Click()On Error Resume Next Adodc1.Recordset.MoveFirst Command2.Enabl

42、ed = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True Call Command6_ClickEnd SubPrivate Sub Command3_Click()On Error Resume Next Adodc1.Recordset.MovePrevious Command4.Enabled = True Command5.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command

43、2.Enabled = False Command3.Enabled = False Command4.SetFocus Call Command6_Click End IfEnd SubPrivate Sub Command4_Click()On Error Resume NextAdodc1.Recordset.MoveNext Command2.Enabled = True Command3.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command4.Enabled = False Comm

44、and5.Enabled = False Command3.SetFocus Call Command6_Click End IfEnd SubPrivate Sub Command5_Click()On Error Resume Next Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False Adodc1.Recordset.MoveLast Call Command6_ClickEnd Sub六、圖書查詢結果代碼：Private Sub Form_L

45、oad()If Form1.Combo1.Text = 按作者查詢 Then Adodc1.RecordSource = select * from 圖書基本信息表 where 圖書基本信息表.作者= & Form1.Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 Then MsgBox (對不起，沒有您要查找的作者！)End IfElseIf Form1.Combo1.Text = 按書名查詢 Then Adodc1.RecordSource = select * from 圖書基本信息表 where 圖書基本信息

46、表.書名= & Form1.Text1.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox (對不起，沒有您要查找的圖書！)End IfElseIf Form1.Combo1.Text = 按類別查詢 Then Adodc1.RecordSource = select * from 圖書基本信息表 where 圖書基本信息表.類別= & Form1.Text1.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox (對不起，沒有您要查找的類別！)End IfEnd IfSet DataGrid1.DataSource = Adodc1End Sub七、會員登錄界面代碼：Private Sub