企業(yè)進(jìn)銷存系統(tǒng)

1、.PAGE ：.；PAGE III TOC o - h z u HYPERLINK l _Toc 前言 PAGEREF _Toc h II HYPERLINK l _Toc 一、企業(yè)進(jìn)銷存管理系統(tǒng)的概述 PAGEREF _Toc h HYPERLINK l _Toc 二、企業(yè)進(jìn)銷存系統(tǒng)的系統(tǒng)設(shè)計(jì) PAGEREF _Toc h HYPERLINK l _Toc 一、系統(tǒng)功能分析 PAGEREF _Toc h HYPERLINK l _Toc 二、系統(tǒng)功能模塊設(shè)計(jì) PAGEREF _Toc h HYPERLINK l _Toc 三、企業(yè)進(jìn)銷存管理系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) PAGEREF _Toc h HY

2、PERLINK l _Toc 一、數(shù)據(jù)庫需求分析 PAGEREF _Toc h HYPERLINK l _Toc 二、數(shù)據(jù)庫邏輯構(gòu)造設(shè)計(jì) PAGEREF _Toc h HYPERLINK l _Toc 三、數(shù)據(jù)庫構(gòu)造的實(shí)現(xiàn) PAGEREF _Toc h HYPERLINK l _Toc 四、企業(yè)進(jìn)銷存管理系統(tǒng)模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 一、創(chuàng)建公用模塊Module.bas PAGEREF _Toc h HYPERLINK l _Toc 二、根本信息設(shè)置模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、產(chǎn)品設(shè)置窗體的創(chuàng)建

3、 PAGEREF _Toc h HYPERLINK l _Toc 、產(chǎn)品設(shè)置信息添加窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、產(chǎn)品設(shè)置信息修正窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、產(chǎn)品設(shè)置信息刪除按鈕的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 三、進(jìn)貨信息管理模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、訂貨單管理窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、入庫單管理窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK

4、 l _Toc 、進(jìn)貨信息查詢窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 四、消費(fèi)信息管理模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、配料單信息窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、消費(fèi)方案單信息窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、組裝單信息窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、消費(fèi)信息查詢模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 五、銷售信息管理模塊的創(chuàng)建 PAGEREF

5、_Toc h HYPERLINK l _Toc 、訂貨單信息窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、銷售單信息窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、銷售信息查詢窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 六、庫存信息管理模塊的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、轉(zhuǎn)倉單窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、產(chǎn)品清點(diǎn)窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 七、財(cái)務(wù)信息管理模塊的創(chuàng)

6、建 PAGEREF _Toc h HYPERLINK l _Toc 、應(yīng)收款項(xiàng)窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 、應(yīng)付款項(xiàng)窗體的創(chuàng)建 PAGEREF _Toc h HYPERLINK l _Toc 八、菜單的建立 PAGEREF _Toc h HYPERLINK l _Toc 五、企業(yè)進(jìn)銷存管理系統(tǒng)的運(yùn)轉(zhuǎn)和測試 PAGEREF _Toc h HYPERLINK l _Toc 一、運(yùn)轉(zhuǎn) PAGEREF _Toc h HYPERLINK l _Toc 二、測試 PAGEREF _Toc h HYPERLINK l _Toc 、系統(tǒng)測試方法如下圖 PAGER

7、EF _Toc h HYPERLINK l _Toc 、系統(tǒng)測試的步驟 PAGEREF _Toc h HYPERLINK l _Toc 六、總結(jié) PAGEREF _Toc h HYPERLINK l _Toc 七、參考資料 PAGEREF _Toc h 前言在我國，很多商業(yè)企業(yè)是經(jīng)過一套人工單據(jù)流轉(zhuǎn)程序，來實(shí)現(xiàn)信息流對(duì)商品流的跟蹤，經(jīng)過財(cái)務(wù)庫存資金賬來控制進(jìn)銷過程；經(jīng)過倉庫賬來核對(duì)物流過程；經(jīng)過定期清點(diǎn)對(duì)賬來調(diào)整賬目和商品的損益。由此呵斥物流、款流、票據(jù)流分別，財(cái)務(wù)信息滯后實(shí)踐業(yè)務(wù)，所以只需經(jīng)過清點(diǎn)才干較準(zhǔn)確的了解運(yùn)營情況。而對(duì)各類票據(jù)、供銷單位、應(yīng)收、應(yīng)付款等信息查找困難，易出過失，商品進(jìn)、

8、銷、存數(shù)量及金額記錄統(tǒng)計(jì)任務(wù)量大，不準(zhǔn)確，各類運(yùn)營統(tǒng)計(jì)數(shù)據(jù)嚴(yán)重滯后實(shí)踐業(yè)務(wù)需求?，F(xiàn)代商業(yè)的迅猛開展，對(duì)手工管理方式提出了嚴(yán)峻挑戰(zhàn)。商品種類日益豐富，流行周期越來越短，企業(yè)活動(dòng)節(jié)拍加快，調(diào)價(jià)、削價(jià)、移庫各種情況，信息量大、變化加快，賒銷、代銷、折讓、退換等方式頻繁運(yùn)用，這些都添加運(yùn)營管理中的結(jié)算和統(tǒng)計(jì)難度，手工管理難以完全勝任。在現(xiàn)代化大工業(yè)、大消費(fèi)的組織原那么運(yùn)用于流通領(lǐng)域，更需求用現(xiàn)代化的手段使其管理思想真正得以實(shí)現(xiàn)。近幾年來，隨著計(jì)算機(jī)的開展與完善，其在商品流通領(lǐng)域中的運(yùn)用越來越廣泛。因此，用計(jì)算機(jī)建立一種準(zhǔn)確、及時(shí)、高效、易于掌握的商品進(jìn)銷存數(shù)據(jù)管理系統(tǒng)是非常必要的。PAGE 一、企業(yè)進(jìn)

9、銷存管理系統(tǒng)的概述企業(yè)消費(fèi)制造管理的關(guān)鍵在于如何規(guī)劃和方案各種資源在時(shí)間、地點(diǎn)、產(chǎn)品之間的合理配備，如何按方案監(jiān)視責(zé)任方對(duì)資源的運(yùn)用情況，如何根據(jù)預(yù)測和歷史情況為決策者提供更有效地利用資源的分析數(shù)據(jù)。本系統(tǒng)的主要功能是制定消費(fèi)/采購方案、物料需求計(jì)算、資料供求分析，中心義務(wù)是：降低資料本錢；降低庫存本錢；縮短消費(fèi)/采購周期，如何獲得更高的利潤。工業(yè)企業(yè)進(jìn)銷存系統(tǒng)以企業(yè)管理的方案和控制職能為中心，提供了消費(fèi)、銷售、采購、庫管、方案等適用而豐富的管理功能，具有如下優(yōu)點(diǎn)：具有高度的信息綜合利用效能，可以對(duì)工業(yè)企業(yè)的運(yùn)營管理活動(dòng)進(jìn)展分析、預(yù)測、決策，進(jìn)而到達(dá)對(duì)工業(yè)企業(yè)運(yùn)營活動(dòng)過程的全程監(jiān)視和控制的目的

10、；徹底改動(dòng)了企業(yè)信息反復(fù)、混亂、無法共享的現(xiàn)狀，使產(chǎn)、供、銷、客、物、決策等各個(gè)部門可以資源共享、信息共享，從而實(shí)現(xiàn)了業(yè)務(wù)、決策一體化；物流、資金流、信息一致化的良好運(yùn)營管理方式。本系統(tǒng)是根據(jù)工業(yè)企業(yè)的消費(fèi)過程，控制消費(fèi)過程中的資料耗費(fèi)、產(chǎn)品銷售、銷售本錢等數(shù)據(jù)，詳細(xì)管理范圍包括資料采購、資料庫存、消費(fèi)方案、消費(fèi)控制、物料需求、產(chǎn)品購進(jìn)、產(chǎn)品銷售、產(chǎn)品產(chǎn)出等。本系統(tǒng)前臺(tái)開發(fā)工具采用中文版Visual Basic.，后臺(tái)數(shù)據(jù)庫效力器采用SQL Server ；運(yùn)轉(zhuǎn)環(huán)境為Windowsx、Windows、Windows、WindowsNT或WindowsXP。二、企業(yè)進(jìn)銷存系統(tǒng)的系統(tǒng)設(shè)計(jì)一、系統(tǒng)功

11、能分析系統(tǒng)開發(fā)的總體義務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體義務(wù)的根底上完成。本系統(tǒng)需求完勝利能主要有：、根本信息的管理，包括產(chǎn)品設(shè)置、產(chǎn)品類別設(shè)置、供應(yīng)商設(shè)置、客戶設(shè)置、業(yè)務(wù)員類別設(shè)置、業(yè)務(wù)員設(shè)置、倉庫設(shè)置等。、進(jìn)貨信息的管理，包括訂貨單的管理、入庫單的管理以及進(jìn)貨信息的查詢等。、消費(fèi)信息的管理，包括配料單信息的管理、消費(fèi)方案單信息的管理、產(chǎn)品組裝單信息的管理以及相關(guān)信息的查詢等。、銷售信息管理，包括銷售單的管理以及銷售信息的查詢等。、庫存信息的管理，包括轉(zhuǎn)倉單的管理、產(chǎn)品清點(diǎn)和轉(zhuǎn)倉信息的查詢等。、財(cái)務(wù)信息管理，包括應(yīng)收信息的管理、應(yīng)付信息的管理等。二、系統(tǒng)

12、功能模塊設(shè)計(jì)對(duì)系統(tǒng)各項(xiàng)功能進(jìn)展集中、分塊，按照構(gòu)造化程序設(shè)計(jì)的要求，他們得到如下所示的系統(tǒng)功能模塊圖。三、企業(yè)進(jìn)銷存管理系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫構(gòu)造設(shè)計(jì)的好壞將直接對(duì)運(yùn)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫構(gòu)造設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完好和一致。設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及未來能夠添加的需求。數(shù)據(jù)庫設(shè)計(jì)普通包括如下幾個(gè)步驟：數(shù)據(jù)庫需求分析；數(shù)據(jù)庫邏輯構(gòu)造設(shè)計(jì)。一、數(shù)據(jù)庫需求分析用戶的需求詳細(xì)表達(dá)在各種信息的提供、保管、更新和查詢，這就要求數(shù)據(jù)庫構(gòu)造能充分滿足各種信息的輸出和輸入。搜集根本數(shù)

13、據(jù)、數(shù)據(jù)構(gòu)造以及數(shù)據(jù)處置的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的詳細(xì)設(shè)計(jì)打下根底。仔細(xì)分析調(diào)查有關(guān)系統(tǒng)需求的根底上，他們將得到本系統(tǒng)所處置的數(shù)據(jù)流程圖。針對(duì)商業(yè)企業(yè)業(yè)務(wù)的需求，經(jīng)過對(duì)商業(yè)企業(yè)管理任務(wù)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)構(gòu)造：、產(chǎn)品類別信息，包括的數(shù)據(jù)項(xiàng)有：類別編號(hào)、類別稱號(hào)等。、產(chǎn)品信息，包括的數(shù)據(jù)項(xiàng)有：產(chǎn)品編號(hào)、產(chǎn)品稱號(hào)、計(jì)量單位、類別、入庫價(jià)錢、分銷價(jià)錢、零售價(jià)錢、消費(fèi)廠家、更新日期、備注信息等。、客戶信息，包括的數(shù)據(jù)項(xiàng)有：客戶編號(hào)、客戶稱號(hào)、地址、郵政編碼、號(hào)碼、公司主頁、電子郵件地址、稅號(hào)、銀行帳戶、開戶銀行、聯(lián)絡(luò)人、備注信息等、供應(yīng)商信息，包括的數(shù)據(jù)

14、項(xiàng)有：供應(yīng)商編號(hào)、供應(yīng)商稱號(hào)、地址、郵政編碼、號(hào)碼、公司主頁、電子郵件地址、稅號(hào)、銀行帳戶、開戶銀行、聯(lián)絡(luò)人、備注信息等。、業(yè)務(wù)員類別信息，包括的數(shù)據(jù)項(xiàng)有：類別編號(hào)，類別稱號(hào)等。、業(yè)務(wù)員信息，包括的數(shù)據(jù)項(xiàng)有：業(yè)務(wù)員編號(hào)、業(yè)務(wù)員姓名、類別、號(hào)碼、家庭住址、身份證號(hào)碼、備注信息等。、倉庫信息，包括的數(shù)據(jù)項(xiàng)有：倉庫編號(hào)、倉庫稱號(hào)。、進(jìn)貨訂單信息，包括的數(shù)據(jù)項(xiàng)有：訂貨日期、編號(hào)、業(yè)務(wù)員、供應(yīng)商編號(hào)、產(chǎn)品編號(hào)、數(shù)量、單價(jià)、折扣比例、總金額、備注信息等。、入庫單信息，包括的數(shù)據(jù)項(xiàng)有：入庫日期、編號(hào)、業(yè)務(wù)員、供應(yīng)商編號(hào)、產(chǎn)品編號(hào)、數(shù)量、單價(jià)、折扣比例、總金額、能否即時(shí)付款、能否記帳、預(yù)付比例、備注信息等。、

15、配料單信息，包括的數(shù)據(jù)項(xiàng)有：配料單編號(hào)、設(shè)置日期、產(chǎn)品編號(hào)、產(chǎn)品稱號(hào)、產(chǎn)品計(jì)量單位、配料編號(hào)、配料稱號(hào)、配料計(jì)量單位、配料數(shù)量、配料總金額、業(yè)務(wù)員編號(hào)、備注信息等。、消費(fèi)方案信息，包括的數(shù)據(jù)項(xiàng)有：方案編號(hào)、方案制定人、方案制定時(shí)間、產(chǎn)品編號(hào)、產(chǎn)品稱號(hào)、計(jì)量單位、消費(fèi)數(shù)量、單價(jià)、總金額、方案起始時(shí)間、方案終了時(shí)間、備注信息等。、銷售出貨單信息，包括的數(shù)據(jù)項(xiàng)有：銷售日期、編號(hào)、業(yè)務(wù)員、客戶編號(hào)、產(chǎn)品編號(hào)、數(shù)量、單價(jià)、折扣比例、總金額、能否即時(shí)付款、能否記帳、預(yù)付比例、備注信息等。、庫存信息，包括的數(shù)據(jù)項(xiàng)有：更新日期、編號(hào)、倉庫編號(hào)、產(chǎn)品編號(hào)、數(shù)量、單價(jià)、總金額、備注信息等。、轉(zhuǎn)倉信息，包括的數(shù)據(jù)項(xiàng)

16、有：轉(zhuǎn)倉日期、編號(hào)、業(yè)務(wù)員、轉(zhuǎn)出倉庫編號(hào)、轉(zhuǎn)入倉庫編號(hào)、產(chǎn)品編號(hào)、數(shù)量、總金額、備注信息等。二、數(shù)據(jù)庫邏輯構(gòu)造設(shè)計(jì)如今需求將本系統(tǒng)的數(shù)據(jù)庫概念構(gòu)造轉(zhuǎn)化為SQL Server 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)踐數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯構(gòu)造。根據(jù)數(shù)據(jù)庫的需求分析和概念構(gòu)造設(shè)計(jì)，設(shè)計(jì)了稱號(hào)為my_factory的數(shù)據(jù)庫。數(shù)據(jù)庫由下面多個(gè)表組成，各個(gè)表的設(shè)計(jì)結(jié)果如下面表格所示。dm_wzlb產(chǎn)品類別表列名數(shù)據(jù)類型可否為空說明LbcodeCharNot null產(chǎn)品父類編號(hào)LbCharNull產(chǎn)品父類稱號(hào)BzCharNull備注信息dm_wz產(chǎn)品信息表列名數(shù)據(jù)類型可否為空說明DmCharNot null產(chǎn)品編號(hào)

17、McCharNull產(chǎn)品稱號(hào)JldwCharNull計(jì)量單位LbdmCharNull產(chǎn)品類別編號(hào)RkjNumericNull入庫價(jià)錢FxjNumericNull分銷價(jià)錢LsjNumericNull零售價(jià)錢CjCharNull消費(fèi)廠家YxrqDatetimeNull更新日期BzCharNull備注信息dm_kh客戶信息表列名數(shù)據(jù)類型可否為空說明DmCharNot null會(huì)員編號(hào)McCharNull會(huì)員稱號(hào)AddrCharNull地址YzbmCharNull郵政編碼CharNull聯(lián)絡(luò)ItladdCharNull公司主頁YwmanCharNull聯(lián)絡(luò)人CharNull聯(lián)絡(luò)人電子郵件地址Sui_n

18、oCharNull稅號(hào)Bank_noCharNull銀行帳號(hào)BankCharNull開戶銀行LbcodeCharNull會(huì)員類別編號(hào)Total_jeNumericNull累計(jì)消費(fèi)金額BzCharNull備注信息dm_gf供應(yīng)商信息表列名數(shù)據(jù)類型可否為空說明DmCharNot null供應(yīng)商編號(hào)McCharNull供應(yīng)商稱號(hào)AddrCharNull地址YzbmCharNull郵政編碼CharNull聯(lián)絡(luò)ItladdCharNull公司主頁CharNull聯(lián)絡(luò)人電子郵件Sui_noCharNull稅號(hào)Bank_noCharNull銀行帳號(hào)BankCharNull開戶銀行YwmanCharNull聯(lián)

19、絡(luò)人BzCharNull備注信息dm_ywylb業(yè)務(wù)員類別表列名數(shù)據(jù)類型可否為空說明LbcodeCharNot null類別編號(hào)LbCharNull類別稱號(hào)BzCharNull備注信息dm_ywy業(yè)務(wù)員表列名數(shù)據(jù)類型可否為空說明DmCharNot null業(yè)務(wù)員編號(hào)McCharNull業(yè)務(wù)員姓名LbCharNull類別CharNull聯(lián)絡(luò)AddrCharNull家庭住址SfzCharNull身份證號(hào)碼LbcodeCharNull類別編號(hào)BzCharNull備注信息dm_ck倉庫表列名數(shù)據(jù)類型可否為空說明DmCharNot null倉庫編號(hào)McCharNull倉庫稱號(hào)BzCharNull備注信息

20、dh進(jìn)貨訂單表列名數(shù)據(jù)類型可否為空說明In_dateDatetimeNot null訂貨日期YwmanCharNull業(yè)務(wù)員Dh_noCharNull訂貨單編號(hào)GfdmCharNull供應(yīng)商編號(hào)WzdmCharNull產(chǎn)品編號(hào)SlNumericNull數(shù)量In_danjNumericNull訂貨單價(jià)I_zkNumericNull折扣I_zkeNumericNull總金額BzCharNull備注信息inh入庫單表列名數(shù)據(jù)類型可否為空說明In_dateDatetimeNot null入庫日期YwmanCharNull業(yè)務(wù)員Inh_noCharNull入庫單編號(hào)GfdmCharNull供應(yīng)商編碼Ck

21、dmCharNull倉庫編號(hào)WzdmCharNull產(chǎn)品編號(hào)SlNumericNull數(shù)量In_danjNumericNull單價(jià)I_zkNumericNull折扣I_zkeNumericNull總金額JsfkCharNull能否即時(shí)付款JzCharNull能否記帳YfNumericNull預(yù)付比例BzCharNull備注信息BzCharNull入庫方式采購、消費(fèi)等xsdh銷售訂單表列名數(shù)據(jù)類型可否為空說明Out_dateDatetimeNot null銷售訂貨日期YwmanCharNull業(yè)務(wù)員Xsdh_noCharNull銷售訂貨單編號(hào)KhdmCharNull客戶編號(hào)WzdmCharNul

22、l商品編號(hào)SlNumericNull數(shù)量Out_danjNumericNull銷售訂貨單價(jià)O_zkNumericNull折扣O_zkeNumericNull總金額BzCharNull備注信息outh銷售單表列名數(shù)據(jù)類型可否為空說明Out_dateDatetimeNot null銷售日期YwmanCharNull業(yè)務(wù)員Outh_noCharNull銷售單編號(hào)KhdmCharNull客戶編號(hào)CkdmCharNull倉庫編號(hào)WzdmCharNull產(chǎn)品編號(hào)SlNumericNull數(shù)量Out_danjNumericNull單價(jià)O_zkNumericNull折扣O_zkeNumericNull總金額J

23、sfkCharNull能否即時(shí)付款JzCharNull能否記帳YfNumericNull預(yù)付比例BzCharNull備注信息BzCharNull出庫方式銷售、組裝等kucun庫存表列名數(shù)據(jù)類型可否為空說明Update_dateDatetimeNot null更新日期Kucun_noCharNull庫存編號(hào)CkdmCharNull倉庫編號(hào)WzdmCharNull產(chǎn)品編號(hào)SlNumericNull數(shù)量Total_jeNumericNull總金額zc轉(zhuǎn)倉單表列名數(shù)據(jù)類型可否為空說明Zc_noCharNot null轉(zhuǎn)倉單編號(hào)Zc_dateDatetimeNull轉(zhuǎn)倉日期YwmanCharNull業(yè)務(wù)

24、員O_ckdmCharNull轉(zhuǎn)出倉庫編號(hào)I_ckdmCharNull轉(zhuǎn)入倉庫編號(hào)WzdmCharNull產(chǎn)品編號(hào)SlNumericNull數(shù)量Total_jeNumericNull總金額BzCharNull備注信息mate配料單表列名數(shù)據(jù)類型可否為空說明M_noCharNot null配料單編號(hào)M_dateDatetimeNull設(shè)置日期WzdmCharNull產(chǎn)品編號(hào)WzmcCharNull產(chǎn)品稱號(hào)JldwCharNull計(jì)量單位WzdmCharNull配料產(chǎn)品編號(hào)WzmcCharNull配料產(chǎn)品稱號(hào)JldwCharNull配料計(jì)量單位SlNumericNull配料數(shù)量In_djNumer

25、icNull配料價(jià)錢JineNumericNull配料總金額YwdmCharNull業(yè)務(wù)員編號(hào)BzCharNull備注信息plang消費(fèi)方案表列名數(shù)據(jù)類型可否為空說明Pl_noCharNot null消費(fèi)方案編號(hào)Pl_manCharNull業(yè)務(wù)員編號(hào)Pl_dateDatetimeNull制定日期DmCharNull產(chǎn)品編號(hào)McCharNull產(chǎn)品稱號(hào)JldwCharNull計(jì)量單位Pl_slNumericNull消費(fèi)數(shù)量DjNumericNull消費(fèi)價(jià)錢JineNumericNull總金額Cp_dateDatetimeNull方案開場日期St_dateDatetimeNull方案終了日期BzC

26、harNull備注信息三、數(shù)據(jù)庫構(gòu)造的實(shí)現(xiàn)利用SQL 數(shù)據(jù)庫系統(tǒng)中的查詢分析實(shí)現(xiàn)數(shù)據(jù)庫的邏輯構(gòu)造，其表格代碼如下：判別能否存在同名的數(shù)據(jù)庫，存在就刪除同名的數(shù)據(jù)庫IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = NMy_Factory)DROP DATABASE My_FactoryGO創(chuàng)建訂貨單表CREATE TABLE dbo.dh (in_date datetime NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,dh_no char () COLLAT

27、E Chinese_PRC_CI_AS NOT NULL ,gfdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,in_danj numeric(, ) NULL ,I_zk numeric(, ) NULL ,I_zke numeric(, ) NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建倉庫表CREATE TABLE dbo.

28、dm_ck (dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建供應(yīng)商信息表CREATE TABLE dbo.dm_gf (dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLLATE Chinese_PRC_CI_AS NULL ,addr char () COLLATE Chin

29、ese_PRC_CI_AS NULL ,yzbm char () COLLATE Chinese_PRC_CI_AS NULL ,tel char () COLLATE Chinese_PRC_CI_AS NULL ,itladd char () COLLATE Chinese_PRC_CI_AS NULL ,email char () COLLATE Chinese_PRC_CI_AS NULL ,sui_no char () COLLATE Chinese_PRC_CI_AS NULL ,bank_no char () COLLATE Chinese_PRC_CI_AS NULL ,ban

30、k char () COLLATE Chinese_PRC_CI_AS NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建客戶信息表CREATE TABLE dbo.dm_kh (dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLLATE Chinese_PRC_CI_AS NULL ,addr char () COLLATE Chinese_PRC_CI

31、_AS NULL ,yzbm char () COLLATE Chinese_PRC_CI_AS NULL ,tel char () COLLATE Chinese_PRC_CI_AS NULL ,itladd char () COLLATE Chinese_PRC_CI_AS NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,email char () COLLATE Chinese_PRC_CI_AS NULL ,sui_no char () COLLATE Chinese_PRC_CI_AS NULL ,bank_no char ()

32、 COLLATE Chinese_PRC_CI_AS NULL ,bank char () COLLATE Chinese_PRC_CI_AS NULL ,card_no char () COLLATE Chinese_PRC_CI_AS NULL ,mb_reb numeric(, ) NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建商品信息表CREATE TABLE dbo.dm_wz (dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLL

33、ATE Chinese_PRC_CI_AS NULL ,jldw char () COLLATE Chinese_PRC_CI_AS NULL ,lb char () COLLATE Chinese_PRC_CI_AS NULL ,rkj numeric(, ) NULL ,fxj numeric(, ) NULL ,lsj numeric(, ) NULL ,cj char () COLLATE Chinese_PRC_CI_AS NULL ,yxrq datetime NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYG

34、O創(chuàng)建商品類別表CREATE TABLE dbo.dm_wzlb (lbcode char () COLLATE Chinese_PRC_CI_AS NULL ,lb char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建業(yè)務(wù)員信息表CREATE TABLE dbo.dm_ywy (dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLLATE Chinese_PRC_CI_AS NUL

35、L ,lb char () COLLATE Chinese_PRC_CI_AS NULL ,tel char () COLLATE Chinese_PRC_CI_AS NULL ,addr char () COLLATE Chinese_PRC_CI_AS NULL ,sfz char () COLLATE Chinese_PRC_CI_AS NULL ,lbcode char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建業(yè)務(wù)員類別表CREATE TAB

36、LE dbo.dm_ywylb (lbcode char () COLLATE Chinese_PRC_CI_AS NOT NULL ,lb char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建入庫單表CREATE TABLE dbo.inh (in_date datetime NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,inh_no char () COLLATE Chinese_PRC_C

37、I_AS NOT NULL ,gfdm char () COLLATE Chinese_PRC_CI_AS NULL ,ckdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,in_danj numeric(, ) NULL ,I_zk numeric(, ) NULL ,I_zke numeric(, ) NULL ,jsfk char () COLLATE Chinese_PRC_CI_AS NULL ,jz

38、char () COLLATE Chinese_PRC_CI_AS NULL ,yf numeric(, ) NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建庫存信息表CREATE TABLE dbo.kucun (update_date datetime NULL ,kucun_no char () COLLATE Chinese_PRC_CI_AS NOT NULL ,ckdm char () COLLATE Chinese_

39、PRC_CI_AS NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,total_je numeric(, ) NULL ) ON PRIMARYGO創(chuàng)建配料單表CREATE TABLE dbo.mate (m_no char () COLLATE Chinese_PRC_CI_AS NULL ,m_date datetime NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzmc char () COLLATE Chinese_

40、PRC_CI_AS NULL ,jldw char () COLLATE Chinese_PRC_CI_AS NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzmc char () COLLATE Chinese_PRC_CI_AS NULL ,jldw char () COLLATE Chinese_PRC_CI_AS NULL ,sl numeric(, ) NULL ,in_dj numeric(, ) NULL ,jine numeric(, ) NULL ,ywdm char () COLLATE Chinese_PRC_CI_

41、AS NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建出貨單表CREATE TABLE dbo.outh (out_date datetime NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,outh_no char () COLLATE Chinese_PRC_CI_AS NOT NULL ,khdm char () COLLATE Chinese_PRC_CI_AS NULL ,ckdm char () COLLATE Chinese_PRC_CI_AS

42、NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,out_danj numeric(, ) NULL ,o_zk numeric(, ) NULL ,o_zke numeric(, ) NULL ,jsfk char () COLLATE Chinese_PRC_CI_AS NULL ,jz char () COLLATE Chinese_PRC_CI_AS NULL ,yf numeric(, ) NULL ,bz char () COLLATE Chinese_PRC_CI_AS

43、NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建消費(fèi)方案表CREATE TABLE dbo.plang (pl_no char () COLLATE Chinese_PRC_CI_AS NOT NULL ,pl_man char () COLLATE Chinese_PRC_CI_AS NULL ,pl_date datetime NULL ,dm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,mc char () COLLATE Chinese_PRC_CI_AS NUL

44、L ,jldw char () COLLATE Chinese_PRC_CI_AS NULL ,pl_sl numeric(, ) NULL ,dj numeric(, ) NULL ,jine numeric(, ) NULL ,cp_date datetime NULL ,st_date datetime NULL ,bz text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGO創(chuàng)建銷售訂貨表CREATE TABLE dbo.xsdh (out_date datetime NULL ,ywman char

45、 () COLLATE Chinese_PRC_CI_AS NULL ,xsdh_no char () COLLATE Chinese_PRC_CI_AS NOT NULL ,khdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzdm char () COLLATE Chinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,out_danj numeric(, ) NULL ,o_zk numeric(, ) NULL ,o_zke numeric(, ) NULL ,bz char () COLLATE

46、Chinese_PRC_CI_AS NULL ) ON PRIMARYGO創(chuàng)建轉(zhuǎn)倉信息表CREATE TABLE dbo.zc (zc_no char () COLLATE Chinese_PRC_CI_AS NOT NULL ,zc_date datetime NULL ,ywman char () COLLATE Chinese_PRC_CI_AS NULL ,o_ckdm char () COLLATE Chinese_PRC_CI_AS NULL ,I_ckdm char () COLLATE Chinese_PRC_CI_AS NULL ,wzdm char () COLLATE C

47、hinese_PRC_CI_AS NOT NULL ,sl numeric(, ) NOT NULL ,total_je numeric(, ) NULL ,bz char () COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO四、企業(yè)進(jìn)銷存管理系統(tǒng)模塊的創(chuàng)建一、創(chuàng)建公用模塊Module.bas由于系統(tǒng)中各個(gè)功能模塊都將頻繁運(yùn)用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需求一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgStr

48、ing As String) _ As ADODB.Recordset執(zhí)行SQL語句，并前往記錄集對(duì)象聲明一個(gè)銜接 Dim cnn As ADODB.Connection聲明一個(gè)數(shù)據(jù)集對(duì)象 Dim rst As ADODB.Recordset Dim sTokens() As String異常處置 On Error GoTo ExecuteSQL_Error用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL)翻開銜接 Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DEL

49、ETE,UPDATE,EXECUTE, _UCase$(sTokens() Then執(zhí)行查詢語句 cnn.Execute (SQL) MsgString = sTokens() & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimisticrst.MoveLast get RecordCount前往記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢到 & rst.RecordCount & _

50、條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤: & _ Err.Description Resume ExecuteSQL_ExitEnd Function在EexecuteSQL函數(shù)中運(yùn)用了Connect String函數(shù)，這個(gè)函數(shù)用來銜接數(shù)據(jù)庫。Public Function ConnectString() _ As String前往一個(gè)數(shù)據(jù)庫銜接 ConnectString = FileDSN=my_factor

51、y.dsn;UID=sa;PWD=End Function在錄入有關(guān)信息時(shí)，需求回車來進(jìn)入下一個(gè)文本框，這樣對(duì)用戶非常方便。一切的功能模塊都需求這個(gè)函數(shù)，所以也將它放在在公用模塊中。Public Sub EnterToTab(Keyasc As Integer)判別能否為回車鍵If Keyasc = Then轉(zhuǎn)換成Tab鍵 SendKeys TAB End IfEnd Sub添加全局變量，用來記錄各個(gè)功能模塊的讀寫形狀。Public gintWZSmode As Integer for WZ setupPublic gintGFSmode As Integer for GF setupPubl

52、ic gintKHSmode As Integer for KH setupPublic gintYWYLBSmode As Integer for YWYLB setupPublic gintYWYSmode As Integer for YWY setupPublic gintCKSmode As Integer for CK setupPublic gintWZLBSmode As Integer for WZLB setupPublic gintWZYSSmode As Integer for WZYS setupPublic gintDHmode As Integer for din

53、 huoPublic gintINHmode As Integer for ruku huoPublic gintXSDHmode As Integer for xiao shou ding danPublic gintOUTHmode As Integer for xiao shou ding danPublic gintZCmode As Integer for shang pin zhuan cangPublic gintGETmode As Integer for ying shouPublic gintOFFERmode As Integer for YING FUPublic gi

54、ntPLLISTmode As Integer for PEI LIAO LISTPublic gintPLmode As Integer for PEI LIAOPublic gintPLANGLISTmode As Integer for plan listPublic gintPLANGmode As Integer for plan這些全局變量用來記錄是添加形狀還是修正形狀，賦值為添加，賦值為修正。二、根本信息設(shè)置模塊的創(chuàng)建根本信息設(shè)置模塊主要實(shí)現(xiàn)如下功能：添加和修正產(chǎn)品信息添加和修正產(chǎn)品類別信息添加和修正客戶信息添加和修正供應(yīng)商信息添加和修正業(yè)務(wù)員類別信息添加和修正業(yè)務(wù)員信息添加和修

55、正倉庫信息、產(chǎn)品設(shè)置窗體的創(chuàng)建選擇“根本信息設(shè)置/產(chǎn)品設(shè)置菜單，將出現(xiàn)如下圖的窗體。這個(gè)窗體用來顯示產(chǎn)品設(shè)置信息，并且可以對(duì)各條記錄進(jìn)展操作。在載入窗體時(shí)，將自動(dòng)顯示一切記錄，代碼如下：Private Sub Form_Load() ShowTitle ShowDataEnd Sub函數(shù)ShowTitle用來顯示表頭，代碼如下：Private Sub ShowTitle() Dim i As IntegerWith msgList設(shè)置列數(shù)目 .Cols = .TextMatrix(, ) = 款號(hào) .TextMatrix(, ) = 稱號(hào) .TextMatrix(, ) = 單位 .TextM

56、atrix(, ) = 類別 .TextMatrix(, ) = 入庫價(jià)錢 .TextMatrix(, ) = 分銷價(jià)錢 .TextMatrix(, ) = 零售價(jià)錢 .TextMatrix(, ) = 消費(fèi)廠家 .TextMatrix(, ) = 設(shè)置日期 .TextMatrix(, ) = 備注信息 固定表頭 .FixedRows = 設(shè)置各列的對(duì)齊方式 For i = To .ColAlignment(i) = Next i 表頭項(xiàng)居中 .FillStyle = flexFillRepeat .Col = .Row = .RowSel = .ColSel = .Cols - .CellA

57、lignment = 設(shè)置單元大小 .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .ColWidth() = .Row = End WithEnd Sub函數(shù)ShowData把各條記錄加到表格中，并顯示出來，代碼如下：Private Sub ShowData() Dim j As Integer Dim i As Integer Dim MsgText As St

58、ring Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = Do While Not mrc.EOF .Rows = .Rows + For i = To mrc.Fields.Count If Not IsNull(Trim(mrc.Fields(i - ) Then Select Case mrc.Fields(i - ).Type Case adDBDate .TextMatrix(.Rows - , i) = Format(mrc.Fields(i - ) & , yyyy-mm-dd) Case Else .Text

59、Matrix(.Rows - , i) = mrc.Fields(i - ) & End Select End If Next i mrc.MoveNext Loop End With mrc.CloseEnd Sub在窗體時(shí)顯示時(shí)，可以控制窗體中各個(gè)控件按照要求的位置顯示?？梢栽诖绑w的Resize事件中參與代碼，代碼如下：Private Sub Form_Resize() If Me.WindowState vbMinimized And fMainForm.WindowState vbMinimized Then 邊境處置 If Me.ScaleHeight * lblTitle.Heig

60、ht Then Exit Sub End If If Me.ScaleWidth Then gintWZSmode = intCount = msgList.Row 判別能否選擇記錄 If intCount Then frmWZSetup.txtSQL = select * from dm_wz where dm = & Trim(msgList.TextMatrix(intCount, ) & frmWZSetup.Show Else MsgBox 警告, vbOKOnly + vbExclamation, 請(qǐng)首先選擇需求修正的紀(jì)錄！ End If End IfEnd Sub、產(chǎn)品設(shè)置信息刪