進銷存管理系統(tǒng)設(shè)計報告

XXXXXXXXXXXX (一)序言 1 (三)系統(tǒng)目標 2(四)人員分工 2 (一)業(yè)務(wù)流程分析(銷售部分) 4 4 (二)系統(tǒng)的詳細設(shè)計 7 致謝 1(一)序言社會在不斷進步,科學(xué)技術(shù)和管理也在迅速發(fā)展，這使得每個企業(yè)得到了前所未有的發(fā)展機遇，但同時也必須面臨市場競爭的嚴重挑戰(zhàn),在日趨激烈的競爭環(huán)境下，企業(yè)要求生存、使企業(yè)有統(tǒng)一的管理,提高信息的利用率；又可以實現(xiàn)整體數(shù)據(jù)的結(jié)構(gòu)化,這樣就可以大大的提高企業(yè)決策的效率。行業(yè)分布跨度大。隨著全球經(jīng)濟一體化的發(fā)展和電子商務(wù)的興起,中小企業(yè)之間的競爭將越理模式，提高企業(yè)的運營效率。目前，我國中小企業(yè)的信息化水平還很低，相比國外企業(yè)，同時市場經(jīng)濟快速多變，競爭激烈，企業(yè)采用電腦管理進貨、庫存、銷售等諸多環(huán)節(jié)也已成物資、人才、資金并稱為企業(yè)的三大資源，控制物流是每個企業(yè)都需要做好的事情。本括商品價值，訂貨費用，短缺等)，使總費用最低.進銷存管理系統(tǒng)的職能大體上包括采購管理、銷售管理和庫存管理。本軟件是一款通用性極強企業(yè)進銷存管理系統(tǒng),軟件囊括了企業(yè)進、銷、存管理的全過程.(二)系統(tǒng)任務(wù)系統(tǒng)。一個完善的進銷存管理系統(tǒng)的任務(wù)主要包括以下幾項：1、資料管理，主要負責管理供應(yīng)商資料、商品資料以及客戶資料。2、采購管理,主要負責采購管理，包括采購單、采購入庫和采購查詢3、銷售管理,主要負責進行銷售管理，包括銷售單、銷售出庫和銷售查詢4、庫存管理，主要負責進行庫存管理，包括庫存維護、價格管理和庫存盤點5、統(tǒng)計分析，主要負責統(tǒng)計企業(yè)的出入庫情況以及成本收益.6、系統(tǒng)管理,主要負責管理用戶信息和用戶登錄，以及初期建賬。2(三)系統(tǒng)目標進銷存管理系統(tǒng)是一個現(xiàn)代化軟件系統(tǒng)，通過集中式的信息數(shù)據(jù)庫，將進、銷、存等經(jīng)通過使用進銷存管理系統(tǒng)，可以在以下幾方面提高企業(yè)的管理水平:。(四)人員分工(一)、需求分析通過調(diào)查，要求系統(tǒng)需要具有以下功能：①。由于操作人員的計算機知識普遍較差,要求有良好的人機界面。②.由于該系統(tǒng)的使用對象多，要求有較好的權(quán)限管理。③。方便的數(shù)據(jù)查詢,支持多條件查詢。④.基礎(chǔ)信息管理與查詢(包括商品信息、客戶信息、供應(yīng)商信息)。⑤.通過計算機，能夠直接“透視”倉庫存儲情況。⑥.完善的商品采購信息、商品銷售信息進行管理。⑦。方便、健全的結(jié)賬功能。⑧.當外界環(huán)境(停電、網(wǎng)絡(luò)病毒)干擾本系統(tǒng)時，系統(tǒng)可以自動保護原始數(shù)據(jù)的安全。⑨.數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。⑩。系統(tǒng)退出.3、技術(shù)方面的可行性編程與數(shù)據(jù)庫相結(jié)合進行開發(fā)的技術(shù)日趨成熟。①與工程產(chǎn)品相關(guān)的關(guān)鍵技術(shù)概念息都放入數(shù)據(jù)庫中進行存儲,而這些數(shù)據(jù)信息的調(diào)用則完全由程序來完成，即“程序設(shè)計數(shù)據(jù)化,數(shù)據(jù)管理程序化”思想。②關(guān)鍵技術(shù)的理論基礎(chǔ)依據(jù)“程序設(shè)計數(shù)據(jù)化，數(shù)據(jù)管理程序化”的設(shè)計思想，將數(shù)據(jù)庫文件與程序設(shè)計緊密③技術(shù)可行性結(jié)論本系統(tǒng)產(chǎn)品采用VisualBasic編程與數(shù)據(jù)庫相結(jié)合的方法進行開發(fā)，而現(xiàn)存的進銷存管理系統(tǒng)理論和技術(shù)有待進一步完善，因此進銷存管理系統(tǒng)應(yīng)用軟件的開發(fā)手段是完全可行的.2、經(jīng)濟可行性研究的費用不多。在程序運行方面，由于系統(tǒng)比較小，沒有必要進行太多的維護，而且進銷存管理系統(tǒng)的投入，能夠提高工作效率，減少工作人員，進而減少勞動資源的投入,也可以方便中要采取多項措施。所以在管理中獲得經(jīng)濟效益是一個綜合效益,要對它進行直接定量的分的時間，還為企業(yè)的各項決策提供了寶貴的資料，為企業(yè)帶來巨大的經(jīng)濟效益.3、操作可行性研究本系統(tǒng)采用基于Windows的圖形用戶界面，而該系統(tǒng)是大家熟悉的操作系統(tǒng),對于那些有一般的計算機知識的人員就可以輕松上手。而整個進銷存管理系統(tǒng)采用最友好的交互介面，簡介明了，不需要對數(shù)據(jù)庫進行深入的了解.上。因此，可以設(shè)計該系統(tǒng)的業(yè)務(wù)流程圖，數(shù)據(jù)流程圖，并建立數(shù)據(jù)字典.(一)業(yè)務(wù)流程分析(銷售部分)銷售人員根據(jù)銷售計劃和銷售情況生成取貨單向庫存管人員取貨，庫管員將生成的出貨單給銷售人員，銷售人員根據(jù)銷售情況生成銷售報表進行存儲，同時向客戶開銷售單.業(yè)務(wù)處理單位單據(jù)、文檔處理過程(二)數(shù)據(jù)流程分析業(yè)務(wù)流存儲數(shù)據(jù)流外部實體存儲頂層數(shù)據(jù)流分析:基于本系統(tǒng)為單機開發(fā)，數(shù)據(jù)由用戶錄入采購信息、銷售信息、庫存信息等到進銷存管理系統(tǒng)中，系統(tǒng)將反饋出用戶所需的統(tǒng)計信息，庫存信息等。頂層數(shù)據(jù)流程圖第一層數(shù)據(jù)流分析:采購部門將采購的數(shù)據(jù)傳遞給庫存部門和財務(wù)部門，銷售部同理。庫存部則只需通過庫存管理來生成庫存表。第一層數(shù)據(jù)流程圖銷售管理數(shù)據(jù)流分析:銷售人員根據(jù)銷售計劃或銷售情況開銷售單給客戶同時增加銷售的銷售數(shù)據(jù)填寫取貨單,向庫存部取貨。銷售管理業(yè)務(wù)流程圖數(shù)數(shù)據(jù)元素條目編號:E1名稱：供應(yīng)商編號說明：企業(yè)供應(yīng)商的編碼數(shù)據(jù)值類型:離散類型：字符型2說明：企業(yè)銷售的商品的編號數(shù)據(jù)值類型：離散4數(shù)據(jù)元素條目(三)數(shù)5數(shù)據(jù)元素條目 是否核銷(1)結(jié)構(gòu)設(shè)計系統(tǒng)采用了3層結(jié)構(gòu)設(shè)計。首先是界面層，包括用戶操作，如資料管理、采購管理、銷售管理、系統(tǒng)管理等。其次業(yè)務(wù)邏輯層，包括系統(tǒng)基礎(chǔ)類、商品信息類等等，提供界面層調(diào)用的方法和類.最后是數(shù)據(jù)庫,為整個系統(tǒng)提供數(shù)據(jù)服務(wù)。系統(tǒng)采用的層次結(jié)構(gòu)關(guān)系如圖: (2)系統(tǒng)功能模塊圖據(jù)系統(tǒng)所要實現(xiàn)的功能,按照結(jié)構(gòu)化程序設(shè)計的原則，可以將整個系統(tǒng)劃分為若干個功能模塊。根據(jù)以上對進銷存管理系統(tǒng)的任務(wù)和目標的分析,一個標準的進銷存管理系統(tǒng)應(yīng)該包含如圖所示的一些功能。每個功能模塊又包含一系列的子模塊。⑴資料管理“資料管理”模塊用來管理供應(yīng)商資料、商品資料以及客戶資料,其功能模塊如圖所示。①“供應(yīng)商資料"模塊“供應(yīng)商資料"模塊負責維護供應(yīng)商的基本信息.供應(yīng)商資料對于采購而言非常重要，是進銷存管理系統(tǒng)的重要資料.供應(yīng)商資料主要包括供應(yīng)商編號、供應(yīng)商名稱、地址、電話、控制,從而降低企業(yè)的采購成本。6②“商品資料”模塊“商品資料”模塊負責維護商品的基本信息,基本信息一般變動較小.商品資料主要包括商品編號、商品名稱、條形碼、計量單位、供應(yīng)商編號、供應(yīng)商地址和商品說明等。不同的行業(yè)、不同的企業(yè)所需的商品資料差別較大。③“客戶資料”模塊“客戶資料"模塊負責維護企業(yè)客戶的基本信息.客戶是企業(yè)生存的根本，可以是個人或者企業(yè)。客戶信息是企業(yè)需要重點維護的資料?？蛻糍Y料主要包括客戶編號、客戶名稱、地址、電話、傳真、信譽等級、所需商品和簡介等?？蛻糍Y料變動較大，開發(fā)系統(tǒng)時應(yīng)該注意系統(tǒng)的可擴展性和可維護性。(2)銷售管理“銷售管理”模塊主要負責進行銷售管理，包括銷售單、銷售出庫和銷售查詢。銷售管理是企業(yè)的重要活動,直接面向客戶和市場。其功能模塊如圖所示。①“銷售單"模塊“銷售單”模塊負責錄入銷售單和銷售明細單.銷售單主要包括銷售單號、客戶編號、銷售日期、銷售員、是否核銷、操作人員、總共金額、不含稅價和稅額等項。銷售單明細主要包括編號ID、銷售單號、商品編號、銷售數(shù)量、成本單價、銷售單價、總共金額、不含等項。②“銷售出庫"模塊“銷售出庫”模塊負責管理商品的銷售出庫情況。銷售出庫時需要將商品庫存數(shù)量減去銷售單明細中的銷售數(shù)量。最后,銷售單的“是否核銷”標志變?yōu)椤耙押虽N”③“銷售查詢”模塊“銷售查詢”模塊負責查詢銷售單信息以及銷售單核銷情況。下面我說一下具體每個窗體可以實現(xiàn)的功能:(1)供應(yīng)商資料①可根據(jù)已存在系統(tǒng)中的供應(yīng)商的資料進行供應(yīng)商編號或供應(yīng)商名稱來進行顯示查詢②添加新的供應(yīng)商資料③修改已存在的供應(yīng)商的資料③刪除供應(yīng)商資料(2)商品資料(具體功能同供應(yīng)商資料)(3)客戶資料(具體功能同供應(yīng)商資料)(4)銷售單7體功能基本一樣.①根據(jù)銷售單號或客戶編號來查詢銷售信息②在窗體中以表的形式顯示出銷售信息③添加銷售單④修改銷售單(5)銷售出庫①根據(jù)銷售單號或客戶編號來查詢銷售信息②在窗體中以表的形式顯示出銷售信息③將將要出庫的銷售信息進行出庫處理(6)銷售查詢①根據(jù)銷售單號或客戶編號來查詢銷售信息②自定義一段想要查的時間段可以在窗體中顯示出該段時間段內(nèi)的銷售信息(二)系統(tǒng)的詳細設(shè)計代碼是以適當?shù)姆杹肀磉_客觀實體的屬性及特征。有標識、分類統(tǒng)計檢索、排序、對象描述的作用，一般根據(jù)唯一性原則、合理性原則、適用性原則、規(guī)范性原則、可擴充性原則和簡明性原則來進行設(shè)計,本系統(tǒng)中該系統(tǒng)采用層次代碼設(shè)計方法.長度446銷售單號XS(漢字拼音縮寫)62.輸入輸出設(shè)計輸入設(shè)計：輸入界面的設(shè)計我們不僅考慮到數(shù)據(jù)輸入窗口的屏幕格式,而且考慮到如何使輸入數(shù)據(jù)的錯誤率盡可能的減小。輸入的數(shù)據(jù)量越小，出錯的幾率越小，所以,在保證輸入數(shù)據(jù)完整的同時,我們盡量把界面設(shè)置的簡單大方。輸出設(shè)計：在輸出設(shè)計上,主要采用日常通用格式輸出，這樣方便管理，查閱。例：供應(yīng)商資料管理8概念結(jié)構(gòu)設(shè)計就是整個數(shù)據(jù)庫設(shè)計的關(guān)鍵，它是將分析得到的用戶需求抽象為信息結(jié)構(gòu)即概念模型的過程。我們采用了自底向上的策略進行了概念結(jié)構(gòu)的設(shè)計，即先定義各局部應(yīng)用的概念模型，然后把它們集合起來，形成全局的概念結(jié)構(gòu)。E-R圖實體及其屬性圖實體及其聯(lián)系圖完整的實體聯(lián)系圖2、邏輯結(jié)構(gòu)設(shè)計所謂的邏輯結(jié)構(gòu)設(shè)計就是把概念結(jié)構(gòu)設(shè)計階段設(shè)計好的基本E－R圖轉(zhuǎn)換為與信息系統(tǒng)所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。而E－R圖向關(guān)系模型的轉(zhuǎn)化要解決的問題是如何將實體和實體間的聯(lián)系轉(zhuǎn)換為關(guān)系模式,如何確定這些關(guān)系模式的屬性和碼.一個實體型轉(zhuǎn)換為一個關(guān)系模式。實體的屬性就是關(guān)系的屬性，實體的碼就是關(guān)系的對于實體間的聯(lián)系則分不同的情況討論：合并.若實體間聯(lián)系為1:n，則在n端實體轉(zhuǎn)換成的關(guān)系中加入1端實體轉(zhuǎn)換成的關(guān)系碼。nm的屬性，而關(guān)系的碼則為諸實體的碼的組合?；谝陨显瓌t，可將上圖轉(zhuǎn)換為關(guān)系模型。每個關(guān)系的碼用下劃線表示。供應(yīng)商資料表(供應(yīng)商編號，供應(yīng)商名稱,地址，電話,傳真，信譽等級，提供商品)；商品資料表(商品編號，條形碼，商品名稱，計量單位，供應(yīng)商編號，供應(yīng)商地址，商品說明);不含稅價,稅額)；銷售明細表(編號ID，銷售單號,商品編號，銷售數(shù)量，成本單價，銷售單價，總共金額，不含稅價，稅額)；93、物理結(jié)構(gòu)設(shè)計a,盡可能地減少數(shù)據(jù)冗余和重復(fù).基于以上三條設(shè)計原則,本系統(tǒng)中關(guān)于數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計如下：供應(yīng)商資料表字段名稱數(shù)據(jù)類型可否為空供應(yīng)商編號鍵供應(yīng)商名稱供應(yīng)商名稱地址Null供應(yīng)商地址Null供應(yīng)商電話傳真Null供應(yīng)商傳真信譽等級Null信譽等級：優(yōu)、良、差提供商品Text(16)NullNull供應(yīng)商提供的商品供應(yīng)商簡介商品資料表字段名稱數(shù)據(jù)類型可否為空商品編號鍵商品名稱商品名稱條形碼Null計量單位NotNull計量商品的單位供應(yīng)商編號父表為供應(yīng)商資料表供應(yīng)商地址商品說明NullNull供應(yīng)商地址商品說明客戶資料表字段名稱數(shù)據(jù)類型可否為空客戶編號鍵客戶名稱客戶名稱地址Null客戶地址Null客戶電話傳真Null客戶傳真信譽等級Null信譽等級：優(yōu)、良、差所需商品Text6)Text6)NullNull客戶要求的商品客戶簡介銷售單表字段名稱數(shù)據(jù)類型可否為空銷售單號鍵客戶編號父表為客戶資料表銷售日期Null銷售日期銷售員Null銷售員是否核銷NotNull是否核銷:未核銷、已核銷操作人員NotNull操作人員總共金額Float(8)Null銷售單的總金額不含稅價Float(8)Null不含稅價稅價Float(8)Null稅額銷售單明細表字段名稱數(shù)據(jù)類型可否為空鍵銷售編號父表為銷售單表商品編號父表為商品資料表銷售數(shù)量Float(8)NotNull商品的銷售數(shù)量成本單價Float(8)NotNull商品的成本單價銷售單價Float(8)NotNull商品的銷售單價總共金額Float(8)NotNull銷售單明細的總金額不含稅價Float(8)NotNull不含稅價=總共金額—稅額稅額Float(8)NotNull稅額=總共金額＊稅率(一)開發(fā)工具的選擇研究實驗室為其關(guān)系數(shù)據(jù)庫管理系統(tǒng)SYSTEMR開發(fā)的一種查詢語言，它的前身是SQUAREL的數(shù)據(jù)庫管理系統(tǒng)，還是像VisualFoxporo、PowerBuilder這些微機上常用的數(shù)據(jù)庫開發(fā)VisualBasic簡稱VB，是微軟公司推出的一種可視化編程工具,是當今世界上應(yīng)用最有語法簡單易學(xué)的開發(fā)環(huán)境，是初學(xué)者的首選。VB提供可視化的開發(fā)環(huán)境，使用者可以像搭積木一樣構(gòu)建出程序的界面,而且它提供豐富的控件組，省去了自己編寫代碼的實現(xiàn)這些效果的麻煩，這樣就可以把更多的精力放在程序功能方面的實現(xiàn)上。本系統(tǒng)中使用的是MicrosoftVisualBasic6.0中文企業(yè)版。MicrosoftSQLServer2000是新一代大型電子商務(wù)、數(shù)據(jù)倉庫和數(shù)據(jù)庫解決方案。標準提供了強勁的支持，并為系統(tǒng)管理和調(diào)整提供了許多有力的工具。(1)數(shù)據(jù)倉庫分析服務(wù)。使用聯(lián)機分析處理和數(shù)據(jù)開采工具滿足了用戶所有的商業(yè)分析需求。(2)電子商務(wù)Web數(shù)據(jù)訪問.通過使用Web，而不需要額外的編程工作就可以建立SQLServer2000分布式分區(qū)視圖。將用戶的數(shù)據(jù)存儲在多個服務(wù)器上，從而增大了數(shù)據(jù)庫的規(guī)模.安全性。SQLServer2000為你的應(yīng)用提供了更高的安全策略。簡化數(shù)據(jù)庫管理。SQLServer2000提供了大量的監(jiān)視和管理工具，從而大大減少了管數(shù)據(jù)庫復(fù)制.使用SQLServer2000可以在不同的系統(tǒng)之間進行合并、事務(wù)和快照復(fù)制。(二)源程序清單OptionExplicitDimrsAsADODB.RecordsetDimSQLAsStringDimmsgAsStringDimIndexAsIntegerDimflagAsStringPrivateSubCommand1_Click()CallLoadDataCallShowDataEndSubPrivateSubForm_Load()'初始化查詢條件ComboBoxcboquery。AddItem(”供應(yīng)商編號")'判斷是新增記錄還是修改記錄cboquery。AddItem(”供應(yīng)商名稱”)cboquery.ListIndex=0'初始化信譽等級ComboBoxcboxy.AddItem(”優(yōu)")cboxy.AddItem("良")cboxy.AddItem(”差")cboxy.ListIndex=0CallLoadDataCallShowDataEndSubPrivateSubLoadData()DimcolNameAsStringDimcolValueAsStringDimstrWhereAsString'得到查詢條件colName=cboquery。TextcolValue=txtquery.TextstrWhere=”where”&colName＆”Setrs=Nothing’默認查詢條件為供應(yīng)商編號認信譽等級為優(yōu)’保存所選擇的查詢條件'保存所要查詢具體的值’取出條件的值出所要查詢的值like’%”&colValue＆”％’"’查詢供應(yīng)商資料SQL=”SELECT*FROM供應(yīng)商資料表"＆strWhere＆"ORDERBY供應(yīng)商編號”SetMe。DataGrid1.DataSource=rsDataGrid1。RefreshIfrs.RecordCount=0Then’如果不存在記錄'編輯控件可用性cmdadd.Enabled=True:cmdmodify.Enabled=False：cmddelete.Enabled=Falsecmdcancel.Enabled=False:cmdsave。Enabled=False’移動控件不可用ForIndex=0To3cmdmove(Index).Enabled=FalseNextIndexElse’編輯控件可用性aveEnabledFalse'移動控件可用ForIndex=0To3cmdmove(Index).Enabled=TrueNextIndexEndIfCallControlEnable(False)EndSubPrivateSubControlEnable(flagAsBoolean)ForIndex=0To6Me。txt(Index).Enabled=flagNextIndexMe.cboxy。Enabled=flagEndSubPrivateSubShowData()'在控件中顯示數(shù)據(jù)'為控件賦值ForIndex=0To4Me。txt(Index)=rs。Fields(Index)NextIndexMe。cboxy.Text=rs.Fields(”信譽等級”)Me.txt(6)。Text=rs。Fields("簡介")EndIfEndSubPrivateSubCmdMove_Click(IndexAsInteger)’移動記錄操作SelectCaseIndexCaseIs=0IfNotrs.BOFThenrs。MoveFirstCaseIs=1’移到上一條記錄Ifrs.BOF=FalseThenrs.MovePreviousIfrs。BOF=TrueThenrs。MoveFirstEndIfCaseIs=2'移到下一條記錄Ifrs。RecordCount<>0ThenIfrs。EOF=FalseThenrs.MoveNextIfrs。EOF=TrueThenrs。MoveLastEndIfCaseIs=3’移到最后一條記錄IfNotrs.EOF=TrueThenrs。MoveLastEndIfEndSelectCallShowDataEndSubPrivateSubCmdAdd_Click()’所有控件重置CallControlClearCallControlEnable(True)flag示所進行的操作為添加flag=”Add"’所有移動按鈕不可用ForIndex=0To3cmdmove(Index)。Enabled=FalseNextIndex’添加、修改、刪除按鈕不可用，取消、保存按鈕可用cmdcancel。Enabled=True:cmdsave。Enabled=TrueEndSubPrivateSubControlClear()'重置控件ForIndex=0To6Me.txt(Index).Text="”NextIndexMe。cboxy。ListIndex=0EndSubPrivateSubCmdModify_Click()'供應(yīng)商編號不可以修改，其他控件可用txt(0).Enabled=False'如果存在記錄CallControlEnable(True)gflag="Modify"’移動控件不可用ForIndex=0To3NextIndex’添加、修改、刪除按鈕不可用,取消、保存按鈕可用cmdaddEnabledFalsecmdmodifyEnabledFalse:cmddelete.Enabled=FalsenabledTrueElseMsgBox("沒有可以修改的數(shù)據(jù)!")EndIfEndSubPrivateSubCmdDelete_Click()'刪除操作OnErrorGoToErrMsgIfrs。RecordCount>0ThenIfmsg=vbYesThenrs.Delete'刪除數(shù)據(jù)CallLoadData’重新裝載數(shù)據(jù)'清空控件CallControlClearCallControlEnable(False)Ifrs。RecordCount=0Then'所有移動控件不可用ForIndex=0To3NextIndexEndIf'添加、刪除按鈕可用，修改、取消、保存按鈕不可用=Truecmdsave。Enabled=False:cmdcancel。Enabled=FalseMsgBox("成功刪除的數(shù)據(jù)!")EndIfElseEndIfExitSubtionEndSubPrivateSubCmdSave_Click()OnErrorGoToErrMsgIfNotCheckDataThenExitSubIfflag=”Modify”Then’如果數(shù)據(jù)不合法就退出’如果是修改數(shù)據(jù)gBoxvbYesNoIfmsg=vbYesThenCallsetDataElseExitSubEndIfElseIfflag=”Add"Thenrs。AddNewCallsetDataEndIf'如果是添加新數(shù)據(jù)rs。Update'移動控件可用ForIndex=0To3cmdmove(Index)。Enabled=TrueNextIndexcmdmodify.Enabled=True：cmddelete.Enabled=True:cmdadd。Enabled=Truecmdsave.Enabled=False:cmdcancel.Enabled=FalseIfflag="Add"ThenElseMsgBox("成功更新數(shù)據(jù)!")EndIfCallLoadData'定位到添加或修改記錄’重新裝載數(shù)據(jù)rs。MoveFirstrs.Find(”供應(yīng)商編號='"＆Trim(Me.txt(0)。Text)&"'")IfNotrs。EOFThenCallShowData'重新顯示數(shù)據(jù)EndIfExitSubErrMsg：MsgBoxErr。Description,vbExclamation,”出錯"EndSubPrivateFunctionCheckData()AsBoolean’檢查數(shù)據(jù)的合法性DimrstAsADODB.RecordsetDimmsgtAsStringmsgt=””IfTrim(txt(0).Text)=”Then'檢查供應(yīng)商編號是否為空msgt=”供應(yīng)商編號為空；”txt(0).SetFocustxt(0)。SelStart=0ElseIfNotLen(Trim(txt(0)。Text))=4Then’檢查供應(yīng)商編號是否為4位txt(0)。SetFocustxt(0).SelStart=0txt(0)。SelLength=Len(txt(0).Text)ElseIfTrim(txt(1)。Text)=”Then'檢查供應(yīng)商名稱是否為空msgt="供應(yīng)商名稱為空；”'光標定位txt(1)。SetFocustxt(1).SelStart=0txt(1).SelLength=Len(txt(1).Text)EndIfIfNotmsgt="”Then'如果不為空，給出錯誤提示MsgBox(msgt)CheckData=False'返回FalseExitFunctionEndIf'檢查唯一性'如果是進行添加操作且已經(jīng)存在該記錄，提示重復(fù)添加MsgBox("該信息已經(jīng)存在，重復(fù)添加!”)txt(0).SetFocustxt(0).SelStart=0rst。CloseCheckData=FalseExitFunctionEndIfCheckData=TrueEndFunctionPrivateSubsetData()’為字段設(shè)置數(shù)據(jù)rs。Fields(”供應(yīng)商名稱")=Me.txt(1)。TextForIndex=2To4NextIndexyTextForIndex=5To6rs。Fields(Index+1)=Me.txt(Index).TextNextIndexEndSubPrivateSubcmdCancel_Click()CallShowData'重新在控件中顯示信息’所有移動控件可用ForIndex=0To3cmdmove(Index)。Enabled=TrueNextIndexEndIfCallControlEnable(False)’修改、刪除、添加按鈕可用，保存和取消按鈕不可用cmdadd。Enabled=True:cmdmodify。Enabled=True:cmddelete。Enabled=TrueledFalsecmdcancelEnabledFalseEndSubPrivateSubCmdQuery_Click()'查詢操作CallLoadDataCallLoadDataCallShowDataEndSubPrivateSubCmdExit_Click()'退出操作進銷存管理系統(tǒng).Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)'退出操作進銷存管理系統(tǒng).Enabled=Truers.CloseUnloadMeEndSub供應(yīng)商資料表CREATETABLE供應(yīng)商資料表(供應(yīng)商編號char(4)Primarykey,供應(yīng)商名稱varchar(50)NOTNULL,地址varchar(50)NULL，電話varchar(50)NULL,傳真varchar(50)NULL，信譽等級char(4)NULL，提供商品textNULL,簡介textNULL，)商品資料表:CREATETABLE供應(yīng)商資料表(商品編號char(6)Primarykey，商品名稱varchar(50)NOTNULL,條形碼char(10)NULL，計量單位char(10)NOTNULL,供應(yīng)商編號char(4)NOTNULL,供應(yīng)商地址textNULL,商品說明textNULL，)CREATETABLE客戶資料表(客戶編號char(4)Primarykey,客戶名稱varchar(50)NOTNULL，地址varchar(50)NULL，電話varchar(50)NULL,傳真varchar(50)NULL，信譽等級char(4)NULL,提供商品textNULL，簡介textNULL，)CREATETABLE銷售單表(銷售單編號char(6)Primarykey，客戶編號char(4)NOTNULL，銷售員Nvarchar(50)NOTNULL,是否核銷char(6)NOTNULL,總共金額float(8)NULL,不含稅價float(8)NULL，稅額float(8)NULL,)銷售明細:CREATETABLE銷售單明細表(IDNumeric(9)Primarykey銷售單編號char(6)NOTNULL,商品編號char(6)NOTNULL,銷售數(shù)量float(8)NOTNULL,ULL銷售單價float(8)NOTNULL,總共金額float(8)NOTNULL,不含稅價float(8)NOTNULL，稅額float(8)NOTNULL，)(三)、數(shù)據(jù)庫中部分表的關(guān)系及約束(四)運行界面連接數(shù)據(jù)庫界面:用戶登錄:銷售查詢(按時間段查詢結(jié)果如下):銷售查詢(按銷售單號查詢結(jié)果如下)：修改操作:(五)、系統(tǒng)調(diào)試、測試在開發(fā)軟件系統(tǒng)的過程中，面對錯綜復(fù)雜的問題，人的主觀認識不可能完全符合客觀現(xiàn)象，與工程密切相關(guān)的各類人員之間的通訊和配合也不可能完美無缺,因此，在軟件生命周期的每個階段都不可避免地會產(chǎn)生錯誤.在每個階段結(jié)束之前通嚴格的技術(shù)審查，盡可能早的發(fā)現(xiàn)所有差錯.此外,在編碼過程中還會不可避免地引入新的錯誤。測試的目的就是在軟件測試.系統(tǒng)測試的對象是整個應(yīng)用軟件系統(tǒng)，包括需求分析、系統(tǒng)總體設(shè)計、詳細設(shè)計各階段的文檔以及源程序.系統(tǒng)測試的目的是精心選取那些易于發(fā)生錯誤的測試數(shù)據(jù)，以十分挑剔的態(tài)度，找出軟件中的錯誤，并改正錯誤。系統(tǒng)測試是管理信息系統(tǒng)開發(fā)周期中一個十分重要而漫長的階段,是保證系統(tǒng)質(zhì)量與可靠性的最后關(guān)口，是對整個系統(tǒng)開發(fā)過程包括系統(tǒng)分析、系統(tǒng)設(shè)計和系統(tǒng)實施的最終審查，這需要一個比較漫長的過程。我們進行系統(tǒng)測試的對象不僅是源程序,而是整個軟件，包括需求規(guī)格說明、概要設(shè)計說明、詳細設(shè)計說明及源程序,進行測試的目的是發(fā)現(xiàn)軟件中存在錯誤并進行糾正。因此為了保證事業(yè)單位工資管理平臺的可靠性,在系統(tǒng)投入使用前要對平臺可能存在的操作和功能實現(xiàn):信息添加、信息刪除、信息查詢等，驗證其可操作性。(1)開發(fā)人員承擔主要的測試工作,其他人員輔助進行測試,以更好的完成全面的系統(tǒng)測試.(2)設(shè)計測試方案時,不僅要包括確定的輸入數(shù)據(jù)，而且應(yīng)包括從系統(tǒng)功能出發(fā),預(yù)期的測試結(jié)果，然后將運行結(jié)果與預(yù)期測試結(jié)果進行對比以發(fā)現(xiàn)有無錯誤。(3)測試用例不僅要包括合理有效的輸入數(shù)據(jù)，還要包括無效的或不合理的輸入數(shù)據(jù)。(