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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

18、成本=本月發(fā)出存貨數(shù)量 X存貨單位成本月末庫存存貸成本=月末庫存存貨數(shù)量 X存貨單位成本移動平均法移動平均法亦稱移動加權平均法，指本次收貨的成本加原有庫存的成本，除以本次收貨數(shù) 量加原有收貨數(shù)量，據(jù)以計算加權單價，并對發(fā)出存貨進行計價的一種方法。移動加權平均法的優(yōu)點：能使管理當局及時了解存貨的結存情況，而且計算的平均單位成 本以及發(fā)出和結存的存貨成本比較客觀。缺點：每次收貨都要計算一次平均單價，il算工作 量較大。五、編碼實現(xiàn)與測試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è)進銷存管理信息系統(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è)進銷存管理信息系統(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;全月一次加權平均計算單價的部分代碼：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è)進銷存

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ā)存明細,追蹤某中材料某月的進出庫情況，并顯示出是那一帳單據(jù)進行操作，如果是 領料則在摘要中寫明成本項目。計算出每次操作之后的結存數(shù)屋及金額。20/ 35Private Sub CmdMe_Click(Index As Integer)企業(yè)進銷存管理信息系統(tǒng)If Index = 0 ThenCall PrintLstv(

31、Me.LstView, LoadResString(804),材料& m_CLBH & 收發(fā)存明細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è)進銷存管理信息系統(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 & *的明細情況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è)進銷存管理信息系統(tǒng)Set dsRec = AppCN. Execute (dsSQL & ” AND Month (KDRQ)= & mjlonth & AND Year(KDRQ)二22/ 35& m_Year)If dsRec. EOF ThenMsgBox無效的材料編號！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è)進銷存管理

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,憑證編號，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è)進銷存管理信息系統(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沒有盤點，沒有期初期末數(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è)進銷存管理信息系統(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è)進銷存管理信息系統(tǒng)27/ 35End Sub企業(yè)進銷存管理信息系統(tǒng)5.25.2程序界面1.系統(tǒng)總管理界而如圖5.1所示:圖5 1系統(tǒng)總管理界而2.系統(tǒng)入庫操作界面如圖5 2所示:圖5.2系統(tǒng)入庫操作界27 / 35企業(yè)進銷存管理信息系統(tǒng)28/ 353.系統(tǒng)岀庫操作界而如圖5 3所示:圖5.3系統(tǒng)出庫操作界而4.人員查詢界而如圖5