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

1、企業(yè)進(jìn)銷存管理信息系統(tǒng)I/ 35目錄內(nèi)容摘要2、前言1二、系統(tǒng)分析52.1問題的提出22. 2分析問題32.3系統(tǒng)設(shè)計(jì)目標(biāo)32.3.1系統(tǒng)設(shè)計(jì)的長(zhǎng)遠(yuǎn)目標(biāo)：實(shí)現(xiàn) ERP系統(tǒng)32.3. 2 系統(tǒng)設(shè)計(jì)近期4三、系統(tǒng)總體設(shè)計(jì)3.1數(shù)據(jù)流圖43. 2部分?jǐn)?shù)據(jù)字典93. 3 E-R圖93. 4功能模塊113.4. 1 程序?qū)哟?13.4.2 模塊功能說明11企業(yè)進(jìn)銷存管理信息系統(tǒng)II/ 353.4.3 系統(tǒng)數(shù)據(jù)表21企業(yè)進(jìn)銷存管理信息系統(tǒng)3/ 35四、系統(tǒng)詳細(xì)設(shè)計(jì)13五、 編碼實(shí)現(xiàn)與測(cè)試不5.1編碼摘要175. 2程序界面27六、 總結(jié)與展望6. *1總結(jié)316. 2心得體會(huì)32致 謝32鑒考文獻(xiàn)33企業(yè)

2、進(jìn)銷存管理信息系統(tǒng)內(nèi)容摘要企業(yè)的物資供應(yīng)管理復(fù)雜，繁瑣的，物資種類眾多，訂貨，管理，發(fā)放的渠 道各有差異，因此物資管理必須實(shí)現(xiàn)訃算機(jī)化，而且必須根據(jù)企業(yè)的具體情況制 定便提高工作效率。利用 ERP 的部分功能，使用 Microsoft Visual Basic 6. 0 及 Microsoft OfficeAccess2003作為開發(fā)工具，利用面向?qū)ο蟮慕Y(jié)構(gòu)和自上而下的程序設(shè)計(jì)方法， 聯(lián)系實(shí)際情況設(shè)計(jì)實(shí)現(xiàn)了一個(gè)以控制物流為主的管理軟件，基本實(shí)現(xiàn)了倉(cāng)庫(kù)的日 常管理和進(jìn)貨出貨的查詢。充分提高數(shù)據(jù)的準(zhǔn)確性和指導(dǎo)性，提高生產(chǎn)效率和企 業(yè)效益。關(guān)鍵字：企業(yè)資源計(jì)劃存貨數(shù)據(jù)庫(kù)面向?qū)ο笃髽I(yè)進(jìn)銷存管理信息系統(tǒng)

3、2.1.1問題的提出進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)和制作一、前言本次畢業(yè)設(shè)訃的題目是進(jìn)銷存管理系統(tǒng)，要求利用Visual Basic完成管理平臺(tái)設(shè)計(jì)，構(gòu) 造所用的類庫(kù)。根據(jù)當(dāng)前的企業(yè)一般物資供應(yīng)管理系統(tǒng)，相應(yīng)分成幾個(gè)科室進(jìn)行物資的計(jì)劃，訂貨，核 對(duì)入庫(kù)，根據(jù)各個(gè)部門的需要來發(fā)送物資設(shè)備，井隨時(shí)近期進(jìn)行庫(kù)存盤點(diǎn)、作臺(tái)帳，按月、 季、年進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表，以進(jìn)行有效的生產(chǎn)管理。從根本上說，企業(yè)就是一個(gè)利用資源（人、財(cái)、物、時(shí)間），為客戶創(chuàng)造價(jià)值的組織，ERP就是對(duì)這些資源進(jìn)行汁劃、調(diào)度、控制、衡量、改進(jìn)的管理技術(shù)和信息系統(tǒng)。現(xiàn)今的企業(yè)并 不只是人力資源、資金和產(chǎn)品的組合，它還應(yīng)該包括供應(yīng)、銷售、市場(chǎng)

4、營(yíng)銷、客戶服務(wù)、需 求預(yù)測(cè)，以及其他更多的東西。針對(duì)目前公司存在的問題，本文設(shè)計(jì)一個(gè)以物料流處理為主，具有一泄智能特性和網(wǎng)絡(luò) 特性的管理系統(tǒng)。該系統(tǒng)不僅能智能的控制企業(yè)的物流情況，而且還具有操作方便、便于糾 錯(cuò)的特點(diǎn)。概括起來系統(tǒng)的優(yōu)點(diǎn)如下：（1）用戶基本資料一次性建立，便于規(guī)范控制。（2）物料控制半自動(dòng)化，加強(qiáng)了各個(gè)部門之間的聯(lián)系。（3）提髙庫(kù)存管理的服務(wù)水平，最大限度地降低庫(kù)存量，包括中間庫(kù)存和在制品的庫(kù)存, 以減少在庫(kù)存上的資金積壓。（4）最大限度的保證訂貨任務(wù)的按期完成。（5）提高計(jì)劃的可能性，實(shí)現(xiàn)均衡生產(chǎn)。（6）集成管理職能，提高管理效率。本文主要闡述了進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)目標(biāo)，系統(tǒng)

5、要求、總體設(shè)計(jì)、詳細(xì)設(shè)訃、測(cè)試等。二、系統(tǒng)分析企業(yè)進(jìn)銷存管理信息系統(tǒng)3.1.1問題的提出2 / 35企業(yè)進(jìn)銷存管理信息系統(tǒng)本公司目前存在的問題是：信息化不足，計(jì)算機(jī)使用率低，大量的日常工作皆是手工處 理，因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問題很難克服，倉(cāng)庫(kù)不能及時(shí)為采購(gòu)和生產(chǎn) 提供準(zhǔn)確的指導(dǎo)性數(shù)據(jù)。公司希望解決的問題是：解決企業(yè)內(nèi)部統(tǒng)一的物料編碼管理，物流管理中的信息流通， 庫(kù)存積壓與物料的配套問題，完善質(zhì)量檢驗(yàn)，對(duì)生產(chǎn)過程中的質(zhì)量信息進(jìn)行全而管理。包括 原材料、外購(gòu)?fù)鈪f(xié)件、半成品、成品各道工序的質(zhì)量控制，并對(duì)各種數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析。對(duì) 公司的各種資源與信息進(jìn)行查詢，包括銷售、采購(gòu)、生產(chǎn)、質(zhì)

6、量、人事、財(cái)務(wù)等信息數(shù)據(jù)進(jìn) 行査詢、統(tǒng)計(jì)與分析，對(duì)根據(jù)信息作出快速合理的經(jīng)營(yíng)決策。2.22.2分析問題本公司的主要流程是：接到一張銷售訂單，由銷售部門轉(zhuǎn)化為內(nèi)部訂單，轉(zhuǎn)給生產(chǎn)部門， 生產(chǎn)部門根據(jù)訂單上的產(chǎn)品、數(shù)疑，技術(shù)部已經(jīng)配好的物料淸單，及各車間半成品儲(chǔ)存量， 匯總材料需求，然后根據(jù)庫(kù)存情況決泄請(qǐng)購(gòu)及預(yù)約情況，采購(gòu)部門根據(jù)請(qǐng)購(gòu)單下采購(gòu)單，然 后材料入庫(kù)，這一切都是本管理系統(tǒng)所力求實(shí)現(xiàn)的功能。2.32.3系統(tǒng)設(shè)計(jì)目標(biāo)2.2. 3.13.1系統(tǒng)設(shè)計(jì)的長(zhǎng)遠(yuǎn)目標(biāo)：實(shí)現(xiàn)ERPERP系統(tǒng)1.系統(tǒng)運(yùn)行集成化：這是ERP應(yīng)用成功在技術(shù)解決方案方面最基本的表現(xiàn)。只有集成一體化運(yùn)行起來，才有 可能達(dá)到：降低庫(kù)存

7、，提髙資金利用率和控制經(jīng)營(yíng)風(fēng)險(xiǎn)：控制產(chǎn)品生產(chǎn)成本，縮短產(chǎn)品生產(chǎn) 周期：提高產(chǎn)品質(zhì)量和合格率；減少財(cái)務(wù)壞帳、呆帳金額等。2.業(yè)務(wù)流程合理化：這是ERP應(yīng)用成功在改善管理效率方而的體現(xiàn)。ERP應(yīng)用成功的前提是必須對(duì)企業(yè)實(shí)施 業(yè)務(wù)流程重組，因此，ERP應(yīng)用成功也即意味著企業(yè)業(yè)務(wù)處理流程趨于合理化，并實(shí)現(xiàn)了ERP應(yīng)用的以下幾個(gè)最終目標(biāo)：企業(yè)競(jìng)爭(zhēng)力得到大幅度提升；企業(yè)而對(duì)市場(chǎng)的響應(yīng)速度大大加快; 客戶滿意度顯著改善。3.績(jī)效監(jiān)控動(dòng)態(tài)化：ERP的應(yīng)用，將為企業(yè)提供豐富的管理信息。如何用好這些信息并在企業(yè)管理和決策過 程中真正起到作用，是衡呈ERP應(yīng)用成功的另一個(gè)標(biāo)志。在ERP系統(tǒng)完全投入實(shí)際運(yùn)行后，企業(yè)進(jìn)

8、銷存管理信息系統(tǒng)3 / 35企業(yè)進(jìn)銷存管理信息系統(tǒng)4/ 35企業(yè)應(yīng)根據(jù)管理需要，利用ERP系統(tǒng)提供的信息資源設(shè)計(jì)出一套動(dòng)態(tài)監(jiān)控管理績(jī)效變化的報(bào) 表體系，以期即時(shí)反饋和糾正管理中存在的問題。2.2. 3.3. 2 2系統(tǒng)設(shè)計(jì)近期（1）建立基本資料信息庫(kù)，規(guī)范所有資料信息。（2）物料控制半自動(dòng)化，加強(qiáng)了各個(gè)部門之間的聯(lián)系。（3）高庫(kù)存管理的服務(wù)水平，最大限度地降低庫(kù)存疑，以減少在庫(kù)存上的資金積壓。（4）最大限度的保證訂貨任務(wù)的按期完成。（5）提高計(jì)劃的可能性，實(shí)現(xiàn)均衡生產(chǎn)：（6）集成管理職能，提高管理效率。三、系統(tǒng)總體設(shè)計(jì)3.13.1數(shù)據(jù)流圖頂層數(shù)據(jù)流圖如圖3.1所示：企業(yè)進(jìn)銷存管理信息系統(tǒng)5/

9、35圖3 1進(jìn)銷存管理系統(tǒng)頂層數(shù)拯流圖企業(yè)進(jìn)銷存管理信息系統(tǒng)6/ 350層數(shù)據(jù)流圖如圖3 2所示：企業(yè)進(jìn)銷存管理信息系統(tǒng)1層數(shù)據(jù)流圖如圖3 3所示:生產(chǎn)系統(tǒng)圖3 2進(jìn)銷存管理系統(tǒng)0層數(shù)拯流圖出啜裝箱單報(bào)關(guān)垓洱單銷售訂1全檢報(bào)合采他訂里樣品生產(chǎn)通知單成品半威品入庫(kù)原材料半成品領(lǐng)料羔品辭單茂品&點(diǎn)鋤丘儷主廠砂加E 2計(jì)竝柄儷:U淖4圖3.3進(jìn)銷存管理系統(tǒng)1層數(shù)據(jù)流圖（續(xù)）企業(yè)進(jìn)銷存管理信息系統(tǒng)9/ 353.23.2部分?jǐn)?shù)據(jù)字典數(shù)據(jù)流圖描述了系統(tǒng)的分解，但沒有對(duì)圖中各成分進(jìn)行說明，數(shù)據(jù)字典就是為了數(shù)據(jù)流 圖的每個(gè)數(shù)據(jù)流、文件、加工，以及組成數(shù)據(jù)流或文件的數(shù)據(jù)項(xiàng)作岀說明數(shù)據(jù)流條目：出庫(kù)單二出庫(kù)

10、單號(hào)+日期+客戶紅稱+物資類別+制單人員+記帳人員+發(fā)貨人+狀態(tài)+銷 售訂單號(hào)+品劃+單位+數(shù)量+規(guī)格+備注+單價(jià)各類財(cái)務(wù)統(tǒng)計(jì)報(bào)表二倉(cāng)庫(kù)材料消耗匯總（成本項(xiàng)目）+倉(cāng)庫(kù)材料消耗匯總（按車間） +材料收發(fā)存明細(xì)A +材料收發(fā)存明細(xì)B+材料收發(fā)存明細(xì)C+材料收發(fā)存分類匯總表+ 木材消耗匯總表。文件條目：文件名稱：原材料庫(kù)存文件。簡(jiǎn)述：保存原材料的基本資料。組成：材料編號(hào)+品需型號(hào)+規(guī)格尺寸+單位+采購(gòu)計(jì)疑單位+參數(shù)+數(shù)量+最低數(shù)量+最髙數(shù)量+ 單價(jià)+備注+大大分類+大分類+分類+小分類。文件名稱：銷售文件。簡(jiǎn)述：保存所有銷售訂單的文件。組成內(nèi)部立單號(hào)+訂貨日期+客戸編號(hào)+總金額+預(yù)收率一一NEWCA

11、STLE號(hào)+P0單號(hào)包裝辦法+品 質(zhì)要求+內(nèi)裝箱+外裝箱+MADE IN CHINA+特別指示+箱正側(cè)內(nèi)+狀態(tài)+型號(hào)+色號(hào)+木材尺寸+光 澤度+內(nèi)絨+表而處理+數(shù)量+出貨日期+單價(jià)。數(shù)據(jù)項(xiàng)條目：名稱：材料編號(hào)簡(jiǎn)述：材料編號(hào)分四個(gè)字段（大大分類+大分類+分類+小分類），可以將材料分門別。 類，因?yàn)樵S多地方用到編號(hào)，因此將四項(xiàng)和為一項(xiàng)保存一個(gè)冗余字段。為了便于查找。3.33.3 &R&R圖程序總體E-R圖如圖3. 4所示：企業(yè)進(jìn)銷存管理信息系統(tǒng)10/ 35圖3.4程序總體E-R圖企業(yè)進(jìn)銷存管理信息系統(tǒng)11/35圖3 7程序?qū)哟螆D3.4.3.4. 2 2模塊功能說明篇幅所限，僅挑選部

12、分功能說明。材料管理模塊如圖3. 6所示:3.43.4功能模塊3.4.3.4.1 1程序?qū)哟纬绦驅(qū)哟稳鐖D3 7所示:管理系統(tǒng)界而r打印統(tǒng)計(jì)幫助等材料圖3.6材料管理模塊査詢系統(tǒng)設(shè)置登陸界面基木管理企業(yè)進(jìn)銷存管理信息系統(tǒng)12/ 35不登陸驗(yàn)證功能：主要功能為身份驗(yàn)證，防止非法用戶進(jìn)入系統(tǒng)。實(shí)現(xiàn)方法如圖3 8所 示：圖3.8登陸驗(yàn)證實(shí)現(xiàn)方法3.3. 4.4. 3 3系統(tǒng)數(shù)據(jù)表倉(cāng)庫(kù)物資信息表（材料表），如表3 1所示:表3. 1倉(cāng)庫(kù)物資信息表編號(hào)字段名稱數(shù)據(jù)類型說明1自動(dòng)編號(hào)Long數(shù)值Primary key主鍵2規(guī)格Text文本必填，字段不允許空串3型號(hào)Text文本必填，字段不允許空串4數(shù)量Lon

13、g數(shù)值必填字段5價(jià)格Long數(shù)值必填字段6名稱Text文本必填字段企業(yè)進(jìn)銷存管理信息系統(tǒng)13/ 35進(jìn)貨人員信息表，如表3 2所示:表3.2進(jìn)貨人員信息表編號(hào)字段名稱數(shù)據(jù)類型說明1自動(dòng)編號(hào)Long數(shù)值Primary key主鍵2姓名Text文本必填，字段不允許空串3聯(lián)系方式Text文本必填，字段不允許空串入庫(kù).岀庫(kù)單信息表，如表3 3所示:表3.3入庫(kù)、出庫(kù)單信息表編號(hào)字段名稱數(shù)據(jù)類型說明1自動(dòng)編號(hào)Long數(shù)值Primary key主鍵2姓名Text文本必填，字段不允許空串3聯(lián)系方式Text文本必填，字段不允許空串4貨物需稱Text文本必填，字段不允許空串5貨物數(shù)量Long數(shù)值必填，字段不允許

14、空串6貨物規(guī)格Text文本必填，字段不允許空串7貨物型號(hào)Text文本必填，字段不允許空串8價(jià)格Long數(shù)值必填，字段不允許空串9日期Text文本必填，字段不允許空串四、系統(tǒng)詳細(xì)設(shè)計(jì)根據(jù)內(nèi)部訂單預(yù)定材料的流程圖如圖4. 1所示:說明：KDYsl：可調(diào)用數(shù)量XQsl：需求數(shù)量KCsl：庫(kù)存數(shù)量企業(yè)進(jìn)銷存管理信息系統(tǒng)14/ 35可調(diào)用數(shù)量二庫(kù)存數(shù)疑一最低庫(kù)存量一已預(yù)約數(shù)量設(shè)計(jì)時(shí) 需求數(shù)量與庫(kù)存數(shù)量、可調(diào)用數(shù)量分別比較可得岀4種情況 需求數(shù)量可調(diào)用數(shù)量and需求數(shù)量 庫(kù)存數(shù)量（因?yàn)閹?kù)存數(shù)量二可調(diào)用數(shù)量所以可寫成XQsDKDYsl）需求數(shù)量二可調(diào)用數(shù)量and需求數(shù)量 二庫(kù)存數(shù)量（因?yàn)閹?kù)存數(shù)量二可調(diào)用數(shù)量

15、所以可寫成KDYsl =XQsl=KCsl）需求數(shù)量庫(kù)存數(shù)量（因?yàn)閹?kù)存數(shù)量*可調(diào)用數(shù)量所以不存在這種情況）需求數(shù)量可調(diào)用數(shù)量and需求數(shù)量 庫(kù)存數(shù)量（因?yàn)閹?kù)存數(shù)量二可調(diào)用數(shù)量所以可寫成XQsl KDYsl）綜上所述：比較情況分為三支XQsDKDYsl和KDYsl =XQsl=KCs和XQsl KDYsl算法的設(shè)計(jì)企業(yè)的流轉(zhuǎn)包括實(shí)物流轉(zhuǎn)和成本流轉(zhuǎn)，在理論上，兩者應(yīng)一致。但在實(shí)際工作中，企業(yè) 的存貨進(jìn)出量很大，存貨的品種繁多，存貨的成本多變，難以保證各種存貨的成本流轉(zhuǎn)與實(shí) 物流轉(zhuǎn)相一致。由于同一種存貨，盡管價(jià)格不同，但均能滿足銷售或生產(chǎn)需要，在存貨減少 時(shí)，毋需辨別是哪一批實(shí)物彼發(fā)岀，哪一批庫(kù)存，

16、成本的流轉(zhuǎn)順序和實(shí)物的流轉(zhuǎn)順序可以分 離，只要知道發(fā)出成本和庫(kù)存成本即可。這樣就出現(xiàn)了存貨成本的流轉(zhuǎn)假設(shè)。采用某種存貨成本流轉(zhuǎn)的假設(shè)，在期末存貨與發(fā)岀存貨之間分配成本，便產(chǎn)生了不同 的存貨成本分配方。企業(yè)進(jìn)銷存管理信息系統(tǒng)15/ 35圖4.1內(nèi)部訂單預(yù)泄材料流程圖EHD j材料收發(fā)存分類匯總的程序流程圖如圖4. 2所示:企業(yè)進(jìn)銷存管理信息系統(tǒng)16/ 35存貨計(jì)價(jià)的方法不同，對(duì)企業(yè)財(cái)務(wù)狀況、盈虧情況會(huì)產(chǎn)生不同的影響，主要 表現(xiàn)在 以下幾個(gè)方而：存貨計(jì)價(jià)對(duì)企業(yè)損益的計(jì)算有直接影響。(2)存貨計(jì)價(jià)對(duì)于資產(chǎn)負(fù)債表有關(guān)項(xiàng)目數(shù)額計(jì)算有直接影響。(3)存貨計(jì)價(jià)方法的選擇對(duì)計(jì)算繳納所得稅的數(shù)額有一左的彫響。因

17、本公司以前是手工計(jì)算，為了減少計(jì)算量，使用的全月一次加權(quán)平均法，報(bào)稅務(wù)局的 也是全月一次加權(quán)平均法，為了過度時(shí)期的使用，本系統(tǒng)不僅設(shè)計(jì)了更合理的移動(dòng)加權(quán)平均 法，同時(shí)設(shè)計(jì)了全月一次加權(quán)平均法。圖4 2材料收發(fā)存分類匯總的程序流程圖企業(yè)進(jìn)銷存管理信息系統(tǒng)17/ 35加權(quán)平均法（稱全月一次加權(quán)平均法），指以本月全部收貨數(shù)疑加月初存貨數(shù)量作為權(quán)數(shù)， 去除本月全部收貨成本加上月初存貨成本，計(jì)算岀存貨的加權(quán)平均單位成本，從而確左存貨 的發(fā)岀和庫(kù)存成本。計(jì)算公式如下：存耗勞產(chǎn)丙未_月初結(jié)存金額十另本月各批收貨的實(shí)際單位成本 X本月各批收貨的數(shù)量 仔貝卑位威不=月初結(jié)存數(shù)量+本月各批收貸數(shù)量之和本月發(fā)岀存貨

18、成本=本月發(fā)出存貨數(shù)量 X存貨單位成本月末庫(kù)存存貸成本=月末庫(kù)存存貨數(shù)量 X存貨單位成本移動(dòng)平均法移動(dòng)平均法亦稱移動(dòng)加權(quán)平均法，指本次收貨的成本加原有庫(kù)存的成本，除以本次收貨數(shù) 量加原有收貨數(shù)量，據(jù)以計(jì)算加權(quán)單價(jià)，并對(duì)發(fā)出存貨進(jìn)行計(jì)價(jià)的一種方法。移動(dòng)加權(quán)平均法的優(yōu)點(diǎn)：能使管理當(dāng)局及時(shí)了解存貨的結(jié)存情況，而且計(jì)算的平均單位成 本以及發(fā)出和結(jié)存的存貨成本比較客觀。缺點(diǎn)：每次收貨都要計(jì)算一次平均單價(jià)，il算工作 量較大。五、編碼實(shí)現(xiàn)與測(cè)試5.5.1 1編碼摘要材料收發(fā)存分類匯總的部分代碼：sql語句:SELECT K_U11_D1. CLBH AS CLBH, K_1111_M. KDRQ AS K

19、DRQ,CBXM ASCBXM, K_1111_M. DHDH, K_1111_D. SLSL AS SLSL, k_LLLL_D. JEJE AS JEJEFROM K_1111_M INNER JOIN K_1111_D ON K_1U1_M. DHDH = K_1111_D. DHDHWHEREstatus二1;SELECT K_clrk_D. CLBH AS CLBH, K_clrk_M. KDRQ AS KDRQ, K_clrk_M. DHDH ASDHDH, K_clrk_D. SLSL AS SLSL, SLSL*K_clrk_D. DJDJ AS JEJEFROM K_clrk

20、_M INNER JOIN K_clrk_D ON K_clrk_M. DHDH二K_clrk_D. DHDHWHERE K_clrk_m. STATUS二1;企業(yè)進(jìn)銷存管理信息系統(tǒng)SELECT A.CLBH, Sum (A. SLSL) AS ZSL, Sum (A. JEJE) AS ZJE, year(EKDRQl) &Month(KDRQ) & 1 AS MONFROM SFC.rk AS AGROUP BY A.CLBH, year(KDRQ) & Month(KDRQ) & T;SELECTA. CLBH,Sum(IIf (ISNULL(A. SLS

21、L),0, A. SLSL)ASZSL,Sum (Ilf (ISNULL (A. JEJE), 0, A. JEJE) AS ZJE, year (KDRQ) & Month (KDRQ) & VAS MONFROM SFC.ck AS AGROUP BY A.CLBH, year(KDRQ) & Month(KDRQ) & T;SELECT A. BHBH AS BHBH, A YFYF AS YFYF, Ilf (ISNULL (A. QCSL), 0, A. QCSL) AS QCSL, Ilf (ISNULL(B. ZSL),0, B. ZSL) AS

22、SRSL, QCSL1+SRSL AS MISL, Ilf (ISNULL(A. QCJE), 0, A. QCJE) AS QCJE, Ilf (ISNULL(B. ZJE),O,B. ZJE) AS SRJE, QCJE1+SRJE AS MIJEFROM T_SFC_QC AS A LEFT JOIN SFC_RK_GP AS B ON (A. YFYF=CDATE (B. MON) AND (A. BHBH二B CLBH)ORDER BY bhbh;SELECT A. BHBH, A YFYF, A. QCSL, A. SRSL, A. MISL-IIF (ISNULL (B. ZSL

23、), 0, B. ZSL) AS QMSL, A. QCJE,A. SRJE,A. MIJE-IIF(ISNULL(B. ZJE), 0, B. ZJE)AS QMJE,IIF(ISNULL(B. ZSL), 0, B. ZSL) AS FCSL, IIF(ISNULL(B. ZJE),O,B. ZJE) AS FCJEFROM SFC.AAA AS A LEFT JOIN SFC_CK_GP AS B ON (A YFYF二CDATE (B MON) AND (A. BHBH二B CLBH)ORDER BY bhbh;SELECT A. BHBH, B. PMPM AS PMPM, B. G

24、GGG AS GGGG, A. YFYF, A. QCSL, A. SRSL, A. FCSL, A. QMSL,A. QCJE, A. SRJE, A. FCJE, A. QMJE, B. FLAA, B FLBB, B. FLCCFROM SFC_BBB AS A LEFT JOIN J.clcl AS B ON A. BHBH二B BHBH18 / 35企業(yè)進(jìn)銷存管理信息系統(tǒng)19/ 35ORDER BY A. BHBH;SELECT SFC_CCC *, Ilf (ISNULL(O_Dzfy ZWZW),空，0_Dzfy ZWZW) AS ZWBBFROM SFC_CCC LEFT JO

25、IN O.Dzfy ON O_Dzfy FHFH二SFC_CCC FLBB;SELECT SFC_ZW_B *, Ilf(isnull(O.Dzfy. ZWZW),空，O_Dzfy ZWZW) AS ZWCCFROM SFC_ZW_B LEFT JOIN O.Dzfy ON SFC_ZW_B FLCC二O_Dzfy FHFH;SELECT A. FLBB AS FLBB, A. ZWBB AS ZWBB, A. ZWCC AS ZWCC, A. YFYF AS YFYF, Sum (A. QCSL) AS QCZSL, Sum (A.SRSL) AS SRZSL, Sum (A. FCSL)

26、AS FCZSL, Sum (A. QMSL) AS QMZSL, Sum (A. QCJE) AS QCZJE, Sum (A. SRJE) ASSRZJE, Sum (A. FCJE) AS FCZJE, Sum (A. QMJE) AS QMZJEFROM SFC_ZW_C AS AGROUP BY A. FLBB, A. ZWBB, A. YFYF, A. ZWCC;全月一次加權(quán)平均計(jì)算單價(jià)的部分代碼：sql語句:SELECT A. CLBH, SUM(A.SLSL) AS RKSL, SUM (A. JEJE) AS RKJEFROM AVER_HTH_RK1 AS AWHERE N

27、OT (ISNULL(A. YFYF)GROUP BY CLBH;SELECT A. CLBH, SLSL, EJEJE, YFYFFROM AVER_MTH_RK AS A LEFT JOIN T_SFC_QC AS B ON (A. CLBH二B BHBH) AND (A. KDRQ二B YFYF);SELECT A. DHDH, A. KDRQ, B. CLBH, B. SLSL, B. SLSL*B DJDJ AS JEJEFROM K.clrk.M AS A INNER JOIN K_clrk_D AS B ON A. DHDH=B. DHDHWHERE STATUS=1;企業(yè)進(jìn)銷存

28、管理信息系統(tǒng)SELECTA. CLBH,B. YFYF,Ilf (A. RKSL=O, Ilf (ISNULL (QCSL), 0, QCJE/QCSL)t(B. QCJE+A. RKJE)/(B. QCSL+A. RKSL) AS DJDJFROM AVER_MTH_RK2 AS A LEFT JOIN T_SFC_QC AS B ON A. CLBH=B. BHBH:功能函數(shù)Public Sub Do_Aver_DJ0Dim da_Rec As ADODB. RecordsetDim da_SQL As StringSet da_Rec = AppCN Execute(select * f

29、rom AVER_DJ)AppCN BeginTransDo While Not da_Rec. EOFda.SQL二update J_clcl set DJDJ二”& da_Rec. FieldsCDJDJ) & ” where BHBH二&da.Rec. Fields CCLBH) &AppCN. Execute (da_SQL)djSQL二update K_LLLL_D set JEJE二”& daRec. Fields (DJDJ) & * k_LLLL_D SLSL where K_LLLL_D CLBH二& _da.Rec.

30、FieldsCCLBH) & and K_LLLL_D DHDH IN (SELECT DHDH FROM AVER_mth_LL2)”AppCN. Execute (da_SQL)da_Rec MoveNextLoopAppCN CommitTransEnd Sub收發(fā)存明細(xì),追蹤某中材料某月的進(jìn)出庫(kù)情況，并顯示出是那一帳單據(jù)進(jìn)行操作，如果是 領(lǐng)料則在摘要中寫明成本項(xiàng)目。計(jì)算出每次操作之后的結(jié)存數(shù)屋及金額。20/ 35Private Sub CmdMe_Click(Index As Integer)企業(yè)進(jìn)銷存管理信息系統(tǒng)If Index = 0 ThenCall PrintLstv(

31、Me.LstView, LoadResString(804),材料& m_CLBH & 收發(fā)存明細(xì)A, 1, 1)ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(SICol As String, JeCol As String)Dim arrSICol0 As StringDim arrJeCol0 As StringDim k As IntegerDim total As DoubleCall ON_GetArray(SICol, arrSICol)Call ON_GetArray(JeCol, arrJeCol)LstVi

32、ew Listitems .Add ,LstView. Listitems(LstView Listitems Count) SubIterns(1)=，吐il For k = 0 To UBound(arrSICol)total = 0For J = 1 To LstView.Listltems.Counttotal = total + Vai(LstView Listltems(J) SubItems(Vai(arrSICol(k)NextLstView. Listitems(LstView Listitems Count) SubIterns(Vai(arrSICol(k) = tota

33、lNextFor k = 0 To UBound(arrJeCol)total = 0For J = 1 To LstView Listitems Counttotal = total + Vai(LstView. Listitems(J) SubItems(Vai(arrJeCol(k)21 / 35企業(yè)進(jìn)銷存管理信息系統(tǒng)NextLstView. Listitems(LstView Listitems Count) SubIterns(Vai(arrJeCol(k)=Format(total,00)NextEnd SubPrivate Sub Form_Load()Dim fl_Num As

34、 SingleDim fl_Cash As DoubleMe. Icon = LoadResPicture (101, vbResIcon)Me. Move (Screen. Width - Me. Width) / 2, (Screen. Height - Me. Height) / 4Me. Caption =査看& m.CLBH & *的明細(xì)情況Call DoStyleIf GetlnitData(fl_Num, fl_Cash) = True ThenCall DoShow(fl_Num, fl_Cash) Call DoRemain(fl_Num, fl_Cash)E

35、nd IfEnd SubPrivate Sub DoShow(m_drNum As Single, m_drCash As Double)Dim dsRec As ADODB. RecordsetDim dsSQL As StringDim I As IntegerDim itmXDim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashdsSQL二select * from SFC.MXA3 where CLB

36、H二&m.CLBH &企業(yè)進(jìn)銷存管理信息系統(tǒng)Set dsRec = AppCN. Execute (dsSQL & ” AND Month (KDRQ)= & mjlonth & AND Year(KDRQ)二22/ 35& m_Year)If dsRec. EOF ThenMsgBox無效的材料編號(hào)！Exit SubEnd IfI二1Set itmX = LstView. Listitems Add(, , A & I)itmX. SubItems (1) = dsRec. Fields(KDRQ). ValueitmX. SubIte

37、ms (3)=期初數(shù)量itmX SubItems(10) = rd_theSLitmX. Sub I terns (11) = Format (m_drCash, #0 00)Do Wh訂已Not dsRec. EOF1 = 1 + 1Set itmX = LstView Listitems Add(, , A & I)rd.RKJE = IIf(dsRec. FieldsCRKJE3. Value = , 0, dsRec. FieldsCRKJE). Value)rd_CKJE二Ilf(dsRec. FieldsCCKJE). Value =0, dsRec. FieldsCCKJ

38、E). Value)rd_theSL = rd_theSL -卜Vai(dsRec. FieldsCRKSL) - Vai(dsRec. Fields(CKSL)m_drCash = mdrCash -卜rd.RKJE - rd.CKJEitmX. SubItems(1) = dsRec. Fields(KDRQ). Value itmX. SubItems(2) = dsRec.Fields CDHDH). Value itmX.SubItems(3) = dsRec. Fields CCBXM). Value itmX. SubItems(4) = dsRec. Fields CRKSL)

39、. ValueitmXSubItems(5)IIf(dsRec. Fields CRKDJ3. Value二,Format (dsRec. Fields CRKDJ) Value, “00)itmXSubIterns(6)IIf(dsRec. Fields CRKJE). Value=,Format (dsRec. Fields CRKJE) Value, “#0. 00)itmX. SubItems(7) = dsRec. Fields(CKSL). ValueitmX SubIterns(8)=IIf(dsRec. Fields CCKDD. Value二“、:23 / 35企業(yè)進(jìn)銷存管理

40、信息系統(tǒng)24/ 35End SubPrivate Sub Form_Resize0On Error Resume NextLstView. Move 0, 100 + 500 + 50, Me. ScaleWidth, Me. ScaleHeight - Me.StatusBarl. Height一650Format(dsRec. Fields(CKDJ)Value,#,#0 00)itmX. SubItems(9)= IIf(dsRec. FieldsCCKJE). ValueFormat(dsRec. Fields(CKJE) Value, “#0 00)itmX SubItems(10)

41、 = rd_theSLitmX. SubItems(11) = Format(m_drCash, ,#0 00)dsRec MoveNextLoopEnd SubPrivate Sub DoStyle 0Dim intWid As IntegerintWid = 1200LstView. ColumnHeaders AddLstView. ColumnHeaders Add,日期，1000, lvwColumnRightLstView ColumnHeaders Add,憑證編號(hào)，intWid, lvwColumnRightLstView ColumnHeaders Add,摘要，intWid

42、, lvwColumnRightLstView. ColumnHeaders Add收入數(shù)量,intWid,lvwColumnRightLstView. ColumnHeaders AddintWid,lvwColumnRightLstView.ColumnHeaders AddintWid,lvwColumnRightLstView. ColumnHeaders AddintWid,lvwColumnRightLstView. ColumnHeaders AddintWid,lvwColumnRightLstView ColumnHeaders AddintWid,lvwColumnRigh

43、tLstView. ColumnHeaders AddintWid,lvwColumnRightLstView. ColumnHeaders AddintWid,lvwColumnRight企業(yè)進(jìn)銷存管理信息系統(tǒng)25/ 35End SubPrivate Function GetlnitData(m_giNum As Single, m_giCash As Double) AsDim drRec_l As ADODB. RecordsetDim drRec_2 As ADODB. RecordsetDim drSQL As StringGetlnitData = Truem_giNum = -2

44、002. 1994m_giCash = -2002. 1994drSQL二select * from T.SFC Where BHBH二 &m_CLBH & drSQL二drSQL & AND Month (YFYF)二 &m.Month & ” AND Ywr(YFYF)二&m Set drRec_l = AppCN Execute(drSQL)If drRec_l EOF ThendrSQL二select * from T_SFC_QC Where BHBH二&m.CLBH &廠”drSQL = drSQL & AND

45、 Month(YFYF)= & m.Month & AND Year(YFYF)=Set drRec_2 = AppCN. Execute(drSQL)If drRec_2. EOF ThenMsgBox沒有盤點(diǎn)，沒有期初期末數(shù)據(jù)！ ”GetlnitData = FalseElsem.giNum = drRec_2. Fields CQCSL). Valuem_giCash = drRec_2. Fields CQCJE). ValueEnd IfdrRec_2.Close： Set drRec_2 = NothingElsemgiNum = drRec_1 Fields(QC

46、SL) Value企業(yè)進(jìn)銷存管理信息系統(tǒng)26/ 35m_giCash = drRec.l. FieldsCQCJE). ValueEnd IfdrRec_1 Close: Set drRec_l = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m.CLBH = ”m_Month = 0m_Year = 0End SubPrivate Sub DoRemain(m_drNum As Single, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As Doub

47、leDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To Me. LstView Listitems .Countrd_theSL = rd_theSL +Vai (LstView. Listitems(I) SubIterns(4)Vai(LstView. Listitems(I) SubItems(7)LstView Listitems(I) SubItems(10) = rd_theSLIf rd.theSL 0 Thenrd.CKJE二Vai(Format(Ls

48、tView. Listitems(I). SubItems(9)t#0 00)rd.theJE二rd.theJE + rd_RKJE - rd.CKJEElserd_theJE = 0End IfLstView. Listitems (I). SubItems (11) = Format (rd_the JE, #,#0.00)NextBooleanYear& m_Yar企業(yè)進(jìn)銷存管理信息系統(tǒng)27/ 35End Sub企業(yè)進(jìn)銷存管理信息系統(tǒng)5.25.2程序界面1.系統(tǒng)總管理界而如圖5.1所示:圖5 1系統(tǒng)總管理界而2.系統(tǒng)入庫(kù)操作界面如圖5 2所示:圖5.2系統(tǒng)入庫(kù)操作界27 / 35企業(yè)進(jìn)銷存管理信息系統(tǒng)28/ 353.系統(tǒng)岀庫(kù)操作界而如圖5 3所示:圖5.3系統(tǒng)出庫(kù)操作界而4.人員查詢界而如圖5