畢業(yè)設(shè)計-貨物進出庫管理系統(tǒng)論文.doc

《畢業(yè)設(shè)計-貨物進出庫管理系統(tǒng)論文.doc》由會員分享，可在線閱讀，更多相關(guān)《畢業(yè)設(shè)計-貨物進出庫管理系統(tǒng)論文.doc（42頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 畢業(yè)設(shè)計（論文） 貨物出入庫管理系統(tǒng)目 錄摘 要1第一章、緒論31.1管理信息系統(tǒng)的概述31.2數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)簡介31.3貨物進出庫管理系統(tǒng)簡介5第二章 數(shù)據(jù)庫理論基礎(chǔ)82.1數(shù)據(jù)庫系統(tǒng)設(shè)計82.2 SQL語言介紹9第三章 應(yīng)用系統(tǒng)開發(fā)工具103.1 Visual Basic簡介及實現(xiàn)原理103.2 數(shù)據(jù)庫組件介紹103.3 SQL語言在VB中的應(yīng)用113.4 Access 2000簡述12第四章 貨物進出庫管理系統(tǒng)設(shè)計分析134.1需求分析134.2系統(tǒng)模塊圖144.3數(shù)據(jù)流程圖154.4數(shù)據(jù)庫設(shè)計16第五章 應(yīng)用程序設(shè)計205.1程序結(jié)構(gòu)205.2 程序源代碼20設(shè)計總結(jié)37參考文獻

2、38摘 要隨著現(xiàn)代工業(yè)的發(fā)展，計算機信息管理系統(tǒng)越來越受到企業(yè)重視。本文主要分析了貨物進出庫管理系統(tǒng)的一些基本功能和組成情況，包括系統(tǒng)的需求分析、系統(tǒng)結(jié)構(gòu)，功能模塊劃分以及數(shù)據(jù)庫模式分析等，重點對應(yīng)用程序的實際開發(fā)實現(xiàn)作了介紹。達到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了貨物進出庫管理系統(tǒng)作為典型的信息管理系統(tǒng)(MIS)的要求。同時簡單介紹了Visual Basic編程環(huán)境和Access數(shù)據(jù)庫管理系統(tǒng)的功能特點，貨物進出庫管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。關(guān)鍵詞：倉庫管理，數(shù)據(jù)庫，信息管理，VB第一章、緒論貨物進出庫管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,貨物進出庫管理系統(tǒng)

3、應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段，傳統(tǒng)的人工方式管理倉庫存在著許多缺點，諸如效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難。使用計算機對產(chǎn)品倉庫信息進行管理，具有著人工管理無法比擬的優(yōu)點，它檢索迅速、查找方便、存儲量大、保密性好、成本低等，可減少更多的人力物力和財力，這些都能夠極大地提高貨物倉庫的管理效率，也是企業(yè)倉庫管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。因此，開發(fā)一個貨物進出庫管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。1.1管理信息系統(tǒng)的概述管理信息系統(tǒng)是在管理科學(xué)、系統(tǒng)科學(xué)、計算機科學(xué)等的基礎(chǔ)上發(fā)展起來的綜合性

4、邊緣科學(xué)。在當(dāng)今信息高速發(fā)展的社會中，管理信息系統(tǒng)具有很重要的作用。管理信息系統(tǒng)是一個由人、機（計算機）組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統(tǒng)。它是一個以計算機為工具，具有數(shù)據(jù)處理、預(yù)測、控制和輔助決策功能的信息系統(tǒng)。管理信息系統(tǒng)是一個人機系統(tǒng)也是一個一體化集成系統(tǒng)。管理信息系統(tǒng)是信息系統(tǒng)的一個子系統(tǒng)，它以計算機技術(shù)、通訊技術(shù)和軟件技術(shù)為技術(shù)基礎(chǔ)，同時將現(xiàn)代管理理論、現(xiàn)代管理方法及各級管理人員融為一體，為某個組織整體的管理與決策服務(wù)，是由人和計算機組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統(tǒng)。管理信息系統(tǒng)的基本結(jié)構(gòu)可以概括為四大部件，即信息源、信息處理

5、器、信息用戶和信息管理者。因此，一個成功的管理信息系統(tǒng)應(yīng)該具有可靠的硬件、實用的軟件、強有力的現(xiàn)代化管理水平。管理信息系統(tǒng)的三大支柱是：計算機網(wǎng)絡(luò)、數(shù)據(jù)庫和現(xiàn)代化的管理。1.2數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)簡介數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的目標是建立一個滿足用戶長期需求的產(chǎn)品。開發(fā)的主要過程為：理解用戶的需求，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計。把設(shè)計轉(zhuǎn)變?yōu)閷嶋H的數(shù)據(jù)庫并且功能完備、高效能。數(shù)據(jù)庫技術(shù)產(chǎn)生于60年代，30多年來數(shù)據(jù)庫技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系。隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)成為最熱門技術(shù)之一。1.2.1數(shù)據(jù)庫數(shù)據(jù)庫由DB

6、MS（數(shù)據(jù)庫管理系統(tǒng)）處理，DBMS則由開發(fā)人員和用戶通過應(yīng)用程序直接或間接地使用。它主要包括四個要素：用戶數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù)。一、用戶數(shù)據(jù)目前，大多數(shù)主流數(shù)據(jù)庫管理系統(tǒng)把用戶數(shù)據(jù)表示為關(guān)系?，F(xiàn)在把關(guān)系看作數(shù)據(jù)表。表的列包含域或?qū)傩?，表的行包含對?yīng)的實體的記錄。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。二、元數(shù)據(jù)數(shù)據(jù)庫是自描述的，也就是它自身包含了它的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的描述稱作元數(shù)據(jù)。因為DBMS是用來存儲和操縱表的，因此大多數(shù)產(chǎn)品把元數(shù)據(jù)以表的形式存儲，有時稱作系統(tǒng)表。這些系統(tǒng)表存儲了數(shù)據(jù)庫中表的情況，每一個表中有多少列，哪一列是主關(guān)鍵字，各列的數(shù)據(jù)類型的

7、描述，它也存儲索引、關(guān)鍵字、規(guī)則和數(shù)據(jù)庫結(jié)構(gòu)的其他部分。三、索引第三種類型的數(shù)據(jù)改進了數(shù)據(jù)庫的性能和可訪問性，這種數(shù)據(jù)被稱作開銷數(shù)據(jù)，盡管有時采用其他類型的數(shù)據(jù)結(jié)構(gòu)，但它主要還是索引。索引可以用來排序和快速訪問數(shù)據(jù)。索引用于快速訪問數(shù)據(jù)。例如，一個用戶只想訪問貨物信息表中類別值為01的那些貨物。如果沒有索引，則必須搜索整個源表；但有了索引之后，可以找到索引條目，并使用它來挑選所有合適的行。索引對排序和查找是有幫助的，但是有代價的。貨物信息表中的行每次改變時，索引也 必須隨之改變，這意味著索引并不是隨意的，應(yīng)該在真正需要時保存。四、應(yīng)用元數(shù)據(jù)存儲在數(shù)據(jù)庫中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來存儲用戶

8、窗體、報表、查詢和其他形式的查詢組件。不是所有的DBMS都支持應(yīng)用組件，支持組件的DBMS也不一定把全部組件的結(jié)構(gòu)作為應(yīng)用元數(shù)據(jù)存儲在數(shù)據(jù)庫中。但是大多數(shù)現(xiàn)代的DBMS產(chǎn)品存儲這種數(shù)據(jù)作為數(shù)據(jù)庫的一部分。1.2.2數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。對數(shù)據(jù)庫的一切操作，都是通過DBMS進行的。DBMS總是基于某種數(shù)據(jù)模型，根據(jù)數(shù)據(jù)模型的不同，DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取ｊP(guān)系模型。關(guān)系模型主要是用二維表格結(jié)構(gòu)表達實體集，用外鍵表示實體間聯(lián)系。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模型和層次、

9、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易懂。關(guān)系模型是數(shù)學(xué)化模型，SQL語言是關(guān)系數(shù)據(jù)庫的標準化語言，已得到了廣泛的應(yīng)用。DBMS的特點和功能可以分為三個子系統(tǒng)：設(shè)計工具子系統(tǒng)、運行子系統(tǒng)和DBMS引擎。設(shè)計子系統(tǒng)有一個方便數(shù)據(jù)庫及其應(yīng)用創(chuàng)建的工具集。它典型地包含產(chǎn)生表、窗體、查詢和報表的工具。DBMS產(chǎn)品還提供編程語言和對編程語言的接口。運行子系統(tǒng)處理用設(shè)計子系統(tǒng)開發(fā)的應(yīng)用組件。它所包含的運行處理器用來處理窗體和數(shù)據(jù)庫的數(shù)據(jù)交互，以及回答查詢和打印報表等。DBMS引擎從其他兩個組件接受請求，并把它們翻譯成對操作系統(tǒng)的命令，以便讀寫物理介質(zhì)上的數(shù)據(jù)。DBMS引擎還涉及事

10、務(wù)管理、鎖、備份和恢復(fù)。1.3貨物進出庫管理系統(tǒng)簡介當(dāng)今時代是信息大爆炸的時代，在各行各業(yè)中離不開信息處理，計算機被廣泛應(yīng)用于信息處理系統(tǒng)的環(huán)境。利用計算機能夠進行信息管理，進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)的，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。倉庫作為一種貨物資源的集散地，貨物的種類繁多，包含很多的信息數(shù)據(jù)的管理。以前倉庫進行信息管理的方式主要是基于文本、表格等紙介質(zhì)的手工處理，對管理者的管理權(quán)限等不受約束，這樣容易引起資料外泄。此外，數(shù)據(jù)信息處理工作量大，容易出錯，數(shù)據(jù)繁多，容易丟失，且不易查找。總的來說，缺乏系統(tǒng)、規(guī)范的信

11、息管理手段。因此，很有必要建立一個貨物進出庫管理系統(tǒng)，使貨物管理工作規(guī)范化，系統(tǒng)化，程序化。提高信息處理的速度和準確性。1.3.1國內(nèi)外同類管理軟件的研究現(xiàn)狀與發(fā)展趨勢現(xiàn)在對這類系統(tǒng)的開發(fā)與研究很有實用性的，基本上能滿足各企業(yè)的自身特點，對倉庫的管理，同時，這類系統(tǒng)在不斷地深入與發(fā)展，從而適用更多的企業(yè)，但是都沒有針對大眾的廣泛應(yīng)用，只能運用某個企業(yè)或單位，所以這一點還有待于進一步開發(fā)與實踐。此類管理軟件將會向帶條碼貨物進出庫管理系統(tǒng)方向發(fā)展，伴隨這著管理信息化、網(wǎng)絡(luò)化的發(fā)展，采用條碼技術(shù)進行倉庫管理，將是一個必然的發(fā)展趨勢，也是要迫切解決的現(xiàn)實問題。隨著信息化技術(shù)的不斷提高和應(yīng)用的日漸普及，

12、更多的商品擁有自己的條碼，采用條碼不但可以作業(yè)效率，而且能確保資料正確，同時可以減少因人為失誤所造成的損失。1、技術(shù)應(yīng)用于倉庫管理是實現(xiàn)倉庫管理自動化的有效途徑倉庫品種多，數(shù)量大。因此，要實現(xiàn)快速、準確、高效的收發(fā)作業(yè)，倉儲管理自動化勢在必行。而實現(xiàn)管理自動化利用條碼技術(shù)，也就是說入庫及其包裝上貼條碼，用倉庫信息管理系統(tǒng)進行作業(yè)，不光可以大大提高效率，同時也降低作業(yè)強度，還提高了產(chǎn)品收發(fā)作業(yè)準確率，進而實現(xiàn)倉庫管理的全面自動化。2、技術(shù)應(yīng)用于倉庫管理對提高倉庫作業(yè)效率有重要作用將條碼技術(shù)和倉庫管理信息系統(tǒng)結(jié)合起來，用于產(chǎn)品收、發(fā)、保管等全過程控制和管理，不僅改變了信息采集傳統(tǒng)的手工作業(yè)方式，同

13、時也降低了作業(yè)強度，還可避免由此造成的各種差錯，提高作業(yè)效率和科學(xué)管庫水平。3、技術(shù)應(yīng)用于倉庫管理是完善產(chǎn)品保障信息網(wǎng)絡(luò)的重要手段儲存產(chǎn)品信息是產(chǎn)品保障信息網(wǎng)絡(luò)的重要組成部分，是做好產(chǎn)品供應(yīng)保障工作的基礎(chǔ)。產(chǎn)品保障信息網(wǎng)是實現(xiàn)物資儲運全過程可視化的前提。條碼技術(shù)在儲存管理中的應(yīng)用，可進一步完善系統(tǒng)各倉庫之間及各倉庫與作業(yè)主管部門之間的信息共享和交換功能，最終達到對產(chǎn)品的全程跟蹤管理。 1.3.2貨物進出庫管理系統(tǒng)研究背景與意義目前，市場上也有很多軟件商提供倉儲管理方面的軟件來滿足各行業(yè)客戶的需求，配合企業(yè)的信息化發(fā)展。但據(jù)抽樣調(diào)查，這些軟件的主要作用體現(xiàn)在提高效率和規(guī)范管理方面，而對企業(yè)業(yè)務(wù)流

14、程優(yōu)化和直接效益相關(guān)不高，倉儲管理部門需要一套成本低、性能高、方便使用、功能完善的綜合倉庫管理信息系統(tǒng)來提供幫助。隨著計算機技術(shù)的飛速發(fā)展，計算機在企業(yè)中應(yīng)用的普及為了滿足信息化管理的需要，實現(xiàn)倉庫的電腦化管理很需要一個貨物出入庫管理系統(tǒng)第二章數(shù)據(jù)庫理論基礎(chǔ)2.1數(shù)據(jù)庫系統(tǒng)設(shè)計一個成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫是其中一個非常重要的條件和關(guān)鍵技術(shù)。信息管理系統(tǒng)所涉及的數(shù)據(jù)庫設(shè)計分五個步驟：數(shù)據(jù)庫需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計與加載測試。數(shù)據(jù)庫設(shè)計的步驟主要是：（1）數(shù)據(jù)庫結(jié)構(gòu)定義：目前的DBMS有的是支持聯(lián)機事務(wù)處理CLTP的操作型DBMS，有的可支持數(shù)據(jù)倉庫、有聯(lián)

15、機分析處理CLAP功能的大型DBMS，有的數(shù)據(jù)庫是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。所以選擇DBMS，需要數(shù)據(jù)庫結(jié)構(gòu)定義。（2）數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗規(guī)則、是否關(guān)鍵字、可否為空等。關(guān)系型數(shù)據(jù)庫要盡量按照關(guān)系規(guī)范化要求進行數(shù)據(jù)庫設(shè)計，為了使效率提高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。數(shù)據(jù)表設(shè)計不僅要滿足數(shù)據(jù)存儲的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時數(shù)據(jù)表。（3）存儲設(shè)備和存儲空間組織：確定數(shù)據(jù)的存放地點、存儲路徑、存儲設(shè)備等，備份方案，對多版本如何保證一致性和數(shù)據(jù)的完整性。（

16、4）數(shù)據(jù)使用權(quán)限設(shè)置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全。（5）數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護和修改。2.2 SQL語言介紹2.2.1 SQL基礎(chǔ)SQL(Structured Query Language，結(jié)構(gòu)查詢語言)是一個功能強大的數(shù)據(jù)庫語言。SQL通常使用于數(shù)據(jù)庫的通訊。ANSI即美國國家標準學(xué)會稱，SQL是關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標準語言。SQL語句通常用于完成一些數(shù)據(jù)庫的操作任務(wù)，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。使用SQL的常見關(guān)系數(shù)據(jù)庫管理系統(tǒng)有：Oracle、 Sybase、 Microsoft SQL Server、 A

17、ccess、 Ingres等等。標準的SQL命令，比如Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫的操作。SQL語言的突出優(yōu)點就是它的非過程化、統(tǒng)一，而且還是所有關(guān)系數(shù)據(jù)庫的公共語言。SQL語言一次處理一個記錄，對數(shù)據(jù)提供自動導(dǎo)航，它允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個記錄進行操作，可操作記錄集，所有SQL語句接受集合作為輸入，返回集合作為輸出。SQL的集合特性允許一條SQL語句的結(jié)果作為另一條SQL語句的輸入。不要求用戶指定對數(shù)據(jù)的存放方法，用戶更易集中精力于要得到的結(jié)果；作為統(tǒng)一的語言，SQL可用于所有用戶的DB

18、活動模型，包括系統(tǒng)管理員、數(shù)據(jù)庫管理員、 應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。2.2.2 SQL語句SQL語句概括起來可以分為數(shù)據(jù)操作語言，數(shù)據(jù)定義語言和數(shù)據(jù)控制語言幾大組，它們用于對數(shù)據(jù)庫數(shù)據(jù)的查詢，修改和更新，是一種完備的數(shù)據(jù)處理語言。主要用到的數(shù)據(jù)操作語言主要是：SELECT:用于數(shù)據(jù)檢索；INSERT:用于增加數(shù)據(jù)到數(shù)據(jù)庫；UPDATE:用于從數(shù)據(jù)庫中修改現(xiàn)存的數(shù)據(jù)；DELETE:用于從數(shù)據(jù)庫中刪除數(shù)據(jù)。第三章應(yīng)用系統(tǒng)開發(fā)工具3.1 Visual Basic簡介及實現(xiàn)原理Visual Basic（簡稱VB）是美國微軟公司（Microsoft）于1990年推出的一套完整

19、的Windows系統(tǒng)軟件開發(fā)工具，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο?、用事件?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言和工具，是目前使用最廣泛的編程語言之一。至今以升級到了6.0版。VB的重要特點之一是可視性。系統(tǒng)引進了窗體和控件的機制，用于設(shè)計應(yīng)用程序界面。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框，VB會自動生成相應(yīng)的代碼。VB的另一重要特點是事件驅(qū)動。當(dāng)窗體或控件上發(fā)生一個事件時，VB立即把控制權(quán)交給程序員。程序員不必擔(dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應(yīng)該做什么工作就可以了。這樣，設(shè)計一個Wind

20、ows應(yīng)用程序簡化為用鼠標在屏幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。利用VB的可視性特點，可方便的設(shè)計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達到需要的設(shè)計效果。利用VB的事件驅(qū)動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當(dāng)在相應(yīng)的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應(yīng)該做什么工作的目的。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達到當(dāng)在幾個按鈕上出

21、現(xiàn)單擊（Click）事件后，相應(yīng)按鈕實現(xiàn)添加、刪除、返回的功能的。3.2 數(shù)據(jù)庫組件介紹在使用Visual Basic開發(fā)數(shù)據(jù)庫應(yīng)用程序的時候，會經(jīng)常使用數(shù)據(jù)庫訪問控件。這些控件包括：Data控件；ADO Data控件；DataList控件/DataCombo控件；DataGrid控件；MSChart控件。下面將分別對這些控件的主要功能及使用方法進行介紹。3.2.1Data控件Data控件是Visual Basic中最基本的數(shù)據(jù)庫操作控件。它使用Recordset對象提供對存儲在數(shù)據(jù)庫中數(shù)據(jù)的訪問。Data控件允許從一個記錄移動到另一個記錄，并顯示和操縱來自被連接控件的記錄的數(shù)據(jù)。許多其他的數(shù)

22、據(jù)庫操作控件都需要Data控件或類似的數(shù)據(jù)源控件（比如ADO Data控件）。Data控件可以執(zhí)行大部分數(shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。Data控件通常需要與其他控件結(jié)合使用。這些與Data控件結(jié)合使用的控件，可以稱之為“數(shù)據(jù)覺察控件”。因為程序員無需編寫任何代碼，就可以在這些控件中顯示當(dāng)前記錄的數(shù)據(jù)。當(dāng)Data控件中當(dāng)前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。當(dāng)與Data控件相連接時，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理記錄集合。所有這些控件都允許一次顯示或操作幾個記錄。內(nèi)部的Picture、Label、T

23、extBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是數(shù)據(jù)覺察的，能和由Data控件管理的Recordset對象的某個字段相連接。3.2.2ADO Data控件ADO Data控件與內(nèi)部Data控件以及Remote Data控件（RDC）相似。用戶可以使用ADO Data控件快速地創(chuàng)建一個到數(shù)據(jù)庫的連接。3.2.3DataList控件/DataCombo控件DataList控件是一個數(shù)據(jù)綁定列表框，它可以自動地由一個附加數(shù)據(jù)源中的一個字段充填，并且可選擇地更新另一個數(shù)據(jù)源中一個相關(guān)表的一個字段。DataCombo控件的功能與DataList控件完全相同，只

24、不過DataCombo控件是一個組合框。3.2.4DataGrid控件在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫中的數(shù)據(jù)。這時就要借助于DaatGrid控件。用戶可以設(shè)置DataGrid控件的DataSource屬性為一個ADO Data控件，從而將ADO Data中的數(shù)據(jù)自動地填充到DataGrid表格中。這個DataGrid控件實際上是一個固定的列集合，每一列的行數(shù)都是不確定的。3.2.5MSChart控件MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。這會使枯燥的數(shù)據(jù)變得更加生動直觀，增加了程序的實用價值。MSChart控件支持一下特性：1、真三維表示；2、支持所有主要的圖表類型；3

25、、數(shù)據(jù)網(wǎng)絡(luò)成員支持隨機數(shù)據(jù)，數(shù)據(jù)數(shù)組。3.3 SQL語言在VB中的應(yīng)用1.SQL提供的實用函數(shù)為實現(xiàn)使用VB程序調(diào)用SQL語言訪問Access數(shù)據(jù)庫多個記錄的目的，我們利用SQL提供的函數(shù)。Davg Function（求平均值）Dcount Function（計算滿足條件的記錄數(shù)）Dfirst Function（返回記錄集的第一個記錄的某個域值）Dlast Function（返回記錄集的最后一個記錄的某個域值）Dlookup Function（返回記錄集中滿足待定條件的記錄的域值）Dsum Function（求和計算）Dmax Function（求最大值）Dmin Function（求最小值）

26、利用以上的SQL函數(shù)能夠方便地進行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以Dsum為例，語法如下：Dsum(expr,clomain,criteria)例：計算目的港為英國地所有訂單地運費總和。假定“Orders”是數(shù)據(jù)庫文件中地一張表格，則x=Dsum(“Feight”,”O(jiān)rder”.”ship country=UK”)2.利用SQL訪問多個記錄地方法在進信息查詢和統(tǒng)計地過程中，我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。這種改變基于數(shù)據(jù)庫關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。（1）建立一個新的查詢set mydb=Open Database(“c:DIR1ma

27、nage.mdb”)（打開數(shù)據(jù)庫文件c:DIR1manage.mdb）set myquery=mydb.creat QueryDef(“monthquery”)(創(chuàng)建查詢名為monthquery的查詢)Myquery.SQL=”select*from OPNRPT where mid $(year,7,2)=”&yeartext.text&”(利用查詢的SQL屬性，建立查詢依據(jù)，即查詢的條件。這里用到了Setect Statement)以后如果需要這樣的查詢，只需要引用查詢名”monthquery”即可。需要說明的兩點是：使用前先定義Dim mydb AS Database及myquery A

28、S querydef.查詢”monthquery”沒有使用Data控件，也就不直接顯示信息。（2）如何設(shè)置Data控件的Recordsource屬性設(shè)置Datasource屬性的命令為：Data.Recordsource=”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=20group by Vss_code,Voyage”在這個命令中字段名Vss_code為船名代碼，Voyage為航次，ctn_size為集裝箱號，weight為集裝箱重量。計算機通過增加了條件的monthquery查詢組

29、成了新的記錄集。AS為關(guān)鍵字表示，并定義了別名。通過這一個方法定義的記錄集可以使用move和Find方法逐條記錄的進行操作。3.4 Access 2000簡述Access2000 是關(guān)系數(shù)據(jù)庫開發(fā)工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用了Windows操作平臺的優(yōu)越性，采用與Windows完全一致的界面風(fēng)格，使界面非常友好。在Access中，用戶不需要編寫復(fù)雜的程序就可以建立一個完整的數(shù)據(jù)庫應(yīng)用系統(tǒng)，是一個典型的開放式數(shù)據(jù)庫系統(tǒng)，它可以和Windows下的

30、其他應(yīng)用程序共享數(shù)據(jù)庫資源。數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。第四章 貨物

31、進出庫管理系統(tǒng)設(shè)計分析.4.1 開發(fā)現(xiàn)狀.4.1.1 自己開發(fā)的現(xiàn)狀 到目前為止通過我大量的搜集資料已經(jīng)基本了解設(shè)計這套系統(tǒng)所需要的模塊以及各個模塊的功能是什么。4.1.2 存在的問題 雖然知道這個系統(tǒng)的主要模塊是什么，但是要實現(xiàn)這些模塊的功能還需要知道該怎么樣才能實現(xiàn)各個模塊的功能。4.1.3 邏輯設(shè)計方案 1 弄清這個系統(tǒng)的流程是什么。 2 流程中的各個模塊是什么及其功能。4.1.4 怎么樣解決方案 通過總體設(shè)計來規(guī)劃整個系統(tǒng)的結(jié)構(gòu)和流程 4.2需求分析本套應(yīng)用程序名稱為“貨物進出庫管理系統(tǒng)”，主要用于倉庫貨物信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫、一些統(tǒng)計查詢和報表等幾部分組成。貨物進

32、出庫管理系統(tǒng)需滿足倉庫管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對工作人員的登陸本模塊進行更多的考慮，設(shè)計不同用戶的操作權(quán)限和登陸方法。對于一個倉庫來說，最大的功能就是存儲貨物，所以倉庫管理就是對貨物信息，倉庫信息，短線貨物及超儲貨物的管理，用戶可以根據(jù)實際情況對各種貨物信息進行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。當(dāng)然，倉庫中貨物入庫也是常有的事，入庫管理操作就是對于貨物入庫情況的管理，用戶可以方便地輸入一些貨物的信息。有了貨物的入庫，自然也就有貨物的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些出庫貨物的管理，也很方便數(shù)據(jù)的輸入。倉庫貨物的信息量大，數(shù)據(jù)

33、安全性和保密性要求高。本系統(tǒng)實現(xiàn)對貨物信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨物的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。報表是一個數(shù)據(jù)庫中最重要的功能之一，有了報表才能清楚地知道貨物的出入庫情況，在數(shù)據(jù)報表功能中包括出庫報表，倉庫報表及經(jīng)辦人員報表等一些基本信息的打印，方便簡潔。本系統(tǒng)基本涵蓋了倉庫管理的主要需求，具有完善細致的功能、友好的用戶界面、強大的數(shù)據(jù)處理功能和完備的安全機制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 系統(tǒng)特色： 1.設(shè)置系統(tǒng)用戶登陸功

34、能，即時對系統(tǒng)數(shù)據(jù)進行安全設(shè)置與保護。 2.友好的用戶界面，業(yè)務(wù)操作簡單，進入系統(tǒng)即能使用。3.成熟先進的技術(shù)和系統(tǒng)構(gòu)架，采用先進的數(shù)據(jù)庫訪問方式，數(shù)據(jù)更安全，性能更穩(wěn)定。4.強大的數(shù)據(jù)處理能力和開放的數(shù)據(jù)接口，選用具有大型數(shù)據(jù)庫安全機制的數(shù)據(jù)庫系統(tǒng)，提供各種級別的數(shù)據(jù)保護和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。5.系統(tǒng)每種操作都可以通過菜單來進行。操作快捷、方便。易懂易會。系統(tǒng)集輸入、維護、查詢、統(tǒng)計和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。貨物進出庫倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品信息管理貨品倉庫管理短線貨品管理超儲貨品管理出庫登記管理貨品出庫年度統(tǒng)

35、計收貨單位年度收貨金額統(tǒng)計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經(jīng)辦人員管理4.2系統(tǒng)模塊圖基本模塊與功能：1.系統(tǒng)包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫進行備份，以確保數(shù)據(jù)的安全性。幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息；2.倉庫管理貨物信息管理：對倉庫里的貨物進行登記；貨物倉庫管理：管理倉庫的倉庫情況；短線貨物管理：對倉庫里短線的貨物進行登記，以便及時采購補貨；超儲貨物管理：對倉庫里超儲的貨物進行登記，控制倉庫量，減少進貨；3.入庫管理入庫登記管理：能對貨物的入庫登記，刪除，更改等；入庫期間統(tǒng)計：貨物入庫期間年度的

36、統(tǒng)計；供貨單位期間供貨金額統(tǒng)計：對貨物供應(yīng)的金額進行統(tǒng)計；4.出庫管理對貨物出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等；5.盤存管理對盤存貨物信息的盤存錄入；6.綜合管理可根據(jù)同一貨物的出入庫情況，對倉庫情況的匯總；7.附項管理對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作；8.歷史數(shù)據(jù)管理對歷史倉庫，歷史出庫，歷史出庫情況進行管理；9.打印與查詢可根據(jù)輸入的條件，對貨物的入庫信息，倉庫信息等進行簡單查詢和組合查詢。登陸貨物進出庫管理系統(tǒng)驗證用戶信息系統(tǒng)主窗體倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品入庫單經(jīng)辦人

37、員報表貨品出庫單數(shù)據(jù)備份備份輸出倉庫匯總圖41 貨物進出庫管理系統(tǒng)數(shù)據(jù)流程圖4.3數(shù)據(jù)流程圖 密碼錯誤 匯總計算貨物信息管理數(shù)據(jù)流程圖：貨品登記基本信息錄入貨品基本信息管理貨品調(diào)配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理圖42 貨品信息管理數(shù)據(jù)流程圖4.4數(shù)據(jù)庫設(shè)計本貨物進出庫管理系統(tǒng)是應(yīng)用在單機系統(tǒng)上的，所以只需建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分數(shù)據(jù)結(jié)構(gòu)表描述如下：貨物信息表字段名數(shù)據(jù)類型字段長度是否為空貨物編碼文本5貨物名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始倉庫數(shù)字長整型默認貨位文本5警戒

38、底線倉庫數(shù)字長整型警戒高線倉庫數(shù)字長整型表1貨品信息表入庫登記表字段名數(shù)據(jù)類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數(shù)量數(shù)字長整型進貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表2入庫登記表出庫登記表字段名數(shù)據(jù)類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表3貨品出庫表倉庫信息表字段名數(shù)據(jù)類型字段長度是否為空倉庫編號文

39、本5倉庫名稱文本12貨物編號文本2存貨種類文本2存貨價值貨幣表4倉庫信息表供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長度是否為空UserID文本10userPWD文本6表7用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢。入庫登記統(tǒng)計表 入庫登記_合計貨物入庫年度統(tǒng)計表入庫登記_n供貨單位年度供貨金額統(tǒng)計表入庫登記_w倉

40、庫匯總表倉庫出庫登記統(tǒng)計表出庫登記_合計貨物出庫年度統(tǒng)計表出庫登記_h收貨單位年度收貨金額統(tǒng)計表出庫登記_d入庫登記_合計表與出庫登記_合計分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；倉庫匯總表主要由出庫表和入庫表建立關(guān)系獲得。入庫登記_n字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10入庫日期日期/時間年度數(shù)量數(shù)字長整型表8 入庫登記_n入庫登記_w字段名數(shù)據(jù)類型字段長度是否為空供貨單位文本50入庫日期日期/時間年度供貨總額數(shù)字長整型表9 入庫登記_w倉庫匯總字段名數(shù)據(jù)類型字段長度是否為空貨物編碼文本5入庫日期日期/時間貨物名稱文本10數(shù)量（入庫）數(shù)字長整型進貨價貨幣數(shù)量（出庫）

41、數(shù)字長整型倉庫數(shù)量數(shù)字長整型表10 倉庫匯總表出庫登記_h字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10出庫日期日期/時間年度數(shù)量數(shù)字長整型表11 出庫登記_h出庫登記_d字段名數(shù)據(jù)類型字段長度是否為空收貨單位文本50出庫日期日期/時間年度金額總額數(shù)字長整型表12 出庫登記_d第五章應(yīng)用程序設(shè)計5.1程序結(jié)構(gòu)本應(yīng)用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，倉庫匯總，打印及查詢等窗體組成。通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有10個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，倉庫管理，入庫管理，出庫管理

42、，盤存管理，綜合管理，附項管理，歷史數(shù)據(jù)管理，打印和查詢。需要哪個功能的時候就點哪個菜單，相對應(yīng)的窗體會自動彈出。5.2 程序源代碼程序?qū)崿F(xiàn)的部分代碼如下：公共模塊Public date1 As StringPublic date2 As StringPublic gUserName As String 保存用戶名添加執(zhí)行SQL語句的函數(shù)Public Function transactSQL(ByVal sql As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConn

43、ection As StringDim strArray() As StringSet con = New ADODB.Connection 創(chuàng)建連接Set rs = New ADODB.Recordset 創(chuàng)建記錄集On Error GoTo TransactSQL_Error strConnection = Provider=Microsoft.jet.oledb.4.0;Data Source=E:倉庫管理kucun.mdb strArray = Split(sql) con.Open strConnection 打開連接 If StrComp(UCase$(strArray(0), s

44、elect, vbTextCompare) = 0 Then rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 返回記錄集 iflag = 1 Else con.Execute sql 執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯誤： & Err.Description iflag = 2 Resume T

45、ransactSQL_ExitEnd Function主窗體的程序代碼圖51 主窗體界面 Private Sub a1_Click()Form1.ShowEnd SubPrivate Sub a2_Click()Dim fAdd As New frmAddUser fAdd.Show fAdd.ZOrder 0End SubPrivate Sub a3_Click()Dim fChangePWD As New frmChangePWD fChangePWD.ShowEnd SubPrivate Sub a4_Click()frmAbout.ShowEnd SubPrivate Sub a5_C

46、lick() 調(diào)入數(shù)據(jù)備份 Load main_sjbf main_sjbf.Show main.Enabled = FalseEnd SubPrivate Sub a6_Click() 調(diào)入數(shù)據(jù)恢復(fù) Load main_sjhf main_sjhf.Show main.HideEnd SubPrivate Sub b1_Click()frm貨物信息.ShowEnd SubPrivate Sub b12_Click() sql = select * from 貨物信息 order by 貨物編碼 frmProInfo.createList (sql) frmProInfo.ShowEnd Su

47、bPrivate Sub b2_Click()frm貨物倉庫.ShowEnd SubPrivate Sub B3_Click()frm超儲貨物.ShowEnd SubPrivate Sub b4_Click()frm短線貨物.ShowEnd SubPrivate Sub c1_Click()frm入庫登記.ShowEnd SubPrivate Sub c2_Click()frm貨物入庫年度統(tǒng)計.ShowEnd SubPrivate Sub c3_Click()frm供貨單位供貨分類金額統(tǒng)計.ShowEnd SubPrivate Sub c4_Click()frm供貨單位年度供貨金額統(tǒng)計.Sho

48、wEnd SubPrivate Sub Command1_Click()date1 = Text1.Text & / & Text3.Text & / & Text2.Textdate2 = Text6.Text & / & Text4.Text & / & Text5.TextText7.Text = date1End SubPrivate Sub d1_Click()frm出庫登記.ShowEnd SubPrivate Sub d2_Click()frm貨物出庫年度統(tǒng)計.ShowEnd SubPrivate Sub d3_Click()frm收貨單位期間收貨統(tǒng)計.ShowEnd SubPr

49、ivate Sub d4_Click()frm收貨單位年度收貨金額統(tǒng)計.ShowEnd SubPrivate Sub e1_Click()frm盤存錄入.ShowEnd SubPrivate Sub e2_Click()frm盤存表.ShowEnd SubPrivate Sub f1_Click()frm貨物出入?yún)R總表.ShowEnd SubPrivate Sub g1_Click()frm經(jīng)辦人員.ShowEnd SubPrivate Sub g2_Click()frm供貨單位.ShowEnd SubPrivate Sub g3_Click()frm倉庫信息.ShowEnd SubPriva

50、te Sub g5_Click()Form6.ShowEnd SubPrivate Sub h1_Click()frm歷史倉庫.ShowEnd SubPrivate Sub h2_Click()frm歷史入庫.ShowEnd SubPrivate Sub h3_Click()frm歷史出庫.ShowEnd SubPrivate Sub i1_Click()DataReport1.ShowEnd SubPrivate Sub i2_Click()DataReport2.ShowEnd SubPrivate Sub i3_Click()DataReport3.ShowEnd SubPrivate

51、Sub j1_Click()Form2.ShowEnd SubPrivate Sub j2_Click()Form3.ShowEnd SubPrivate Sub j3_Click()Form4.ShowEnd SubPrivate Sub j4_Click()Form5.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase Is = rk 調(diào)入入庫登記c1_ClickCase Is = ck 調(diào)入出庫登記d1_ClickCase Is =

52、kchz 調(diào)入倉庫匯總f1_ClickCase Is = zhcx 調(diào)入組合查詢j4_ClickCase Is = sjbf 調(diào)入數(shù)據(jù)備份a5_ClickEnd SelectEnd SubPrivate Sub x_Click()EndEnd Sub 登陸模塊的實現(xiàn)Private Sub cmdLogin_Click()denlu_name = txtUserName.Textdenlu_pass = txtPassword.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADO

53、DB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;myrs.Open SELECT * FROM 用戶 where userID= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查無此人, , 登陸信息Else If myrs(userPWD) = denlu_pass Then MsgBox 身份正確, , 登陸信息 main.S

54、how Unload Me Else MsgBox 密碼不正確, , 登陸信息 End If End If End Sub 添加用戶模塊的實現(xiàn)Option ExplicitPrivate Sub Command1_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else sql = select * from 用戶

55、 where UserID= & UserName & Set rs = transactSQL(sql) If rs.EOF = False Then 判斷是否已經(jīng)存在用戶 MsgBox 這個用戶已經(jīng)存在！請重新輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = ConfirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(ConfirmPWD.Text) Then 判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請重新輸入密碼！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判斷密碼是否為空 MsgBox 密碼不能為空！, vbOKOnly + vbExcla