生產(chǎn)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-產(chǎn)品庫(kù)存管理模塊學(xué)位論文

摘要隨著我國(guó)改革開(kāi)放的不斷深入，企業(yè)發(fā)展已經(jīng)從面向區(qū)域市場(chǎng)轉(zhuǎn)向面向?qū)?guó)內(nèi)外廣闊的市場(chǎng)，過(guò)去長(zhǎng)期采用的傳統(tǒng)手工或手工加微機(jī)的管理方式已無(wú)法對(duì)經(jīng)營(yíng)過(guò)程中多層次、多品種、多批量的生產(chǎn)計(jì)劃進(jìn)行管理，也無(wú)法對(duì)任何一種產(chǎn)品生產(chǎn)過(guò)程的動(dòng)態(tài)信息進(jìn)行管理。生產(chǎn)管理系統(tǒng)正是在這種背景之下，以信息技術(shù)為基礎(chǔ)，以基本MRP理論為指導(dǎo)，通過(guò)對(duì)主生產(chǎn)計(jì)劃（MPS）、物料清單（BOM）、庫(kù)存信息的協(xié)調(diào)管理來(lái)實(shí)現(xiàn)對(duì)企業(yè)生產(chǎn)經(jīng)營(yíng)諸因素進(jìn)行優(yōu)化組合和合理配置，提高企業(yè)的經(jīng)營(yíng)質(zhì)量和效率，降低企業(yè)生產(chǎn)成本，優(yōu)化生產(chǎn)管理，全面增強(qiáng)企業(yè)的生存競(jìng)爭(zhēng)能力。本系統(tǒng)以燈飾產(chǎn)品的生產(chǎn)管理為例進(jìn)行設(shè)計(jì)編寫(xiě)，后臺(tái)數(shù)據(jù)庫(kù)采用SQLServer2000，以保證數(shù)據(jù)的安全、高效和穩(wěn)定；前臺(tái)采用MicrosoftVisualBasic6.0作為主要的開(kāi)發(fā)工具，它可與SQLServer2000數(shù)據(jù)庫(kù)無(wú)縫鏈接。主要實(shí)現(xiàn)企業(yè)生產(chǎn)的基礎(chǔ)信息管理、計(jì)劃信息管理、生產(chǎn)設(shè)備管理、物料庫(kù)存管理和用戶(hù)管理以及打印相關(guān)報(bào)表等。關(guān)鍵詞:生產(chǎn)管理系統(tǒng)；VisualBasic；SQLServer2000

AbstractWithourreformandopeningupunceasingdevelopingandconsummating,theenterprisedevelopmenthasbetransformedfromcateringfortheregionalmarkettothevastmarketofdomesticandoverseas.Thepastlong-termuseoftraditionalmanualorhandplusmanagementofcomputeroperationshasbeenunabletoadministratethemulti-level,numerousinvarietyandthemassdistributionofproductionplanadministrationduringoperatingprocess,norcanmanagethedynamicinformationinanyformofaproductoftheproductionprocess.Productionmanagementsystemisinthiscontext,basedoninformationtechnology,whichdirectedbybasicMRPtheory,throughthemasterproductionschedule,billofmaterialandinventoryinformationmanagementtoachievethecoordinationofproductionmanagementandtooptimizethecombinationofvariousfactorsandrationalallocation.Anditcanalsoimprovethequalityandefficiencyofenterprisemanagement,reduceproductioncosts,optimizeproductionmanagement,andenhancetheoverallcompetitivenesstosurvive.Thissystemisdesignedbythesampleoflightingproductsandaccessoriesproductionmanagement.ThebackgroundpartitiondatabaseuseSQLServer2000,toensurethedatasecurity,efficientandstable.Fortheforegroundpartition,whichadoptMicrosoftVisualBasic6.0asamajordevelopmenttool,canbelinkedwithSQLServer2000databaseseamlessly.ThemainintentionoftheProductionManagementSystemistoachievebasedinformationmanagement,planninginformationmanagement,productionequipmentmanagement,productinventorymanagementandusermanagement,andprintoutrelatedreport,etc.Keywords:ProductionManagementSystem;VisualBasic；SQLServer20001.緒論1.1研究生產(chǎn)管理系統(tǒng)的重要意義當(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)部管理都會(huì)遇到以下問(wèn)題：企業(yè)可能擁有卓越的銷(xiāo)售人員推銷(xiāo)產(chǎn)品，但是生產(chǎn)線(xiàn)上的工人卻無(wú)法如期交貨，車(chē)間管理人員則抱怨說(shuō)采購(gòu)部門(mén)沒(méi)有及時(shí)供應(yīng)他們所需要的原料；實(shí)際上，如果采購(gòu)部門(mén)的效率過(guò)高，倉(cāng)庫(kù)里囤積的某些材料很長(zhǎng)時(shí)間都用不完，倉(cāng)庫(kù)庫(kù)位飽和，資金周轉(zhuǎn)很慢；許多公司要用6~13個(gè)星期的時(shí)間，才能計(jì)算出所需要的物料數(shù)量，所以訂貨周期只能為6~13個(gè)星期；訂貨單和采購(gòu)單上的日期和缺料清單上的日期都不同，沒(méi)有一個(gè)是肯定的；財(cái)務(wù)部門(mén)不信賴(lài)倉(cāng)庫(kù)部門(mén)的數(shù)據(jù)，不以它來(lái)計(jì)算制造成本。不能否認(rèn)，以上這些情況正是大多數(shù)企業(yè)目前所面臨的一個(gè)嚴(yán)峻的問(wèn)題，然而針對(duì)這一現(xiàn)象，又能有什么有效的辦法來(lái)解決它呢？為了解決這些問(wèn)題，生產(chǎn)管理系統(tǒng)應(yīng)運(yùn)而生，解決了在生產(chǎn)線(xiàn)上各個(gè)環(huán)結(jié)互不相通所造成的各種問(wèn)題，顯著提高了企業(yè)的經(jīng)營(yíng)質(zhì)量和效率；降低了生產(chǎn)成本，增強(qiáng)了市場(chǎng)競(jìng)爭(zhēng)力；強(qiáng)化了企業(yè)資金流管理，提高了資金利用率；優(yōu)化了生產(chǎn)管理，疏通了生產(chǎn)渠道；提高了生產(chǎn)效率。1.2生產(chǎn)管理系統(tǒng)的現(xiàn)狀分析1.2.1生產(chǎn)管理系統(tǒng)的國(guó)外發(fā)展現(xiàn)狀生產(chǎn)管理系統(tǒng)隨著產(chǎn)品復(fù)雜性的增加、市場(chǎng)競(jìng)爭(zhēng)的加劇以及信息全球化而不斷更新進(jìn)化。本系統(tǒng)的指導(dǎo)思想MRP理論較為先進(jìn)和實(shí)用，解決了企業(yè)物料供需信息集成的問(wèn)題，對(duì)生產(chǎn)計(jì)劃的控制也比較完善。但是其運(yùn)行過(guò)程主要是物流的過(guò)程，并沒(méi)有說(shuō)明企業(yè)的經(jīng)濟(jì)效益，而生產(chǎn)的運(yùn)作過(guò)程，產(chǎn)品從原材料的投入到成品的產(chǎn)出過(guò)程都伴隨著企業(yè)資金的運(yùn)動(dòng)。針對(duì)上述問(wèn)題的提出，1977年美國(guó)注明生產(chǎn)管理專(zhuān)家?jiàn)W列弗·懷特（OliverWight）提出了一個(gè)新概念——制造資源計(jì)劃（ManufacturingResourcesPlanning），被稱(chēng)為MRPⅡ。MRPⅡ以MRP為核心，與MRP的主要區(qū)別就是MRPⅡ運(yùn)用管理會(huì)計(jì)的概念，用貨幣形式說(shuō)明了執(zhí)行企業(yè)“物料計(jì)劃”帶來(lái)的效益，實(shí)現(xiàn)物料信息同資金信息的集成。20世紀(jì)90年代以來(lái)，由于經(jīng)濟(jì)全球化和市場(chǎng)國(guó)際化的發(fā)展，企業(yè)所面臨的競(jìng)爭(zhēng)更趨激烈。以客戶(hù)為中心、基于時(shí)間、面向整個(gè)供應(yīng)鏈的管理成為在新的形勢(shì)下企業(yè)發(fā)展的基本動(dòng)向。企業(yè)資源計(jì)劃（ERP，EnterpriseResourcePlanning）理論與系統(tǒng)在MRPⅡ的基礎(chǔ)上發(fā)展而生。ERP中的企業(yè)資源包括企業(yè)的“三流”資源，即物流資源、資金流資源和信息流資源，ERP實(shí)質(zhì)上就是對(duì)著“三流”資源進(jìn)行全面集成管理的管理信息系統(tǒng)。從國(guó)際的情況來(lái)看，據(jù)美國(guó)權(quán)威市場(chǎng)預(yù)測(cè)研究機(jī)構(gòu)AMRResearch宣布，2008年全球ERP市場(chǎng)總、收入達(dá)148億美元，全球ERP市場(chǎng)在近5年內(nèi)將以年綜合增幅37%的速度發(fā)展，到2012年這一數(shù)字將增至520億，并且ERP的應(yīng)用范圍將從制造業(yè)擴(kuò)展到零售業(yè)、服務(wù)業(yè)、公共事業(yè)、醫(yī)療行業(yè)等。1.2.2銷(xiāo)售管理信息系統(tǒng)的國(guó)內(nèi)發(fā)展現(xiàn)狀進(jìn)入2000年以來(lái)，隨著中央提出“以信息化帶動(dòng)工業(yè)化”戰(zhàn)略，我國(guó)企業(yè)信息化與現(xiàn)代化發(fā)展步伐明顯加快。特別是科技部提出的“制造業(yè)信息化工程”、經(jīng)貿(mào)委提出的“企業(yè)信息化”行動(dòng)，帶動(dòng)和掀起了我國(guó)企業(yè)應(yīng)用ERP的高潮。近兩年，我國(guó)眾多企業(yè)在積極實(shí)施ERP系統(tǒng)，現(xiàn)已有數(shù)千家企業(yè)應(yīng)用ERP系統(tǒng)。有些早期實(shí)施MRPⅡ的企業(yè)在使其系統(tǒng)升級(jí)為ERP系統(tǒng)，并在不斷深化應(yīng)用，功能更加強(qiáng)大，集成化程度越來(lái)越高。先進(jìn)的ERP管理系統(tǒng)提高了企業(yè)的市場(chǎng)競(jìng)爭(zhēng)力，獲得顯著經(jīng)濟(jì)效益。巨大的ERP市場(chǎng)也刺激了國(guó)產(chǎn)化ERP產(chǎn)品應(yīng)用的不斷深入和我國(guó)ERP軟件產(chǎn)業(yè)的迅速發(fā)展，現(xiàn)已有國(guó)產(chǎn)化ERP軟件商數(shù)十家之多?！笆濉?63計(jì)劃也在大力支持和推動(dòng)ERP管理系統(tǒng)的研究，并重點(diǎn)支持了10個(gè)ERP軟件產(chǎn)品的研發(fā)，對(duì)ERP應(yīng)用實(shí)施和產(chǎn)業(yè)發(fā)展產(chǎn)生了較大的影響和推動(dòng)作用。ERP系統(tǒng)應(yīng)用實(shí)施的熱潮正在全國(guó)各省市全面鋪開(kāi)，并在制造業(yè)信息化工程中發(fā)揮著積極推動(dòng)作用。1.3本系統(tǒng)研究?jī)?nèi)容本系統(tǒng)屬于典型的數(shù)據(jù)庫(kù)管理系統(tǒng)，是針對(duì)中小型企業(yè)的生產(chǎn)管理而開(kāi)發(fā)設(shè)計(jì)的，可實(shí)現(xiàn)進(jìn)一步的計(jì)算機(jī)化管理。本系統(tǒng)的基本研究對(duì)象：主生產(chǎn)計(jì)劃主生產(chǎn)計(jì)劃是確定每一具體的最終產(chǎn)品在每一具體時(shí)間段內(nèi)生產(chǎn)數(shù)量的計(jì)劃。這里的最終產(chǎn)品是指對(duì)于企業(yè)來(lái)說(shuō)最終完成、要出場(chǎng)的完成品、它要具體到產(chǎn)品的品種、型號(hào)。它是物料需求計(jì)劃制訂的一個(gè)最重要的數(shù)據(jù)來(lái)源。產(chǎn)品結(jié)構(gòu)與物料清單生產(chǎn)管理系統(tǒng)要正確計(jì)算出物料需求的時(shí)間和數(shù)量，特別是相關(guān)物料需求的數(shù)量和時(shí)間，首先要使系統(tǒng)能夠知道企業(yè)所制造的產(chǎn)品結(jié)構(gòu)和所有要使用到的物料。產(chǎn)品結(jié)構(gòu)列出構(gòu)成成品或裝配件的所有部件、組件、零件等的組成、裝配關(guān)系和數(shù)量要求。它是生產(chǎn)管理系統(tǒng)產(chǎn)品拆零的基礎(chǔ)。舉例來(lái)說(shuō)，一個(gè)大大簡(jiǎn)化了的臺(tái)燈的產(chǎn)品結(jié)構(gòu)如圖1-1所示，它大體反映了臺(tái)燈的構(gòu)成。臺(tái)燈臺(tái)燈燈座（1）燈泡（1）電線(xiàn)（1）插頭（1）燈罩（1）圖1-1簡(jiǎn)化了的臺(tái)燈產(chǎn)品結(jié)構(gòu)圖庫(kù)存信息庫(kù)存信息是保存企業(yè)所有產(chǎn)品、零部件、在制品、原材料等存在狀態(tài)的數(shù)據(jù)庫(kù)。在生產(chǎn)管理系統(tǒng)中，將產(chǎn)品、零部件、在制品、原材料甚至工裝工具等統(tǒng)稱(chēng)為“物料”或“項(xiàng)目”。為便于計(jì)算機(jī)識(shí)別，必須對(duì)物料進(jìn)行編碼，物料編碼是生產(chǎn)管理系統(tǒng)識(shí)別物料的唯一標(biāo)識(shí)。本系統(tǒng)的研究?jī)?nèi)容主要有：能夠控制物料的基本信息及物料的出/入庫(kù)操作，能查詢(xún)出任何時(shí)間的物料出/入庫(kù)情況。生產(chǎn)過(guò)程中能夠?qū)ιa(chǎn)訂單進(jìn)行管理，隨時(shí)掌握生產(chǎn)的進(jìn)度情況。能夠計(jì)算生產(chǎn)產(chǎn)品所需各種物料的數(shù)量，控制物料庫(kù)存。能夠設(shè)置生產(chǎn)設(shè)備的基本信息及攤銷(xiāo)期限，能查詢(xún)每樣生產(chǎn)設(shè)備的所屬車(chē)間部門(mén)。能夠?qū)ιa(chǎn)設(shè)備進(jìn)行報(bào)廢、維修的管理，能查詢(xún)每樣生產(chǎn)設(shè)備的類(lèi)型和狀態(tài)以上所有的功能模塊都需要打印出各種各樣的報(bào)表，用于會(huì)計(jì)查賬或?qū)徍恕?.4系統(tǒng)分工本系統(tǒng)由區(qū)思恩、劉偉仙、林熾堅(jiān)3人分工完成，系統(tǒng)由基礎(chǔ)信息管理、計(jì)劃信息管理、生產(chǎn)設(shè)備管理、產(chǎn)品庫(kù)存管理、系統(tǒng)維護(hù)5個(gè)模塊組成。系統(tǒng)詳細(xì)分工如下：區(qū)思恩負(fù)責(zé)基礎(chǔ)信息管理模塊和生產(chǎn)設(shè)備管理模塊的窗體設(shè)計(jì)和代碼設(shè)計(jì)。劉偉仙負(fù)責(zé)產(chǎn)品庫(kù)存管理功能模塊和系統(tǒng)主界面、登錄模塊的窗體設(shè)計(jì)和代碼設(shè)計(jì)。林熾堅(jiān)負(fù)責(zé)計(jì)劃信息管理模塊和系統(tǒng)維護(hù)模塊的窗體設(shè)計(jì)和代碼設(shè)計(jì)。

2.總體設(shè)計(jì)2.1系統(tǒng)總體功能生產(chǎn)管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序，由基礎(chǔ)信息管理模塊、計(jì)劃信息管理模塊、生產(chǎn)設(shè)備管理模塊、產(chǎn)品庫(kù)存管理模塊、系統(tǒng)維護(hù)模塊等5個(gè)功能模塊組成，規(guī)劃系統(tǒng)功能模塊如下：基礎(chǔ)信息管理模塊該模塊主要包括產(chǎn)品基礎(chǔ)信息、物料基本信息、設(shè)備狀態(tài)設(shè)置、設(shè)備類(lèi)型設(shè)置、設(shè)備攤銷(xiāo)時(shí)間設(shè)置、車(chē)間部門(mén)設(shè)置6部分組成。計(jì)劃信息管理模塊該模塊主要包括生產(chǎn)計(jì)劃單管理、生產(chǎn)計(jì)劃單查詢(xún)、物料需求計(jì)劃、物料需求查詢(xún)4部分。生產(chǎn)設(shè)備管理模塊該模塊主要由生產(chǎn)設(shè)備檔案、生產(chǎn)設(shè)備查詢(xún)、生產(chǎn)設(shè)備報(bào)廢、生產(chǎn)設(shè)備報(bào)廢查詢(xún)、生產(chǎn)設(shè)備維修、生產(chǎn)設(shè)備維修查詢(xún)6部分組成。產(chǎn)品庫(kù)存管理模塊該模塊主要由產(chǎn)品完工入庫(kù)、產(chǎn)品入庫(kù)查詢(xún)、物料入庫(kù)、物料入庫(kù)查詢(xún)、生產(chǎn)領(lǐng)料、生產(chǎn)領(lǐng)料查詢(xún)、物料庫(kù)存信息查詢(xún)7部分組成。系統(tǒng)維護(hù)模塊該模塊主要由操作員設(shè)置、密碼修改、操作權(quán)限設(shè)置、數(shù)據(jù)清理、數(shù)據(jù)備份與恢復(fù)、設(shè)置主窗口圖片6部分組成。

生產(chǎn)管理系統(tǒng)生產(chǎn)管理系統(tǒng)基礎(chǔ)信息管理計(jì)劃信息管理生產(chǎn)設(shè)備管理產(chǎn)品庫(kù)存管理系統(tǒng)維護(hù)產(chǎn)品基礎(chǔ)信息物料基本信息設(shè)備狀態(tài)設(shè)置設(shè)備攤銷(xiāo)時(shí)間設(shè)置車(chē)間部門(mén)設(shè)置生產(chǎn)計(jì)劃單管理生產(chǎn)計(jì)劃單查詢(xún)物料需求計(jì)劃物料需求查詢(xún)生產(chǎn)設(shè)備檔案生產(chǎn)設(shè)備查詢(xún)生產(chǎn)設(shè)備報(bào)廢生產(chǎn)設(shè)備報(bào)廢查詢(xún)生產(chǎn)設(shè)備維修生產(chǎn)設(shè)備維修查詢(xún)產(chǎn)品完工入庫(kù)產(chǎn)品入庫(kù)查詢(xún)物料入庫(kù)物料入庫(kù)查詢(xún)生產(chǎn)領(lǐng)料生產(chǎn)領(lǐng)料查詢(xún)物料庫(kù)存信息查詢(xún)操作員設(shè)查詢(xún)密碼修改操作權(quán)限設(shè)置圖2-1生產(chǎn)管理系統(tǒng)功能架構(gòu)圖2.2系統(tǒng)流程圖本系統(tǒng)主要有兩大管理功能，分別是生產(chǎn)設(shè)備管理和生產(chǎn)計(jì)劃單管理。系統(tǒng)流程圖分別獨(dú)立介紹這兩大管理功能的操作流程。圖2-2生產(chǎn)設(shè)備管理系統(tǒng)流程圖圖2-3生產(chǎn)計(jì)劃單管理系統(tǒng)流程圖2.3系統(tǒng)數(shù)據(jù)流程圖配料配料生產(chǎn)管理生產(chǎn)車(chē)間系統(tǒng)維護(hù)計(jì)劃管理計(jì)劃部門(mén)倉(cāng)庫(kù)部門(mén)設(shè)備管理成品設(shè)備檔案文件設(shè)備報(bào)廢文件設(shè)備維修文件參數(shù)設(shè)置文件操作權(quán)限設(shè)置入庫(kù)文件生產(chǎn)計(jì)劃單物料需求計(jì)劃單領(lǐng)料文件圖2-2生產(chǎn)管理系統(tǒng)數(shù)據(jù)流程圖2.4編碼設(shè)計(jì)本系統(tǒng)的內(nèi)部信息編碼采用了統(tǒng)一的編碼方式。產(chǎn)品編碼產(chǎn)品編號(hào)為英文字母“CP”和3位數(shù)字編碼的組合。例如：CP001。物料編號(hào)物料編號(hào)為英文字母“WL”和3位數(shù)字編碼的組合。例如：WL001。設(shè)備狀態(tài)編號(hào)設(shè)備狀態(tài)編號(hào)為英文字母“ZT”和3位數(shù)字編碼的組合。例如：ZT001。生產(chǎn)計(jì)劃單編號(hào)生產(chǎn)計(jì)劃單編號(hào)為英文字母“JH”加系統(tǒng)日期加3位數(shù)字編碼的組合。例如：JH20110417001。物料需求計(jì)劃單編號(hào)物料需求計(jì)劃單編號(hào)為英文字母“WLXQ”加系統(tǒng)日期加3位數(shù)字編碼的組合。例如：WLXQ20110417001。設(shè)備檔案編號(hào)設(shè)備檔案編號(hào)為英文字母“Sb”加系統(tǒng)日期加英文字母“D”加3位數(shù)字編碼的組合。例如：Sb20110417D001。物料入庫(kù)單編號(hào)物料入庫(kù)單編號(hào)為英文字母“WLRK”加系統(tǒng)日期加英文字母“D”加3位數(shù)字編碼的組合。例如：WLRK20110417D001。生產(chǎn)領(lǐng)料單編號(hào)生產(chǎn)領(lǐng)料單編號(hào)為英文字母“SCLL”加系統(tǒng)日期加英文字母“d”加3位數(shù)字編碼的組合。例如：SCLL20110417d001。

3.具體系統(tǒng)實(shí)現(xiàn)功能介紹3.1系統(tǒng)登錄系統(tǒng)登錄主要用于對(duì)登錄生產(chǎn)管理系統(tǒng)的用戶(hù)進(jìn)行安全性檢查，以防非法用戶(hù)進(jìn)入該系統(tǒng)。只有合法的用戶(hù)才可以登錄系統(tǒng)，同時(shí)根據(jù)操作員的不同給予其相應(yīng)的操作權(quán)限。3.2主窗體主窗口模塊是程序被剛啟動(dòng)時(shí)出現(xiàn)的菜單選擇頁(yè)面，其中包括:基礎(chǔ)信息管理、計(jì)劃信息管理、生產(chǎn)設(shè)備管理、產(chǎn)品庫(kù)存管理、系統(tǒng)維護(hù)、退出系統(tǒng)五個(gè)功能項(xiàng)的選擇及其相關(guān)的快捷按鈕的。用戶(hù)可根據(jù)自己的需要進(jìn)行相應(yīng)功能的操作選擇。主模塊中能顯示操作員的姓名及日期。3.3產(chǎn)品庫(kù)存管理“產(chǎn)品庫(kù)存管理”功能模塊用于設(shè)置、管理產(chǎn)品、物料的基本信息。物料、產(chǎn)品的庫(kù)存信息是生產(chǎn)計(jì)劃能夠完成的決定性依據(jù)?！爱a(chǎn)品庫(kù)存管理”功能模塊主要包括：產(chǎn)品完工入庫(kù)、產(chǎn)品入庫(kù)查詢(xún)、物料入庫(kù)、物料入庫(kù)查詢(xún)、生產(chǎn)領(lǐng)料、生產(chǎn)領(lǐng)料查詢(xún)、物料庫(kù)存信息查詢(xún)7個(gè)部分。3.3.1產(chǎn)品完工入庫(kù)產(chǎn)品完工入庫(kù)包括產(chǎn)品入庫(kù)編號(hào)、產(chǎn)品編號(hào)、產(chǎn)品名稱(chēng)、產(chǎn)品規(guī)格、計(jì)量單位、入庫(kù)數(shù)量、入庫(kù)日期、生產(chǎn)計(jì)劃單、備注信息屬性，能對(duì)產(chǎn)品完工入庫(kù)信息進(jìn)行增加、刪除、修改、查詢(xún)操作。窗體中有產(chǎn)品完工入庫(kù)信息列表，顯示系統(tǒng)已完工入庫(kù)的產(chǎn)品信息。3.3.2產(chǎn)品入庫(kù)查詢(xún)產(chǎn)品入庫(kù)查詢(xún)可以按產(chǎn)品入庫(kù)編號(hào)、產(chǎn)品編號(hào)、產(chǎn)品名稱(chēng)、產(chǎn)品規(guī)格、計(jì)量單位、入庫(kù)數(shù)量、入庫(kù)日期、生產(chǎn)計(jì)劃單為查詢(xún)條件，查詢(xún)出相應(yīng)的記錄，并打印報(bào)表，顯示打印時(shí)間，合計(jì)入庫(kù)數(shù)量。3.3.3物料入庫(kù)物料入庫(kù)包括產(chǎn)品物料入庫(kù)編號(hào)、物料編號(hào)、物料名稱(chēng)、物料規(guī)格、計(jì)量單位、入庫(kù)數(shù)量、入庫(kù)日期、備注信息屬性，能對(duì)物料入庫(kù)信息進(jìn)行增加、刪除、修改、查詢(xún)操作。窗體中有物料入庫(kù)信息列表，顯示系統(tǒng)已入庫(kù)的物料信息。3.3.4物料入庫(kù)查詢(xún)物料入庫(kù)查詢(xún)可以按物料入庫(kù)編號(hào)、物料編號(hào)、物料名稱(chēng)、物料規(guī)格、計(jì)量單位、入庫(kù)數(shù)量、入庫(kù)日期、備注信息為查詢(xún)條件，查詢(xún)出相應(yīng)的記錄，并打印報(bào)表，顯示打印時(shí)間，合計(jì)入庫(kù)數(shù)量。3.3.5生產(chǎn)領(lǐng)料生產(chǎn)領(lǐng)料包括領(lǐng)料單編號(hào)、生產(chǎn)計(jì)劃單、產(chǎn)品編號(hào)、產(chǎn)品名稱(chēng)、產(chǎn)品規(guī)格、產(chǎn)品單位、產(chǎn)品數(shù)量、物料編號(hào)、物料名稱(chēng)、物料規(guī)格、物料單位、物料數(shù)量/單位產(chǎn)品、物料數(shù)量、已領(lǐng)數(shù)量、領(lǐng)料數(shù)量、未領(lǐng)數(shù)量、領(lǐng)料日期、備注信息屬性，能對(duì)物料入庫(kù)信息進(jìn)行增加、刪除、修改、查詢(xún)操作。窗體中有生產(chǎn)領(lǐng)料基本信息列表，顯示系統(tǒng)已生產(chǎn)領(lǐng)料的基本信息。3.3.6生產(chǎn)領(lǐng)料查詢(xún)生產(chǎn)領(lǐng)料查詢(xún)可以按領(lǐng)料單編號(hào)、生產(chǎn)計(jì)劃單、產(chǎn)品編號(hào)、產(chǎn)品名稱(chēng)、產(chǎn)品規(guī)格、產(chǎn)品單位、產(chǎn)品數(shù)量、物料編號(hào)、物料名稱(chēng)、物料規(guī)格、物料單位、物料數(shù)量/單位產(chǎn)品、物料數(shù)量、已領(lǐng)數(shù)量、領(lǐng)料數(shù)量、未領(lǐng)數(shù)量、領(lǐng)料日期、備注信息為查詢(xún)條件，查詢(xún)出相應(yīng)的記錄，并導(dǎo)出Word文檔打印報(bào)表。3.3.7物料庫(kù)存信息查詢(xún)物料庫(kù)存查詢(xún)可以按物料編號(hào)、物料名稱(chēng)、物料規(guī)格、物料單位、庫(kù)存數(shù)量為查詢(xún)條件，查詢(xún)出相應(yīng)的記錄，并導(dǎo)打印報(bào)表，顯示日期、合計(jì)庫(kù)存數(shù)量。

4.數(shù)據(jù)庫(kù)各庫(kù)、表及其作用4.1庫(kù)的建立圖4-1生產(chǎn)管理系統(tǒng)概念模型數(shù)據(jù)庫(kù)是管理系統(tǒng)的核心內(nèi)容，數(shù)據(jù)表結(jié)構(gòu)設(shè)計(jì)是否合理將直接影響到能否正確存取數(shù)據(jù)。本數(shù)據(jù)庫(kù)在SQLserver2000中創(chuàng)建。創(chuàng)建過(guò)程如下：打開(kāi)SQLserver2000企業(yè)管理器，新建一個(gè)新的數(shù)據(jù)庫(kù)。為數(shù)據(jù)庫(kù)取名db_SCGL，然后保存。右鍵點(diǎn)擊“數(shù)據(jù)庫(kù)”出來(lái)一個(gè)菜單，再右鍵“新建表”就可以了。使用相同的方法再創(chuàng)建其他表，這里不再贅述。以后可以直接對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改或刪除。4.2庫(kù)介紹生產(chǎn)管理系統(tǒng)數(shù)據(jù)庫(kù)由16個(gè)數(shù)據(jù)庫(kù)表組成，分別是：車(chē)間部門(mén)信息表、產(chǎn)品入庫(kù)信息表、產(chǎn)品信息表、設(shè)備報(bào)廢信息表、設(shè)備類(lèi)型信息表、設(shè)備攤銷(xiāo)時(shí)間表、設(shè)備維修信息表、設(shè)備狀態(tài)信息表、生產(chǎn)計(jì)劃單信息表、生產(chǎn)領(lǐng)料信息表、生產(chǎn)設(shè)備信息表、物料庫(kù)存信息表、物料需求信息表、物料需求信息表、物料信息表、用戶(hù)信息表。圖4-2數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖4.3表的設(shè)計(jì)表4-1產(chǎn)品入庫(kù)表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空cprk_idvarchar20入庫(kù)編號(hào)主鍵Ncprk_cpbhvarchar50產(chǎn)品編號(hào)Ncprk_cpmcvarchar50產(chǎn)品名稱(chēng)Ncprk_cpggvarchar50產(chǎn)品規(guī)格Ncprk_jldwvarchar50計(jì)量單位Ncprk_rkslnumeric9入庫(kù)數(shù)量Ncprk_rkrqvarchar50入庫(kù)日期Ncprk_ddbhvarchar30訂單編號(hào)Ncprk_bzvarchar100備注信息Y

表4-2產(chǎn)品信息表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空cpxx_idvarchar30產(chǎn)品編號(hào)主鍵Ncpxx_cpmcvarchar50產(chǎn)品名稱(chēng)Ncpxx_cpggvarchar50產(chǎn)品規(guī)格Ncpxx_jldwvarchar50產(chǎn)品計(jì)量單位Ncpxx_bzvarchar50備注信息Y表4-3生產(chǎn)計(jì)劃單表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空scjhd_idvarchar30生產(chǎn)計(jì)劃單編號(hào)主鍵Nscjhd_cpbhvarchar50產(chǎn)品編號(hào)Nscjhd_cpmcvarchar50產(chǎn)品名稱(chēng)Nscjhd_cpggvarchar50產(chǎn)品規(guī)格Nscjhd_jldwvarchar50計(jì)量單位Nscjhd_jhslnumeric9計(jì)劃數(shù)量Nscjhd_tcrqvarchar50計(jì)劃投產(chǎn)日期Nscjhd_wgrqvarchar50完工日期Nscjhd_wcfvarchar10是否完成Nscjhd_bztext16備注信息Y表4-4生產(chǎn)領(lǐng)料表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空scll_idvarchar50領(lǐng)料單號(hào)主鍵Nscll_scjhdvarchar50生產(chǎn)計(jì)劃單Yscll_cpbhvarchar50產(chǎn)品編號(hào)Yscll_cpmcvarchar50產(chǎn)品名稱(chēng)Yscll_cpggvarchar50產(chǎn)品規(guī)格Yscll_cpdwvarchar50產(chǎn)品單位Yscll_cpslnumeric9產(chǎn)品數(shù)量Yscll_wlbhvarchar50物料編號(hào)Yscll_wlmcvarchar50物料名稱(chēng)Yscll_wlggvarchar50物料規(guī)格Yscll_wldwvarchar50物料單位Yscll_dwslnumeric9每單位產(chǎn)品所需的物料數(shù)量Yscll_wlslnumeric9物料數(shù)量Yscll_ylslnumeric9已領(lǐng)數(shù)量Yscll_llslnumeric9領(lǐng)料數(shù)量Yscll_syslnumeric9剩余未領(lǐng)數(shù)量Yscll_llrqvarchar50領(lǐng)料日期Yscll_bzvarchar50備注信息Y表4-5生產(chǎn)設(shè)備表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空scsb_sbbhvarchar50設(shè)備編號(hào)主鍵Nscsb_sbmcvarchar50設(shè)備名稱(chēng)Nscsb_sybmvarchar50使用部門(mén)Nscsb_sblxvarchar50設(shè)備類(lèi)型Nscsb_sbztvarchar50設(shè)備狀態(tài)Nscsb_syrqvarchar50啟用日期Nscsb_gmjznumeric9設(shè)備購(gòu)買(mǎi)價(jià)值Nscsb_txsjnumeric9攤銷(xiāo)時(shí)間Nscsb_bztext16備注信息Y表4-6物料庫(kù)存表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空wlkc_wlbhvarchar50物料編號(hào)主鍵Nwlkc_wlmcvarchar50物料名稱(chēng)Ywlkc_wlggvarchar50物料規(guī)格Ywlkc_wldwvarchar50物料單位Ywlkc_kcslnumeric9庫(kù)存數(shù)量Y表4-7物料入庫(kù)表字段名數(shù)據(jù)類(lèi)型長(zhǎng)度描述備注允許為空wlrk_rkidvarchar30入庫(kù)編號(hào)主鍵Nwlrk_wlbhvarchar50物料編號(hào)Nwlrk_wlmcvarchar50物料名稱(chēng)Ywlrk_wlggvarchar50物料規(guī)格Ywlrk_jldwvarchar50物料單位Ywlrk_rkslvarchar50入庫(kù)數(shù)量Ywlrk_rkrqvarchar50入庫(kù)時(shí)間Nwrk_bztext16備注信息Y

5.詳細(xì)設(shè)計(jì)5.1設(shè)計(jì)工具選取數(shù)據(jù)庫(kù)管理系統(tǒng)軟件采用SQLServer2000，以保證數(shù)據(jù)的安全、高效和穩(wěn)定。開(kāi)發(fā)工具采用MicrosoftVisualBasic6.0，它能與SQLServer2000數(shù)據(jù)庫(kù)無(wú)縫鏈接，且界面親切，語(yǔ)法簡(jiǎn)單直觀，容易掌握。5.2窗體設(shè)計(jì)和代碼設(shè)計(jì)5.2.1系統(tǒng)登錄系統(tǒng)登錄主要用于對(duì)登錄生產(chǎn)管理系統(tǒng)的用戶(hù)進(jìn)行安全性檢查，以防止非法用戶(hù)進(jìn)入該系統(tǒng)。只有合法的用戶(hù)，才可以登錄本系統(tǒng)，同時(shí)系統(tǒng)根據(jù)操作員的不同，給予這個(gè)操作員相應(yīng)的操作權(quán)限。驗(yàn)證操作員及其密碼，主要通過(guò)對(duì)數(shù)據(jù)表tb_user的查詢(xún)，結(jié)合If語(yǔ)句判斷用戶(hù)選定的操作員及其輸入的密碼是否符合數(shù)據(jù)庫(kù)中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示錯(cuò)誤信息。如果錯(cuò)誤超過(guò)3次，則強(qiáng)行退出系統(tǒng)。生產(chǎn)管理系統(tǒng)登錄界面如圖5-1所示。圖5-1“生產(chǎn)管理系統(tǒng)登錄”窗體運(yùn)行結(jié)果在窗體加載時(shí)，向ListView控件中添加所有的操作員信息，并將顯示在前面的操作員頭像、操作員編號(hào)、操作員姓名顯示在操作員信息中，其實(shí)現(xiàn)的代碼如下：PrivateSubForm_Load()rs.Open"select*fromtb_user",cnn,adOpenKeyset'打開(kāi)對(duì)象Ifrs.RecordCount>0Thenrs.MoveFirst'移至第一條記錄'將第一條記錄的信息顯示在相應(yīng)的控件中Lbl_Czyid.Caption=rs.Fields("user_id")Lbl_Name.Caption=rs.Fields("user_name")MyIcon=Val(Right(rs.Fields("user_tx"),Val(Len(rs.Fields("user_tx"))-2)))SetImg_Tx.Picture=Imt_Tx.ListImages(MyIcon).Picture'向ListView中添加圖片DoWhilers.EOF=FalseMystr=rs.Fields("user_name")MyIcon=Val(Right(rs.Fields("user_tx"),Val(Len(rs.Fields("user_tx"))-2)))SetitmX=ListView1.ListItems.Add(,,Mystr,MyIcon)rs.MoveNextLoopEndIfrs.Close'關(guān)閉對(duì)象Txt_mm.Text=""EndSub當(dāng)用戶(hù)單擊ListView控件中操作員列表項(xiàng)時(shí)，系統(tǒng)會(huì)自動(dòng)將用戶(hù)所選擇的操作員的頭像、操作員編號(hào)、操作員姓名顯示在相應(yīng)的位置，以便用戶(hù)確認(rèn)該信息是否正確。其實(shí)現(xiàn)的代碼如下：PrivateSubListView1_Click()IfListView1.ListItems.Count>0Then'查詢(xún)操作員信息rs.Open"select*fromtb_userwhereuser_Name='"+ListView1.SelectedItem+"'",cnn,adOpenKeysetIfrs.RecordCount>0Then'如果記錄數(shù)大于零'顯示操作員信息Lbl_Czyid.Caption=rs.Fields("user_id"):Lbl_Name.Caption=rs.Fields("user_Name")MyIcon=Val(Right(rs.Fields("user_tx"),Val(Len(rs.Fields("user_tx"))-2)))'將所選擇的操作員頭像添加到Image控件中SetImg_Tx.Picture=Imt_Tx.ListImages(MyIcon).PictureEndIfrs.Close'關(guān)閉數(shù)據(jù)集對(duì)象EndIfEndSub當(dāng)用戶(hù)選定相應(yīng)的操作員，并在文本框中輸入密碼，單擊【確定】按鈕或在Txt_mm文本框中按〈Enter〉鍵，系統(tǒng)會(huì)核實(shí)其輸入的密碼是否正確，如果正確即進(jìn)入到生產(chǎn)管理系統(tǒng)內(nèi)部，否則提示用戶(hù)輸入錯(cuò)誤。如果用戶(hù)輸入的錯(cuò)誤密碼超過(guò)3次，系統(tǒng)將強(qiáng)行退出。其實(shí)現(xiàn)代碼如下：PrivateSubLabel7_Click()rs.Open"select*fromtb_userwhereuser_name='"+Trim(Lbl_Name.Caption)+"'",cnn,adOpenKeysetIfrs.RecordCount>0Then'如果記錄數(shù)大于零'驗(yàn)證操作員及密碼IfTxt_mm.Text=rs.Fields("user_mm")Then'如果輸入密碼正確LoadFrm_Main'加載窗體Frm_Main.ShowFrm_Main.StatusBar1.Panels(2).Text=Lbl_Name.Caption'設(shè)置狀態(tài)欄信息UnloadMe'關(guān)閉本窗體Else'否則IfLbl_Name.Caption=""Then'如果操作員姓名為空MsgBox"請(qǐng)選擇操作員！",,"信息提示"ListView1.SetFocus'設(shè)置焦點(diǎn)ElseIfTxt_mm.Text<>rs.Fields("user_mm")Then'如果密碼輸入錯(cuò)誤MsgBox"密碼錯(cuò)誤,請(qǐng)重新輸入密碼！",,"信息提示"Txt_Time.Text=Val(Txt_Time.Text)+1'計(jì)數(shù)文本框中的數(shù)量加一Txt_mm.SetFocus'將焦點(diǎn)設(shè)置在密碼文本框中EndIfEndIfIfTxt_Time.Text="3"Then'密碼錯(cuò)誤3次，退出系統(tǒng)MyMsg=MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢(xún)！",,"信息提示")IfMyMsg=vbOKThenEndEndIfEndIfEndIfrs.CloseEndSub5.2.2主窗體主窗體主要是對(duì)生產(chǎn)管理系統(tǒng)的各個(gè)子功能模塊進(jìn)行調(diào)用，并在主窗體中顯示操作員的姓名及日期，“生產(chǎn)管理系統(tǒng)主窗體”窗口運(yùn)行結(jié)果如圖5-2所示。圖5-2“生產(chǎn)管理系統(tǒng)主窗體”窗口運(yùn)行結(jié)果該界面設(shè)計(jì)中一個(gè)重要的環(huán)節(jié)是利用VB提供的菜單編輯器設(shè)計(jì)窗體菜單。如圖5-3所示。圖5-3生產(chǎn)管理系統(tǒng)菜單設(shè)計(jì)在窗體加載時(shí)，調(diào)用自定義過(guò)程Tree_Change，設(shè)置TreeView控件中的數(shù)據(jù)信息。其設(shè)計(jì)思路是：首先將菜單中的項(xiàng)目存儲(chǔ)到數(shù)據(jù)表tb_SCGL_menu中，在窗體啟動(dòng)時(shí)，利用嵌套循環(huán)向TreeView控件中添加數(shù)據(jù)信息。其實(shí)現(xiàn)的代碼如下：'自定義一個(gè)過(guò)程，用于顯示TreeView控件中的數(shù)據(jù)PublicSubTree_change()Dimkey,Text,BH,StrTempAsStringDimNodAsNode'定義一個(gè)節(jié)點(diǎn)變量rs1.Open"selectdistinctmenu_menu,menu_menuidfromtb_SCGL_menuorderbymenu_menuid",cnn,adOpenKeysetIfrs1.RecordCount>0Then'如果記錄數(shù)大于零rs1.MoveFirst'移至第一條記錄集DoWhilers1.EOF=False'循環(huán)讀取第1層節(jié)點(diǎn)中的數(shù)據(jù)信息key=Trim(rs1.Fields("menu_menu"))Text=rs1.Fields("menu_menu")StrTemp=rs1.Fields("menu_menu")Setnode1=TreeView1.Nodes.Add(,tvwChild,key,Text,1)'給第1層節(jié)點(diǎn)賦與數(shù)值rs2.Open"select*fromtb_SCGL_menuwheremenu_menu='"+StrTemp+"'",cnn,adOpenKeysetIfrs2.RecordCount>0Thenrs2.MoveFirstDoWhilers2.EOF=False'循環(huán)讀取第2層節(jié)點(diǎn)中的數(shù)據(jù)信息key=Trim(rs2.Fields("menu_submenu"))Text=rs2.Fields("menu_submenu")'給第2層節(jié)點(diǎn)賦與數(shù)值SetNode2=TreeView1.Nodes.Add(node1.Index,tvwChild,key,Text,2)rs2.MoveNextLoopEndIfrs2.Closers1.MoveNextLoopEndIfrs1.CloseEndSub5.2.3物料入庫(kù)當(dāng)某種物料庫(kù)存不足或增加一種新物料的時(shí)候，就要進(jìn)行物料入庫(kù)的操作，使生產(chǎn)能夠順利進(jìn)行?！拔锪先霂?kù)”窗體實(shí)現(xiàn)的主要功能是對(duì)物料入庫(kù)單進(jìn)行增加、刪除、修改、查找等操作。5.2.4生產(chǎn)領(lǐng)料生產(chǎn)領(lǐng)料管理是生產(chǎn)管理中重要的一環(huán)，它決定著產(chǎn)品生產(chǎn)是否能正常地進(jìn)行下去。“生產(chǎn)領(lǐng)料”窗體實(shí)現(xiàn)的主要功能是對(duì)生產(chǎn)領(lǐng)料單行增加、刪除、修改、查找等操作。“生產(chǎn)領(lǐng)料”窗體的運(yùn)行結(jié)果如圖5-4所示。圖5-4“生產(chǎn)領(lǐng)料”窗口運(yùn)行結(jié)果在向生產(chǎn)領(lǐng)料單中添加信息的過(guò)程中，當(dāng)用戶(hù)選中相應(yīng)的生產(chǎn)計(jì)劃單后，就可以在相應(yīng)的文本框中顯示該計(jì)劃單所需的產(chǎn)品編號(hào)、產(chǎn)品名稱(chēng)、產(chǎn)品規(guī)格、產(chǎn)品單位以及該計(jì)劃單所需的產(chǎn)品數(shù)量了，同時(shí)在物料編號(hào)組合框中顯示該產(chǎn)品所需的物料信息。其實(shí)現(xiàn)的關(guān)鍵代碼如下：PrivateSubCbx_Scjhd_LostFocus()Cbx_Scjhd.BackColor=&HFFFFFF'設(shè)置背景色'查詢(xún)相應(yīng)的計(jì)劃單信息rs3.Open"select*fromtb_SCGL_scjhdwherescjhd_id='"+Cbx_Scjhd.Text+"'",cnn,adOpenKeysetIfrs3.RecordCount>0Then'如果記錄大于零查詢(xún)所選的生產(chǎn)計(jì)劃單的相關(guān)信息'設(shè)置相應(yīng)文本框中的內(nèi)容查詢(xún)所選的生產(chǎn)計(jì)劃單的相關(guān)信息Text1(1).Text=rs3.Fields("scjhd_cpbh")Text1(2).Text=rs3.Fields("scjhd_cpmc")Text1(3).Text=rs3.Fields("scjhd_cpgg")Text1(4).Text=rs3.Fields("scjhd_jldw")Text1(5).Text=rs3.Fields("scjhd_jhsl")rs4.Open"select*fromtb_SCGL_wlxxwherewlxx_cpbh='"+rs3.Fields("scjhd_cpbh")+"'",cnn,adOpenKeysetIfrs4.RecordCount>0Then查詢(xún)所選的生產(chǎn)計(jì)劃單所需產(chǎn)品的物料信息Cbx_wlbh.Clear'清除物料組合框中的內(nèi)容查詢(xún)所選的生產(chǎn)計(jì)劃單所需產(chǎn)品的物料信息Fori=0Tors4.RecordCount-1'向物料文本框中添加數(shù)據(jù)項(xiàng)Cbx_wlbh.AddItemTrim(rs4.Fields("wlxx_id"))rs4.MoveNextNextiCbx_wlbh.ListIndex=0ElseCbx_wlbh.ClearMsgBox"該產(chǎn)品沒(méi)有相應(yīng)的物料信息！",,"信息提示"ExitSubEndIfrs4.CloseEndIfrs3.Close'查詢(xún)計(jì)劃單表中是否有該計(jì)劃單Myrs.Open"select*fromtb_SCGL_scjhdwherescjhd_id='"+Cbx_Scjhd.Text+"'",cnn,adOpenKeysetIfMyrs.RecordCount<=0ThenMsgBox"請(qǐng)?jiān)谙吕斜碇羞x擇正確的生產(chǎn)計(jì)劃單！",,"信息提示"查詢(xún)選擇或輸入的是否是正確的生產(chǎn)計(jì)劃單編號(hào)信息Cbx_Scjhd.ListIndex=0查詢(xún)選擇或輸入的是否是正確的生產(chǎn)計(jì)劃單編號(hào)信息Cbx_Scjhd.SetFocusMyrs.CloseExitSubEndIfMyrs.CloseEndSub5.2.5生產(chǎn)領(lǐng)料查詢(xún)“生產(chǎn)領(lǐng)料查詢(xún)”窗體可以用于對(duì)所有生產(chǎn)領(lǐng)料單按特定條件進(jìn)行查詢(xún)等操作，并可以通過(guò)下面的列表瀏覽對(duì)應(yīng)的生產(chǎn)領(lǐng)料單信息。點(diǎn)擊【打印】按鈕即可顯示并能打印相對(duì)應(yīng)的生產(chǎn)領(lǐng)料清單?！吧a(chǎn)領(lǐng)料查詢(xún)”窗體及其打印預(yù)覽的運(yùn)行結(jié)果如圖5-5和圖5-6所示。圖5-5“生產(chǎn)領(lǐng)料查詢(xún)”窗口運(yùn)行結(jié)果圖5-6“生產(chǎn)領(lǐng)料查詢(xún)”窗口的打印預(yù)覽運(yùn)行結(jié)果在程序運(yùn)行時(shí)，打開(kāi)“生產(chǎn)設(shè)備查詢(xún)”窗口，點(diǎn)擊【打印】按鈕就能引用WORD應(yīng)用程序進(jìn)行打印預(yù)覽并打印，該功能是通過(guò)“Cmd_DY”的Click事件來(lái)實(shí)現(xiàn)的。其實(shí)現(xiàn)的關(guān)鍵代碼如下：PrivateSubCmd_DY_Click()'打印Frm_Main.ShowDimiAsInteger,jAsIntegerDimifieldcountAsInteger,irecordcountAsIntegerDimwdappAsWord.ApplicationDimwddocAsWord.DocumentDimatableAsWord.TableWithAdodc1.RecordsetAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstifieldcount=.Fields.Countirecordcount=.RecordCountEndWithOnErrorResumeNext'創(chuàng)建word應(yīng)用程序，這一句話(huà)打開(kāi)WordSetwdapp=CreateObject("Word.Application")'在word中添加一個(gè)新文檔Setwddoc=wdapp.Documents.Addwddoc.PageSetup.Orientation=wdOrientLandscapeWithwdapp.Visible=True.Activate'在word中增加一個(gè)表格Setatable=.ActiveDocument.Tables.Add(.Selection.Range,irecordcount+1,ifieldcount)Fori=0Toifieldcount-1atable.Cell(1,i+1).Range.InsertAfterDgr_Scll.Columns(i).CaptionNexti'指定表格內(nèi)容Fori=0Toirecordcount-1Forj=0Toifieldcount-1Dgr_Scll.Row=iDgr_Scll.Col=jatable.Cell(i+2,j+1).Range.InsertAfterDgr_Scll.TextNextjNextiEndWith'清除word對(duì)象Setwdapp=NothingSetwddoc=NothingFrm_Main.Enabled=TrueEndSub5.2.6產(chǎn)品完工入庫(kù)產(chǎn)品生產(chǎn)完成后，應(yīng)該進(jìn)行產(chǎn)品完工入庫(kù)操作。這是整個(gè)生產(chǎn)管理系統(tǒng)工作流程的最后一個(gè)環(huán)節(jié)。“產(chǎn)品完工入庫(kù)”窗體實(shí)現(xiàn)的主要功能是對(duì)產(chǎn)品入庫(kù)單行增加、刪除、修改、查找等操作。5.3主要問(wèn)題和解決方案如何動(dòng)態(tài)設(shè)置主窗口圖片在一般的程序中，都會(huì)在主窗體中設(shè)置一張能代表本系統(tǒng)特色的圖片。那么，怎么樣才能根據(jù)自己的喜好更換主窗體的圖片呢？經(jīng)過(guò)再三學(xué)習(xí)與查找資料，終于找到了解決的方案：首先，在應(yīng)用程序所在的路徑中新建一個(gè)名為picture.txt的文本文件，用于存儲(chǔ)所選擇圖片的路徑信息，并在窗體上添加“CommonDialog”控件，該控件是“ActiveX”控件，在使用之前必須從“部件”對(duì)話(huà)框中添加到工具箱中。然后，在窗體加載時(shí)，加入如下代碼：'設(shè)置主窗口圖片OnErrorGoToLoadErr'轉(zhuǎn)出錯(cuò)處理Open(App.Path&"\picture.txt")ForInputAs#1LineInput#1,intexttemp=intextClose#1Image1.Picture=LoadPicture(intext)b=App.Path&"\Image\界面\VB生產(chǎn)管理系統(tǒng)第4套主界面.jpg"ExitSubLoadErr:'如果所設(shè)置的主窗體圖片找不到，則賦給它一個(gè)固定路徑的圖片Image1.Picture=LoadPicture(App.Path&"\Image\界面\VB生產(chǎn)管理系統(tǒng)第4套主界面.jpg")在執(zhí)行設(shè)置圖片的操作時(shí)，如點(diǎn)擊“點(diǎn)此換圖”按鈕，系統(tǒng)將執(zhí)行如下代碼：'設(shè)置主窗口圖片Dimstr'定義變量CommonDialog1.Filter="BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片(*.GIF)|*.GIF|所有文件(*.*)|*.*"CommonDialog1.ShowOpenIfCommonDialog1.FileName<>""ThenImage1.Picture=LoadPicture(CommonDialog1.FileName)str=CommonDialog1.FileNameOpen(App.Path&"\picture.txt")ForOutputAs#1Print#1,strClose#1CommonDialog1.FileName=""ElseCommonDialog1.FileName=""EndIf

6.系統(tǒng)評(píng)價(jià)6.1系統(tǒng)特點(diǎn)由于操作人員的計(jì)算機(jī)操作能力普遍較差，因此本系統(tǒng)具有良好的人機(jī)交互界面。由于本系統(tǒng)的使用對(duì)象較多，因此具有完備的權(quán)限管理功能。完全人性化設(shè)計(jì)，無(wú)須專(zhuān)業(yè)人士指導(dǎo)，即可操作本系統(tǒng)。方便的、全方位的數(shù)據(jù)查詢(xún)功能。自動(dòng)完成數(shù)據(jù)計(jì)算，盡量減少人工干預(yù)。強(qiáng)大的報(bào)表打印功能。6.2存在問(wèn)題和改進(jìn)意見(jiàn)由于技術(shù)水平和知識(shí)面有限，我們完成的系統(tǒng)仍存在著一些不盡完美的問(wèn)題，以下列出幾點(diǎn)：制定物料需求計(jì)劃一次只能新增一種物料的需求，不能形成一個(gè)快捷的制定過(guò)程，如批量制定計(jì)劃，從而大大減少工作量。對(duì)記錄進(jìn)行刪除時(shí)只能單一刪除，這樣會(huì)造成一定的時(shí)間浪費(fèi)。系統(tǒng)其實(shí)是沒(méi)有一個(gè)讓人一目了然的物料清單，即一種產(chǎn)品需要哪些物料沒(méi)有一個(gè)很直觀的界面顯示出來(lái)。面對(duì)以上問(wèn)題，我們需要從技術(shù)上做更大的改進(jìn)。如果，在設(shè)計(jì)的前期就有個(gè)清楚而全面的計(jì)劃，我想，我們的系統(tǒng)會(huì)做得更好。6.3系統(tǒng)擴(kuò)展生產(chǎn)管理系統(tǒng)可以作為一個(gè)獨(dú)立的系統(tǒng)運(yùn)行，也可以和其他的應(yīng)用系統(tǒng)結(jié)合起來(lái)，實(shí)現(xiàn)數(shù)據(jù)的共享。另外，一個(gè)ERP系統(tǒng)實(shí)際上是由生產(chǎn)管理、財(cái)務(wù)管理、供應(yīng)管理（進(jìn)銷(xiāo)存管理）幾大子系統(tǒng)構(gòu)成的，隨著計(jì)算機(jī)技術(shù)的應(yīng)用，人力資源管理、客戶(hù)關(guān)系管理等子系統(tǒng)也逐漸被納入ERP系統(tǒng)的范疇。6.4心得體會(huì)經(jīng)過(guò)努力，我的畢業(yè)設(shè)計(jì)終于告一段落了,但是現(xiàn)在回想起來(lái)做畢業(yè)設(shè)計(jì)的整個(gè)過(guò)程，頗有心得，其中有苦也有甜，艱辛同時(shí)又充滿(mǎn)樂(lè)趣,不過(guò)樂(lè)趣盡在其中！沒(méi)有接受任務(wù)以前，覺(jué)得畢業(yè)設(shè)計(jì)只是對(duì)這幾年來(lái)所學(xué)知識(shí)的單純總結(jié)，但是通過(guò)這次做畢業(yè)設(shè)計(jì)發(fā)現(xiàn)畢業(yè)設(shè)計(jì)不僅是對(duì)前面所學(xué)知識(shí)的一種檢驗(yàn)，而且也是對(duì)自己能力的一種提高。這次我們畢業(yè)設(shè)計(jì)的題目是生產(chǎn)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)。這是我對(duì)自己的考驗(yàn)，我希望通過(guò)自己的努力完成設(shè)計(jì)并希望有所突破。于是本次設(shè)計(jì)過(guò)程中我完全按照軟件設(shè)計(jì)步驟的要求來(lái)進(jìn)行，從課題分析開(kāi)始，再進(jìn)行總體設(shè)計(jì)、詳細(xì)設(shè)計(jì),最后到系統(tǒng)實(shí)現(xiàn)。每一步都讓我將理論學(xué)習(xí)的知識(shí)應(yīng)用到實(shí)踐中去。也使我掌握了一整套規(guī)范的設(shè)計(jì)操作流程。通過(guò)這次做畢業(yè)設(shè)計(jì)發(fā)現(xiàn)自己的看法有點(diǎn)太片面。通過(guò)這次畢業(yè)設(shè)計(jì)使我明白了自己原來(lái)知識(shí)還比較欠缺。自己要學(xué)習(xí)的東西還太多，以前老是覺(jué)得自己什么東西都會(huì)，什么東西都懂，有點(diǎn)眼高手低。通過(guò)這次畢業(yè)設(shè)計(jì)，我明白了學(xué)習(xí)是一個(gè)長(zhǎng)期積累的過(guò)程，在以后的工作、生活中都應(yīng)該不斷的學(xué)習(xí)，努力提高自己知識(shí)和綜合素質(zhì)。最重要的是，從這次的設(shè)計(jì)中，我體會(huì)到了團(tuán)隊(duì)合作精神。在計(jì)算機(jī)軟件研發(fā)過(guò)程中，團(tuán)隊(duì)精神是必不可少，相信這次設(shè)計(jì)之后，我的團(tuán)隊(duì)合作能力也得到了很大程度的飛躍。在整個(gè)設(shè)計(jì)中我樹(shù)立了對(duì)自己工作能力的信心，大大提高了動(dòng)手的能力，使我充分體會(huì)到了在創(chuàng)造過(guò)程中探索的艱難和成功時(shí)的喜悅。雖然這個(gè)設(shè)計(jì)做的也不太好，但是在設(shè)計(jì)過(guò)程中所學(xué)到的東西是這次畢業(yè)設(shè)計(jì)的最大收獲和財(cái)富，使我終身受益。

7.