1、第 I 頁(yè) 共 36 頁(yè)目錄目錄內(nèi)容摘要內(nèi)容摘要 2 2一、前言一、前言 1 1二、系統(tǒng)分析二、系統(tǒng)分析 5 52.12.1 問(wèn)題的提出問(wèn)題的提出 2 22.22.2 分析問(wèn)題分析問(wèn)題 3 32.32.3 系統(tǒng)設(shè)計(jì)目標(biāo)系統(tǒng)設(shè)計(jì)目標(biāo) 3 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ì)三、系統(tǒng)總體設(shè)計(jì)3.13.1 數(shù)據(jù)流圖數(shù)據(jù)流圖 4 43.23.2 部分?jǐn)?shù)據(jù)字典部分?jǐn)?shù)據(jù)字典 9 93.33.3 E-RE-R 圖圖 9 93.43.4 功能模塊功能模塊 11113.4.1 程序?qū)哟?113.4.2 模塊功能說(shuō)明 11 3.4.3 系統(tǒng)數(shù)據(jù)表 2

2、1第 II 頁(yè) 共 36 頁(yè)四、系統(tǒng)詳細(xì)設(shè)計(jì)四、系統(tǒng)詳細(xì)設(shè)計(jì) 1313五、編碼實(shí)現(xiàn)與測(cè)試五、編碼實(shí)現(xiàn)與測(cè)試不不5.15.1 編碼摘要編碼摘要 17175.25.2 程序界面程序界面 2727六、總結(jié)與展望六、總結(jié)與展望6.16.1 總結(jié)總結(jié) 31316.26.2 心得體會(huì)心得體會(huì) 3232致致 謝謝 3232參考文獻(xiàn)參考文獻(xiàn) 3333第 1 頁(yè)共 36 頁(yè)內(nèi)容摘要內(nèi)容摘要企業(yè)的物資供應(yīng)管理復(fù)雜，繁瑣的，物資種類(lèi)眾多，訂貨，管理，發(fā)放的渠道各有差異，因此物資管理必須實(shí)現(xiàn)計(jì)算機(jī)化，而且必須根據(jù)企業(yè)的具體情況制定便提高工作效率。利用 ERP 的部分功能，使用 Microsoft Visual Bas

3、ic 6.0 及 Microsoft Office Access 2003 作為開(kāi)發(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)貨出貨的查詢(xún)。充分提高數(shù)據(jù)的準(zhǔn)確性和指導(dǎo)性，提高生產(chǎn)效率和企業(yè)效益。關(guān)鍵字關(guān)鍵字：企業(yè)資源計(jì)劃 存貨 數(shù)據(jù)庫(kù) 面向?qū)ο蟮?2 頁(yè) 共 36 頁(yè)進(jìn)銷(xiāo)存管理系統(tǒng)的設(shè)計(jì)和制作進(jìn)銷(xiāo)存管理系統(tǒng)的設(shè)計(jì)和制作一、前言一、前言本次畢業(yè)設(shè)計(jì)的題目是進(jìn)銷(xiāo)存管理系統(tǒng)，要求利用 Visual Basic 完成管理平臺(tái)設(shè)計(jì)，構(gòu)造所用的類(lèi)庫(kù)。根據(jù)當(dāng)前的企業(yè)一般物資供應(yīng)管理系統(tǒng)，相應(yīng)分成幾個(gè)科室進(jìn)行物資的計(jì)劃，訂

4、貨，核對(duì)入庫(kù)，根據(jù)各個(gè)部門(mén)的需要來(lái)發(fā)送物資設(shè)備，并隨時(shí)近期進(jìn)行庫(kù)存盤(pán)點(diǎn)、作臺(tái)帳，按月、季、年進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表，以進(jìn)行有效的生產(chǎn)管理。從根本上說(shuō)，企業(yè)就是一個(gè)利用資源（人、財(cái)、物、時(shí)間） ，為客戶創(chuàng)造價(jià)值的組織，ERP 就是對(duì)這些資源進(jìn)行計(jì)劃、調(diào)度、控制、衡量、改進(jìn)的管理技術(shù)和信息系統(tǒng)?，F(xiàn)今的企業(yè)并不只是人力資源、資金和產(chǎn)品的組合，它還應(yīng)該包括供應(yīng)、銷(xiāo)售、市場(chǎng)營(yíng)銷(xiāo)、客戶服務(wù)、需求預(yù)測(cè)，以及其他更多的東西。針對(duì)目前公司存在的問(wèn)題，本文設(shè)計(jì)一個(gè)以物料流處理為主，具有一定智能特性和網(wǎng)絡(luò)特性的管理系統(tǒng)。該系統(tǒng)不僅能智能的控制企業(yè)的物流情況，而且還具有操作方便、便于糾錯(cuò)的特點(diǎn)。概括起來(lái)系統(tǒng)的優(yōu)點(diǎn)

5、如下: : （1）用戶基本資料一次性建立，便于規(guī)范控制。（2）物料控制半自動(dòng)化，加強(qiáng)了各個(gè)部門(mén)之間的聯(lián)系。（3）提高庫(kù)存管理的服務(wù)水平，最大限度地降低庫(kù)存量，包括中間庫(kù)存和在制品的庫(kù)存，以減少在庫(kù)存上的資金積壓。（4）最大限度的保證訂貨任務(wù)的按期完成。（5）提高計(jì)劃的可能性，實(shí)現(xiàn)均衡生產(chǎn)。（6）集成管理職能，提高管理效率。本文主要闡述了進(jìn)銷(xiāo)存管理系統(tǒng)的設(shè)計(jì)目標(biāo)，系統(tǒng)要求、總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)、測(cè)試等。二、系統(tǒng)分析二、系統(tǒng)分析第 3 頁(yè) 共 36 頁(yè)2.1 問(wèn)題的提出問(wèn)題的提出本公司目前存在的問(wèn)題是：信息化不足，計(jì)算機(jī)使用率低，大量的日常工作皆是手工處理，因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問(wèn)題

6、很難克服，倉(cāng)庫(kù)不能及時(shí)為采購(gòu)和生產(chǎn)提供準(zhǔn)確的指導(dǎo)性數(shù)據(jù)。公司希望解決的問(wèn)題是：解決企業(yè)內(nèi)部統(tǒng)一的物料編碼管理，物流管理中的信息流通，庫(kù)存積壓與物料的配套問(wèn)題，完善質(zhì)量檢驗(yàn)，對(duì)生產(chǎn)過(guò)程中的質(zhì)量信息進(jìn)行全面管理。包括原材料、外購(gòu)?fù)鈪f(xié)件、半成品、成品各道工序的質(zhì)量控制，并對(duì)各種數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析。對(duì)公司的各種資源與信息進(jìn)行查詢(xún)，包括銷(xiāo)售、采購(gòu)、生產(chǎn)、質(zhì)量、人事、財(cái)務(wù)等信息數(shù)據(jù)進(jìn)行查詢(xún)、統(tǒng)計(jì)與分析，對(duì)根據(jù)信息作出快速合理的經(jīng)營(yíng)決策。2.2 分析問(wèn)題分析問(wèn)題本公司的主要流程是：接到一張銷(xiāo)售訂單，由銷(xiāo)售部門(mén)轉(zhuǎn)化為內(nèi)部訂單，轉(zhuǎn)給生產(chǎn)部門(mén)，生產(chǎn)部門(mén)根據(jù)訂單上的產(chǎn)品、數(shù)量，技術(shù)部已經(jīng)配好的物料清單，及各車(chē)間半成品

7、儲(chǔ)存量，匯總材料需求，然后根據(jù)庫(kù)存情況決定請(qǐng)購(gòu)及預(yù)約情況，采購(gòu)部門(mén)根據(jù)請(qǐng)購(gòu)單下采購(gòu)單，然后材料入庫(kù)，這一切都是本管理系統(tǒng)所力求實(shí)現(xiàn)的功能。2.3 系統(tǒng)設(shè)計(jì)目標(biāo)系統(tǒng)設(shè)計(jì)目標(biāo).1 系統(tǒng)設(shè)計(jì)的長(zhǎng)遠(yuǎn)目標(biāo)：實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的長(zhǎng)遠(yuǎn)目標(biāo)：實(shí)現(xiàn) ERPERP 系統(tǒng)系統(tǒng)1系統(tǒng)運(yùn)行集成化：這是 ERP 應(yīng)用成功在技術(shù)解決方案方面最基本的表現(xiàn)。只有集成一體化運(yùn)行起來(lái)，才有可能達(dá)到：降低庫(kù)存，提高資金利用率和控制經(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í)

8、施業(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è)管理和決策過(guò)第 4 頁(yè) 共 36 頁(yè)程中真正起到作用，是衡量 ERP 應(yīng)用成功的另一個(gè)標(biāo)志。在 ERP 系統(tǒng)完全投入實(shí)際運(yùn)行后，企業(yè)應(yīng)根據(jù)管理需要，利用 ERP 系統(tǒng)提供的信息資源設(shè)計(jì)出一套動(dòng)態(tài)監(jiān)控管理績(jī)效變化的報(bào)表體系，以期即時(shí)反饋和糾正管理中存在的問(wèn)題。 .2 系統(tǒng)設(shè)計(jì)近期系統(tǒng)設(shè)計(jì)近期（1）建立基本

9、資料信息庫(kù)，規(guī)范所有資料信息。（2）物料控制半自動(dòng)化，加強(qiáng)了各個(gè)部門(mén)之間的聯(lián)系。（3）高庫(kù)存管理的服務(wù)水平，最大限度地降低庫(kù)存量，以減少在庫(kù)存上的資金積壓。（4）最大限度的保證訂貨任務(wù)的按期完成。（5）提高計(jì)劃的可能性，實(shí)現(xiàn)均衡生產(chǎn)：（6）集成管理職能，提高管理效率。三、系統(tǒng)總體設(shè)計(jì)三、系統(tǒng)總體設(shè)計(jì)3.1 數(shù)據(jù)流圖數(shù)據(jù)流圖頂層數(shù)據(jù)流圖如圖 3.1 所示：第 5 頁(yè) 共 36 頁(yè)圖 3.1 進(jìn)銷(xiāo)存管理系統(tǒng)頂層數(shù)據(jù)流圖0 層數(shù)據(jù)流圖如圖 3.2 所示：第 6 頁(yè) 共 36 頁(yè)圖 3.2 進(jìn)銷(xiāo)存管理系統(tǒng) 0 層數(shù)據(jù)流圖 1 層數(shù)據(jù)流圖如圖 3.3 所示：第 7 頁(yè) 共 36 頁(yè)圖 3.3 進(jìn)銷(xiāo)存管理

10、系統(tǒng) 1 層數(shù)據(jù)流圖第 8 頁(yè) 共 36 頁(yè)圖 3.3 進(jìn)銷(xiāo)存管理系統(tǒng) 1 層數(shù)據(jù)流圖（續(xù)）第 9 頁(yè) 共 36 頁(yè)3.2 部分?jǐn)?shù)據(jù)字典部分?jǐn)?shù)據(jù)字典數(shù)據(jù)流圖描述了系統(tǒng)的分解，但沒(méi)有對(duì)圖中各成分進(jìn)行說(shuō)明，數(shù)據(jù)字典就是為了數(shù)據(jù)流圖的每個(gè)數(shù)據(jù)流、文件、加工，以及組成數(shù)據(jù)流或文件的數(shù)據(jù)項(xiàng)作出說(shuō)明。數(shù)據(jù)流條目：出庫(kù)單 = 出庫(kù)單號(hào)+日期+客戶名稱(chēng)+ 物資類(lèi)別+制單人員+ 記帳人員+發(fā)貨人+狀態(tài)+銷(xiāo)售訂單號(hào)+品名 + 單位 + 數(shù)量 + 規(guī)格 + 備注 + 單價(jià)各類(lèi)財(cái)務(wù)統(tǒng)計(jì)報(bào)表 = 倉(cāng)庫(kù)材料消耗匯總（成本項(xiàng)目） + 倉(cāng)庫(kù)材料消耗匯總（按車(chē)間） + 材料收發(fā)存明細(xì) A + 材料收發(fā)存明細(xì) B +材料收發(fā)存明

11、細(xì) C + 材料收發(fā)存分類(lèi)匯總表 + 木材消耗匯總表。文件條目：文件名稱(chēng)：原材料庫(kù)存文件。簡(jiǎn)述：保存原材料的基本資料。組成：材料編號(hào)+品名型號(hào)+規(guī)格尺寸+單位+采購(gòu)計(jì)量單位+參數(shù)+數(shù)量+最低數(shù)量+最高數(shù)量+單價(jià)+備注+大大分類(lèi)+大分類(lèi)+分類(lèi)+小分類(lèi)。文件名稱(chēng)：銷(xiāo)售文件。簡(jiǎn)述：保存所有銷(xiāo)售訂單的文件。組成內(nèi)部定單號(hào)+訂貨日期+客戶編號(hào)+總金額+預(yù)收率NEWCASTLE 號(hào)+PO 單號(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)條目：名稱(chēng)：材料編號(hào)簡(jiǎn)述：材料編號(hào)分四個(gè)字段（大大分

12、類(lèi)+大分類(lèi)+分類(lèi)+小分類(lèi)） ，可以將材料分門(mén)別。類(lèi)，因?yàn)樵S多地方用到編號(hào)，因此將四項(xiàng)和為一項(xiàng)保存一個(gè)冗余字段。為了便于查找。3.3 E-R 圖圖程序總體 E-R 圖如圖 3.4 所示：第 10 頁(yè) 共 36 頁(yè)圖 3.4 程序總體 E-R 圖人員管理模塊如圖 3.5 所示：圖 3.5 人員管理模塊第 11 頁(yè) 共 36 頁(yè)材料管理模塊如圖 3.6 所示：圖 3.6 材料管理模塊3.4 功能模塊功能模塊.1 程序?qū)哟纬绦驅(qū)哟纬绦驅(qū)哟稳鐖D 3.7 所示： 登陸界面 管理系統(tǒng)界面 進(jìn)庫(kù)管理 出庫(kù)管理 修改密碼 按日期查詢(xún) 按物品查詢(xún) 基本管理 查 詢(xún) 按人員查詢(xún) 系統(tǒng)設(shè)置 人員設(shè)置

13、操作員設(shè)置 數(shù)據(jù)整理 打印統(tǒng)計(jì)幫助等 圖 3.7 程序?qū)哟螆D.2 模塊功能說(shuō)明模塊功能說(shuō)明篇幅所限，僅挑選部分功能說(shuō)明。第 12 頁(yè) 共 36 頁(yè)不登陸驗(yàn)證功能：主要功能為身份驗(yàn)證，防止非法用戶進(jìn)入系統(tǒng)。實(shí)現(xiàn)方法如圖 3.8 所示：圖 3.8 登陸驗(yàn)證實(shí)現(xiàn)方法.3 系統(tǒng)數(shù)據(jù)表系統(tǒng)數(shù)據(jù)表倉(cāng)庫(kù)物資信息表（材料表），如表 3.1 所示：表 3.1 倉(cāng)庫(kù)物資信息表編號(hào)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明1自動(dòng)編號(hào)Long 數(shù)值Primary key 主鍵2規(guī)格Text 文本必填,字段不允許空串3型號(hào)Text 文本必填,字段不允許空串4數(shù)量Long 數(shù)值必填字段5價(jià)格Long 數(shù)值必填字

14、段6名稱(chēng)Text 文本必填字段第 13 頁(yè) 共 36 頁(yè)進(jìn)貨人員信息表，如表 3.2 所示：表 3.2 進(jìn)貨人員信息表編號(hào)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明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)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明1自動(dòng)編號(hào)Long 數(shù)值Primary key 主鍵2姓名Text 文本必填,字段不允許空串3聯(lián)系方式Text 文本必填,字段不允許空串4貨物名稱(chēng)Text 文本必填,字段不允許空串5貨物數(shù)量Long 數(shù)值必填,字段不允許空串6

15、貨物規(guī)格Text 文本必填,字段不允許空串7貨物型號(hào)Text 文本必填,字段不允許空串8價(jià)格Long 數(shù)值必填,字段不允許空串9日期Text 文本必填,字段不允許空串四、系統(tǒng)詳細(xì)設(shè)計(jì)四、系統(tǒng)詳細(xì)設(shè)計(jì)根據(jù)內(nèi)部訂單預(yù)定材料的流程圖如圖 4.1 所示：說(shuō)明：KDYsl：可調(diào)用數(shù)量XQsl： 需求數(shù)量KCsl： 庫(kù)存數(shù)量第 14 頁(yè) 共 36 頁(yè)可調(diào)用數(shù)量=庫(kù)存數(shù)量 最低庫(kù)存量已預(yù)約數(shù)量設(shè)計(jì)時(shí)需求數(shù)量與庫(kù)存數(shù)量、可調(diào)用數(shù)量分別比較可得出種情況需求數(shù)量可調(diào)用數(shù)量 and 需求數(shù)量 庫(kù)存數(shù)量（因?yàn)閹?kù)存數(shù)量=可調(diào)用數(shù)量所以可寫(xiě)成 XQslKDYsl）需求數(shù)量=可調(diào)用數(shù)量 and 需求數(shù)量 =可調(diào)用數(shù)量所以可

16、寫(xiě)成 KDYsl =XQsl=KCsl）需求數(shù)量庫(kù)存數(shù)量(因?yàn)閹?kù)存數(shù)量=可調(diào)用數(shù)量所以不存在這種情況)需求數(shù)量可調(diào)用數(shù)量 and 需求數(shù)量 =可調(diào)用數(shù)量所以可寫(xiě)成 XQslKDYsl和KDYsl =XQsl=KCs和XQsl=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;第 20 頁(yè) 共 36 頁(yè)SELECT A.CLBH, B.YFYF, IIf(A.RK

17、SL=0,IIf(ISNULL(QCSL),0,QCJE/QCSL),(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_DJ()Dim da_Rec As ADODB.RecordsetDim da_SQL As StringSet da_Rec = AppCN.Execute(select * from AVER_DJ)AppCN.BeginTransDo While Not da_Rec.E

18、OFda_SQL = update J_clcl set DJDJ = & da_Rec.Fields(DJDJ) & where BHBH= & da_Rec.Fields(CLBH) & AppCN.Execute (da_SQL)da_SQL = update K_LLLL_D set JEJE = & da_Rec.Fields(DJDJ) & * k_LLLL_D.SLSL where K_LLLL_D.CLBH= & _ da_Rec.Fields(CLBH) & and K_LLLL_D.DHDH IN (SELEC

19、T DHDH FROM AVER_mth_LL2) AppCN.Execute (da_SQL)da_Rec.MoveNextLoopAppCN.CommitTransEnd Sub收發(fā)存明細(xì),追蹤某中材料某月的進(jìn)出庫(kù)情況，并顯示出是那一帳單據(jù)進(jìn)行操作，如果第 21 頁(yè) 共 36 頁(yè)是領(lǐng)料則在摘要中寫(xiě)明成本項(xiàng)目。計(jì)算出每次操作之后的結(jié)存數(shù)量及金額。Private Sub CmdMe_Click(Index As Integer)If Index = 0 ThenCall PrintLstv(Me.LstView, LoadResString(804), 材料 & m_CLBH &

20、; 收發(fā)存明細(xì)A, 1, 1)ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(SlCol As String, JeCol As String)Dim arrSlCol() As StringDim arrJeCol() As StringDim k As IntegerDim total As DoubleCall ON_GetArray(SlCol, arrSlCol)Call ON_GetArray(JeCol, arrJeCol)LstView.ListItems.Add , , LstView.ListItems(LstView.L

21、istItems.Count).SubItems(1) = 總計(jì)For k = 0 To UBound(arrSlCol) total = 0 For J = 1 To LstView.ListItems.Count total = total + Val(LstView.ListItems(J).SubItems(Val(arrSlCol(k) Next LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrSlCol(k) = total NextFor k = 0 To UBound(arrJeCol) total = 0第

22、 22 頁(yè) 共 36 頁(yè) For J = 1 To LstView.ListItems.Count total = total + Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k) Next LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrJeCol(k) = Format(total, #0.00)NextEnd SubPrivate Sub Form_Load()Dim fl_Num As SingleDim fl_Cash As DoubleMe.Icon = Load

23、ResPicture(101, vbResIcon)Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 4Me.Caption = 查看 & m_CLBH & 的明細(xì)情況Call DoStyleIf GetInitData(fl_Num, fl_Cash) = True Then Call DoShow(fl_Num, fl_Cash) Call DoRemain(fl_Num, fl_Cash)End IfEnd SubPrivate Sub DoShow(m_drNum As Single

24、, 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_drCash第 23 頁(yè) 共 36 頁(yè)dsSQL = select * from SFC_MXA3 where CLBH= & m_CLBH & Set dsRec =

25、AppCN.Execute(dsSQL & AND Month(KDRQ)= & m_Month & AND Year(KDRQ)= & m_Year)If dsRec.EOF Then MsgBox 無(wú)效的材料編號(hào)！ Exit SubEnd IfI = 1Set itmX = LstView.ListItems.Add(, , A & I) itmX.SubItems(1) = dsRec.Fields(KDRQ).Value itmX.SubItems(3) = 期初數(shù)量 itmX.SubItems(10) = rd_theSL itmX.SubIt

26、ems(11) = Format(m_drCash, #,#0.00)Do While Not dsRec.EOF I = I + 1 Set itmX = LstView.ListItems.Add(, , A & I) rd_RKJE = IIf(dsRec.Fields(RKJE).Value = , 0, dsRec.Fields(RKJE).Value) rd_CKJE = IIf(dsRec.Fields(CKJE).Value = , 0, dsRec.Fields(CKJE).Value) rd_theSL = rd_theSL + Val(dsRec.Fields(R

27、KSL) - Val(dsRec.Fields(CKSL) m_drCash = m_drCash + rd_RKJE - rd_CKJE itmX.SubItems(1) = dsRec.Fields(KDRQ).Value itmX.SubItems(2) = dsRec.Fields(DHDH).Value itmX.SubItems(3) = dsRec.Fields(CBXM).Value itmX.SubItems(4) = dsRec.Fields(RKSL).Value itmX.SubItems(5) = IIf(dsRec.Fields(RKDJ).Value = , ,

28、Format(dsRec.Fields(RKDJ).Value, #,#0.00)第 24 頁(yè) 共 36 頁(yè) itmX.SubItems(6) = IIf(dsRec.Fields(RKJE).Value = , , Format(dsRec.Fields(RKJE).Value, #,#0.00) itmX.SubItems(7) = dsRec.Fields(CKSL).Value itmX.SubItems(8) = IIf(dsRec.Fields(CKDJ).Value = , , Format(dsRec.Fields(CKDJ).Value, #,#0.00) itmX.SubI

29、tems(9) = IIf(dsRec.Fields(CKJE).Value = , , Format(dsRec.Fields(CKJE).Value, #,#0.00) itmX.SubItems(10) = rd_theSL itmX.SubItems(11) = Format(m_drCash, #,#0.00) dsRec.MoveNextLoopEnd SubPrivate Sub DoStyle()Dim intWid As IntegerintWid = 1200LstView.ColumnHeaders.Add , , 序號(hào), 600LstView.ColumnHeaders

30、.Add , , 日期, 1000, lvwColumnRightLstView.ColumnHeaders.Add , , 憑證編號(hào), intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 摘要, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入數(shù)量, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入單價(jià), intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入金額, i

31、ntWid, lvwColumnRightLstView.ColumnHeaders.Add , , 發(fā)出數(shù)量, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 發(fā)出單價(jià), intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 發(fā)出金額, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 結(jié)存數(shù)量, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 結(jié)存金額, intWid, lvw

32、ColumnRightEnd Sub第 25 頁(yè) 共 36 頁(yè)P(yáng)rivate Sub Form_Resize()On Error Resume NextLstView.Move 0, 100 + 500 + 50, Me.ScaleWidth, Me.ScaleHeight - Me.StatusBar1.Height - 650End SubPrivate Function GetInitData(m_giNum As Single, m_giCash As Double) As BooleanDim drRec_1 As ADODB.RecordsetDim drRec_2 As ADOD

33、B.RecordsetDim drSQL As StringGetInitData = Truem_giNum = -2002.1994m_giCash = -2002.1994drSQL = select * from T_SFC Where BHBH= & m_CLBH & drSQL = drSQL & AND Month(YFYF)= & m_Month & AND Year(YFYF)= & m_YearSet drRec_1 = AppCN.Execute(drSQL)If drRec_1.EOF Then drSQL = selec

34、t * from T_SFC_QC Where BHBH= & m_CLBH & drSQL = drSQL & AND Month(YFYF)= & m_Month & AND Year(YFYF)= & m_Year Set drRec_2 = AppCN.Execute(drSQL) If drRec_2.EOF Then MsgBox 沒(méi)有盤(pán)點(diǎn)，沒(méi)有期初期末數(shù)據(jù)！ GetInitData = False Else m_giNum = drRec_2.Fields(QCSL).Value m_giCash = drRec_2.Fields(

35、QCJE).Value End If drRec_2.Close: Set drRec_2 = Nothing第 26 頁(yè) 共 36 頁(yè)Else m_giNum = drRec_1.Fields(QCSL).Value m_giCash = drRec_1.Fields(QCJE).ValueEnd IfdrRec_1.Close: Set drRec_1 = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m_CLBH = m_Month = 0m_Year = 0End SubPrivate Sub DoRemain

36、(m_drNum As Single, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To Me.LstView.ListItems.Count rd_theSL = rd_theSL + Val(LstView.ListItems(I).SubItems(4) - Val(LstView.ListItems(I).SubItems(7) Ls

37、tView.ListItems(I).SubItems(10) = rd_theSL If rd_theSL 0 Then rd_CKJE = Val(Format(LstView.ListItems(I).SubItems(9), #0.00) rd_theJE = rd_theJE + rd_RKJE - rd_CKJE Else rd_theJE = 0 End If LstView.ListItems(I).SubItems(11) = Format(rd_theJE, #,#0.00)Next第 27 頁(yè) 共 36 頁(yè)End Sub5.2 程序界面程序界面1系統(tǒng)總管理界面如圖 5.1

38、 所示：圖 5.1 系統(tǒng)總管理界面2系統(tǒng)入庫(kù)操作界面如圖 5.2 所示：第 28 頁(yè) 共 36 頁(yè)圖 5.2 系統(tǒng)入庫(kù)操作界3系統(tǒng)出庫(kù)操作界面如圖 5.3 所示：圖 5.3 系統(tǒng)出庫(kù)操作界面第 29 頁(yè) 共 36 頁(yè)4人員查詢(xún)界面如圖 5.4 所示：圖 5.4 人員查詢(xún)界面5操作員設(shè)置界面如圖 5.5 所示：圖 5.5 操作員設(shè)置界面6物品查詢(xún)界面如圖 5.6 所示：第 30 頁(yè) 共 36 頁(yè)圖 5.6 物品查詢(xún)界面7日期查詢(xún)界面如圖 5.7 所示：圖 5.7 日期查詢(xún)界面第 31 頁(yè) 共 36 頁(yè)8按月份統(tǒng)計(jì)界面如圖 5.8 所示：圖 5.8 按月統(tǒng)計(jì)界面9數(shù)據(jù)管理界面如圖 5.9 所示：第 32 頁(yè) 共 36 頁(yè)圖 5.9 數(shù)據(jù)管理界面六、總結(jié)與展望六、總結(jié)與展望6.1 總結(jié)總結(jié)本系統(tǒng)投入使用后，將大大減少公司的管理部門(mén)的勞動(dòng)量，改善了企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置，使得管理合理規(guī)范。盡量合理的控制物流，尤其是材料庫(kù)存的控制，將材料控制到只在需要的時(shí)候向需要的部門(mén)按需要的數(shù)量，提供所需要的物料，也就是說(shuō)，它既防止物料供應(yīng)滯后于對(duì)他