ERP論文.doc

ERP原理與應(yīng)用論文專(zhuān) 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù) 班 級(jí) 計(jì)科1102班 姓 名 劉梅 20112075 張文芳 20115167 黃玉婷20112059 李萌 20112051 指導(dǎo)教師 涂傳清 目錄目錄1第一章 需求分析11.1物料需求計(jì)劃(MRP)簡(jiǎn)介11.2系統(tǒng)功能要求11.3功能需求5第二章 系統(tǒng)分析72.1 進(jìn)入系統(tǒng)方法7第三章 系統(tǒng)設(shè)計(jì)分析73.1數(shù)據(jù)內(nèi)容和模塊截圖7第四章 系統(tǒng)模塊84.1 系統(tǒng)模塊分析8第五章 作業(yè)代碼115.1 代碼內(nèi)容11第一章 需求分析1. 1物料需求計(jì)劃(MRP)簡(jiǎn)介 物料需求計(jì)劃（簡(jiǎn)稱(chēng)為MRP）與主生產(chǎn)計(jì)劃一樣屬于ERP計(jì)劃管理體系，它主要解決企業(yè)生產(chǎn)中的物料需求與供給之間的關(guān)系，即無(wú)論是對(duì)獨(dú)立需求的物料，還是相關(guān)需求的物料，物料需求計(jì)劃都要解決“需求什么？現(xiàn)有什么？還缺什么？什么時(shí)候需要？”等幾個(gè)問(wèn)題。它是一個(gè)時(shí)段優(yōu)先計(jì)劃系統(tǒng)，其主要對(duì)象是決定制造與采購(gòu)的凈需求計(jì)劃。它是由主生產(chǎn)計(jì)劃推動(dòng)運(yùn)行的，但反過(guò)來(lái)，它又是主生產(chǎn)計(jì)劃的具體化和實(shí)現(xiàn)主生產(chǎn)計(jì)劃的保證計(jì)劃。物料清單物料需求計(jì)劃 MRP庫(kù)存信息采購(gòu)件的建議計(jì)劃*訂貨日期和到貨日期*需求數(shù)量主生產(chǎn)計(jì)劃MPS自制件的建議計(jì)劃*開(kāi)始生產(chǎn)日期和完工日期*需求數(shù)量由于物料需求計(jì)劃是把主生產(chǎn)計(jì)劃排產(chǎn)的產(chǎn)品分解為各個(gè)零部件的生產(chǎn)計(jì)劃和采購(gòu)件的采購(gòu)計(jì)劃，因此，制訂物料需求計(jì)劃前就必須具備以下的基本數(shù)據(jù)：第一項(xiàng)數(shù)據(jù)是主生產(chǎn)計(jì)劃，它指明在某一計(jì)劃時(shí)間段內(nèi)應(yīng)生產(chǎn)出的各種產(chǎn)品和備件，它是物料需求計(jì)劃制訂的一個(gè)最重要的數(shù)據(jù)來(lái)源。第二項(xiàng)數(shù)據(jù)是物料清單（BOM），它指明了物料之間的結(jié)構(gòu)關(guān)系，以及每種物料需求的數(shù)量，它是物料需求計(jì)劃系統(tǒng)中最為基礎(chǔ)的數(shù)據(jù)。第三項(xiàng)數(shù)據(jù)是庫(kù)存記錄，它把每個(gè)物料品目的現(xiàn)有庫(kù)存量和計(jì)劃接受量的實(shí)際狀態(tài)反映出來(lái)。第四項(xiàng)數(shù)據(jù)是提前期，決定著每種物料何時(shí)開(kāi)工、何時(shí)完工。應(yīng)該說(shuō)，這四項(xiàng)數(shù)據(jù)都是至關(guān)重要、缺一不可的。缺少其中任何一項(xiàng)或任何一項(xiàng)中的數(shù)據(jù)不完整，物料需求計(jì)劃的制訂都將是不準(zhǔn)確的。因此，在制訂物料需求計(jì)劃之前，這四項(xiàng)數(shù)據(jù)都必須先完整地建立好，而且保證是絕對(duì)可靠的、可執(zhí)行的數(shù)據(jù)。 MRP基本構(gòu)成示意圖一般來(lái)說(shuō)，物料需求計(jì)劃的制訂是遵照先通過(guò)主生產(chǎn)計(jì)劃導(dǎo)出有關(guān)物料的需求量與需求時(shí)間，然后，再根據(jù)物料的提前期確定投產(chǎn)或訂貨時(shí)間的計(jì)算思路。其基本計(jì)算步驟如下：1.計(jì)算物料的毛需求量。即根據(jù)主生產(chǎn)計(jì)劃、物料清單得到第一層級(jí)物料品目的毛需求量，再通過(guò)第一層級(jí)物料品目計(jì)算出下一層級(jí)物料品目的毛需求量，依次一直往下展開(kāi)計(jì)算，直到最低層級(jí)原材料毛坯或采購(gòu)件為止。2.凈需求量計(jì)算。即根據(jù)毛需求量、可用庫(kù)存量、已分配量等計(jì)算出每種物料的凈需求量，即凈需求量=毛需求量+已分配量-可用庫(kù)存量-在途量。3.批量計(jì)算。即由相關(guān)計(jì)劃人員對(duì)物料生產(chǎn)作出批量策略決定，不管采用何種批量規(guī)則或不采用批量規(guī)則，凈需求量計(jì)算后都應(yīng)該表明有否批量要求。4.安全庫(kù)存量、廢品率和損耗率等的計(jì)算。即由相關(guān)計(jì)劃人員來(lái)規(guī)劃是否要對(duì)每個(gè)物料的凈需求量作這三項(xiàng)計(jì)算。5.下達(dá)計(jì)劃訂單。即指通過(guò)以上計(jì)算后，根據(jù)提前期生成計(jì)劃訂單。物料需求計(jì)劃所生成的計(jì)劃訂單，要通過(guò)能力資源平衡確認(rèn)后，才能開(kāi)始正式下達(dá)計(jì)劃訂單。6.再一次計(jì)算。物料需求計(jì)劃的再次生成大致有兩種方式第一種方式會(huì)對(duì)庫(kù)存信息重新計(jì)算，同時(shí)覆蓋原來(lái)計(jì)算的數(shù)據(jù)，生成的是全新的物料需求計(jì)劃；第二種方式則只是在制定、生成物料需求計(jì)劃的條件發(fā)生變化時(shí)，才相應(yīng)地更新物料需求計(jì)劃有關(guān)部分的記錄。這兩種生成方式都有實(shí)際應(yīng)用的案例，至于選擇哪一種要看企業(yè)實(shí)際的條件和狀況。1.2系統(tǒng)要求能實(shí)現(xiàn)如下功能：第一，根據(jù)主生產(chǎn)計(jì)劃推算各種物料的需求數(shù)量和需求時(shí)間。第二，根據(jù)最終產(chǎn)品的物料清單和工藝路線推算出最終產(chǎn)品的生產(chǎn)成本。第三，MRP系統(tǒng)的輸出是采購(gòu)計(jì)劃和生產(chǎn)作業(yè)計(jì)劃，請(qǐng)?jiān)O(shè)計(jì)采購(gòu)單和生產(chǎn)任務(wù)單這兩種表單來(lái)描述采購(gòu)計(jì)劃和生產(chǎn)作業(yè)計(jì)劃。 MRP系統(tǒng)涉及到的主要實(shí)體有：1、 物料。其應(yīng)該包括如下屬性：供給來(lái)源成品、自制和外購(gòu)，成品為主生產(chǎn)計(jì)劃的對(duì)象，“自制件”將會(huì)形成生產(chǎn)作業(yè)計(jì)劃，“外購(gòu)件”將會(huì)形成采購(gòu)計(jì)劃；生產(chǎn)周期或采購(gòu)提前期，對(duì)于“成品”和“自制件”，應(yīng)該定義生產(chǎn)周期作為其屬性，對(duì)于“外購(gòu)件”則應(yīng)該定義采購(gòu)提前期作為其屬性；對(duì)于每種物料應(yīng)該定義“父件號(hào)”和“父件名稱(chēng)”這種屬性，類(lèi)似于教務(wù)管理系統(tǒng)中的先導(dǎo)課程，以表明物料之間的結(jié)構(gòu)關(guān)系，否則無(wú)法形成完整的BOM；對(duì)于“成品”和“自制件”，應(yīng)該定義其所涉及的生產(chǎn)工序，以便于計(jì)算完成該物料的生產(chǎn)消耗了多少資源，對(duì)于“外購(gòu)件”應(yīng)該定義其采購(gòu)單價(jià)，目的都是用來(lái)估算成品的生產(chǎn)成本。2、計(jì)劃參數(shù)。用于定義有關(guān)計(jì)劃展望期、時(shí)段、需求時(shí)區(qū)、計(jì)劃時(shí)區(qū)和預(yù)測(cè)時(shí)區(qū)等。3、主生產(chǎn)計(jì)劃。在這里要定義主生產(chǎn)計(jì)劃的對(duì)象，并規(guī)定在需求時(shí)區(qū)、計(jì)劃時(shí)區(qū)和預(yù)測(cè)時(shí)區(qū)如何確定主生產(chǎn)計(jì)劃對(duì)象的毛需求量等。4、工作中心。工作中心是承擔(dān)物料加工活動(dòng)的地所、設(shè)備和工作人員的集合。如果把教務(wù)管理系統(tǒng)與MRP系統(tǒng)來(lái)做一個(gè)比較，工作中心相當(dāng)于教務(wù)管理系統(tǒng)中的教師或教室等實(shí)體，物料則相當(dāng)于學(xué)生。5、工序。工序是指一種物料轉(zhuǎn)化成另一種物料所經(jīng)歷的加工過(guò)程，如果把教務(wù)管理系統(tǒng)與MRP系統(tǒng)來(lái)做一個(gè)比較，工序類(lèi)似于教務(wù)管理系統(tǒng)中的課程，教師和學(xué)生是通過(guò)課程而發(fā)生關(guān)系，物料和工作中心則是通過(guò)工序而發(fā)生關(guān)系。6、供應(yīng)商。作為外購(gòu)物料的提供者。7、企業(yè)部門(mén)。如銷(xiāo)售部、采購(gòu)部、財(cái)務(wù)部、生產(chǎn)部和倉(cāng)庫(kù)（作為所有物料的存放地）等。1.3 功能需求按照本系統(tǒng)的要求需要有以下功能： 1、登錄界面：界面顯示MRP系統(tǒng)，進(jìn)入不同的功能界面 。物料管理系統(tǒng)數(shù)據(jù)錄錄入數(shù)據(jù)查詢報(bào)表輸出代碼維護(hù) 退 出查看代碼登陸界面 1、ERP作業(yè)系統(tǒng)的界面 2、代碼維護(hù)功能：此功能能對(duì)用戶的密碼進(jìn)行修改，提高安全性。 3、數(shù)據(jù)錄入：對(duì)數(shù)據(jù)進(jìn)行錄入。 4、數(shù)據(jù)查詢：查詢錄入和已有的數(shù)據(jù)。 5、報(bào)表輸出：輸出相應(yīng)內(nèi)容。 6、查看源代碼：本期末作業(yè)的管理系統(tǒng)代碼。第二章 系統(tǒng)分析2.1 進(jìn)入系統(tǒng)方法該系統(tǒng)的系統(tǒng)結(jié)構(gòu)圖按步驟可劃分為：一：先進(jìn)入界面，會(huì)顯示MRP系統(tǒng)的模塊，進(jìn)入第二步；二：打開(kāi)系統(tǒng)的界面。在界面共有6種選項(xiàng)，現(xiàn)列舉如下； 如： 數(shù)據(jù)錄入 數(shù)據(jù)查詢 報(bào)表輸出 查看源代碼 代碼維護(hù)功能 退出以上是6個(gè)模塊，每個(gè)模塊里面又細(xì)分了幾個(gè)模塊，以使MRP系統(tǒng)更完善。查看代碼的功能，可以看到這個(gè)作業(yè)的代碼。第三章 系統(tǒng)設(shè)計(jì)3.1數(shù)據(jù)內(nèi)容和模塊截圖這個(gè)MRP系統(tǒng)數(shù)據(jù)庫(kù)含有這些模塊相應(yīng)的內(nèi)容第四章 系統(tǒng)模塊分析4.1 系統(tǒng)模塊分析 MRP計(jì)劃系統(tǒng)以銷(xiāo)售訂單為核心計(jì)算來(lái)源，對(duì)物料所處“狀態(tài)”如庫(kù)存數(shù)量、采購(gòu)在途量、制單在途量、委外在途、制單欠料（余量）、委外欠料（余量）、采購(gòu)計(jì)劃在途等進(jìn)行細(xì)分，當(dāng)進(jìn)行相關(guān)需求分析時(shí)，根據(jù)需要可靈活設(shè)置是否考慮某一“狀態(tài)”的物料；具有嚴(yán)謹(jǐn)?shù)腗RP計(jì)算邏輯，對(duì)MRP采購(gòu)計(jì)劃、制造單、委外單進(jìn)行全面追溯，相關(guān)計(jì)劃人員可以根據(jù)對(duì)MPS主生產(chǎn)計(jì)劃分析、MRP物料需求計(jì)劃運(yùn)算等手段，產(chǎn)生相關(guān)訂單的物料需求具體功能包括：支持面向訂單型生產(chǎn)模式，系統(tǒng)可靈活設(shè)置銷(xiāo)售訂單類(lèi)型是否參與主生產(chǎn)計(jì)劃；1、 MPS主生產(chǎn)計(jì)劃產(chǎn)生前，系統(tǒng)根據(jù)訂單需求提供主生產(chǎn)計(jì)最早劃分析功能，并對(duì)訂單所涉及物料的可用庫(kù)存、在途量、制單欠量、計(jì)劃在途量等進(jìn)行比較；2、 MRP對(duì)替代品的運(yùn)算，支持物料的替代運(yùn)算，即當(dāng)物料缺貨時(shí)，系統(tǒng)查找是否有可替代的物料，將替代料的可用庫(kù)存加入到主料的庫(kù)存中運(yùn)算，系統(tǒng)并在主料明細(xì)中記錄下替代料信息，寫(xiě)在備注欄；3、 在MRP運(yùn)算時(shí)，系統(tǒng)會(huì)考慮各物料的安全庫(kù)存，可在料品資料維護(hù)中設(shè)置安全存量及安全存量的下達(dá)方式，系統(tǒng)提供了按下達(dá)量和按毛需求下達(dá)兩種方式，按下達(dá)量，當(dāng)下達(dá)量大于0時(shí)，才考慮安全庫(kù)存，按毛需求，當(dāng)需求大于0時(shí)，就考慮安全庫(kù)存4、 可以設(shè)置物料在MRP運(yùn)算時(shí)是否合并，系統(tǒng)提供了按訂單合并、按周合并、按時(shí)間跨度合并3種方式；同訂單號(hào)的同物料的下達(dá)量是否合并成一筆下達(dá)量，同物料需求日期在一個(gè)自然周內(nèi)的下達(dá)量是否合并成一筆下達(dá)量，同物料需求日期在設(shè)置的時(shí)間跨度范圍內(nèi)的下達(dá)量是否合并成一筆下達(dá)量5、針對(duì)物料的包裝及經(jīng)濟(jì)性等其它原因，可以靈活設(shè)置物料的訂貨批量和最小訂貨量，系統(tǒng)提供了按批量、按需求來(lái)考慮物料需求，按需求只考慮最小訂貨量，按批量結(jié)合考慮最小訂貨量和訂貨批量6、 針對(duì)半成品和成品可以設(shè)置在MRP分析后是否產(chǎn)生制造單，可以在料品資料維護(hù)中設(shè)置是否產(chǎn)生制造單即可7、 可以設(shè)置物料的訂貨提前期，便于在MRP運(yùn)算時(shí)，產(chǎn)生物料的最佳需求日期，可以減少庫(kù)存數(shù)及節(jié)約資金流除了介紹的模塊，系統(tǒng)還有以下的模塊：1、登錄模塊 2、數(shù)據(jù)錄入模塊 3、數(shù)據(jù)查詢模塊 4、報(bào)表輸出模塊及其他模塊第5章 作業(yè)代碼5.1 主要代碼內(nèi)容SET TALK OFFSET DELETE OFFSET DATE ANSISET CENT ONSTOR 1 TO JJLASTDO WHIL .T.CLOS DATACLEA TYPECLEA TYPEON KEYIF NOT WEXIST(cpmainz) IF SYSM(1)641DEFI WIND CPMAINZ AT 0,0 SIZE 31.056,99.875 TITL 物料管理系統(tǒng) ; FONT 宋體, 12 FLOAT NOCLOSE NOMINIMIZE SYSTELSEDEFI WIND CPMAINZ AT 0,0 SIZE 25.056,84.875 TITL 物料管理系統(tǒng) ; FONT 宋體, 12 FLOAT NOCLOSE NOMINIMIZE SYSTENDIMOVE WINDOW CPMAINZ CENTERENDIACTI WIND CPMAINZ NOSHOW III=IIF(SYSM(1)641,0,-0.5)_ZYHOXZ=0 III+1.5,8.125 GET _ZYHOXZ PICT *IHT ; SIZE 1.167,8.250,6 FONT 宋體, 12DO DISMIT WITH ,III &ENABLE THE MESSAGE OF MMAIN_MENU IF III=0 7.333,24.750 SAY 物料管理系統(tǒng) FONT 宋體, 36 STYL TB 19.278,36.125 SAY MRP作業(yè) FONT 宋體, 12 STYL TELSE 8.5,23.750 SAY 物料管理系統(tǒng) FONT 宋體, 28 STYL TB 15.878,32.125 SAY MRP作業(yè) FONT 宋體, 12 STYL TENDIACTI WIND CPMAINZREAD CYCL MODA OBJE JJLASTIF (LAST()=27 AND _ZYHOXZ1) OR _ZYHOXZ=5EXITENDIDO DISMIT WITH COLO 3/7*,III & DISABLE THE MESSAGE OF MMAIN_MENUJJLAST=_ZYHOXZDO SUBMENU WITH _ZYHOXZCLOS DATACLEA TYPEENDDRELE WIND CPMAINZCLOS DATA ALLON ERROON KEYRETU*PROC DISMIT*PARA MYCOLO,AIROW AIROW+1.5,08.225 SAY 數(shù)據(jù)錄入 FONT 宋體, 12 STYL T &MYCOLO AIROW+1.5,22.575 SAY 數(shù)據(jù)查詢 FONT 宋體, 12 STYL T &MYCOLO AIROW+1.5,36.750 SAY 報(bào)表輸出 FONT 宋體, 12 STYL T &MYCOLO AIROW+1.5,51.000 SAY 代碼維護(hù) FONT 宋體, 12 STYL T &MYCOLO AIROW+1.5,65.375 SAY 結(jié)束本例 FONT 宋體, 12 STYL T &MYCOLORETU*PROC SUBMENU*PARA MIMODO CASECASE MIMO=1 PITE=1 入庫(kù)數(shù)據(jù)錄入;2 銷(xiāo)售數(shù)據(jù)錄入;3 數(shù)據(jù)初始化 ;0 退出本選擇單CASE MIMO=2 PITE=1 每筆入庫(kù)數(shù)據(jù)查詢;2 每筆銷(xiāo)售數(shù)據(jù)查詢;3 出庫(kù)入庫(kù)數(shù)據(jù)查詢;4 產(chǎn)品庫(kù)存數(shù)據(jù)查詢;0 退出本操作選擇單CASE MIMO=3 PITE=1 統(tǒng)計(jì)報(bào)表計(jì)算;2 生產(chǎn)銷(xiāo)售月表;3 月收發(fā)存總表;0 退出本選擇單CASE MIMO=4 PITE=1 增加糖果品種;2 刪除糖果品種;3 修改代碼表 ;0 退出本選擇單ENDCDO WHIL .T. _ZYHIN=0CLOS DATA ALLIMO=IIF(MIMO=2,5,4)IF NOT WEXIST(ZSUBM)DEFI WIND ZSUBM AT 0,0 SIZE 13,26+4*(IMO-4) FONT 宋體,12 SYST COLOR 0/7* FLOA TITL SUBS(數(shù)據(jù)錄入數(shù)據(jù)查詢報(bào)表輸出代碼維護(hù),(MIMO-1)*8+1,8)+操作選項(xiàng)MOVE WIND ZSUBM CENTENDIACTI WIND ZSUBMcho1=0IF IMO=4 1.5,4 GET cho1 FUNC *VT +PITE FONT 宋體,12 SIZE 1.6,18,1.2 DEFA IMOELSE 1,4 GET cho1 FUNC *VT +PITE FONT 宋體,12 SIZE 1.6,22,0.7 DEFA IMOENDIREAD MODA CYCL OBJE IMO_ZYHIN=cho1IF (LAST()=27 AND _ZYHIN=0) OR CHO1=IMO EXITELSEIF IMO=4 1.5,4 GET Ucho1 FUNC *VT +PITE FONT 宋體,12 SIZE 1.6,18,1.2 DEFA IMO DISAELSE 1,4 GET Ucho1 FUNC *VT +PITE FONT 宋體,12 SIZE 1.6,22,0.7 DEFA IMO DISAENDICLEA GETSDO SUBPAC WITH MIMO*10+CHO1IF LAST()=27CLEA TYPE_ZYHIN=.F.ENDIENDIENDDCLOS DATA ALLRELE WIND ZSUBMRETU*PROC SUBPAC*PARA DONUMDO CASECASE INLI(DONUM,11,12) DO ZCP11 WITH IIF(DONUM=11,入庫(kù),銷(xiāo)售)CASE DONUM=13 AAQT=N DO ZYHWA_SE WITH 確認(rèn)數(shù)據(jù)初始化,數(shù)據(jù)初始化將清除所有數(shù)據(jù)文件中的數(shù)據(jù)。真要執(zhí)行數(shù)據(jù)初始化請(qǐng)按Y鍵:,6,AAQT IF UPPE(AAQT)=Y USE cprk ZAP USE cpxs ZAP USE cprdata INDEX cprdata ZAP USE cpbb ZAP USE cpkc ZAP CLOS DATA ALL DO ZYHWA_SE WITH 1,數(shù)據(jù)初始化執(zhí)行完畢。按任意鍵,1 ELSE DO ZYHWA_SE WITH 1,數(shù)據(jù)初始化沒(méi)有執(zhí)行。按任意鍵,1 ENDICASE INLI(DONUM,21,22,23,24) DO ZCP21 WITH IIF(DONUM=21,入庫(kù),; IIF(DONUM=22,銷(xiāo)售,; IIF(DONUM=23,出入庫(kù),庫(kù)存) CASE INLI(DONUM,31,32,33) PPPRG=DO ZCP+STR(DONUM,2,0) &PPPRGCASE INLI(DONUM,41,42,43) DO ZCP41 WITH DONUM-40ENDCRETU*PROC ZCP11*PARA SRTYPECLOS DATA ALLPRIV ALL LIKE U*STOR DATE() TO URQ1,URQ2DO GETRQ WITH 1,URQ1,URQ2IF EMPT(URQ1) CLOS DATA RETUENDISELE 1USE CPSJSRZAPDO CPEMPTGO TOPSCAT TO UEMPTYDEFI WIND NRLR AT 0,0 SIZE 20.5,78 FLOA SYST COLOR RGB(0,0,0,227,236,238) ; TITL 輸入 FONT 宋體, 12MOVE WIND NRLR CENTPUSH KEY CLEAON KEY LABE CTRL+H DO DISCAPR WITH 產(chǎn)品+SRTYPE+數(shù)據(jù)錄入操作幫助,(由張玉紅“幫助”程序輸出),8,M2ON KEY LABE F1 DO CPEMPTON KEY LABE CTRL+UPARROW DO ZYHUPON KEY LABE CTRL+DNARROW DO ZYHDNDO WHIL .T.IF SRTYPE=入庫(kù)BROW FIEL RQ:11:H=發(fā)生日期:W=.F.,; SRNR:H=產(chǎn)品助錄:V=WHAT_CP(),; rksl:9:H=入庫(kù)數(shù)量:P=Z:W=!EMPT(CPDM),; dw:5:h=單位:w=.f.,; cpdm:4:H=代碼:W=.F.,; cpmc:9:H=產(chǎn)品名稱(chēng):W=.F.,; LB:6:H=類(lèi)別:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 產(chǎn)品入庫(kù)記錄輸入 Ctrl+W:退出 Ctrl+H:幫助 FONT 宋體, 11ELSEBROW FIEL RQ:11:H=發(fā)生日期:W=.F.,; SRNR:H=產(chǎn)品助錄:V=WHAT_CP(),; Lssl:9:H=零售數(shù)量:P=Z:W=!EMPT(CPDM),; Pfsl:9:H=批發(fā)數(shù)量:P=Z:W=!EMPT(CPDM),; dw:5:h=單位:w=.f.,; cpdm:4:H=代碼:W=.F.,; cpmc:9:H=產(chǎn)品名稱(chēng):W=.F.,; LB:6:H=類(lèi)別:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 產(chǎn)品銷(xiāo)售記錄輸入 Ctrl+W:退出 Ctrl+H:幫助 FONT 宋體, 10 ENDILOCA ALL FOR !EMPT(ABS(LSSL)+ABS(PFSL)+ABS(RKSL)GO TOPIF FOUN()AAQQ=1DO ZYHWA_SE WITH 是否存盤(pán),2,AAQQ,-10,-10,1 存盤(pán);2 修改;0 CLOS DATA ALL DO SAVEINSJ ELSE ZAP ENDIENDIRELE WIND NRLRCLOS DATA ALLPOP KEYRETU*PROC CPEMPT*SELE 1UUREC=RECN()FOR UI=1 TO 20APPE BLANREPL RQ WITH URQ1NEXTIF BETW(UUREC,1,RECC(1)GO UURECENDIRETU*FUNC WHAT_CP*IF EMPT(SRNR) REPL SRNR WITH CPMC RETU .T.ENDIUUSR=STRT(SRNR, ,)UUATC=*CANC*DO CASECASE LEFT(UUSR,2)=* GATH FROM UEMPTY SKIP IIF(RECN()1 SET FILT TO CPDM=UUSR UUATC=XZCPNA() ENDI ENDICASE BETW(ASC(UUSR),65,122) & By ZJM UUSR=UPPE(UUSR) SELE 2 USE CPDM ALIA CPDM COUN ALL TO U_NUM FOR ALLT(ZJM)=UUSR IF U_NUM=1 LOCA ALL FOR ALLT(ZJM)=UUSR UUATC=+ALLT(CPDM.CPDM)+ALLT(CPDM.CPMC)+ALLT(CPDM.DW)+; +ALLT(CPDM.LB)+LTRI(STR(RECN(CPDM),6,0)+ ELSE IF U_NUM1 SET FILT TO ZJM=UUSR UUATC=XZCPNA() ENDI ENDICASE ASC(UUSR)158 & By CPMC SELE 2 USE CPDM ALIA CPDM COUN ALL TO U_NUM FOR ALLT(CPMC)=UUSR IF U_NUM=1 LOCA ALL FOR ALLT(CPMC)=UUSR UUATC=+ALLT(CPDM.CPDM)+ALLT(CPDM.CPMC)+ALLT(CPDM.DW)+; +ALLT(CPDM.LB)+LTRI(STR(RECN(CPDM),6,0)+ ELSE IF U_NUM1 SET FILT TO CPMC=UUSR UUATC=XZCPNA() ENDI ENDIOTHESELE 1REPL SRNR WITH CPMCRETU .T.ENDCSELE 2USESELE 1IF UUATC=*CANC* REPL SRNR WITH CPDM RETU .T.ENDIREPL CPDM WITH CPJM(1,UUATC),CPMC WITH CPJM(2,UUATC),; DW WITH CPJM(3,UUATC),LB WITH CPJM(4,UUATC)REPL SRNR WITH CPMCRETU .T.*PROC ZYHUP*IF RECN()=1 RETUENDIPRIV ARINI,BRSJSCAT TO ARINISKIP -1SCAT TO BRSJGATH FROM ARINISKIPGATH FROM BRSJSKIP -1RETU*PROC ZYHDN*IF RECN()=RECC() RETUENDIPRIV ARINI,BRSJSCAT TO ARINISKIPSCAT TO BRSJGATH FROM ARINISKIP -1GATH FROM BRSJSKIPRETU*PROC SAVEINSJ*SELE 1IF SRTYPE=入庫(kù)USE cprkELSEUSE cpXSENDIAPPE FROM cpsjsrUSE CPSJSRSORT ON CPDM TO $0USE $0REPL ALL rksl with rksl-(lssl+pfsl)TOTA ON CPDM TO $KC FIEL RKSLUSEERAS $0.DBFCLOS DATA ALLSELE 1USE $KCSELE 2USE CPKCIF RECC()=0 APPE BLAN REPL RQ WITH URQ1ELSE LOCA ALL FOR RQ=URQ1 IF !FOUN() GO BOTT SCAT TO UUKCREC APPE BLAN GATH FROM UUKCREC REPL RQ WITH URQ1 ELSE IF RQURQ1 IF RECN()1 SKIP -1 SCAT TO UUKCREC APPE BLAN GATH FROM UUKCREC REPL RQ WITH URQ1 ELSE INSE BLAN BEFO REPL RQ WITH URQ1 ENDI ENDI ENDIENDIFSELE 2LOCA ALL FOR RQ=URQ1FOR UI=1 TO RECC(1)SELE 1GO UIUZD=CP+ALLT(CPDM)SELE 2REPLACE &UZD WITH &UZD+A.rkslNEXTCLOS DATA ALLUSE CPKCSORT ON RQ TO $KCZAPAPPE FROM $KCUSEERAS $KC.DBFSELE 1USE CPHZAAPPE FROM cprdataAPPE FROM cpsjsrREPL ALL HZMK WITH DTOC(RQ,1)+CPDMINDE ON HZMK TO $SYTOTA ON HZMK TO $SUM FIEL RKSL,LSSL,PFSLZAPUSE CPRDATA INDE CPRDATAZAPAPPE FROM $SUMREINSELE 2USE CPKCLOCA ALL FOR RQ=URQ1SELE 1SET FILT TO RQ=URQ1GO TOPDO WHIL !EOF(1)SELE 1UZD=CP+ALLT(CPDM)REPL KCSL WITH B.&UZDSKIPENDDCLOS DATA ALLERAS $SY.DBFERAS $SUM.DBFUSE cpsjsrZAPUSERETU*PROC ZCP21*PARA SRTYPECLOS DATA ALLSTOR DATE() TO URQ1,URQ2IF SRTYPE庫(kù)存DO GETRQ WITH 1,URQ1,URQ2ELSE USE CPKC IF RECC()0.5 CLOS DATA ALL RETU ENDI USEAAQQ=1DO ZYHWA_SE WITH 哪一日庫(kù)存,3,AAQQ,-10,-10,1 最近的;=URQ1IF !FOUN() GO BOTTELSE IF RQURQ1 SKIP IIF(RECN()1,-1,0) ENDIENDIDO KCSJMADECLOS DATA ALLENDIIF EMPT(URQ1) RETUENDISELE 2USE cpdm ORDE cpdmSELECT 1UUDATAF=IIF(SRTYPE=入庫(kù),CPRK,; IIF(SRTYPE=銷(xiāo)售,cpxs,; IIF(SRTYPE=出入庫(kù),CPRDATA,$DRKC)USE &UUDATAFSET RELA TO cpdm INTO BIF SRTYPE庫(kù)存LOCA ALL FOR rq=URQ1IF !FOUN() CLOS DATA ALL DO ZYHWA_SE WITH 1,沒(méi)有+DTOC(URQ1)+日的+SRTYPE+明細(xì)數(shù)據(jù)。按任意鍵返回,1 RETUENDIENDIUUCOL=IIF(SRTYPE=入庫(kù),48,; IIF(SRTYPE=銷(xiāo)售,59,; IIF(SRTYPE=出入庫(kù),68,48) DEFI WIND cxwind AT 0,0 SIZE 18,UUCOL ; FONT 宋體,12 TITLE 數(shù)據(jù)查詢 SYST COLOR 0/7*MOVE WIND cxwind CENTIF SRTYPE庫(kù)存SET FILT TO rq=URQ1ENDIDO CASE CASE SRTYPE=入庫(kù) BROW FIEL RQ:11:H=入庫(kù)日期,cpdm:5:H=代碼,B.cpmc:9:H=產(chǎn)品名稱(chēng),; rksl:10:P=Z:H=入庫(kù)數(shù)量 NOED NODE NOAP ; TITL DTOC(urq1)+ 每筆入庫(kù)數(shù)據(jù)查詢 WIND Cxwind NORM CASE SRTYPE=銷(xiāo)售 BROW FIEL RQ:11:H=銷(xiāo)售日期,cpdm:5:H=代碼,B.cpmc:9:H=產(chǎn)品名稱(chēng),; lssl:10:P=Z:H=零售數(shù)量 ,pfsl:10:P=Z:H=批發(fā)數(shù)量 NOED NODE NOAP ; TITL DTOC(urq1)+ 每筆銷(xiāo)售數(shù)據(jù)查詢 WIND Cxwind NORM CASE SRTYPE=出入庫(kù) BROW FIEL RQ:11:H=發(fā)生日期,cpdm:5:H=代碼,B.cpmc:9:H=產(chǎn)品名稱(chēng),; rksl:10:P=Z:H=入庫(kù)數(shù)量,lssl:10:P=Z:H=零售數(shù)量 ,pfsl:10:P=Z:H=批發(fā)數(shù)量 ,; bbb=lssl+pfsl:10:P=Z:h=總銷(xiāo)售量 ; NOED NODE NOAP FONT 宋體,10 ; TITL DTOC(urq1)+日出入庫(kù)匯總數(shù)據(jù)查詢 WIND Cxwind NORM CASE SRTYPE=庫(kù)存 BROW FIEL RQ:11:H=庫(kù)存日期,cpdm:5:H=代碼,B.cpmc:9:H=產(chǎn)品名稱(chēng),; KCsl:10:P=Z:H=庫(kù)存數(shù)量 NOED NODE NOAP ; TITL DTOC(urq1)+ 庫(kù)存數(shù)據(jù)查詢 WIND Cxwind NORMENDCCLOSE DATA ALLRELE WIND CxwindRETU*PROC KCSJMADE*SELE KCSELE 2USE CPRDATACOPY STRU TO $DRKC FIEL RQ,CPDM,KCSLUSE $DRKCFOR UI=1 TO FCOU(1)SELE KCUZD=FIEL(UI)IF LEFT(UZD+ ,2)=CP AND BETW(SUBS(UZD+UUUU,3,2),01,99) SELE 2 APPE BLAN REPL RQ WITH A.RQ,CPDM WITH SUBS(UZD,3,2),KCSL WITH A.&UZDENDINEXTSELE 2USESELE KCRETU*PROC ZCP41*PARA cho4SELECT 3USE cpdzbSELECT 2USE cpdm ORDE CPDMDEFINE WINDOW dmwind AT 0,0 SIZE 23,64 font 宋體,12 ; TITLE 代碼維護(hù) SHADOW SYSTEM MDI COLO 7+/2MOVE WIND dmwind CENTERACTIVATE WINDOW dmwindDEFI WIND mdm1 IN dmwind FROM 1,2 TO 15,62 font 宋體,12DEFI WIND mdm11 IN dmwind FROM 1,2 TO 15,62font 宋體,12DEFI WIND mdm2 IN dmwind FROM 16,5 TO 20,60 font 宋體,12 TITL 確認(rèn)保證 SYSTEM MDI DEFI WIND mdm3 FROM 2,38 TO 20,68 IN dmwind TITL 對(duì)照表DO CASE CASE cho4=1 & -增加- SELECT 2 COPY STRUCTURE TO cpdmtem CDX SELECT 1 USE cpdmtem ORDE CPDM APPEND BLANK ACTIVATE WINDOW dmwind 20,18 SAY 產(chǎn)品代碼為2位數(shù)字，按Esc退出 styl T DO WHILE .T. SELECT 1 ACTIVATE WINDOW mdm1 BROWSE FIELDS cpdm:H=代碼:V=fdm():F,cpmc:H=產(chǎn)品名稱(chēng):V=cpmc :F,; dwdm:H= :V=fdm():F,dw:H=單 位:W=.F.,lbdm:H= :V=fdm():F,; lb:H=類(lèi) 別:W=.F.,bbj:H=不變價(jià),xxj:H=現(xiàn)行價(jià):V=fappe():F; NOCLEAR WINDOW mdm1 TITLE 增加新產(chǎn)品 COLOR SCHEME 11 IF RECCOUNT()=0 OR (RECCOUNT()=1 AND (cpdm= OR cpmc= ) CLOSE DATABASES ERASE cpdmtem.DBF RELE WINDOW dmwind,mdm1 3,0 CLEAR RETURN ENDIF ACTIVATE WINDOW mdm2 0.5,4 GET ch FUNCTION *H 1 數(shù)據(jù)不保存;2 數(shù)據(jù)保存;3 繼續(xù)輸入; FONT 宋體,12 SIZE