企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開發(fā)論文

1、xxxx 本科生畢業(yè)設(shè)計(jì)（論文）學(xué)院（系）： xxxx 專 業(yè)： xxxx 學(xué) 生： xxx 指導(dǎo)教師： xxxx 完成日期 2011 年 5 月xxxxxxxxx企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開發(fā)Development of Management Software Between Enterprise s Manufacturing and Purchasing Plan總 計(jì)： 37 頁(yè)表 格： 0 個(gè)插 圖： 24 幅xxxx 企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開發(fā)Development of Management Software Between Enterprise s Manufacturin

2、g and Purchasing Plan學(xué) 院 （系）： xxxx 專 業(yè)xxxxxxxxx 學(xué) 生 姓 名： xxxx 學(xué) 號(hào)： xxxxx 指導(dǎo)教師（職稱）： xxxx 評(píng) 閱 教 師： xxxx 完 成 日 期： xxxx xxxxx Nanyang Institute of Technology企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開發(fā)xxxxxxxx 摘 要生產(chǎn)和采購(gòu)計(jì)劃管理是企業(yè)生產(chǎn)管理的重要環(huán)節(jié)之一，也是把握市場(chǎng)需求，降低采購(gòu)成本的主要環(huán)節(jié)1。目前，多數(shù)企業(yè)的生產(chǎn)和采購(gòu)計(jì)劃管理均處于分散的人工操作模式，各業(yè)務(wù)環(huán)節(jié)數(shù)據(jù)信息不能實(shí)時(shí)共享，工作效率低，導(dǎo)致企業(yè)市場(chǎng)反應(yīng)速度較慢，不能滿足當(dāng)今市場(chǎng)快

3、速變化的需求。因此專門開發(fā)一套生產(chǎn)及采購(gòu)計(jì)劃管理軟件，實(shí)現(xiàn)企業(yè)從生產(chǎn)計(jì)劃、MRP運(yùn)算到采購(gòu)報(bào)表全過程的信息化管理。通過該軟件的應(yīng)用，可實(shí)現(xiàn)企業(yè)在此類業(yè)務(wù)環(huán)節(jié)的信息化集成，能夠較好解決企業(yè)計(jì)劃與采購(gòu)部門間存在的信息孤島問題，而且能夠?qū)崿F(xiàn)各部門間的數(shù)據(jù)信息共享。通過該軟件可實(shí)現(xiàn)對(duì)大量產(chǎn)品生產(chǎn)數(shù)據(jù)的自動(dòng)計(jì)算和匯總，速度快，效率高，不易出錯(cuò)2。同時(shí)能夠?qū)崿F(xiàn)采購(gòu)報(bào)表隨采購(gòu)計(jì)劃的調(diào)整進(jìn)行自動(dòng)更新，避免了重復(fù)性勞動(dòng)。通過該軟件可為企業(yè)的采購(gòu)和生產(chǎn)計(jì)劃部門搭建一個(gè)信息操作和共享平臺(tái)。 關(guān)鍵詞生產(chǎn)計(jì)劃；采購(gòu)計(jì)劃；MRP；采購(gòu)報(bào)表Development of Management Software between

4、 Enterprise s Manufacturing and Purchasing PlanMechanical Design, Manufacturing and Automation Zhao Wen-tong Abstract: Manufacturing and purchasing plan is one of the most important link of enterprise production management, at the same time it is also a main link to grasp market demand, reduce purch

5、asing cost. At present, most enterprise production and purchasing plan management are in artificial operation mode. Each business link cant share data information real-timely, leading to working efficiency and enterprise market reaction slower. So it cant satisfy the current rapid changing market ne

6、eds. Therefore, it is necessary to develop a set of purchasing and production planning management software specially，so that it can realize the information management from production planning, MRP computing, to purchasing statements. With the application of this software, it can realize data informa

7、tion sharing among departments.It can also realize the automatic calculation and summarizing of the products with complex production data, which not easy makes mistakes but also quickly and with high efficiency. Meanwhile it can achieve automatic update the purchasing statements with the adjustment

8、of purchasing plan ,which can avoid the repeated labor4. Through this software it can build a information operating and sharing platform between enterprises purchasing and production planning department.Key words: Production plan; Purchasing plan; MRP; Purchasing Report目 錄1 緒論11.1 本課題研究背景及意義11.2 ERP

9、管理軟件發(fā)展概況11.3 論文的主要工作12 軟件簡(jiǎn)介22.1 軟件運(yùn)行的軟硬件環(huán)境22.1.1 硬件環(huán)境22.1.2 軟件環(huán)境22.2 軟件開發(fā)關(guān)鍵技術(shù)32. 2.1 Visual Basic 6.032. 2.2 數(shù)據(jù)庫(kù)技術(shù)32. 2.3 ADO技術(shù)3 2.3 課題研究?jī)?nèi)容及技術(shù)要求3 2.4 課題軟件實(shí)現(xiàn)的功能33 課題軟件的設(shè)計(jì)與實(shí)現(xiàn)4 3.1 軟件操作流程4 3.2 軟件的功能模塊簡(jiǎn)介5 3.3 各功能模塊的分析6 3.4 導(dǎo)出當(dāng)前產(chǎn)品物料清單及BOM單63.4.1 賬戶管理63.4.2 產(chǎn)品BOM管理63.4.3 產(chǎn)品MRP計(jì)算63.4.4 庫(kù)存管理73.4.5 采購(gòu)預(yù)算73.4.

10、6 導(dǎo)出采購(gòu)明細(xì)73.4.7 關(guān)于軟件的簡(jiǎn)單介紹74 軟件運(yùn)行8 4.1 用戶登錄模塊8 4.2 修改密碼模塊11 4.3 生成BOM模塊11 4.4 生產(chǎn)計(jì)劃模塊15 4.5 庫(kù)存管理模塊20 4.6 采購(gòu)預(yù)算模塊22 4.7 采購(gòu)明細(xì)導(dǎo)出模塊27 4.8 關(guān)于軟件介紹模塊30結(jié)束語(yǔ)31參考文獻(xiàn)31致謝321 緒論1.1 課題研究的背景及意義本課題以河南陸德筑機(jī)有限公司生產(chǎn)計(jì)劃及采購(gòu)計(jì)劃實(shí)際需求為背景，實(shí)現(xiàn)該公司從生產(chǎn)計(jì)劃數(shù)據(jù)的輸入，根據(jù)計(jì)劃中各產(chǎn)品材料定額數(shù)據(jù)進(jìn)行匯總和分析，最終自動(dòng)生成針對(duì)當(dāng)前生產(chǎn)計(jì)劃的采購(gòu)預(yù)算報(bào)表。通過該軟件的應(yīng)用，可實(shí)現(xiàn)企業(yè)在此類業(yè)務(wù)環(huán)節(jié)的信息化管理，能夠妥善解決企業(yè)

11、計(jì)劃與采購(gòu)部門間存在的信息孤島問題，而且能夠?qū)崿F(xiàn)各部門間的數(shù)據(jù)信息共享，將原來(lái)繁瑣的重復(fù)性勞動(dòng)交由計(jì)算機(jī)自動(dòng)完成，并且對(duì)大量數(shù)據(jù)的計(jì)算和匯總更加準(zhǔn)確，速度快，效率高。同時(shí)能夠?qū)崿F(xiàn)數(shù)據(jù)的自動(dòng)更新，如果生產(chǎn)計(jì)劃需要調(diào)整，則能夠很快生成最終的采購(gòu)預(yù)算報(bào)表，為企業(yè)的采購(gòu)部門和生產(chǎn)計(jì)劃部門搭建一個(gè)信息操作和共享平臺(tái)。1.2 ERP管理軟件發(fā)展概況 當(dāng)今時(shí)代，在全球競(jìng)爭(zhēng)激烈的大市場(chǎng)中，無(wú)論是流程式還是離散式的制造業(yè)，無(wú)論是單件生產(chǎn)、多品種小批量生產(chǎn)、少品種重復(fù)生產(chǎn)還是標(biāo)準(zhǔn)產(chǎn)品大量生產(chǎn)的制造；制造業(yè)內(nèi)部管理都可能遇到以下一些問題：如企業(yè)可能擁有卓越的銷售人員推銷產(chǎn)品，但是生產(chǎn)線上的工人卻沒有辦法如期交貨，車

12、間管理人員則抱怨說采購(gòu)部門沒有及時(shí)供應(yīng)他們所需要的原料；實(shí)際上，采購(gòu)部門的效率過高，倉(cāng)庫(kù)里囤積的某些材料10年都用不完，倉(cāng)庫(kù)庫(kù)位飽和，資金周轉(zhuǎn)很慢；許多公司要用613個(gè)星期的時(shí)間，才能計(jì)算出所需要的物料量，所以訂貨周期只能為613個(gè)星期；訂貨單和采購(gòu)單上的日期和缺料單上的日期都不相同，沒有一個(gè)是肯定的；財(cái)務(wù)部門不信賴倉(cāng)庫(kù)部門的數(shù)據(jù)，不以它來(lái)計(jì)算制造成本不能否認(rèn)，以上這些情況正是我們大多數(shù)企業(yè)目前所面臨的一個(gè)嚴(yán)峻的問題，然而，針對(duì)這一現(xiàn)象，我們又能有什么有效的辦法來(lái)解決它呢5？ 本軟件能夠?qū)崿F(xiàn)從生產(chǎn)計(jì)劃數(shù)據(jù)的輸入，根據(jù)計(jì)劃中各產(chǎn)品材料定額數(shù)據(jù)進(jìn)行匯總和分析，最終自動(dòng)生成針對(duì)當(dāng)前生產(chǎn)計(jì)劃的采購(gòu)預(yù)算

13、報(bào)表，能夠妥善解決企業(yè)計(jì)劃與采購(gòu)部門間存在的信息孤島問題，而且能夠?qū)崿F(xiàn)各部門間的數(shù)據(jù)信息共享，將原來(lái)繁瑣的重復(fù)性勞動(dòng)交由計(jì)算機(jī)自動(dòng)完成，并且對(duì)大量數(shù)據(jù)的計(jì)算和匯總更加準(zhǔn)確，速度快，效率高。1.3論文的主要工作 在本論文的設(shè)計(jì)初期，通過閱讀大量的文獻(xiàn)，提高對(duì)相關(guān)制作軟件工具的熟悉及使用。由于軟件的需要，也要學(xué)習(xí)數(shù)據(jù)庫(kù)的操作及相關(guān)圖紙明細(xì)的識(shí)別。然后對(duì)BOM即物料清單（Bill of Material）進(jìn)行分析，計(jì)算能夠很快生成最終的采購(gòu)預(yù)算報(bào)表，在設(shè)計(jì)中期，主要是對(duì)產(chǎn)品零部件明細(xì)的校對(duì)。首先，物料清單表明了產(chǎn)品部件組件零件原材料之間的結(jié)構(gòu)關(guān)系。然后根據(jù)生產(chǎn)計(jì)劃計(jì)算出采購(gòu)計(jì)劃;其次，根據(jù)采購(gòu)計(jì)劃，

14、利用MRP計(jì)算減去庫(kù)存管理導(dǎo)出采購(gòu)預(yù)算報(bào)表。在設(shè)計(jì)的后期，有兩個(gè)任務(wù)：一是按照格式寫論文，二是按照要求修改論文。2 軟件簡(jiǎn)介本軟件能夠?qū)崿F(xiàn)生產(chǎn)計(jì)劃數(shù)據(jù)的輸入，根據(jù)計(jì)劃中各產(chǎn)品材料定額數(shù)據(jù)進(jìn)行匯總和分析，最終自動(dòng)生成針對(duì)當(dāng)前生產(chǎn)計(jì)劃的采購(gòu)預(yù)算報(bào)表，能夠妥善解決企業(yè)計(jì)劃與采購(gòu)部門間存在的信息孤島問題，而且能夠?qū)崿F(xiàn)各部門間的數(shù)據(jù)信息共享。將原來(lái)繁瑣的重復(fù)性勞動(dòng)交由計(jì)算機(jī)自動(dòng)完成，并且對(duì)大量數(shù)據(jù)的計(jì)算和匯總更加準(zhǔn)確，速度快，效率高。同時(shí)能夠?qū)崿F(xiàn)數(shù)據(jù)的自動(dòng)更新，如果生產(chǎn)計(jì)劃需要調(diào)整，則能夠很快生成最終的采購(gòu)預(yù)算報(bào)表，為企業(yè)的采購(gòu)部門和生產(chǎn)計(jì)劃部門搭建一個(gè)信息操作和共享平臺(tái)。2.1 軟件運(yùn)行的軟硬件環(huán)境2

15、.1.1 硬件環(huán)境（1）普通PC機(jī)（2）CPU：1.8GHz以上（3）內(nèi)存：1024MB（4）顯卡：128M以上（5）網(wǎng)卡：10/1001000Mbps（6）PIII以上處理器2.1.2 軟件環(huán)境（1）Windows2000、XP及以上操作系統(tǒng)（2）Microsoft Excel 2003（3）IDE環(huán)境：Microsoft Yisual Studio 2005（4）支撐環(huán)境：MicrosoftNET Framework 20（5）需求分析工具：Visio 2003（6）數(shù)據(jù)庫(kù)服務(wù)器：基于SQL Server2000 2.2 軟件開發(fā)關(guān)鍵技術(shù)2.2.1 Visual Basic 6.0Visu

16、al Basic 6.0是Microsoft公司推出的基于Windows環(huán)境的一種面向?qū)ο蟮目梢暬幊汰h(huán)境，它強(qiáng)調(diào)直接以問題域（即現(xiàn)實(shí)世界）中的事物為中心來(lái)考慮和認(rèn)識(shí)問題，并按照這些事物的本質(zhì)特征把它們抽象為對(duì)象，作為軟件系統(tǒng)的基礎(chǔ)，將對(duì)象作為系統(tǒng)中最基本的運(yùn)行實(shí)體，對(duì)象中封裝了描述該對(duì)象的特殊屬性（數(shù)據(jù)）和行為方式（方法）。整個(gè)程序即由各種不同類型的對(duì)象組成，各對(duì)象既是一個(gè)獨(dú)立的實(shí)體，又可通過一定的方式相互作用。Visual Basic 6.0易學(xué)易用、功能強(qiáng)大的特點(diǎn)使其得到了廣泛的應(yīng)用。其強(qiáng)大的可視化用戶界面設(shè)計(jì)，是程序員從復(fù)雜的界面設(shè)計(jì)中解脫出來(lái)。Visual Basic 6.0不但可以

17、開發(fā)小型單機(jī)數(shù)據(jù)庫(kù)管理系統(tǒng)，而且也可以開發(fā)集多種應(yīng)用程序于一體的網(wǎng)絡(luò)數(shù)據(jù)庫(kù)系統(tǒng)。因此使得Visual Basic 6.0成為目前使用最廣泛的編程語(yǔ)言之一。2.2.2 數(shù)據(jù)庫(kù)技術(shù)在當(dāng)今信息社會(huì)中，信息已成為各個(gè)行業(yè)、部門的重要財(cái)富和資源，信息系統(tǒng)也越來(lái)越顯示它的重要性。數(shù)據(jù)庫(kù)技術(shù)是信息系統(tǒng)的核心和基礎(chǔ)，它的準(zhǔn)確性、快速性在信息時(shí)代占了很大的優(yōu)勢(shì)。現(xiàn)存多種數(shù)據(jù)庫(kù)系統(tǒng)，我們這里主要運(yùn)用Access數(shù)據(jù)庫(kù)系統(tǒng)，Visual Basic 6.0通過ADO技術(shù)與Access數(shù)據(jù)庫(kù)相連，通過Visual Basic 6.0的前臺(tái)管理Access的后臺(tái)數(shù)據(jù)，實(shí)現(xiàn)信息的準(zhǔn)確、快速管理。2.2.3 ADO技術(shù)AD

18、O是一個(gè)用于存取數(shù)據(jù)源的組建，它為編程語(yǔ)言從數(shù)據(jù)庫(kù)提取數(shù)據(jù)信息提供了一種方法，允許開發(fā)人員編寫訪問數(shù)據(jù)的代碼而不用擔(dān)心數(shù)據(jù)庫(kù)是如何實(shí)現(xiàn)的，而只用關(guān)心到數(shù)據(jù)庫(kù)的連接。ADO是對(duì)當(dāng)前微軟所支持的數(shù)據(jù)庫(kù)進(jìn)行操作的最有效和最簡(jiǎn)單直接的方法。2.3課題研究?jī)?nèi)容及技術(shù)要求本軟件采用C/S開發(fā)模式和ADO數(shù)據(jù)庫(kù)訪問技術(shù)，采用Visual Basic編程語(yǔ)言Access數(shù)據(jù)庫(kù)實(shí)現(xiàn)對(duì)生產(chǎn)計(jì)劃數(shù)據(jù)的輸入、材料定額數(shù)據(jù)的集成和相應(yīng)采購(gòu)預(yù)算的計(jì)算和自動(dòng)生成等，實(shí)現(xiàn)企業(yè)生產(chǎn)計(jì)劃和采購(gòu)預(yù)算環(huán)節(jié)的有效集成。2.4課題軟件實(shí)現(xiàn)的功能生產(chǎn)計(jì)劃數(shù)據(jù)的手動(dòng)輸入；生產(chǎn)計(jì)劃數(shù)據(jù)的自動(dòng)導(dǎo)入；材料定額信息的有效集成；生產(chǎn)計(jì)劃匯總及材料定額

19、匯總；所需物料的庫(kù)存分析；采購(gòu)預(yù)算的自動(dòng)匯總和生成3課題軟件的設(shè)計(jì)與實(shí)現(xiàn)3.1 軟件操作流程軟件操作流程如圖3.1所示：圖3.1軟件操作流程本軟件要根據(jù)數(shù)據(jù)庫(kù)中信息自動(dòng)導(dǎo)入軟件，然后進(jìn)行生產(chǎn)計(jì)劃數(shù)據(jù)的手動(dòng)輸入，再根據(jù)材料定額信息的有效集成，生產(chǎn)計(jì)劃匯總及材料定額匯總，所需物料的庫(kù)存分析。通過該軟件的應(yīng)用，采購(gòu)預(yù)算自動(dòng)匯總和生成，減少了手工計(jì)算的工作量，提高了效率，大大降低了出錯(cuò)的概率，確保生產(chǎn)采購(gòu)的有效性、實(shí)時(shí)性和準(zhǔn)確性。3.2 軟件的功能模塊簡(jiǎn)介該軟件以Visual Basic 6.0為開發(fā)語(yǔ)言，采用Access2003為數(shù)據(jù)庫(kù)管理平臺(tái)。該軟件根據(jù)數(shù)據(jù)庫(kù)中的信息直接導(dǎo)入BOM單，進(jìn)而手動(dòng)輸入

20、生產(chǎn)計(jì)劃數(shù)據(jù)，再根據(jù)生產(chǎn)計(jì)劃數(shù)據(jù)，庫(kù)存數(shù)據(jù)價(jià)格庫(kù)進(jìn)行MRP自動(dòng)核算，從而導(dǎo)出采購(gòu)預(yù)算提高了生產(chǎn)率、庫(kù)存利用率、降低了出錯(cuò)率、生產(chǎn)成本。其功能框圖如圖3.2所示。各功能模塊簡(jiǎn)要描述如下：（1） 登錄模塊：主要用于用戶的管理。（2） 修改密碼模塊：主要用于用戶密碼的修改。（3） 自動(dòng)導(dǎo)入BOM單：得出產(chǎn)品明細(xì)相關(guān)數(shù)據(jù)。BOM表直接由軟件自動(dòng)生產(chǎn)，無(wú)需再人工參與，提高了企業(yè)的效率，也降低了出錯(cuò)率。（4） 手動(dòng)輸入生產(chǎn)計(jì)劃數(shù)據(jù)，根據(jù)市場(chǎng)需求確定生產(chǎn)計(jì)劃。無(wú)需再人工參與，提高了企業(yè)的效率，也降低了出錯(cuò)率。（5） 利用MRP的自動(dòng)計(jì)算生成采購(gòu)計(jì)劃預(yù)算，采購(gòu)管理模塊：實(shí)現(xiàn)企業(yè)采購(gòu)管理的及時(shí)更新，增大庫(kù)存利用

21、率，降低成本。圖3.2 軟件功能模塊（6） 去除庫(kù)存既得的采購(gòu)計(jì)劃明細(xì)。MRP的計(jì)算基于BOM表自動(dòng)進(jìn)行的，（7） 導(dǎo)出明細(xì)模塊：將生成的信息導(dǎo)入Excel中，便于企業(yè)人員閱讀。（8） 關(guān)于軟件介紹模塊：介紹軟件的一些基本信息。3.3 各功能模塊的分析3.3.1賬戶管理該模塊主要是為系統(tǒng)提供安全保證，系統(tǒng)默認(rèn)用戶庫(kù)的用戶名和密碼。該模塊的功能包括用戶登錄和密碼修改。其功能框圖如圖4.3所示：圖3.3 賬戶管理模塊3.3.2 產(chǎn)品BOM管理該模塊主要是根據(jù)Access數(shù)據(jù)庫(kù)中產(chǎn)品的代碼、名稱、規(guī)格型號(hào)等信息利用Visual Basic 6.0編程語(yǔ)言使其自動(dòng)生成產(chǎn)品的物料清單（BOM）。3.3.

22、3 產(chǎn)品MRP計(jì)算該模塊主要根據(jù)生產(chǎn)計(jì)劃，由BOM表得出一套產(chǎn)品有那些零部件，半成品組裝而成，更進(jìn)一步的計(jì)算出要生產(chǎn)的產(chǎn)品需要的零部件采購(gòu)計(jì)劃依據(jù)庫(kù)存量，便于計(jì)算出采購(gòu)計(jì)劃。該模塊的功能包括MRP計(jì)算、MRP清除、MRP保存。其功能框圖如圖4.4所示：圖3.4 MRP模塊3.3.4庫(kù)存管理該模塊主要是使Access數(shù)據(jù)庫(kù)中的零部件，半成品信息通過Visual Basic 6.0編程使其在前臺(tái)顯示，而且當(dāng)前臺(tái)庫(kù)存數(shù)量修改時(shí)后臺(tái)也能跟著改變。該模塊的功能包括庫(kù)存量的修改和庫(kù)存量的刪除。其功能框圖如圖4.5所示：圖3.5庫(kù)存管理模塊3.3.5 采購(gòu)預(yù)算該模塊主要根據(jù)生產(chǎn)計(jì)劃和庫(kù)存量的信息，通過Vis

23、ual Basic 6.0編程實(shí)現(xiàn)采購(gòu)預(yù)算并進(jìn)行保存，而且當(dāng)庫(kù)存量信息改變時(shí)采購(gòu)信息也跟著變。該模塊的功能包括采購(gòu)預(yù)算和采購(gòu)單保存。其功能框圖如圖4.6所示：圖3.6 采購(gòu)預(yù)算模塊3.3.6 導(dǎo)出采購(gòu)明細(xì)該模塊通過Visual Basic 6.0編程使前面生成的信息能導(dǎo)出到Excel表格中，便于企業(yè)人員閱讀分析產(chǎn)品信息。3.3.7 關(guān)于軟件的簡(jiǎn)單介紹該模塊主要使用Visual Basic 6.0中的一些簡(jiǎn)單控件使關(guān)于該軟件的一些簡(jiǎn)單信息顯示給用戶。4軟件運(yùn)行軟件運(yùn)行演示，在運(yùn)行中需要輸入的數(shù)據(jù)，4.1 用戶登錄模塊雙擊桌面上的“企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開發(fā)”圖標(biāo)，進(jìn)入軟件系統(tǒng)前需要首先進(jìn)行身

24、份認(rèn)證，彈出“用戶登錄”窗口，如圖4.1所示：圖4.1 用戶登陸窗口在上圖中輸入正確的賬號(hào)和密碼，單擊“確定”按鈕進(jìn)入軟件的主界面，如圖4.2所示：圖4.2 軟件主界面用戶登錄模塊的主要代碼如下： Private Sub cmdCancel_Click() 設(shè)置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False Unload MeEnd SubPrivate Sub cmdOK_Click()Dim rs As New ADODB.RecordsetDim sql As StringDim i As Integersql = Select * From 用戶

25、表 where 賬號(hào) = & Me.txtUserName & and 密碼 = & Me.txtPassword & rs.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyIf Not rs.EOF Then CurrUserID = rs(ID) CurrUserName = Me.txtUserName CurrUserPwd = Me.txtPassword LoginState = True Unload Me: MDIForm1.Show 使mdiform1主窗口菜單和工具欄按鈕有效 MDIForm1.Toolbar1.Button

26、s(1).Visible = True For i = 2 To 6 MDIForm1.Toolbar1.Buttons(i).Enabled = True NextElse MsgBox 用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入。, vbOKOnly, 用戶登錄 LoginState = FalseEnd IfEnd SubPublic Function MyXor(str1 As String)Dim i As IntegerDim one As String, newstr As StringFor i = 1 To Len(str1)newstr = newstr & Chr$(Asc(Mid(s

27、tr1, i, 1) Xor &H3)NextMyXor = newstrEnd Function64.2 修改密碼模塊在圖4.2中單擊軟件主菜單中的“用戶”“修改密碼”菜單項(xiàng)，然后彈出“用戶賬號(hào)密碼修改”窗口，如圖4.3所示：圖4.3 用戶帳號(hào)密碼修改窗口在圖4.3中用戶可以修改自己的密碼，輸入要修改的密碼，再確認(rèn)一遍，單擊“確定”即可，可以保證用戶的安全性。修改密碼模塊主要代碼如下：If Me.txtUserName = Then MsgBox 賬號(hào)不能為空。, vbOKOnly, 信息修改: Exit SubIf Me.txtPwd Me.txtPwd2 Then MsgBox 兩次密碼

28、輸入不一致。, vbOKOnly, 信息修改: Exit SubCurrUserName = Me.txtUserNameCurrUserPwd = Me.txtPwdConn.Execute Update 用戶表 Set 賬號(hào)= & Me.txtUserName & ,密碼= & Me.txtPwd & Where ID= & CurrUserIDMsgBox 帳號(hào)修改成功。, vbOKOnly, 帳號(hào)修改74.3 生成BOM模塊在圖4.2中單擊軟件主菜單中的“產(chǎn)品信息”“BOM管理”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的“產(chǎn)品信息”按鈕，軟件調(diào)出“BOM”窗口，如圖4.4所示：圖4.4 產(chǎn)品裝配明細(xì)

29、管理窗口在圖4.4中，點(diǎn)擊產(chǎn)品BOM組中各項(xiàng)，在BOM單和當(dāng)前BOM兩個(gè)表中顯示相應(yīng)的信息，從中可以清晰的看出產(chǎn)品的詳細(xì)情況，能很容易的看出產(chǎn)品所需的材料的代碼、名稱、規(guī)格型號(hào)等各項(xiàng)信息，還能一目了然的看出產(chǎn)品構(gòu)件的上下級(jí)關(guān)系，舉例如圖4.5所示：圖4.5 產(chǎn)品裝配明細(xì)管理窗口生成BOM模塊主要代碼如下：1、Private Sub Cmd_Save_Click()On Error GoTo Err_Cmd_Save_ClickDim NewCode As BooleanNewCode = FalseIf Me.ListView3.SelectedItem Is Nothing Then Exi

30、t SubIf CurrCodeFromK3 Then NewCode = Falsesql = Update 組別表圖紙BOM Set 名稱= & Me.txt名稱 & ,規(guī)格型號(hào)= & Me.txt規(guī)格 & ,序號(hào)= & Val(Me.txt序號(hào)) & ,單位= & Me.txt單位 & ,數(shù)量= & _ Me.txt數(shù)量 & ,工位= & Me.txt工位 & ,倉(cāng)庫(kù)代碼= & Me.txt倉(cāng)庫(kù)代碼 & ,倉(cāng)庫(kù)= & Me.txt倉(cāng)庫(kù) & ,備注= & Me.txt備注 & Where ID = & Me.ListView3.SelectedItem.TagConn.Execute sq

31、l ListView3.SelectedItem.Text = Me.txt序號(hào) ListView3.SelectedItem.SubItems(1) = Me.txt代碼 ListView3.SelectedItem.SubItems(2) = Me.txt名稱 ListView3.SelectedItem.SubItems(3) = Me.txt規(guī)格 ListView3.SelectedItem.SubItems(4) = Me.txt單位 ListView3.SelectedItem.SubItems(5) = Me.txt數(shù)量 ListView3.SelectedItem.SubIte

32、ms(6) = Me.txt倉(cāng)庫(kù) ListView3.SelectedItem.SubItems(7) = Me.txt倉(cāng)庫(kù)代碼 ListView3.SelectedItem.SubItems(8) = Me.txt工位 ListView3.SelectedItem.SubItems(9) = Me.txt備注Exit SubErr_Cmd_Save_Click: MsgBox Err.DescriptionEnd SubXXXX2、物料代碼如下：Private Sub Cmd_SaveBOMNum_Click()On Error GoTo Err_Cmd_SaveBOMNum_ClickIf

33、 txtBOM名稱 = Then MsgBox BOM名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf txtBOM代碼 = Then MsgBox BOM代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf txtBOM代碼.Tag = txtBOM代碼 And txtBOM名稱.Tag = txtBOM名稱 Then Exit SubIf Me.txtBOM名稱.Tag Me.txtBOM名稱 Then sql = Update 組別表K3物料 set 物料名稱= & Me.txtBOM名稱 & Where ID = & Me.ListViewBOM

34、.SelectedItem.Tag Conn.Execute sql Me.ListViewBOM.SelectedItem.SubItems(2) = Me.txtBOM名稱 Me.txtBOM名稱.Tag = Me.txtBOM名稱End If如果物料代碼不存在，則提示需在 K3 中創(chuàng)建If txtBOM代碼.Tag txtBOM代碼 Then sql = Update 組別表K3物料 set 代碼= & Me.txtBOM代碼 & Where ID = & Me.ListViewBOM.SelectedItem.Tag Conn.Execute sql Me.ListViewBOM.Se

35、lectedItem.SubItems(1) = Me.txtBOM代碼 Me.txtBOM代碼.Tag = Me.txtBOM代碼End IfExit SubErr_Cmd_SaveBOMNum_Click: MsgBox Err.DescriptionEnd Sub93、組別名稱修改代碼如下:Private Sub Cmd_SaveGroupInfo_Click()On Error GoTo Err_Cmd_SaveGroupInfo_ClickIf txt組別代碼 = Then MsgBox 組別代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf txt組別名稱 =

36、Then MsgBox 組別名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf txt組別代碼.Tag = txt組別代碼 And txt組別名稱.Tag = txt組別名稱 Then Exit SubIf txt組別代碼.Tag txt組別代碼 Then 如果組別代碼進(jìn)行修改，則判斷其有效性。 首先判斷新組別代碼 在 本地 組別表K3 是否存在 If rst.State Then rst.Close rst.Open Select ID From 組別表K3 where 組別代碼1 = & Me.txt組別代碼 & , Conn, adOpenForwardOnly, a

37、dLockReadOnly If Not rst.EOF Then MsgBox 組別代碼： & txt組別代碼 & vbCrLf & 在本地組別中已經(jīng)存在，請(qǐng)進(jìn)行修改。, vbOKOnly, 信息提示: Exit Sub sql = Update 組別表K3 set 組別代碼1 = & txt組別代碼 & Where 組別代碼 = & Me.TreeView1.SelectedItem.Tag & Conn.Execute sql 更改當(dāng)前節(jié)點(diǎn)的text屬性值 Me.TreeView1.SelectedItem.Text = txt組別代碼 & ( & txt組別名稱 & ) Me.Tree

38、View1.SelectedItem.Key = txt組別代碼 txt組別代碼.Tag = txt組別代碼End IfIf txt組別名稱.Tag txt組別名稱 Then 更新關(guān)聯(lián) 字段只有 一個(gè) 物料 ，則 更新其 代號(hào) 和物料名稱 If Me.ListViewBOM.ListItems.Count = 1 Then Set Me.ListViewBOM.SelectedItem = Me.ListViewBOM.ListItems(1) sql = Update 組別表K3物料 set 物料名稱 = & txt組別名稱 & Where ID= & Me.ListViewBOM.Sele

39、ctedItem.Tag Conn.Execute sql Me.ListViewBOM.SelectedItem.SubItems(2) = txt組別名稱 txtBOM名稱 = txt組別名稱 End If 更改當(dāng)前節(jié)點(diǎn)的text屬性值 Conn.Execute Update 組別表K3 set 組別名稱 = & txt組別名稱 & Where 組別代碼 = & Me.TreeView1.SelectedItem.Tag & Me.TreeView1.SelectedItem.Text = txt組別代碼 & ( & txt組別名稱 & ) txt組別名稱.Tag = txt組別名稱End

40、 IfExit Sub4.4 生產(chǎn)計(jì)劃模塊在圖4.2中單擊軟件主菜單中的“計(jì)劃管理”“生產(chǎn)計(jì)劃”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的“生產(chǎn)計(jì)劃”按鈕，就能看到關(guān)于MRP的界面，如圖4.6所示：圖4.6 產(chǎn)品生產(chǎn)計(jì)劃窗口在圖4.6中，單擊“生產(chǎn)計(jì)劃”按鈕，就可以手動(dòng)在批次輸入“2011年第一季度”計(jì)劃數(shù)量2，交貨日期2011.5。得出生產(chǎn)該產(chǎn)品所需的材料的代碼、名稱、規(guī)格型號(hào)、數(shù)量等信息，關(guān)鍵是能得出出所需各種材料，便于后續(xù)的采購(gòu)預(yù)算。先在“BOM組”選中“LBQ500型強(qiáng)拌”，然后單擊“采購(gòu)計(jì)劃“如圖4.7所示：圖4.7 產(chǎn)品采購(gòu)計(jì)劃窗口然后單擊“計(jì)劃匯總”按鈕，會(huì)彈出如圖4.8所示的窗口，單擊“確定

41、”就顯示計(jì)劃該批次：2011年第一季度匯總完成。圖4.8 采購(gòu)計(jì)劃確認(rèn)窗口 采購(gòu)計(jì)劃模塊主要代碼如下：Private Sub Cmd_KouChuStock_Click()On Error GoTo Err_Cmd_KouChuStock_ClickDim rs As New ADODB.RecordsetDim rst As New ADODB.RecordsetDim CurrPiCiID As LongDim ItemX As ListItemIf Me.LVJiHuaDetail.ListItems.Count rst(庫(kù)存) Then 刪除庫(kù)存項(xiàng)目，計(jì)劃項(xiàng)目做相應(yīng)修改 rs(數(shù)量)

42、= rs(數(shù)量) - rst(庫(kù)存) rs.Update Conn.Execute Delete From K3物料庫(kù)存表 Where ID = & rst(ID) ElseIf rs(數(shù)量) rst(庫(kù)存) Then 刪除計(jì)劃項(xiàng)目，庫(kù)存項(xiàng)目做相應(yīng)修改 Conn.Execute Update K3物料庫(kù)存表 Set 庫(kù)存= & rst(庫(kù)存) - rs(數(shù)量) & Where ID = & rst(ID) rs.Delete adAffectCurrent rs.Update ElseIf rs(數(shù)量) = rst(庫(kù)存) Then 刪除計(jì)劃項(xiàng)目，刪除庫(kù)存項(xiàng)目 Conn.Execute Del

43、ete From K3物料庫(kù)存表 Where ID = & rst(ID) rs.Delete adAffectCurrent rs.Update End If End If rs.MoveNextWend初始化計(jì)劃批次MRP匯總 到 ListView3Me.ListView3.ListItems.Clearsql = Select * from 計(jì)劃批次MRP匯總 Where 批次ID= & CurrPiCiID & Order by 默認(rèn)倉(cāng)庫(kù),代碼If rs.State Then rs.Closers.Open sql, Conn, adOpenForwardOnly, adLockRea

44、dOnlyWhile Not rs.EOF Set ItemX = Me.ListView3.ListItems.Add(, a & rs(ID), rs(代碼) ItemX.Tag = rs(ID) ItemX.SubItems(1) = rs(物料名稱) ItemX.SubItems(2) = rs(規(guī)格型號(hào)) ItemX.SubItems(3) = rs(單位) ItemX.SubItems(4) = rs(數(shù)量) ItemX.SubItems(5) = rs(默認(rèn)倉(cāng)庫(kù)) rs.MoveNextWend標(biāo)記當(dāng)前 批次 已經(jīng)進(jìn)行 了 計(jì)劃 匯總Conn.Execute Update 計(jì)劃批

45、次 Set IsKouChu=1 Where ID= & CurrPiCiIDMe.Frame3.Caption = 計(jì)劃批次： & Me.ListView1.SelectedItem.Text & 匯總明細(xì)（ & Me.ListView3.ListItems.Count & 個(gè)）MsgBox 計(jì)劃批次： & Me.ListView1.SelectedItem.Text & 扣除庫(kù)存完成。, vbOKOnly, 計(jì)劃匯總Exit SubErr_Cmd_KouChuStock_Click: MsgBox Err.Description Resume NextEnd Sub4.5 庫(kù)存管理模塊在圖

46、4.2中單擊軟件主菜單中的“庫(kù)存管理”“庫(kù)存查看”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的“庫(kù)存管理”按鈕，軟件調(diào)出“企業(yè)產(chǎn)品零部件，半成品等庫(kù)存管理”窗口，如圖4.10所示：圖4.9 企業(yè)物料庫(kù)存管理窗口在圖4.10中，在企業(yè)物料庫(kù)存管理窗口下，我們能得到材料的代碼、名稱、規(guī)格型號(hào)、單位、單價(jià)這些信息，為后續(xù)的采購(gòu)預(yù)算提供方便。而且在此窗口下還可以改變零部件的庫(kù)存數(shù)量記錄。若要改變哪個(gè)材料的數(shù)量，需先選中此物料，然后在右邊的庫(kù)存輸入框中輸入要改的數(shù)值，數(shù)據(jù)庫(kù)中庫(kù)存信息變自動(dòng)修改保存了。若要?jiǎng)h除物料明細(xì)的某項(xiàng)記錄，只需選中該項(xiàng)，單擊“刪除”按鈕即可。庫(kù)存管理模塊主要代碼如下：Private Sub For

47、m_Load()On Error GoTo Err_Form_LoadDim ItemX As ListItemIf rs.State Then rs.Closesql = SELECT K3物料庫(kù)存表.ID, K3物料庫(kù)存表.代碼, K3物料表.物料名稱, K3物料表.規(guī)格型號(hào), K3物料表.單位, K3物料庫(kù)存表.庫(kù)存, K3物料表.默認(rèn)倉(cāng)庫(kù) & _ FROM K3物料庫(kù)存表 INNER JOIN K3物料表 ON K3物料庫(kù)存表.代碼 = K3物料表.代碼 Where K3物料庫(kù)存表.代碼 Order By K3物料庫(kù)存表.代碼rs.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyMe.ListView1.ListItems.ClearWhile Not rs.EOF Set Ite