畢業(yè)設(shè)計(jì)基于VB的倉(cāng)庫(kù)數(shù)據(jù)庫(kù)管理系統(tǒng)開(kāi)發(fā)

1、基于vb的倉(cāng)庫(kù)數(shù)據(jù)庫(kù)管理系統(tǒng)開(kāi)發(fā)摘要倉(cāng)庫(kù)作為一種信息資源的集散地，用戶和貨物資料繁多，包含很多的信息數(shù)據(jù)的管理。高效率、科學(xué)化地 管理倉(cāng)庫(kù)成為提高生產(chǎn)經(jīng)營(yíng)效率的有效途徑。采用計(jì)算機(jī)管理信息系統(tǒng)能有效地避免倉(cāng)庫(kù)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效地查 詢和修改倉(cāng)庫(kù)信息情況，并給企業(yè)管理帶來(lái)了明顯的經(jīng)濟(jì)效益和社會(huì)效益，成為當(dāng)今倉(cāng)庫(kù)管理科學(xué)化和現(xiàn)代化的重要標(biāo)志。數(shù)據(jù)庫(kù)是六十年代末期開(kāi)始發(fā)展起來(lái)的一門(mén)新技術(shù)，是管理信息資源的先進(jìn)工具。倉(cāng)庫(kù)數(shù)據(jù)庫(kù)管理系統(tǒng)便是這樣一種信息管理系統(tǒng)。它能對(duì)倉(cāng)庫(kù)所涉及的數(shù)據(jù)進(jìn)行提取和綜合。倉(cāng)庫(kù)數(shù)據(jù)庫(kù)管理系統(tǒng)不僅反映數(shù)據(jù)本身，而且反映數(shù)據(jù)之間的聯(lián)系，也

2、是事物之間的聯(lián)系的反映。該系統(tǒng)以sqlsever作為后臺(tái)數(shù)據(jù)庫(kù)，visual basic 6.0為前臺(tái)開(kāi)發(fā)工具,做到對(duì)倉(cāng)庫(kù)數(shù)據(jù)的查詢，更新和安全保密。關(guān)鍵詞：數(shù)據(jù)庫(kù)，倉(cāng)庫(kù)管理系統(tǒng)，visual basicthe development of garage data base management system based on vb garage,as a kind of message resources distributing centre,it has a number of custorm an goods infermations.those infermations contai

3、ns many date managements.garage-manage high-efficiently and sciencely is a useful way to improve production efficiency.garage-management is random.computer information manage system can avoid this random effectually , speed up the information processing and scan and renew the garage information accu

4、ratlly and on time.it also brings obviously economic benefits an social benefits for the enterprise who use computer information manage system. computer information manage system has been the important major of garage managements scientific and modernized. data base is a kind of new technology which

5、 was beginning developing in the end of 1970s.its a kind of advanced instrument of information management.so garage date base management system is such a kind of new technology.it has the function of drawing and multiping the data which was touched upon by garage. garage date base management system

6、no only reflectioning the data itself,but olso reflectioning the reletionsheep of data.and it can reflection the reletionsheep of object too.this system use sqlsever as its background data base and the visual basic 6.0 is used as the frountground develop tool.it will have the function of inqurying,r

7、enewing and protecting the garage data.key words:data base;garage management system; visual basic目 錄第1章 緒論11.1 數(shù)據(jù)庫(kù)系統(tǒng)發(fā)展概況11.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介11.2.1 數(shù)據(jù)、數(shù)據(jù)庫(kù)11.2.2 數(shù)據(jù)庫(kù)管理系統(tǒng)21.2.3 數(shù)據(jù)庫(kù)系統(tǒng)2第2章. 倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)方案設(shè)計(jì)42.1 數(shù)據(jù)模型的確定42.2運(yùn)行環(huán)境和開(kāi)發(fā)工具42.3 基本組成5第3章 倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)開(kāi)發(fā)設(shè)計(jì)63.1 設(shè)計(jì)方法和步驟63.2 需求分析63.3 功能模塊設(shè)計(jì)73.4 創(chuàng)建數(shù)據(jù)庫(kù)83.4.1創(chuàng)建設(shè)備數(shù)據(jù)庫(kù)83.4.2創(chuàng)

8、建用戶信息數(shù)據(jù)庫(kù)93.5創(chuàng)建應(yīng)用工程文件103.6用戶管理模塊設(shè)計(jì)103.6.1用戶登錄103.6.2修改密碼133.6.3添加用戶143.6.4刪除用戶173.7信息管理模塊設(shè)計(jì)183.7.1創(chuàng)建倉(cāng)庫(kù)管理系統(tǒng)主窗體（mainform.frm）183.7.2創(chuàng)建查詢信息窗體（formchaxun.frm）193.7.3創(chuàng)建添加信息窗體（formtianjia.frm）203.7.4創(chuàng)建修改信息窗體（formxiugai.frm）243.7.5創(chuàng)建刪除信息窗體（formshanchu.frm）253.7.6創(chuàng)建報(bào)表窗體303.8 創(chuàng)建應(yīng)用文件包30第4章.倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)管理系統(tǒng)使用說(shuō)明314.1

9、 系統(tǒng)314.2 信息查詢314.3 信息管理31結(jié)論32致 謝33參考文獻(xiàn)34第1章 緒論1.1 數(shù)據(jù)庫(kù)系統(tǒng)發(fā)展概況數(shù)據(jù)庫(kù)是六十年代末期開(kāi)始發(fā)展起來(lái)的一門(mén)新技術(shù)，是管理信息資源的先進(jìn)工具。這門(mén)技術(shù)已廣泛應(yīng)用于各個(gè)方面，如科技情報(bào)檢索、圖書(shū)管理、庫(kù)存管理、企業(yè)管理與經(jīng)營(yíng)決策、財(cái)會(huì)統(tǒng)計(jì)、銀行存取、管理、人事材料管理、旅游管理、海關(guān)進(jìn)出口情報(bào)收集與管理、地圖數(shù)據(jù)庫(kù)、種子數(shù)據(jù)庫(kù)等多個(gè)方面。信息指的是各種形式的數(shù)據(jù)、資料、消息、信號(hào)中所包含的意義，而載荷信息的物理符號(hào)（如數(shù)字、字母、文字、圖形、聲音）稱為數(shù)據(jù)。所謂信息處理或數(shù)據(jù)處理，就是對(duì)信息（數(shù)據(jù)）進(jìn)行加工處理，它包括對(duì)于數(shù)據(jù)進(jìn)行操作的一系列活動(dòng)，

10、如數(shù)據(jù)的收集、存儲(chǔ)、傳播、檢索、分類、加工或計(jì)算，打印各種報(bào)表或輸出各種所需要的圖形。數(shù)據(jù)處理并不是有了電子計(jì)算機(jī)以后才出現(xiàn)的。自1890年發(fā)明第一臺(tái)卡片制表機(jī)并用其編制人口普查表以來(lái)，就已經(jīng)開(kāi)始了數(shù)據(jù)處理的歷史。通常把這種用機(jī)械設(shè)備來(lái)進(jìn)行數(shù)據(jù)處理的系統(tǒng)稱為機(jī)械數(shù)據(jù)處理系統(tǒng)。自七十年代初以來(lái)，在數(shù)據(jù)處理領(lǐng)域中廣泛采用數(shù)據(jù)庫(kù)技術(shù)，使數(shù)據(jù)處理進(jìn)人了一個(gè)新的階段，這就是以數(shù)據(jù)庫(kù)系統(tǒng)為核心機(jī)構(gòu)的數(shù)據(jù)處理階段。這一階段實(shí)現(xiàn)了計(jì)算機(jī)的全面信息管理。其特點(diǎn)是把一個(gè)組織（企業(yè)和部門(mén)）有關(guān)的各種數(shù)據(jù)集中存儲(chǔ)與管理，建立起綜合化的數(shù)據(jù)庫(kù)，并提供了管理數(shù)據(jù)庫(kù)的軟件，使各個(gè)部門(mén)方便地使用數(shù)據(jù)庫(kù)的數(shù)據(jù)；同時(shí)采用計(jì)算機(jī)網(wǎng)

11、絡(luò)技術(shù)，進(jìn)行分布式處理，通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)把不同部門(mén)、不同地區(qū)、不同國(guó)家的計(jì)算機(jī)或終端聯(lián)系在一起，共享豐富的信息資源，使信息的交換、傳遞和處理變得更為方便，從而更有效地利用信息資源。由于數(shù)據(jù)庫(kù)技術(shù)在信息（數(shù)據(jù)）處理中顯示了巨大的威力，所以許多計(jì)算機(jī)科學(xué)家把這個(gè)階段稱為“數(shù)據(jù)庫(kù)時(shí)代”。1.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介1.2.1 數(shù)據(jù)、數(shù)據(jù)庫(kù)1.數(shù)據(jù)(data)數(shù)據(jù)是數(shù)據(jù)庫(kù)中存儲(chǔ)的基本對(duì)象。數(shù)據(jù)按通常的理解表現(xiàn)為數(shù)字形式，這是對(duì)數(shù)據(jù)的一種傳統(tǒng)和狹義的理解。廣義的理解，數(shù)字只是數(shù)據(jù)的一種表現(xiàn)形式，在計(jì)算機(jī)中可表示數(shù)據(jù)的種類很多，文字、圖形、圖像、聲音都可以數(shù)字化，所以這些都是數(shù)據(jù)。為了了解世界、交流信息，人們?cè)谟?jì)

12、算機(jī)中需要并且也能夠描述、存儲(chǔ)和處理這些表現(xiàn)形式多樣和內(nèi)容復(fù)雜的數(shù)據(jù)。2.數(shù)據(jù)庫(kù)(database，縮寫(xiě)為db)數(shù)據(jù)庫(kù)，可以直觀地理解為存放數(shù)據(jù)的倉(cāng)庫(kù)，只不過(guò)這個(gè)倉(cāng)庫(kù)是在計(jì)算機(jī)的大容量存儲(chǔ)器上，如硬盤(pán)就是一類最常見(jiàn)計(jì)算機(jī)大容量存儲(chǔ)設(shè)備。數(shù)據(jù)必須按一定的格式存放，因?yàn)樗粌H需要存放，而且還要便于查找。所以可以認(rèn)為數(shù)據(jù)是被長(zhǎng)期存放在計(jì)算機(jī)內(nèi)、有組織的、可以表現(xiàn)為多種形式的可共享的數(shù)據(jù)集合。數(shù)據(jù)庫(kù)技術(shù)使數(shù)據(jù)能按一定格式組織、描述和存儲(chǔ)，且具有較小的冗余度、較高的數(shù)據(jù)獨(dú)立性和易擴(kuò)展性，并可為多個(gè)用戶所共享。1.2.2 數(shù)據(jù)庫(kù)管理系統(tǒng)利用計(jì)算機(jī)有效地組織和存儲(chǔ)數(shù)據(jù)、獲取和管理數(shù)據(jù)就是數(shù)據(jù)庫(kù)管理系統(tǒng)(da

13、ta base management system，縮寫(xiě)為dbms)，它屬于一類計(jì)算機(jī)系統(tǒng)軟件。數(shù)據(jù)庫(kù)管理系統(tǒng)是位于用戶與操作系統(tǒng)之上的一層數(shù)據(jù)管理軟件，它的主要功能包括以下幾個(gè)方面：1數(shù)據(jù)定義功能dbms提供數(shù)據(jù)定義語(yǔ)言(data definition language，縮寫(xiě)為ddl)，用戶通過(guò)它可以方便地對(duì)數(shù)據(jù)庫(kù)中的相關(guān)內(nèi)容進(jìn)行定義，如對(duì)數(shù)據(jù)庫(kù)、基本表、視圖和索引進(jìn)行定義。2.數(shù)據(jù)操縱功能dbms向用戶提供數(shù)據(jù)操縱語(yǔ)言(data manipulation language, 縮寫(xiě)為dml),實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的基本操作，如對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)的查詢、插入、刪除和修改。3.數(shù)據(jù)庫(kù)的運(yùn)行管理這是dbms的

14、核心部分，它包括并發(fā)控制，即處理多個(gè)用戶同時(shí)使用某些數(shù)據(jù)時(shí)可能產(chǎn)生的問(wèn)題、安全性檢查、完整性約束條件的檢查和執(zhí)行、數(shù)據(jù)庫(kù)的內(nèi)部維護(hù)(如索引、數(shù)據(jù)字典的自動(dòng)維護(hù))等。所有數(shù)據(jù)庫(kù)的操作都要在這些控制程序的統(tǒng)一管理下進(jìn)行，以保證數(shù)據(jù)的安全性、完整性以及多個(gè)用戶對(duì)數(shù)據(jù)庫(kù)的并發(fā)使用。4.數(shù)據(jù)庫(kù)的建立和維護(hù)功能包括：數(shù)據(jù)庫(kù)初始數(shù)據(jù)的輸入、轉(zhuǎn)換功能，數(shù)據(jù)庫(kù)的轉(zhuǎn)儲(chǔ)、恢復(fù)功能，數(shù)據(jù)庫(kù)的重新組織功能和性能監(jiān)視、分析功能等，這些功能通常是由一些實(shí)用程序完成的，它是數(shù)據(jù)庫(kù)管理系統(tǒng)的一個(gè)重要組成部分。5.數(shù)據(jù)字典數(shù)據(jù)字典(data dictionary，縮寫(xiě)為dd)是存放數(shù)據(jù)庫(kù)各級(jí)模式結(jié)構(gòu)的描述，也是訪問(wèn)數(shù)據(jù)庫(kù)的接口。

15、在大型系統(tǒng)中，dd也可單獨(dú)成為一個(gè)系統(tǒng)。6.數(shù)據(jù)通信功能包括與os的聯(lián)機(jī)處理、分時(shí)處理和遠(yuǎn)程作業(yè)傳輸?shù)南鄳?yīng)接口等，這一功能對(duì)分布式數(shù)據(jù)庫(kù)系統(tǒng)尤為重要。1.2.3 數(shù)據(jù)庫(kù)系統(tǒng)數(shù)據(jù)庫(kù)系統(tǒng)(data base system，縮寫(xiě)為dbs)通常是指帶有數(shù)據(jù)庫(kù)的計(jì)算機(jī)應(yīng)用系統(tǒng)，因此，數(shù)據(jù)庫(kù)系統(tǒng)不僅包括數(shù)據(jù)庫(kù)本身，即實(shí)際存儲(chǔ)在計(jì)算機(jī)中的數(shù)據(jù)，還包括相應(yīng)的硬件、軟件。 1.硬件由于一般數(shù)據(jù)庫(kù)系統(tǒng)數(shù)據(jù)量很大，加之dbms豐富的強(qiáng)有力的功能使得自身的體積就很大，因此整個(gè)數(shù)據(jù)庫(kù)系統(tǒng)對(duì)硬件資源提出了較高的要求，這些要求是：(1)有足夠大的內(nèi)存以存放操作系統(tǒng)、dbms的核心模塊，數(shù)據(jù)緩沖區(qū)和應(yīng)用程序。(2)有足夠大的

16、直接存取設(shè)備存放數(shù)據(jù)(如磁盤(pán))，有足夠的磁帶或其它存儲(chǔ)設(shè)備來(lái)進(jìn)行數(shù)據(jù)備份。(3)要求計(jì)算機(jī)有較高的數(shù)據(jù)傳輸能力2.軟件數(shù)據(jù)庫(kù)系統(tǒng)的軟件主要包括：(1)dbms是數(shù)據(jù)庫(kù)系統(tǒng)的核心軟件，它實(shí)現(xiàn)數(shù)據(jù)庫(kù)的建立、使用和維護(hù)。(2)支持dbms運(yùn)行的操作系統(tǒng)。通常，dbms運(yùn)行時(shí)都是基于某一操作系統(tǒng)并通過(guò)操作系統(tǒng)來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)的存取。(3)一般來(lái)講，數(shù)據(jù)庫(kù)管理系統(tǒng)的數(shù)據(jù)處理能力較弱，所以需要提供與數(shù)據(jù)庫(kù)接口的高級(jí)語(yǔ)言及其編譯系統(tǒng)，以便于開(kāi)發(fā)應(yīng)用程序。這種高級(jí)語(yǔ)言稱為“數(shù)據(jù)庫(kù)的主語(yǔ)言”。(4)以dbms為核心的應(yīng)用開(kāi)發(fā)工具。應(yīng)用開(kāi)發(fā)工具是系統(tǒng)為應(yīng)用開(kāi)發(fā)人員和最終用戶提供的高效率，多功能的應(yīng)用生成器、第四代語(yǔ)言

17、等各種軟件工具，如報(bào)表生成系統(tǒng)、表格軟件，圖形系統(tǒng)等。它們?yōu)閿?shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)和應(yīng)用提供了有力的支持。(5)為特定應(yīng)用開(kāi)發(fā)的數(shù)據(jù)庫(kù)應(yīng)用軟件。數(shù)據(jù)庫(kù)軟件為數(shù)據(jù)的定義、存儲(chǔ)、查詢和修改提供支持，而數(shù)據(jù)庫(kù)應(yīng)用軟件是對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行處理和加工的軟件，它面向特定應(yīng)用，如基于數(shù)據(jù)庫(kù)的各種管理軟件、管理信息系統(tǒng)(mis)、決策支持系統(tǒng)（dss）和辦公自動(dòng)化(oa)等都屬于數(shù)據(jù)庫(kù)應(yīng)用軟件。3.數(shù)據(jù)數(shù)據(jù)是數(shù)據(jù)庫(kù)基本組成內(nèi)容，是對(duì)客觀世界所存在事物的一種表征，也是數(shù)據(jù)庫(kù)用戶操作的對(duì)象。數(shù)據(jù)是數(shù)據(jù)庫(kù)系統(tǒng)，也是企業(yè)或組織的真正的財(cái)富。數(shù)據(jù)應(yīng)按照需求進(jìn)行采集并有結(jié)構(gòu)地存入數(shù)據(jù)庫(kù)。由于數(shù)據(jù)類型多樣性，數(shù)據(jù)的采集方式和存

18、儲(chǔ)方式也會(huì)不同。數(shù)據(jù)作為一種資源是數(shù)據(jù)庫(kù)系統(tǒng)最穩(wěn)定的成分，即硬件可能更新，甚至軟件也可以更換，但只要企業(yè)或組織的性質(zhì)不改變，數(shù)據(jù)將是可以長(zhǎng)期使用的財(cái)富。第2章. 倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)方案設(shè)計(jì)2.1 數(shù)據(jù)模型的確定數(shù)據(jù)模型(data model)以實(shí)際事物的數(shù)據(jù)特征的抽象來(lái)刻畫(huà)事物，描述的是事物數(shù)據(jù)的表征及其特性。在數(shù)據(jù)庫(kù)中是用數(shù)據(jù)模型對(duì)現(xiàn)實(shí)世界進(jìn)行抽象的，現(xiàn)有的數(shù)據(jù)庫(kù)系統(tǒng)均是基于某種數(shù)據(jù)模型的。倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)是倉(cāng)庫(kù)設(shè)備所涉及的數(shù)據(jù)的提取和綜合，它不僅反映數(shù)據(jù)本身，而且反映數(shù)據(jù)之間的聯(lián)系，也是事物之間的聯(lián)系的反映。如何在數(shù)據(jù)庫(kù)系統(tǒng)的形式化結(jié)構(gòu)中抽象表示和處理倉(cāng)庫(kù)中設(shè)備的數(shù)據(jù)是非常重要的問(wèn)題。數(shù)據(jù)庫(kù)領(lǐng)域

19、中過(guò)去和現(xiàn)在最常見(jiàn)的數(shù)據(jù)模型有三種，它們是：層次模型(hierachical model)，網(wǎng)狀模型(network model)和關(guān)系模型(relational model)。其中層次模型和網(wǎng)狀模型統(tǒng)稱為非關(guān)系模型，在關(guān)系模型出現(xiàn)以前，它們是常用的數(shù)據(jù)模型。關(guān)系模型是目前數(shù)據(jù)庫(kù)領(lǐng)域所討論的模型中最重要的模型。倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)數(shù)據(jù)模型采用關(guān)系模型，既用二維表結(jié)構(gòu)來(lái)表示實(shí)體及實(shí)體間的聯(lián)系。如表2-1表2-1 倉(cāng)庫(kù)設(shè)備信息表列名數(shù)據(jù)類型說(shuō)明numbernumeric設(shè)備編號(hào)typenumbernumeric類型編號(hào)namevarchar設(shè)備名稱typevarchar設(shè)備類型sizenumeric設(shè)備

20、大小pricenumeric設(shè)備單價(jià)factoryvarchar生產(chǎn)廠家2.2運(yùn)行環(huán)境和開(kāi)發(fā)工具1.運(yùn)行環(huán)境隨著數(shù)據(jù)庫(kù)應(yīng)用的日益廣泛，數(shù)據(jù)庫(kù)產(chǎn)品市場(chǎng)呈現(xiàn)非常繁榮的景象。目前的關(guān)系數(shù)據(jù)庫(kù)產(chǎn)品基本可分為桌面數(shù)據(jù)庫(kù)和大型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)兩大類。本系統(tǒng)采用桌面數(shù)據(jù)庫(kù)方式，利用學(xué)校現(xiàn)有軟硬件資源，運(yùn)行于pc機(jī)的windows98/2000/xp下，具有對(duì)硬件要求低、容易操作、開(kāi)發(fā)成本低等特點(diǎn)。2.開(kāi)發(fā)工具本系統(tǒng)使用visual basic 6.0和sqlsever作為開(kāi)發(fā)工具。visual basic是一個(gè)通用程序開(kāi)發(fā)工具，但具有強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)能力，可以通過(guò)microsoft數(shù)據(jù)庫(kù)訪問(wèn)對(duì)象ado訪問(wèn)數(shù)據(jù)

21、庫(kù)對(duì)象，而且由于其本身的優(yōu)點(diǎn)（如可視化編程、面向?qū)ο?、事件?qū)動(dòng)、結(jié)構(gòu)化程序設(shè)計(jì)、集成的開(kāi)發(fā)環(huán)境），常常被用于數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)。visual basic提供了管理數(shù)據(jù)庫(kù)對(duì)象和創(chuàng)建報(bào)表的工具，并且使用簡(jiǎn)單方便。隨著microsoft不斷地推出visual basic的新版本，visual basic對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)和編程也變得越來(lái)越容易，而且支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問(wèn)，是一個(gè)很好的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)工具。sqlsever是microsoft公司另一個(gè)成功的數(shù)據(jù)庫(kù)產(chǎn)品。sqlsever本身是一個(gè)可視化的數(shù)據(jù)庫(kù)管理系統(tǒng)，提供了很多非常實(shí)用的向?qū)?，初學(xué)者也很容易學(xué)會(huì)如何用sqlsever建立數(shù)據(jù)庫(kù)的各種

22、對(duì)象，如創(chuàng)建表、查詢和報(bào)表等。sqlsever使用內(nèi)嵌visual basic語(yǔ)言作為開(kāi)發(fā)工具，完全面向?qū)ο缶幊?，可以可視化地?chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序。sqlsever數(shù)據(jù)庫(kù)是目前應(yīng)用十分廣泛的桌面型關(guān)系數(shù)據(jù)庫(kù)，它主要應(yīng)用于各種中小型的管理信息系統(tǒng)中，雖然它無(wú)法支持較大數(shù)據(jù)量，不支持?jǐn)?shù)據(jù)庫(kù)的高級(jí)特性（并發(fā)訪問(wèn)、事務(wù)處理等），但是它快速、小巧、靈活，經(jīng)常被小型信息管理系統(tǒng)作為后臺(tái)數(shù)據(jù)庫(kù)。2.3 基本組成倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)應(yīng)用程序的主要作用是存放數(shù)據(jù)、從數(shù)據(jù)庫(kù)中檢索和統(tǒng)計(jì)數(shù)據(jù)，以得到各種各樣的信息。本系統(tǒng)完整的數(shù)據(jù)庫(kù)應(yīng)用程序按照功能可分為四個(gè)部分的內(nèi)容：數(shù)據(jù)庫(kù)（單表）；應(yīng)用程序窗體；查詢和更新；報(bào)表和圖表(

23、儀器領(lǐng)用單)。數(shù)據(jù)庫(kù)是數(shù)據(jù)庫(kù)應(yīng)用程序的基礎(chǔ)，主要用來(lái)存放原始數(shù)據(jù)。一般來(lái)說(shuō)。用戶不直接對(duì)原始數(shù)據(jù)進(jìn)行操作。如果需要檢索和更新數(shù)據(jù)，先用查詢將數(shù)據(jù)檢索出來(lái)放在緩沖區(qū)或臨時(shí)表中，用戶對(duì)緩沖區(qū)和臨時(shí)表中的數(shù)據(jù)進(jìn)行操作，在所有的操作完成后，再將數(shù)據(jù)的更改更新到數(shù)據(jù)庫(kù)中。窗體用來(lái)完成用戶和數(shù)據(jù)庫(kù)之間、與程序之間交互。報(bào)表和圖表的數(shù)據(jù)來(lái)自查詢和統(tǒng)計(jì)，是定制的。它們之間的相互作用如圖2-1所示。數(shù)據(jù)庫(kù)報(bào)表和圖表應(yīng)用程序窗體查詢和統(tǒng)計(jì) 圖2-1數(shù)據(jù)庫(kù)應(yīng)用程序的基本組成第3章 倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)開(kāi)發(fā)設(shè)計(jì)3.1 設(shè)計(jì)方法和步驟數(shù)據(jù)庫(kù)設(shè)計(jì)是開(kāi)發(fā)數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)的技術(shù)，也是本系統(tǒng)開(kāi)發(fā)和建設(shè)的重要組成部分。具體說(shuō)，數(shù)據(jù)庫(kù)

24、設(shè)計(jì)是要在一個(gè)給定的應(yīng)用環(huán)境中，通過(guò)合理的邏輯設(shè)計(jì)和有效的物理設(shè)計(jì)，構(gòu)造較優(yōu)的數(shù)據(jù)庫(kù)模式，建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)，滿足用戶的各種信息需求。這里從數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)和開(kāi)發(fā)的全過(guò)程來(lái)考慮，根據(jù)本系統(tǒng)的實(shí)際情況，將數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)的設(shè)計(jì)分為以下幾個(gè)階段：需求分析，功能模塊設(shè)計(jì)，創(chuàng)建數(shù)據(jù)庫(kù)，創(chuàng)建應(yīng)用工程文件，創(chuàng)建應(yīng)用窗體文件，創(chuàng)建應(yīng)用文件包。3.2 需求分析在設(shè)計(jì)一個(gè)數(shù)據(jù)庫(kù)之前，首先要對(duì)數(shù)據(jù)庫(kù)的設(shè)計(jì)目的和應(yīng)用背景進(jìn)行分析。在進(jìn)行設(shè)計(jì)目的分析時(shí)，應(yīng)搞清楚該數(shù)據(jù)庫(kù)要解決一個(gè)什么樣的問(wèn)題、需要存儲(chǔ)哪些數(shù)據(jù)、能夠提供哪些信息、完成哪些自動(dòng)化功能等。應(yīng)用背景指數(shù)據(jù)庫(kù)應(yīng)用于一個(gè)什么樣場(chǎng)合。在對(duì)本系統(tǒng)應(yīng)用環(huán)境和需求進(jìn)

25、行收集和分析后所形成的抽象的系統(tǒng)概貌圖如圖3-1。數(shù)據(jù)存儲(chǔ)處理數(shù)據(jù)輸出數(shù)據(jù)來(lái)源數(shù)據(jù)流圖3-1 系統(tǒng)概貌圖本系統(tǒng)是為倉(cāng)庫(kù)開(kāi)發(fā)的設(shè)備管理系統(tǒng)，根據(jù)任務(wù)書(shū)的要求，應(yīng)設(shè)計(jì)一個(gè)可行的數(shù)據(jù)庫(kù)結(jié)構(gòu)和數(shù)據(jù)庫(kù)管理系統(tǒng)。該數(shù)據(jù)庫(kù)管理系統(tǒng)應(yīng)具有：數(shù)據(jù)查詢功能(多種關(guān)鍵詞查詢 )；數(shù)據(jù)更新功能(修改, 增加, 刪除等)；數(shù)據(jù)安全性設(shè)計(jì)。概括層的數(shù)據(jù)流圖如圖3-2采購(gòu)部門(mén)倉(cāng)庫(kù)管理系統(tǒng)領(lǐng)用人1領(lǐng)用人2領(lǐng)用人n3-2 數(shù)據(jù)流圖采購(gòu)部門(mén)：負(fù)責(zé)采購(gòu)儀器設(shè)備，將儀器設(shè)備的相關(guān)信息提供給實(shí)驗(yàn)室。倉(cāng)庫(kù)管理系統(tǒng)：負(fù)責(zé)儀器的統(tǒng)一管理。通過(guò)該系統(tǒng)可以直接對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，進(jìn)行業(yè)務(wù)處理，以記錄每套儀器設(shè)備的相關(guān)信息；負(fù)責(zé)儀器設(shè)備的配入與發(fā)放

26、，并記錄儀器的發(fā)放與歸還。領(lǐng)用人(1、2、3n)：領(lǐng)用人領(lǐng)用設(shè)備時(shí)要作相應(yīng)記錄，以便管理部門(mén)可以查詢每套儀器的情況。3.3 功能模塊設(shè)計(jì)在軟件設(shè)計(jì)中，程序設(shè)計(jì)分為兩個(gè)階段完成，首先進(jìn)行結(jié)構(gòu)設(shè)計(jì)，以確定程序由那些模塊組成，然后進(jìn)行過(guò)程設(shè)計(jì)，過(guò)程設(shè)計(jì)是確定每個(gè)模塊的處理過(guò)程。本系統(tǒng)共有兩個(gè)數(shù)據(jù)庫(kù)，一個(gè)是儀器性能指標(biāo)數(shù)據(jù)庫(kù)，另一個(gè)是用戶標(biāo)識(shí)和鑒定數(shù)據(jù)庫(kù)。設(shè)計(jì)中規(guī)定了數(shù)據(jù)庫(kù)的結(jié)構(gòu)（表、記錄、字段、關(guān)鍵字）、制訂了數(shù)據(jù)所應(yīng)滿足的條件、規(guī)定了用戶的使用密碼和用戶名,幫助用戶方便地對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行操作。以下是本系統(tǒng)的功能模塊圖3-3。倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)管理系統(tǒng)用戶信息數(shù)據(jù)庫(kù)儀器信息數(shù)據(jù)庫(kù)工程文件報(bào)表信息界面查

27、詢信息界面修改信息界面添加信息界面刪除信息界面修改用戶界面添加用戶界面刪除用戶界面用戶登錄界面功能管理主界面圖3-3 系統(tǒng)功能模塊圖在數(shù)據(jù)庫(kù)管理系統(tǒng)的應(yīng)用程序中有十個(gè)應(yīng)用窗體文件，分別是：1、用戶登陸應(yīng)用窗體文件，完成用戶登錄進(jìn)入管理系統(tǒng)的功能；2、修改用戶應(yīng)用窗體文件，完成對(duì)已有記載的用戶進(jìn)行密碼重新設(shè)定的功能。3、添加用戶應(yīng)用窗體文件，完成添加用戶信息功能，記錄用戶名和用戶密碼；4、刪除用戶應(yīng)用窗體文件，完成刪除用戶信息功能；5、信息管理和用戶管理的主窗體，完成用戶對(duì)系統(tǒng)功能的全局控制；6、查詢信息應(yīng)用窗體文件，完成通過(guò)儀器編號(hào)和名稱對(duì)儀器進(jìn)行查詢的功能；7、修改信息應(yīng)用窗體文件，完成修改

28、儀器設(shè)備信息的功能；8、添加信息應(yīng)用窗體文件，完成信息的添加功能；9、刪除信息應(yīng)用窗體文件，完成刪除儀器設(shè)備信息的功能；10、報(bào)表信息應(yīng)用窗體文件，完成報(bào)表提交功能。3.4 創(chuàng)建數(shù)據(jù)庫(kù)在使用visual basic開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，其后臺(tái)數(shù)據(jù)庫(kù)可以選用多種格式，本系統(tǒng)使用microsoft access的數(shù)據(jù)庫(kù)格式，因?yàn)閟qlsever數(shù)據(jù)庫(kù)和visual basic數(shù)據(jù)庫(kù)都是microsoft jet數(shù)據(jù)庫(kù)，其數(shù)據(jù)庫(kù)對(duì)象的層次結(jié)構(gòu)和編程方法是完全相同的，用sqlsever創(chuàng)建的數(shù)據(jù)庫(kù)可以原封不動(dòng)地用到visual basic應(yīng)用程序中。sqlsever數(shù)據(jù)庫(kù)表的建立方法是：準(zhǔn)備好設(shè)計(jì)資料

29、，先在紙上設(shè)計(jì)好數(shù)據(jù)庫(kù)的結(jié)構(gòu)，即由哪幾個(gè)表組成，每個(gè)表包含哪幾個(gè)字段，各個(gè)字段的屬性如何，哪個(gè)字段是關(guān)鍵字，共有多少個(gè)記錄。下面介紹本系統(tǒng)中兩個(gè)數(shù)據(jù)庫(kù)的創(chuàng)建方法。3.4.1創(chuàng)建設(shè)備數(shù)據(jù)庫(kù)本系統(tǒng)的儀器數(shù)據(jù)庫(kù)是用microsoft sqlsever創(chuàng)建的。下面示例的表中主關(guān)鍵字是“number”。 創(chuàng)建步驟如下：創(chuàng)建一個(gè)新的空數(shù)據(jù)庫(kù)，確定數(shù)據(jù)庫(kù)的名稱及數(shù)據(jù)庫(kù)的保存類型；向空數(shù)據(jù)庫(kù)添加表，將數(shù)據(jù)進(jìn)行分類和量化，并設(shè)置表單的主鍵；使數(shù)據(jù)便于計(jì)算機(jī)處理。列出每一個(gè)表所包含的數(shù)據(jù)字段名稱，確定每個(gè)字段的數(shù)據(jù)類型和字段大??；在表單中輸入和修改數(shù)據(jù)；保存數(shù)據(jù)庫(kù)。如圖3-4所示：圖3-4 創(chuàng)建關(guān)鍵字為“numb

30、er”的表其er圖為：設(shè)備類型編號(hào)設(shè)備編號(hào)設(shè)備編號(hào)設(shè)備類型設(shè)備大小設(shè)備單價(jià)生產(chǎn)廠家圖3-5 倉(cāng)庫(kù)設(shè)備e-r圖3.4.2創(chuàng)建用戶信息數(shù)據(jù)庫(kù)安全性問(wèn)題是所有計(jì)算機(jī)系統(tǒng)都有的問(wèn)題，只是在數(shù)據(jù)庫(kù)系統(tǒng)中大量數(shù)據(jù)集中存放，而且是多用戶共享，使安全性問(wèn)題更為突出。數(shù)據(jù)庫(kù)安全與恢復(fù)是數(shù)據(jù)庫(kù)保護(hù)的組成部分，數(shù)據(jù)庫(kù)保護(hù)一般包括四個(gè)方面的內(nèi)容，其中安全性主要是對(duì)用戶的存取數(shù)據(jù)庫(kù)中數(shù)據(jù)權(quán)限的控制，以保證數(shù)據(jù)庫(kù)的安全和保密。本系統(tǒng)根據(jù)任務(wù)書(shū)的要求，主要是對(duì)數(shù)據(jù)庫(kù)的安全性進(jìn)行了設(shè)計(jì)。在計(jì)算機(jī)系統(tǒng)中，一般說(shuō)來(lái)安全措施是分級(jí)設(shè)置的，本系統(tǒng)安全性設(shè)計(jì)中采用的是用戶標(biāo)識(shí)和鑒定。用戶標(biāo)識(shí)和鑒定是系統(tǒng)提供的最外層的安全保護(hù)措施，其方

31、法是由系統(tǒng)提供一定的方式讓用戶標(biāo)識(shí)自己的名字或身份，每次用戶要進(jìn)入系統(tǒng)時(shí)，系統(tǒng)對(duì)用戶身份進(jìn)行核實(shí)，通過(guò)鑒定后才提供系統(tǒng)使用權(quán)。本系統(tǒng)采用的方法具體是：用一個(gè)用戶名來(lái)標(biāo)明用戶身份，系統(tǒng)鑒別此用戶是否是合法的用戶，若是，則可進(jìn)入下一步的核實(shí)；若不是，則不能使用系統(tǒng)。為了進(jìn)一步核實(shí)用戶，系統(tǒng)要求用戶輸入密碼，為保密起見(jiàn)，用戶在終端上輸入的口令不顯示在屏幕上，系統(tǒng)核定密碼以鑒別用戶身份。其er圖為：用戶密碼用戶帳號(hào)用戶密碼圖3-6 用戶信息e-r圖3.5創(chuàng)建應(yīng)用工程文件本系統(tǒng)的應(yīng)用工程文件是用visual basic6.0創(chuàng)建的，選定“標(biāo)準(zhǔn)的可執(zhí)行文件”單擊“打開(kāi)”進(jìn)入工程的窗體文件設(shè)計(jì)。 3.6用戶

32、管理模塊設(shè)計(jì)用戶管理模塊主要實(shí)現(xiàn)：1用戶登錄。2修改密碼。3添加用戶。4刪除用戶3.6.1用戶登錄系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如圖所示的用戶登錄窗體，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序。如圖3-7：圖3-7 用戶登錄窗口用戶登錄窗體中放置了二個(gè)文本框(textbox)，用來(lái)輸入用戶名和用戶密碼：二個(gè)按鈕(commandbutton)用來(lái)確定或者取消登錄：三個(gè)標(biāo)簽(label)用來(lái)標(biāo)示窗體的信息。為窗體定義全局變量ok，用來(lái)判斷登錄是否成功，定義micount，用來(lái)記載輸入密碼的次數(shù)，并且在載入窗體時(shí)初始化這二個(gè)全局變量，代碼如下：option explicitp

33、ublic ok as boolean記錄確定次數(shù)dim micount as integerprivate sub form_load() ok = false micount = 0end sub當(dāng)用戶輸入用戶名和密碼后，單擊cmdok按鈕將對(duì)用戶信息進(jìn)行判斷。用戶單擊該按鈕，將觸發(fā)該按鈕cmdok的click事件，代碼如下：dim txtsql as string dim mrc as adodb.recordset dim msgtext as string todo: create test for correct password check for correct passwor

34、d username = if trim(txtusername.text = ) then msgbox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！, vbokonly + vbexclamation, 警告 txtusername.setfocus else txtsql = select * from user_info where user_id = & txtusername.text & set mrc = executesql(txtsql, msgtext) if mrc.eof = true then msgbox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名!, vbokonly + vbexcl

35、amation, 警告 txtusername.setfocus else if trim(mrc.fields(1) = trim(txtpassword.text) then ok = true mrc.close me.hide username = trim(txtusername.text) else msgbox 輸入密碼不正確，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 txtpassword.setfocus txtpassword.text = end if end if end if micount = micount + 1 if micou

36、nt = 3 then me.hide end ifexit sub用戶如果沒(méi)有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒(méi)有找到，將提示重新輸入用戶名，文本框txtusername將重新獲得輸入焦點(diǎn)。如果用戶輸入的密碼不正確，文本框txtpassword將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量ok將被賦值為true。一旦三次輸入密碼均不正確，全局變量ok將被賦值為false。公用模塊中的main（）過(guò)程將根據(jù)ok的值來(lái)決定是退出，還是進(jìn)入系統(tǒng)。如果用戶取消登錄，單擊cmdcancel按鈕，將觸發(fā)按鈕的click事件，代碼如下：ok = false me.hide3.

37、6.2修改密碼用戶可以修改自己的密碼，選擇菜單“系統(tǒng) 修改密碼”出現(xiàn)如圖所示的窗體：圖3-8 修改密碼窗口在這個(gè)窗體中放置了三個(gè)文本框，用來(lái)輸入舊密碼，新密碼和確認(rèn)密碼，二個(gè)按鈕按鈕用來(lái)確定是否修改密碼，三個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容。二次輸入密碼后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否修改密碼。代碼如下：private sub cmdok_click() dim txtsql, msgtext as string dim mrc as adodb.recordset if trim(text1(1).text) trim(text1(2).text) then msgbox 密碼輸

38、入不正確！, vbokonly + vbexclamation, 警告 text1(1).setfocus text1(1).text = else txtsql = select * from user_info where user_id = & username & set mrc = executesql(txtsql, msgtext) mrc.fields(1) = text1(1).text mrc.update mrc.close msgbox 密碼修改成功！, vbokonly + vbexclamation, 修改密碼 me.hide end if end sub3.6.3

39、添加用戶進(jìn)入系統(tǒng)后，選擇菜單“系統(tǒng) 添加用戶”，就可以添加用戶，出現(xiàn)添加用戶的窗體：圖3-9 添加用戶窗口在這個(gè)窗體中放置了三個(gè)文本框，用來(lái)輸入用戶名，密碼和確認(rèn)密碼，二個(gè)按鈕用來(lái)確定是否修改密碼，三個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容。二次輸入密碼后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否修改密碼，代碼如下：private sub cmdok_click() dim txtsql as string dim mrc as adodb.recordset dim msgtext as string if trim(text1(0).text) = then msgbox 請(qǐng)輸入用戶名稱！, v

40、bokonly + vbexclamation, 警告 exit sub text1(0).setfocus else txtsql = select * from user_info set mrc = executesql(txtsql, msgtext) while (mrc.eof = false) if trim(mrc.fields(0) = trim(text1(0) then msgbox 用戶已經(jīng)存在，請(qǐng)重新輸入用戶名！, vbokonly + vbexclamation, 警告 text1(0).setfocus text1(0).text = text1(1).text

41、= text1(2).text = exit sub else mrc.movenext end if wend end if if trim(text1(1).text) trim(text1(2).text) then msgbox 兩次輸入密碼不一樣，請(qǐng)確認(rèn)！, vbokonly + vbexclamation, 警告 text1(1).setfocus text1(1).text = text1(2).text = exit sub else if text1(1).text = then msgbox 密碼不能為空！, vbokonly + vbexclamation, 警告 tex

42、t1(1).setfocus text1(1).text = text1(2).text = else mrc.addnew mrc.fields(0) = trim(text1(0).text) mrc.fields(1) = trim(text1(1).text) mrc.update mrc.close me.hide msgbox 添加用戶成功！, vbokonly + vbexclamation, 添加用戶 end ifend if一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫(kù)中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當(dāng)確定數(shù)據(jù)庫(kù)中沒(méi)有相同的用戶名，并且二次輸入密碼一致時(shí)

43、，將把該條記錄添加到數(shù)據(jù)庫(kù)中。單擊cmdcancle按鈕將取消添加用戶的操作。代碼如下：private sub cmdcancel_click( ) unload meend sub3.6.4刪除用戶進(jìn)入系統(tǒng)后，選擇菜單“系統(tǒng) 刪除用戶”，就可以刪除用戶，出現(xiàn)刪除用戶的窗體：圖3-10 刪除用戶窗口在這個(gè)窗體中放置了二個(gè)文本框，用來(lái)輸入用戶名和密碼，二個(gè)按鈕用來(lái)確定是否修改密碼，三個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容。輸入信息后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否刪除用戶。代碼如下：dim denglu as new adodb.connectiondim rstdenglu as new

44、 adodb.recordsetprivate sub command1_click() if text1.text = then msgbox 請(qǐng)輸入用戶名, vbokonly, 警告 text1.setfocus end if if text2.text = then msgbox 請(qǐng)輸入密碼, vbokonly, 警告 text2.setfocus end if rstdenglu.movefirst rstdenglu.find (yonghuming = + text1.text + ) if rstdenglu.eof then msgbox 用戶名不存在，請(qǐng)重新輸入用戶名, vb

45、okonly, 警告 text1.setfocus else if rstdenglu.fields(mima) trim(text2.text) then text2.text = msgbox 請(qǐng)輸入正確的密碼！, vbokonly, 警告 else if (vbyes = msgbox(您確定要?jiǎng)h除該用戶嗎？, vbyesno + vbquestion, 信息提示) then rstdenglu.delete call command2_click msgbox 刪除信息成功！, vbokonly + vbexclamation, 信息提示 rstdenglu.close denglu.

46、close end if end if end ifend subprivate sub command2_click() text1.text = text2.text = end subprivate sub form_load() set denglu = new adodb.connection denglu.cursorlocation = aduseclient denglu.open provider=microsoft.jet.oledb.4.0;user id=admin;data source=f:倉(cāng)庫(kù)管理系統(tǒng)yonghuxinxi.mdb;persist security

47、 info=false set rstdenglu = new adodb.recordset set rstdenglu.activeconnection = denglu rstdenglu.open select * from yonghuxinxi, denglu, adopenstatic, adlockoptimisticend sub3.7信息管理模塊設(shè)計(jì)3.7.1創(chuàng)建倉(cāng)庫(kù)管理系統(tǒng)主窗體（mainform.frm）在visual basic中新建一個(gè)form。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性。當(dāng)用戶登錄進(jìn)系統(tǒng)，將進(jìn)入倉(cāng)庫(kù)系統(tǒng)的主窗體，如圖3-11：圖

48、3-11 倉(cāng)庫(kù)管理系統(tǒng)主窗體3.7.2創(chuàng)建查詢信息窗體（formchaxun.frm）在visual basic中新建一個(gè)form，保存為formchaxun.frm。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性。如圖3-12：圖3-12 查詢信息窗體當(dāng)用戶需要查詢某個(gè)設(shè)備時(shí)，只需要輸入該設(shè)備的 設(shè)備名稱 或者 設(shè)備編號(hào) ，如果該設(shè)備存在，則會(huì)顯示該設(shè)備的詳細(xì)信息，否則顯示輸入錯(cuò)誤。其流程圖如下：輸入名稱或編號(hào)和數(shù)據(jù)庫(kù)信息對(duì)比顯示設(shè)備詳細(xì)信息end查詢yesno圖3-13 信息查詢流程圖3.7.3創(chuàng)建添加信息窗體（formtianjia.frm）在visual basic中新

49、建一個(gè)form，保存為formtianjia.frm。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性。如圖3-14圖3-14 添加信息窗體將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下：dim xinxi as new adodb.connectiondim rstxinxi as new adodb.recordsetprivate sub form_load() set xinxi = new adodb.connection xinxi.cursorlocation = aduseclient xinxi.open provider=mi

50、crosoft.jet.oledb.4.0;user id=admin;data source=f:倉(cāng)庫(kù)管理系統(tǒng)cangkuzl.mdb;persist security info=false set rstxinxi = new adodb.recordset set rstxinxi.activeconnection = xinxi rstxinxi.open select * from yiqixinxi, xinxi, adopenstatic, adlockoptimisticend subprivate sub a11_click(index as integer) select

51、case index case 0 unload me load formtianjia formtianjia.show case 2 unload me load formxiugai formxiugai.show case 3 unload me load formshanchu formshanchu.show end selectend subprivate sub command1_click() txtyqbh.text = txtflh.text = txtyqmc.text = txtxh.text = txtgg.text = txtdj.text = txtcj.text