進(jìn)銷存管理系統(tǒng)設(shè)計(jì)報(bào)告

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