商業(yè)企業(yè)的購(gòu)銷(xiāo)存管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、商業(yè)企業(yè)的購(gòu)銷(xiāo)存治理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)摘要隨著信息技術(shù)的進(jìn)展和計(jì)算機(jī)網(wǎng)絡(luò)的普及，越來(lái)越多的企業(yè)開(kāi)始認(rèn)可并實(shí)施ERP系統(tǒng)，作為ERP系統(tǒng)重要組成部分的治理系統(tǒng)與企業(yè)的生存進(jìn)展密不可分。當(dāng)今世界，信息流差不多成為企業(yè)中繼實(shí)物流、現(xiàn)金流之后的第三大流淌資源，利用科學(xué)設(shè)計(jì)的治理系統(tǒng)中信息流的暢通，來(lái)實(shí)現(xiàn)企業(yè)營(yíng)業(yè)活動(dòng)中物流的快速整合以及現(xiàn)金流的充分流淌和利用，從而加快企業(yè)資源流淌，適應(yīng)快速變化的宏觀環(huán)境和日益需要進(jìn)行變革的企業(yè)內(nèi)部環(huán)境，更好地提高企業(yè)的效率?，F(xiàn)現(xiàn)在，各企業(yè)十分重視企業(yè)治理系統(tǒng)的建設(shè)，同時(shí)以此作為企業(yè)獵取競(jìng)爭(zhēng)優(yōu)勢(shì)的工具和基礎(chǔ)。然而關(guān)于實(shí)力本就不足的中小企業(yè)來(lái)講，購(gòu)買(mǎi)整個(gè)ERP系統(tǒng)不僅是一

2、筆巨大開(kāi)支，而且整個(gè)ERP系統(tǒng)的能夠應(yīng)用的方面太多，更重要的是系統(tǒng)不能夠?qū)ｉT(mén)好地契合企業(yè)的現(xiàn)狀，因此購(gòu)買(mǎi)決策是一種白費(fèi)。因此，依照企業(yè)所處的產(chǎn)業(yè)環(huán)境和自身特點(diǎn)，把治理系統(tǒng)的核心能力抽取出來(lái)，研究并實(shí)現(xiàn)商業(yè)企業(yè)的購(gòu)銷(xiāo)存治理信息系統(tǒng)，具有重要的現(xiàn)實(shí)意義。本購(gòu)銷(xiāo)存治理信息系統(tǒng)從企業(yè)業(yè)務(wù)運(yùn)營(yíng)流程動(dòng)身，對(duì)流程中的需求進(jìn)行詳細(xì)分析，利用計(jì)算機(jī)信息技術(shù)實(shí)現(xiàn)對(duì)各類(lèi)企業(yè)基礎(chǔ)信息的存儲(chǔ)、查詢(xún)、統(tǒng)計(jì)，實(shí)現(xiàn)企業(yè)流程核心進(jìn)貨、銷(xiāo)售和庫(kù)存的一體化，以適應(yīng)新的治理要求。因此，本系統(tǒng)目標(biāo)是設(shè)計(jì)并實(shí)現(xiàn)一個(gè)能夠完成中小企業(yè)進(jìn)貨、銷(xiāo)售和庫(kù)存一體化的治理系統(tǒng)。本系統(tǒng)能夠使企業(yè)治理工作更科學(xué)更高效，業(yè)務(wù)處理更突出，從而達(dá)到提高工作效率

3、的目的。結(jié)合所要開(kāi)發(fā)的系統(tǒng)的特點(diǎn)，軟件設(shè)計(jì)采納Visual basic6.0作為開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)為Microsoft SQL server。整個(gè)系統(tǒng)操作簡(jiǎn)便，能夠快速準(zhǔn)確的處理相關(guān)業(yè)務(wù)，適合中小企業(yè)使用。關(guān) 鍵 詞：購(gòu)銷(xiāo)存治理系統(tǒng)，中小企業(yè)，商品銷(xiāo)售，庫(kù)存治理，Visual basic6.0，Microsoft SQL serverTHE DESIGN AND IMPLEMETATION OF PURCHASE-SELL-STOCK MANAGEMENT SYSTEM ABSTRACTWith the development of information technology and the

4、popularity of computer network, more and more enterprises begin to accept and implement the ERP system. As an important part of the EPR system, management system is closely related to an enterprise survival and development. Nowadays, information flow has become the third flow resource after physical

5、s flow and capitals flow. By using the HYPERLINK app:ds:unblockedunblocked information flow in a scientific designed management system, the system can realize the fast HYPERLINK app:ds:integrationintegration of logistics in business activities and the full flowing and using of cash flows, and then f

6、asten materials flow. And the efficiency of an enterprise can improve better if it can adapt the changing HYPERLINK app:ds:macro-environmentmacro-environment and inner environment in an enterprise. As a result, every enterprise HYPERLINK app:ds:paypays much HYPERLINK app:ds:attentionattention HYPERL

7、INK app:ds:toto the construction of the management system, and takes it as the instrument and basis to gain competitive advantage. However, it is really a big cost to buy the whole ERP system for a HYPERLINK app:ds:medium-sizedmedium-sized HYPERLINK app:ds:andand HYPERLINK app:ds:smallsmall HYPERLIN

8、K app:ds:enterprisesenterprise.Whats more, the whole ERP system can apply to too many aspects and at the same time, it can not conform to the situation of the enterprise very well, so its a little waste to buy an whole ERP system. Therefore, according to the profession environment and the exterior e

9、nvironment of a corporation, extracting the core competence of the management system, then studying and implementing of the purchase-sell-stock management system in a commercial enterprise have the important practical significance.This purchase-sell-stock management system begins with enterprise bus

10、iness operation processes, and then analyses the requirement in the procedure detailedly. At last by taking advantage of the computer information technology, the system can realize the function of storage, search and statistics of basic information in a corporation, bring about the integration of co

11、re processpurchasing, selling, and stocking, fit the demand of new management.Therefore, the goal of this graduation design is to work out a management system that can complete the task of managing the purchasing, sales and storage of a minor enterprise. With the use of this system, the management w

12、ork will be more efficient, and the business flows are going to be more effective and the work efficiency is bound to be improved. Considering all the characteristics of this system, the development tool is Visual basic6.0, and the database is SQL server. The whole system is easy to manipulate, and

13、it can deal with the related works quickly, so it is especially useful for some medium-sized and small-scale enterprises. KEY WORDS: purchase-sell-stock management system, Small and Medium Enterprise, HYPERLINK app:ds:commoditycommodity HYPERLINK app:ds:salessales, inventory control, Visual basic6.0

14、，Microsoft SQL server目錄 TOC o 1-4 h z u HYPERLINK l _Toc295835149 前言 PAGEREF _Toc295835149 h 1 HYPERLINK l _Toc295835150 第1章 系統(tǒng)概述 PAGEREF _Toc295835150 h 2 HYPERLINK l _Toc295835151 1.1 系統(tǒng)開(kāi)發(fā)背景分析 PAGEREF _Toc295835151 h 2 HYPERLINK l _Toc295835152 1.2系統(tǒng)介紹 PAGEREF _Toc295835152 h 2 HYPERLINK l _Toc295

15、835153 第2章 需求分析 PAGEREF _Toc295835153 h 3 HYPERLINK l _Toc295835154 2.1 需求分析 PAGEREF _Toc295835154 h 3 HYPERLINK l _Toc295835155 2.2 建立用例圖 PAGEREF _Toc295835155 h 3 HYPERLINK l _Toc295835156 2.3 用例描述 PAGEREF _Toc295835156 h 5 HYPERLINK l _Toc295835157 2.3.1 系統(tǒng)治理員用例描述 PAGEREF _Toc295835157 h 5 HYPERL

16、INK l _Toc295835158 2.3.2 銷(xiāo)售員的用例描述 PAGEREF _Toc295835158 h 7 HYPERLINK l _Toc295835159 第3章 系統(tǒng)分析 PAGEREF _Toc295835159 h 9 HYPERLINK l _Toc295835160 3.1系統(tǒng)開(kāi)發(fā)目標(biāo) PAGEREF _Toc295835160 h 9 HYPERLINK l _Toc295835161 3.2描述系統(tǒng)中的類(lèi) PAGEREF _Toc295835161 h 9 HYPERLINK l _Toc295835162 3.3建立類(lèi)圖 PAGEREF _Toc2958351

17、62 h 12 HYPERLINK l _Toc295835163 3.4建立交互圖 PAGEREF _Toc295835163 h 13 HYPERLINK l _Toc295835164 第4章 系統(tǒng)設(shè)計(jì) PAGEREF _Toc295835164 h 17 HYPERLINK l _Toc295835165 4.1系統(tǒng)開(kāi)發(fā)工具 PAGEREF _Toc295835165 h 17 HYPERLINK l _Toc295835166 4.2開(kāi)發(fā)運(yùn)行環(huán)境 PAGEREF _Toc295835166 h 17 HYPERLINK l _Toc295835167 4.3系統(tǒng)功能模塊設(shè)計(jì) PAGE

18、REF _Toc295835167 h 17 HYPERLINK l _Toc295835168 4.4人機(jī)界面設(shè)計(jì) PAGEREF _Toc295835168 h 18 HYPERLINK l _Toc295835169 4.4.1主界面設(shè)計(jì) PAGEREF _Toc295835169 h 18 HYPERLINK l _Toc295835170 4.4.2基礎(chǔ)信息（商品、客戶(hù)和供貨商）治理頁(yè)面設(shè)計(jì) PAGEREF _Toc295835170 h 19 HYPERLINK l _Toc295835171 4.4.3商品入庫(kù)頁(yè)面設(shè)計(jì) PAGEREF _Toc295835171 h 20 HYP

19、ERLINK l _Toc295835172 4.4.4銷(xiāo)售頁(yè)面設(shè)計(jì) PAGEREF _Toc295835172 h 20 HYPERLINK l _Toc295835173 4.4.5銷(xiāo)售報(bào)表頁(yè)面設(shè)計(jì) PAGEREF _Toc295835173 h 20 HYPERLINK l _Toc295835174 4.4.6庫(kù)存治理頁(yè)面設(shè)計(jì) PAGEREF _Toc295835174 h 21 HYPERLINK l _Toc295835175 4.5數(shù)據(jù)庫(kù)邏輯模型 PAGEREF _Toc295835175 h 22 HYPERLINK l _Toc295835176 第5章 系統(tǒng)實(shí)施 PAGER

20、EF _Toc295835176 h 23 HYPERLINK l _Toc295835177 5.1數(shù)據(jù)庫(kù)設(shè)計(jì) PAGEREF _Toc295835177 h 23 HYPERLINK l _Toc295835178 5.2程序設(shè)計(jì) PAGEREF _Toc295835178 h 27 HYPERLINK l _Toc295835179 5.2.1商品銷(xiāo)售模塊 PAGEREF _Toc295835179 h 27 HYPERLINK l _Toc295835180 5.2.2庫(kù)存盤(pán)點(diǎn) PAGEREF _Toc295835180 h 31 HYPERLINK l _Toc295835181 第

21、6章 系統(tǒng)測(cè)試 PAGEREF _Toc295835181 h 32 HYPERLINK l _Toc295835182 6.1商品信息治理測(cè)試 PAGEREF _Toc295835182 h 32 HYPERLINK l _Toc295835183 6.2進(jìn)貨入庫(kù)測(cè)試 PAGEREF _Toc295835183 h 32 HYPERLINK l _Toc295835184 6.3銷(xiāo)售模塊測(cè)試 PAGEREF _Toc295835184 h 33 HYPERLINK l _Toc295835185 結(jié)論 PAGEREF _Toc295835185 h 34 HYPERLINK l _Toc29

22、5835186 參考文獻(xiàn) PAGEREF _Toc295835186 h 35 HYPERLINK l _Toc295835187 致謝 PAGEREF _Toc295835187 h 36前言隨著信息時(shí)代的到來(lái)，各行各業(yè)競(jìng)爭(zhēng)異常激烈，傳統(tǒng)的手工治理模式必定會(huì)被以計(jì)算機(jī)為基礎(chǔ)的信息治理模式所取代，因?yàn)橄嚓P(guān)于手工治理而言，計(jì)算機(jī)治理有其無(wú)法超越的優(yōu)越性。例如：計(jì)算機(jī)的計(jì)算、檢索速度特不快，存儲(chǔ)量大，可靠性高等。計(jì)算機(jī)技術(shù)的普及和進(jìn)展，使得各行業(yè)迫切需要計(jì)算機(jī)軟件來(lái)處理大量的信息，用計(jì)算機(jī)來(lái)代替人工進(jìn)行的眾多繁雜勞動(dòng)，從而節(jié)約資源，提高工作效率。在信息流差不多日漸全球化的今天，計(jì)算機(jī)作為當(dāng)今重要的

23、信息產(chǎn)品，正在慢慢成為企業(yè)治理和大眾日常生活中必不可少的工具。關(guān)于中小企業(yè)來(lái)講，由于大部分企業(yè)處于中間環(huán)節(jié)，業(yè)務(wù)涉及范圍廣泛，不僅僅是銷(xiāo)售，更需要采購(gòu)和庫(kù)存治理的支持，以往的手工登記商品信息太過(guò)苦惱，而采購(gòu)和庫(kù)存等方面反應(yīng)遲緩，已不能適應(yīng)時(shí)代進(jìn)展的要求，因此就迫切需要計(jì)算機(jī)技術(shù)人員能夠開(kāi)發(fā)出一個(gè)切合實(shí)際的進(jìn)銷(xiāo)存系統(tǒng)，以便于企業(yè)供應(yīng)鏈的順暢和治理工作的順利進(jìn)行。Visual Basic6.0具有三個(gè)差不多特點(diǎn)，提供可視化的編程工具，程序采納事件驅(qū)動(dòng)的方式，面向?qū)ο蟪绦蛟O(shè)計(jì)，因而選定利用Visual Basic6.0實(shí)現(xiàn)進(jìn)銷(xiāo)存治理中的各項(xiàng)功能。通過(guò)對(duì)企業(yè)進(jìn)銷(xiāo)存的需求分析，建立了數(shù)據(jù)庫(kù)及數(shù)據(jù)表，創(chuàng)建

24、了比較完善的購(gòu)銷(xiāo)存治理系統(tǒng)。本系統(tǒng)采納模塊化的程序設(shè)計(jì)方法，能實(shí)現(xiàn)對(duì)數(shù)據(jù)的查詢(xún)、增減、刪除等操作。本系統(tǒng)界面清晰，操作簡(jiǎn)單有用。第1章 系統(tǒng)概述1.1 系統(tǒng)開(kāi)發(fā)背景分析在充滿(mǎn)機(jī)遇的21世紀(jì)，競(jìng)爭(zhēng)也進(jìn)入到了一個(gè)全新的領(lǐng)域，競(jìng)爭(zhēng)已不再是規(guī)模的競(jìng)爭(zhēng)，而是技術(shù)、治理、人才的競(jìng)爭(zhēng)。技術(shù)的提升和治理的升級(jí)是中小企業(yè)的競(jìng)爭(zhēng)核心。如何在激烈的競(jìng)爭(zhēng)中立于不敗之地，成為各中小企業(yè)努力追求的目標(biāo)。調(diào)查發(fā)覺(jué)，目前許多中小企業(yè)在經(jīng)營(yíng)治理方式上，仍然采納傳統(tǒng)的人工治理模式，如此不僅效率低，準(zhǔn)確率低，而且白費(fèi)人力物力資源，已不適應(yīng)現(xiàn)代先進(jìn)的供應(yīng)鏈經(jīng)營(yíng)模式。一方面，治理人員不能專(zhuān)門(mén)好的掌握商品的即時(shí)進(jìn)銷(xiāo)存狀態(tài)，在顧客需要某些

25、商品時(shí)，由于供應(yīng)不足而使顧客大為不滿(mǎn)。另一方面，由于在市場(chǎng)上不行銷(xiāo)售，一些商品長(zhǎng)期積壓，導(dǎo)致過(guò)期或外表?yè)p壞嚴(yán)峻，給企業(yè)造成一定的經(jīng)濟(jì)損失。因此，假如沒(méi)有一個(gè)有效的信息系統(tǒng)的支持，以上諸多問(wèn)題將專(zhuān)門(mén)難從全然上得以解決。和傳統(tǒng)的經(jīng)營(yíng)治理方式相比較，假如本系統(tǒng)開(kāi)發(fā)成功，一定會(huì)大大提高中小企業(yè)的經(jīng)營(yíng)治理效率，為降低經(jīng)營(yíng)成本，提高效益，減少差錯(cuò)，節(jié)約人力，提高顧客中意度等方面提高可靠的技術(shù)保障。由此可見(jiàn)，進(jìn)銷(xiāo)存治理系統(tǒng)對(duì)市場(chǎng)的進(jìn)展、企業(yè)的正常運(yùn)作與進(jìn)展有著特不重要的意義。1.2系統(tǒng)介紹本購(gòu)銷(xiāo)存治理信息系統(tǒng)從企業(yè)業(yè)務(wù)運(yùn)營(yíng)流程動(dòng)身，對(duì)流程中的需求進(jìn)行詳細(xì)分析，利用計(jì)算機(jī)信息技術(shù)實(shí)現(xiàn)對(duì)各類(lèi)企業(yè)基礎(chǔ)信息的存儲(chǔ)、

26、查詢(xún)、統(tǒng)計(jì)，實(shí)現(xiàn)企業(yè)流程核心進(jìn)貨、銷(xiāo)售和庫(kù)存的一體化，以適應(yīng)新的治理要求。第2章 需求分析2.1 需求分析需求分析是軟件生命周期中軟件開(kāi)發(fā)的第一個(gè)時(shí)期，是整個(gè)系統(tǒng)開(kāi)發(fā)過(guò)程的基礎(chǔ)，需求獵取和需求建模是這一時(shí)期的重要任務(wù)。全面獵取軟件需求、準(zhǔn)確理解業(yè)務(wù)邏輯和運(yùn)用建模工具正確建立軟件的邏輯模型是軟件開(kāi)發(fā)工作獲得成功的前提和關(guān)鍵，直接關(guān)系到工程的成敗和軟件產(chǎn)品的質(zhì)量1。軟件需求是指用戶(hù)對(duì)目標(biāo)軟件系統(tǒng)在功能、行為、性能、設(shè)計(jì)約束等方面的期望。通過(guò)對(duì)應(yīng)用問(wèn)題及其環(huán)境的理解與分析，為問(wèn)題涉及的信息、功能及系統(tǒng)行為建立模型，將用戶(hù)需求精確化、完全化，最終形成需求規(guī)格講明，這一系列的活動(dòng)即構(gòu)成軟件開(kāi)發(fā)生命周期的

27、需求分析時(shí)期2。需求分析是介于系統(tǒng)分析和軟件設(shè)計(jì)時(shí)期之間的重要橋梁3。一方面，需求分析以系統(tǒng)規(guī)格講明和項(xiàng)目規(guī)劃作為分析活動(dòng)的差不多動(dòng)身點(diǎn)，并從軟件角度對(duì)它們進(jìn)行檢查與調(diào)整；另一方面，需求規(guī)格講明又是軟件設(shè)計(jì)、實(shí)現(xiàn)測(cè)試直至維護(hù)的要緊基礎(chǔ)。良好的分析活動(dòng)有助于幸免或盡早發(fā)覺(jué)早期的錯(cuò)誤，從而提高軟件生產(chǎn)率，降低開(kāi)發(fā)成本，改進(jìn)軟件質(zhì)量。2.2 建立用例圖用例圖是首先需要建立的模型，是由軟件需求分析到最終實(shí)現(xiàn)的第一步，它描述了人們希望如何使用一個(gè)系統(tǒng)，定義了系統(tǒng)的要緊功能和系統(tǒng)邊界。是從系統(tǒng)的外部觀看系統(tǒng)功能，并不描述系統(tǒng)內(nèi)部的具體實(shí)現(xiàn)，是其它視圖的核心和基礎(chǔ)。通過(guò)用例建模，描述對(duì)系統(tǒng)感興趣的外部角色及

28、其對(duì)系統(tǒng)的功能需求。在用例圖中，角色代表觸發(fā)系統(tǒng)功能的用戶(hù)或其它系統(tǒng)，用例代表具體的功能描述4。從以上需求分析可見(jiàn)系統(tǒng)中的參與者有：系統(tǒng)治理員，操作員（包括采購(gòu)員、銷(xiāo)售員和倉(cāng)庫(kù)治理員，三者中以銷(xiāo)售員的操作最多，故以銷(xiāo)售員為代表）。識(shí)不出參與者后，從參與者的角度就能夠發(fā)覺(jué)系統(tǒng)的用例，并繪制出系統(tǒng)的用例圖，如圖1-1和圖1-2所示。圖1-1系統(tǒng)治理員操作用例圖圖1-2銷(xiāo)售員操作用例圖2.3 用例描述2.3.1 系統(tǒng)治理員用例描述基礎(chǔ)信息治理的用例描述采納表格形式描述該用例，如表1-1所示：表1-1基礎(chǔ)信息治理用例用例名稱(chēng)基礎(chǔ)信息治理參與者系統(tǒng)治理員前置條件系統(tǒng)治理員差不多成功登錄系統(tǒng)，進(jìn)入基礎(chǔ)信息

29、治理模塊后置條件進(jìn)入商品信息治理、客戶(hù)治理或供貨商治理模塊差不多操作流程1.選擇需要治理的模塊點(diǎn)擊進(jìn)入。2.對(duì)各類(lèi)基礎(chǔ)信息進(jìn)行操作?？蛇x操作流程各類(lèi)基礎(chǔ)信息的操作包括查詢(xún)、添加、刪除、更新等。采購(gòu)治理的用例描述采納表格形式描述該用例，如表1-2所示：表1-2采購(gòu)治理用例用例名稱(chēng)采購(gòu)治理參與者系統(tǒng)治理員前置條件系統(tǒng)治理員差不多成功登錄系統(tǒng)，進(jìn)入采購(gòu)治理模塊后置條件采購(gòu)商品入庫(kù)差不多操作流程1查看需要采購(gòu)商品的庫(kù)存信息，推斷是否需要采購(gòu)；選擇供貨商，進(jìn)行采購(gòu)。2查詢(xún)商品入庫(kù)信息?？蛇x操作流程推斷是否需要采購(gòu)時(shí)要把現(xiàn)有庫(kù)存與安全庫(kù)存對(duì)比。銷(xiāo)售治理的用例描述采納表格形式描述該用例，如表1-3所示：表1

30、-3銷(xiāo)售治理用例用例名稱(chēng)銷(xiāo)售治理參與者系統(tǒng)治理員前置條件治理員差不多成功登錄系統(tǒng)，進(jìn)入銷(xiāo)售治理模塊后置條件銷(xiāo)售過(guò)程的相關(guān)操作與處理差不多操作流程1.銷(xiāo)售查詢(xún)。2.報(bào)表查詢(xún)（包括銷(xiāo)售日?qǐng)?bào)表和銷(xiāo)售月報(bào)表）可選操作流程假如精確查詢(xún)中沒(méi)有找到所查詢(xún)的內(nèi)容，則提示重新輸入要查詢(xún)的內(nèi)容庫(kù)存治理的用例描述采納表格形式描述該用例，如表1-4所示：表1-4庫(kù)存治理用例用例名稱(chēng)庫(kù)存治理參與者系統(tǒng)治理員前置條件治理員差不多成功登錄系統(tǒng)，進(jìn)入庫(kù)存治理模塊后置條件查詢(xún)?cè)谀扯螘r(shí)刻內(nèi)的商品庫(kù)存情況差不多操作流程1.查詢(xún)商品庫(kù)存。2.對(duì)現(xiàn)有庫(kù)存進(jìn)行盤(pán)點(diǎn)?？蛇x操作流程假如現(xiàn)有庫(kù)存差不多低于安全期，則應(yīng)立即采購(gòu)。 系統(tǒng)治理的用例

31、描述采納表格形式描述該用例，如表1-5所示：表1-5系統(tǒng)治理用例用例名稱(chēng)系統(tǒng)治理參與者系統(tǒng)治理員前置條件治理員差不多成功登錄系統(tǒng)，進(jìn)入系統(tǒng)治理模塊后置條件治理操作員差不多操作流程1.添加操作員。2.刪除操作員?？蛇x操作流程刪除時(shí)，需要提示是否確實(shí)要?jiǎng)h除該操作員信息。2.3.2 銷(xiāo)售員的用例描述銷(xiāo)售的用例描述采納表格形式描述該用例，如表1-7所示：表1-7 銷(xiāo)售用例用例名稱(chēng)銷(xiāo)售參與者銷(xiāo)售員前置條件銷(xiāo)售員差不多成功登錄系統(tǒng)，進(jìn)入銷(xiāo)售模塊后置條件銷(xiāo)售商品差不多操作流程1.按照相應(yīng)查詢(xún)條件，查詢(xún)顧客要購(gòu)買(mǎi)的商品信息。2.輸入銷(xiāo)售的商品數(shù)量、單價(jià)。3.核對(duì)金額，結(jié)賬?？蛇x操作流程假如沒(méi)有查詢(xún)到商品信息，

32、則給予提示并要求重新查詢(xún)退貨處理的用例描述采納表格形式描述該用例，如表1-9所示：表1-9退貨處理用例用例名稱(chēng)退貨處理參與者銷(xiāo)售員前置條件銷(xiāo)售員差不多成功登錄系統(tǒng)，進(jìn)入退貨處理模塊后置條件進(jìn)行退貨治理差不多操作流程1.輸入商品銷(xiāo)售信息，講明退貨緣故。2.保存退貨信息?？蛇x操作流程對(duì)數(shù)據(jù)進(jìn)行保存時(shí)，系統(tǒng)應(yīng)加以提示。銷(xiāo)售查詢(xún)的用例描述采納表格形式描述該用例，如表1-8所示：表1-8 銷(xiāo)售查詢(xún)用例用例名稱(chēng)銷(xiāo)售查詢(xún)參與者銷(xiāo)售員前置條件銷(xiāo)售員差不多成功登錄系統(tǒng)，進(jìn)入銷(xiāo)售查詢(xún)模塊后置條件查詢(xún)銷(xiāo)售記錄差不多操作流程按照相應(yīng)查詢(xún)條件，查詢(xún)銷(xiāo)售信息?？蛇x操作流程假如沒(méi)有查詢(xún)到商品銷(xiāo)售信息，則給予提示并要求重新查

33、詢(xún)報(bào)表處理的用例描述采納表格形式描述該用例，如表1-6所示：表1-6報(bào)表處理用例用例名稱(chēng)報(bào)表處理參與者銷(xiāo)售員前置條件銷(xiāo)售員差不多成功登錄系統(tǒng)，進(jìn)入報(bào)表處理模塊后置條件查詢(xún)打印報(bào)表差不多操作流程1.輸入日期，查詢(xún)某一天的銷(xiāo)售日?qǐng)?bào)表。2.輸入一個(gè)月的期限來(lái)查詢(xún)某個(gè)月的銷(xiāo)售月報(bào)表。可選操作流程假如沒(méi)有相應(yīng)記錄，則應(yīng)作出相應(yīng)提示。第3章 系統(tǒng)分析系統(tǒng)分析的要緊任務(wù)是將在系統(tǒng)詳細(xì)調(diào)查中所得到的資料集中到一起，對(duì)組織內(nèi)部整體治理狀況和信息處理過(guò)程進(jìn)行分析5。它側(cè)重于從業(yè)務(wù)全過(guò)程的角度進(jìn)行分析，系統(tǒng)分析從系統(tǒng)需求入手，從用戶(hù)觀點(diǎn)動(dòng)身建立系統(tǒng)用戶(hù)模型。用戶(hù)模型從概念上全方位表達(dá)系統(tǒng)需求及系統(tǒng)與用戶(hù)的相互關(guān)系。

34、系統(tǒng)分析在用戶(hù)模型的基礎(chǔ)上，建立適應(yīng)性強(qiáng)的獨(dú)立于系統(tǒng)實(shí)現(xiàn)環(huán)境的邏輯結(jié)構(gòu)。在系統(tǒng)分析中，采納UML圖作為要緊的用戶(hù)需求表達(dá)工具，類(lèi)圖、時(shí)序圖和協(xié)作圖作為輔助系統(tǒng)分析的工具6。3.1系統(tǒng)開(kāi)發(fā)目標(biāo)本進(jìn)銷(xiāo)存系統(tǒng)力求做到對(duì)整個(gè)企業(yè)差不多信息的治理實(shí)現(xiàn)系統(tǒng)化、規(guī)范化，標(biāo)準(zhǔn)化7。具體目標(biāo)如下：把治理者從傳統(tǒng)的經(jīng)營(yíng)治理模式中解放出來(lái)，使治理者的工作重心慢慢轉(zhuǎn)移到治理上來(lái)。在此系統(tǒng)中，治理者不直接參與日常的經(jīng)營(yíng)事務(wù)，治理者通過(guò)查詢(xún)本系統(tǒng)，便可了解到商品的差不多情況，采購(gòu)情況、銷(xiāo)售情況和庫(kù)存狀況等，這些信息能夠關(guān)心治理者做出合理、科學(xué)的決策。有利于提高效率，增加效益。關(guān)于除了系統(tǒng)治理者以外的工作人員來(lái)講，系統(tǒng)操作

35、應(yīng)簡(jiǎn)單，易于使用。通過(guò)使用本系統(tǒng)，能夠提高工作人員的正確性，省略了許多之前需要手工核對(duì)的工作，在一定程度上減輕了工作人員的負(fù)擔(dān)。3.2描述系統(tǒng)中的類(lèi)通過(guò)對(duì)系統(tǒng)需求的分析，發(fā)覺(jué)系統(tǒng)中的類(lèi)有：系統(tǒng)治理員（administrator）、操作員（operator）、商品、銷(xiāo)售記錄、客戶(hù)、供貨商。除此之外，還需要增加一個(gè)數(shù)據(jù)庫(kù)訪問(wèn)類(lèi) 8。類(lèi)operator類(lèi)operator用于描述系統(tǒng)操作員的信息。（1）屬性：id：integer。 操作員編號(hào)。name：string。操作員姓名。password：string。密碼。skill：string。操作職員作技能（用以區(qū)分采購(gòu)員、銷(xiāo)售員和倉(cāng)庫(kù)治理員）。（2）

36、操作：login：操作員登錄。buy：采購(gòu)商品。search：查詢(xún)信息（各種信息）。sell：銷(xiāo)售商品。quit：操作員退出。類(lèi)administrator類(lèi)administrator用于描述系統(tǒng)治理員的信息。（1）屬性：administrator類(lèi)已繼承operator類(lèi)的全部屬性（2）操作：login：登錄系統(tǒng)。search：查詢(xún)各類(lèi)信息。manage：治理商品、客戶(hù)、供貨商、操作員信息。quit：退出系統(tǒng)。類(lèi)客戶(hù)類(lèi)客戶(hù)用于描述客戶(hù)的信息。（1）屬性：id：integer。 客戶(hù)編號(hào)。name：string?？蛻?hù)姓名。phone：string?？蛻?hù)聯(lián)系方式。adress：string?？蛻?hù)地

37、址。（2）操作：add：增加客戶(hù)。search：查詢(xún)客戶(hù)。modify：修改客戶(hù)信息delete：刪除客戶(hù)。類(lèi)供貨商類(lèi)客戶(hù)用于描述供貨商的信息（1）屬性：id：integer。 供貨商編號(hào)。name：string。供貨商姓名。adress：string。供貨商地址。phonenum：string。供貨商聯(lián)系方式。supplyinfo：string。供貨商供應(yīng)商品代碼mail：string。供貨商郵箱（2）操作：add：增加供貨商。search：查詢(xún)供貨商。modify：修改供貨商信息。delete：刪除供貨商。類(lèi)銷(xiāo)售記錄銷(xiāo)售記錄類(lèi)用來(lái)描述已銷(xiāo)售信息。（1）屬性id：integer。銷(xiāo)售記錄編號(hào)

38、。gondsid：integer。售出商品編號(hào)。count：integer。數(shù)量。price：double。零售價(jià)。clientid：integer?？蛻?hù)編號(hào)。date：date。銷(xiāo)售日期。（2）操作：search：查詢(xún)銷(xiāo)售記錄。print：打印銷(xiāo)售記錄類(lèi)商品商品類(lèi)用于描述商品的信息（1）屬性id：integer。商品編號(hào)。name：string。商品名稱(chēng)。supplierid：integer。供貨商編號(hào)。（2）操作：search：查詢(xún)商品。buy：購(gòu)買(mǎi)商品。sell：銷(xiāo)售商品。類(lèi)data類(lèi)Data為數(shù)據(jù)庫(kù)訪問(wèn)類(lèi)，用于將相關(guān)數(shù)據(jù)從數(shù)據(jù)庫(kù)中讀出來(lái)，或?qū)懭霐?shù)據(jù)庫(kù)中。該類(lèi)只有幾個(gè)通用的操作。Read

39、(sql:string)：依照sql語(yǔ)句讀出數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Update(sql:string)：依照sql語(yǔ)句更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Delete(sql:string)：依照sql語(yǔ)句刪除數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Add(sql:string)：依照sql語(yǔ)句添加數(shù)據(jù)庫(kù)中的數(shù)據(jù)。3.3建立類(lèi)圖類(lèi)圖用來(lái)表達(dá)系統(tǒng)的靜態(tài)結(jié)構(gòu)。通過(guò)分析問(wèn)題域和初始用例，能夠找出實(shí)體類(lèi)，確定類(lèi)之間的關(guān)系，從而建立系統(tǒng)初步的結(jié)構(gòu)模型9。依照以上分析，建立如圖2-1所示的類(lèi)圖。圖3-1類(lèi)圖3.4建立交互圖在描述對(duì)象之間的交互時(shí)，常會(huì)用到時(shí)序圖和協(xié)作圖，二者是類(lèi)圖的輔助模型。時(shí)序圖用時(shí)刻順序來(lái)表示對(duì)象之間的交互，描述一個(gè)用例完成某一功

40、能時(shí)對(duì)象之間消息發(fā)送的順序，強(qiáng)調(diào)對(duì)象的消息流，通過(guò)畫(huà)時(shí)序圖能夠發(fā)覺(jué)類(lèi)圖中沒(méi)有明確或者遺漏的關(guān)系10。協(xié)作圖能夠看成是類(lèi)圖和順序圖的交集，建模對(duì)象或者角色，以及他們批次之間的順序的通信，這種通信是通過(guò)沿著關(guān)聯(lián)角色和連接各個(gè)角色的鏈接發(fā)送消息實(shí)現(xiàn)的11。商品信息治理的時(shí)序圖圖3-2 商品信息治理的時(shí)序圖商品信息治理的協(xié)作圖圖3-3 商品信息治理的協(xié)作圖采購(gòu)的時(shí)序圖圖3-4采購(gòu)的時(shí)序圖采購(gòu)的協(xié)作圖圖3-5采購(gòu)的協(xié)作圖銷(xiāo)售的時(shí)序圖圖3-6銷(xiāo)售的時(shí)序圖銷(xiāo)售的協(xié)作圖圖3-7銷(xiāo)售的協(xié)作圖退貨的時(shí)序圖圖3-8退貨的時(shí)序圖退貨的協(xié)作圖圖3-9退貨的協(xié)作圖第4章 系統(tǒng)設(shè)計(jì)從系統(tǒng)的實(shí)現(xiàn)環(huán)境考慮，完善之前對(duì)系統(tǒng)類(lèi)圖的

41、分析，并對(duì)人機(jī)界面和數(shù)據(jù)庫(kù)進(jìn)行設(shè)計(jì)，最終形成一個(gè)可實(shí)現(xiàn)的系統(tǒng)設(shè)計(jì)模型。系統(tǒng)采納人機(jī)對(duì)話方式，界面美觀友好，信息查詢(xún)靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。由于Visual Basic采納可視化的編程工具，提供可視化的應(yīng)用開(kāi)發(fā)環(huán)境，因此利用Visual Basic能夠方便、快捷地開(kāi)發(fā)出利用后臺(tái)服務(wù)器中的數(shù)據(jù)和數(shù)據(jù)庫(kù)治理系統(tǒng)的數(shù)據(jù)庫(kù)應(yīng)用程序。4.1系統(tǒng)開(kāi)發(fā)工具M(jìn)icrosoft Visual Basic（簡(jiǎn)稱(chēng)VB）是在Windows操作平臺(tái)下設(shè)計(jì)應(yīng)用程序的最迅速、最簡(jiǎn)捷的工具之一。關(guān)于開(kāi)發(fā)人員講，VB提供了一整套的工具，能夠使我們輕松方便地開(kāi)發(fā)應(yīng)用程序。VB是Microsoft的一種通用程序設(shè)計(jì)

42、語(yǔ)言，包括在Microsoft Excel、Microsoft Access等眾多Windows應(yīng)用軟件中的VBA都使用VB語(yǔ)言，以供用戶(hù)進(jìn)行二次開(kāi)發(fā)。VB提供了學(xué)習(xí)版、專(zhuān)業(yè)版和企業(yè)版，用以滿(mǎn)足不同的開(kāi)發(fā)需要。在此次系統(tǒng)開(kāi)發(fā)中，我采納的是visual Basic6.0企業(yè)版。Visual Basic6.0具有三個(gè)差不多特點(diǎn)，提供可視化的編程工具，程序采納事件驅(qū)動(dòng)的方式，面向?qū)ο蟪绦蛟O(shè)計(jì)12。 企業(yè)版包括專(zhuān)業(yè)版的所有特性，它同意專(zhuān)業(yè)人員以小組的形式來(lái)創(chuàng)建強(qiáng)大的分布式應(yīng)用程序，在系統(tǒng)開(kāi)發(fā)的過(guò)程中應(yīng)遵守系統(tǒng)性、靈活性、可靠性等原則13。4.2開(kāi)發(fā)運(yùn)行環(huán)境系統(tǒng)開(kāi)發(fā)平臺(tái)：Visual Basic 6.0

43、企業(yè)版。數(shù)據(jù)庫(kù)治理平臺(tái)：Microsoft SQL server。運(yùn)行平臺(tái)：Windows XP/ Windows 2000。4.3系統(tǒng)功能模塊設(shè)計(jì)系統(tǒng)功能模塊的設(shè)計(jì)是將程序劃分成若干個(gè)功能模塊，每個(gè)功能模塊完成了一個(gè)子功能，再把這些功能模塊總起來(lái)組成一個(gè)整體，以滿(mǎn)足所要求的整個(gè)系統(tǒng)的功能。本系統(tǒng)的開(kāi)發(fā)采納模塊化原理方式，結(jié)構(gòu)清晰，便于系統(tǒng)用戶(hù)的使用14。依照上述的系統(tǒng)需求分析，本系統(tǒng)要緊劃分為以下幾個(gè)子模塊，如圖4-1所示：購(gòu)銷(xiāo)存治理系統(tǒng)購(gòu)銷(xiāo)存治理系統(tǒng)庫(kù)存治理系統(tǒng)治理商品信息治理客戶(hù)信息治理入庫(kù)查詢(xún)退貨處理銷(xiāo)售處理供貨商信息治理銷(xiāo)售查詢(xún)報(bào)表處理庫(kù)存盤(pán)點(diǎn)庫(kù)存查詢(xún)操作員治理基礎(chǔ)信息治理理采購(gòu)治理

44、銷(xiāo)售治理商品入庫(kù)圖4-1系統(tǒng)功能模塊4.4人機(jī)界面設(shè)計(jì)4.4.1主界面設(shè)計(jì)主界面是系統(tǒng)用戶(hù)登錄系統(tǒng)成功后的界面，要緊功能是便于系統(tǒng)治理員和一般用戶(hù)的操作。通過(guò)主界面的設(shè)計(jì)，使他們對(duì)系統(tǒng)有更加全面的認(rèn)識(shí)15。其設(shè)計(jì)界面如圖4-2所示。圖4-2主界面4.4.2基礎(chǔ)信息（商品、客戶(hù)和供貨商）治理頁(yè)面設(shè)計(jì)基礎(chǔ)信息治理頁(yè)面來(lái)查詢(xún)、增加、刪除和更新商品、客戶(hù)和供應(yīng)商的信息各種操作員和系統(tǒng)治理員都能夠登錄此界面，對(duì)系統(tǒng)進(jìn)行操作。其中，以商品信息治理為例，其設(shè)計(jì)界面如圖4-3所示。圖4-3商品信息治理頁(yè)面4.4.3商品入庫(kù)頁(yè)面設(shè)計(jì)商品入庫(kù)頁(yè)面的功能是實(shí)現(xiàn)采購(gòu)并登記入庫(kù)，其設(shè)計(jì)界面如圖4-4所示。圖4-4商品入

45、庫(kù)頁(yè)面4.4.4銷(xiāo)售頁(yè)面設(shè)計(jì)銷(xiāo)售頁(yè)面的功能是實(shí)現(xiàn)銷(xiāo)售過(guò)程，另外，登記銷(xiāo)售記錄后可直接生成一個(gè)銷(xiāo)售單。其設(shè)計(jì)界面如圖4-5所示。圖4-5銷(xiāo)售頁(yè)面4.4.5銷(xiāo)售報(bào)表頁(yè)面設(shè)計(jì)銷(xiāo)售報(bào)表頁(yè)面包括銷(xiāo)售日?qǐng)?bào)表和銷(xiāo)售月報(bào)表兩個(gè)表的處理，是系統(tǒng)治理員和操作員用于查詢(xún)某一天或者某一個(gè)月的銷(xiāo)售記錄，并以此為依據(jù)生成報(bào)表，便于統(tǒng)計(jì)分析，做出科學(xué)的決策。其設(shè)計(jì)界面如圖4-6和圖4-7所示。圖4-6 銷(xiāo)售日?qǐng)?bào)表圖4-7 銷(xiāo)售月報(bào)表4.4.6庫(kù)存治理頁(yè)面設(shè)計(jì)庫(kù)存治理包括庫(kù)存查詢(xún)頁(yè)面和庫(kù)存盤(pán)點(diǎn)頁(yè)面兩個(gè)頁(yè)面。其中，庫(kù)存查詢(xún)頁(yè)面用于查詢(xún)現(xiàn)有庫(kù)存，以便及時(shí)進(jìn)貨。庫(kù)存盤(pán)點(diǎn)用于盤(pán)點(diǎn)整個(gè)倉(cāng)庫(kù)的商品庫(kù)存情況，便于倉(cāng)庫(kù)進(jìn)行治理。其設(shè)計(jì)界面如

46、圖4-8和圖4-9所示。圖4-8庫(kù)存查詢(xún)頁(yè)面圖4-9庫(kù)存盤(pán)點(diǎn)頁(yè)面4.5數(shù)據(jù)庫(kù)邏輯模型本系統(tǒng)使用的是Microsoft SQL server數(shù)據(jù)庫(kù)工具，通過(guò)它創(chuàng)建了yyjxc數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)yyjxc包括系統(tǒng)運(yùn)行時(shí)所涉及的十二個(gè)表：tb_client，tb_client_arrearage，tb_goods，tb_power，tb_provider，tb_sell_detailed，tb_sell_main，tb_sellth_detailed，tb_stock，tb_warehouse_detailed，tb_warehouse_main和 PY。采納的是關(guān)系數(shù)據(jù)庫(kù)為數(shù)據(jù)的存儲(chǔ)對(duì)象，要緊的工作是

47、將類(lèi)圖轉(zhuǎn)化為關(guān)系模型。由于目前面向?qū)ο髷?shù)據(jù)庫(kù)系統(tǒng)還不成熟，本系統(tǒng)將采納關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)存儲(chǔ)永久對(duì)象（需要長(zhǎng)期存儲(chǔ)的對(duì)象），要緊工作是將類(lèi)圖轉(zhuǎn)換為關(guān)系模型。從類(lèi)圖可知，類(lèi)adminstrator、類(lèi)operator、類(lèi)客戶(hù)、類(lèi)供貨商分不與類(lèi)商品、類(lèi)銷(xiāo)售記錄、類(lèi)退貨存在關(guān)聯(lián)關(guān)系。依照以上分析，得到以下關(guān)系模型。adminstrator(id,name, mail)client(id,name,phone,adress,sellerid,mail)operator(id, name,phone,address,skill)goods(id,name,commonname,pinyin,chandi,g

48、uige,danwei,youxiaoqi,pihao,shangbiaohao)tuihuo(sellrecordid,client,selldate,goodsid,quantity)provider(id, name,phone,address,goods,connectionperson) sellrecord(id,selldate,goodsid,clientid,quantity)第5章 系統(tǒng)實(shí)施5.1數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程中，數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)是一個(gè)特不重要的環(huán)節(jié)。數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生重要的阻礙，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)會(huì)減少數(shù)據(jù)庫(kù)的

49、存儲(chǔ)量、提高數(shù)據(jù)的完整性和一致性，使系統(tǒng)具有較快的響應(yīng)速度，簡(jiǎn)化基于此數(shù)據(jù)庫(kù)的應(yīng)用程序的實(shí)現(xiàn)等?？紤]到本系統(tǒng)的實(shí)際應(yīng)用情況，本系統(tǒng)的數(shù)據(jù)庫(kù)使用的是Microsoft SQL server，數(shù)據(jù)庫(kù)文件名稱(chēng)為yyjxc如圖5-1所示。圖5-1 數(shù)據(jù)庫(kù)yyjxc表tb_client該表用于儲(chǔ)存客戶(hù)信息，如圖5-2所示。圖5-2 tb_client表結(jié)構(gòu)表tb_client_arrearage該表用于儲(chǔ)存有過(guò)銷(xiāo)售記錄的客戶(hù)信息，如圖5-3所示。圖5-3tb_client_arrearage表結(jié)構(gòu)表tb_medicine該表用于儲(chǔ)存商品（以藥品為例）的詳細(xì)信息，如圖5-4所示。圖5-4tb_medici

50、ne表結(jié)構(gòu)表tb_power該表用于儲(chǔ)存操作員登陸信息，如圖5-5所示。圖5-5 tb_power表結(jié)構(gòu)表tb_provider該表用于儲(chǔ)存供貨商差不多信息，如圖5-6所示。圖5-6 tb_provider表結(jié)構(gòu)表tb_sell_detailed該表用于銷(xiāo)售的詳細(xì)信息，如圖5-7所示。圖5-7tb_sell_detailed表結(jié)構(gòu)表tb_sell_main該表用于銷(xiāo)售的差不多信息，如圖5-8所示。圖5-8 tb_sell_main表結(jié)構(gòu)表tb_sell_th_main該表用于退貨的差不多信息，如圖5-9所示。圖5-9 tb_sell_th_main表結(jié)構(gòu)表tb_stock該表用于庫(kù)存商品的差不

51、多信息，如圖5-10所示。圖5-10 tb_stock表結(jié)構(gòu)表tb_warehouse_detailed該表用于倉(cāng)庫(kù)中所有商品的詳細(xì)信息，如圖5-11所示。圖5-11 tb_warehouse_detailed表結(jié)構(gòu)表tb_warehouse_main該表用于倉(cāng)庫(kù)中所有商品的差不多信息，如圖5-12所示。圖5-12 tb_warehouse_main表結(jié)構(gòu)5.2程序設(shè)計(jì)本程序使用Microsoft Visual basic6.0進(jìn)行開(kāi)發(fā)，代碼用Basic語(yǔ)言進(jìn)行編程，由于篇幅限制，僅將部分關(guān)鍵代碼展示如下，全部代碼詳見(jiàn)程序源代碼。5.2.1商品銷(xiāo)售模塊Private Sub cmdRegist

52、er_Click() msgSell.Enabled = True Dim tmpNote As Integer rs1.Open select * from tb_sell_detailed order by 銷(xiāo)售單據(jù)號(hào), cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then 創(chuàng)建銷(xiāo)售單據(jù)號(hào) If Not rs1.EOF Then rs1.MoveLast If rs1.Fields(銷(xiāo)售單據(jù)號(hào)) Then tmpNote = Val(Right(Trim(rs1.Fields(銷(xiāo)售單據(jù)號(hào)), 4) + 1 txtNote

53、.Text = Date & xs & Format(tmpNote, 0000) End If Else txtNote.Text = Date & xs & 0001 End If rs1.Close For i = 1 To 100清空msgSell網(wǎng)格中的內(nèi)容 For j = 1 To 9 msgSell.TextMatrix(i, j) = Next j Next i txtClient.Text = 清空文本框內(nèi)容 txtInput.Text = txtHandle.Text = lblBreed.Caption = 0 lblCount = 0 lblSum = 0 txtNet

54、 = 0 lblNotCharge.Caption = 0 txtClient.Enabled = True設(shè)置控件可用或不可用狀態(tài) txtClient.SetFocus txtNet.Enabled = True cmdSave.Enabled = True cmdCancel.Enabled = True cmdRegister.Enabled = False txtInput.Enabled = True txtNet.Enabled = TrueEnd SubPrivate Sub cmdSave_Click() For i = 1 To 100 If msgSell.TextMatr

55、ix(i, 1) And msgSell.TextMatrix(i, 8) Then rs1.Open select * from tb_sell_detailed, cnn, adOpenKeyset, adLockOptimistic rs1.AddNew 添加新記錄到tb_sell_detailed表中 rs1.Fields(藥品名稱(chēng)) = msgSell.TextMatrix(i, 1) rs1.Fields(藥品編號(hào)) = Val(msgSell.TextMatrix(i, 2) rs1.Fields(批號(hào)) = msgSell.TextMatrix(i, 3) rs1.Fields

56、(規(guī)格) = msgSell.TextMatrix(i, 4) rs1.Fields(產(chǎn)地) = msgSell.TextMatrix(i, 5) rs1.Fields(單位) = msgSell.TextMatrix(i, 6) rs1.Fields(零售價(jià)) = Val(msgSell.TextMatrix(i, 7) rs1.Fields(數(shù)量) = Val(msgSell.TextMatrix(i, 8) rs1.Fields(金額) = Val(msgSell.TextMatrix(i, 9) rs1.Fields(客戶(hù)編號(hào)) = ClientNumber rs1.Fields(客戶(hù)

57、名稱(chēng)) = txtClient.Text rs1.Fields(銷(xiāo)售單據(jù)號(hào)) = txtNote.Text rs1.Update rs1.Close Dim rs3 As New ADODB.Recordset rs3.Open select * from tb_stock where 藥品編號(hào)= & msgSell.TextMatrix(i, 2) & and 批號(hào)= & msgSell.TextMatrix(i, 3) & , cnn, adOpenKeyset, adLockOptimistic If rs3.RecordCount 0 Then 推斷是否有記錄 If rs3.Field

58、s(藥品名稱(chēng)) Then 有記錄,更新庫(kù)存數(shù)量、庫(kù)存金額 rs3.Fields(庫(kù)存數(shù)量) = rs3.Fields(庫(kù)存數(shù)量) - Trim(Val(msgSell.TextMatrix(i, 8) rs3.Update End If Else MsgBox 庫(kù)存無(wú)此藥品！ End If rs3.Close Set rs3 = Nothing Dim rs4 As New ADODB.Recordset 添加記錄到tb_Client_Arrearage表中 rs4.Open select * from tb_Client_Arrearage, cnn, adOpenKeyset, adLoc

59、kOptimistic If rs4.EOF = False Then rs4.MoveLast rs4.AddNew If txtDate.Text Then rs4.Fields(日期) = txtDate.Text rs4.Fields(時(shí)刻) = Time If txtNote.Text Then rs4.Fields(銷(xiāo)售單據(jù)號(hào)) = txtNote.Text If msgSell.TextMatrix(i, 8) Then rs4.Fields(數(shù)量) = msgSell.TextMatrix(i, 8) If msgSell.TextMatrix(i, 9) Then rs4.F

60、ields(金額小計(jì)) = msgSell.TextMatrix(i, 9) If msgSell.TextMatrix(i, 7) Then rs4.Fields(單價(jià)) = msgSell.TextMatrix(i, 7) If msgSell.TextMatrix(i, 6) Then rs4.Fields(單位) = msgSell.TextMatrix(i, 6) If txtClient.Text Then rs4.Fields(客戶(hù)名稱(chēng)) = txtClient.Text rs4.Fields(客戶(hù)編號(hào)) = ClientNumber If txtClient.Text Then