1、智能決策技術期末考核設計題目： 生產(chǎn)物料料需求決決策支持持系統(tǒng)目錄TOC o 1-3 h z u HYPERLINK l _Toc500622216 智能決策技技術 PAGEREF _Toc500622216 h 1 HYPERLINK l _Toc500622217 期末考核 PAGEREF _Toc500622217 h 1 HYPERLINK l _Toc500622218 一規(guī)劃與與分析階階段 PAGEREF _Toc500622218 h 3 HYPERLINK l _Toc500622219 1.問題描描述 PAGEREF _Toc500622219 h 3 HYPERLINK l

2、 _Toc500622220 1.1現(xiàn)狀狀 PAGEREF _Toc500622220 h 3 HYPERLINK l _Toc500622221 1.2解決決手段 PAGEREF _Toc500622221 h 4 HYPERLINK l _Toc500622222 1.3意義義 PAGEREF _Toc500622222 h 4 HYPERLINK l _Toc500622223 2.數(shù)據(jù)處處理分析析 PAGEREF _Toc500622223 h 4 HYPERLINK l _Toc500622224 2.1數(shù)據(jù)據(jù)流程圖圖 PAGEREF _Toc500622224 h 4 HYPERL

3、INK l _Toc500622225 2.2物料料需求分分析的核核心流程程： PAGEREF _Toc500622225 h 5 HYPERLINK l _Toc500622226 2.3建立立數(shù)據(jù)字字典： PAGEREF _Toc500622226 h 6 HYPERLINK l _Toc500622227 3.抽象模模型建立立 PAGEREF _Toc500622227 h 6 HYPERLINK l _Toc500622228 3.1系統(tǒng)統(tǒng)功能結結構圖 PAGEREF _Toc500622228 h 6 HYPERLINK l _Toc500622229 3.2系統(tǒng)統(tǒng)業(yè)務流流程圖 PA

4、GEREF _Toc500622229 h 7 HYPERLINK l _Toc500622230 二設計階階段 PAGEREF _Toc500622230 h 8 HYPERLINK l _Toc500622231 1.系統(tǒng)平平臺設計計 PAGEREF _Toc500622231 h 8 HYPERLINK l _Toc500622232 1.1開發(fā)發(fā)平臺設設計 PAGEREF _Toc500622232 h 8 HYPERLINK l _Toc500622233 2.主要功功能模塊塊設計 PAGEREF _Toc500622233 h 8 HYPERLINK l _Toc500622234

5、 2.1登錄錄模塊 PAGEREF _Toc500622234 h 8 HYPERLINK l _Toc500622235 2.2主界界面模塊塊 PAGEREF _Toc500622235 h 9 HYPERLINK l _Toc500622236 2.3主生生產(chǎn)計劃劃模塊 PAGEREF _Toc500622236 h 10 HYPERLINK l _Toc500622237 2.4訂單單管理模模塊 PAGEREF _Toc500622237 h 12 HYPERLINK l _Toc500622238 2.5用戶戶管理模模塊 PAGEREF _Toc500622238 h 13 HYPER

6、LINK l _Toc500622239 3.數(shù)據(jù)庫庫設計 PAGEREF _Toc500622239 h 13 HYPERLINK l _Toc500622240 三實施階階段 PAGEREF _Toc500622240 h 16 HYPERLINK l _Toc500622241 1.實現(xiàn)方方案 PAGEREF _Toc500622241 h 16 HYPERLINK l _Toc500622242 2.系統(tǒng)開開發(fā)、調(diào)調(diào)試與運運行 PAGEREF _Toc500622242 h 17 HYPERLINK l _Toc500622243 2.1登錄錄模塊設設計 PAGEREF _Toc500

7、622243 h 17 HYPERLINK l _Toc500622244 2.2訂單單管理 PAGEREF _Toc500622244 h 20 HYPERLINK l _Toc500622245 2.3庫存存管理 PAGEREF _Toc500622245 h 24 HYPERLINK l _Toc500622246 2.4物料料需求分分析 PAGEREF _Toc500622246 h 27 HYPERLINK l _Toc500622247 四總結 PAGEREF _Toc500622247 h 43一規(guī)劃與與分析階階段1.問題描描述1.1現(xiàn)狀狀 選定定決策支支持主題題是生產(chǎn)產(chǎn)物料需需

8、求計劃劃。在現(xiàn)現(xiàn)代企業(yè)業(yè)的生產(chǎn)產(chǎn)經(jīng)營活活動中物物料是企企業(yè)價值值鏈中極極其重要要的一環(huán)環(huán)，物料料采購決決策占有有十分重重要的地地位。在在成熟、穩(wěn)穩(wěn)定的市市場條件件下，理理性的企企業(yè)決策策者總是是力爭在在“正確時時間”采購“正確數(shù)數(shù)量”的物料料，供企企業(yè)生產(chǎn)產(chǎn)使用。物料需求計計算的基基本任務務是：一一是從最最終產(chǎn)品品的生產(chǎn)產(chǎn)計劃導導出相關關物料（原原材料、零零部件）的的需求量量和需求求時間（相相關需求求）；二二是根據(jù)據(jù)物料的的需求時時間和訂訂貨周期期來確定定其開始始訂貨的的時間。物料需求計計算的基基本內(nèi)容容是編制制物料（包包括零部部件和原原材料）的的采購計計劃（這這里不考考慮生產(chǎn)產(chǎn)的自制制，假定

9、定所有的的物料都都進行采采購）。要要正確編編制物料料采購計計劃，首首先必須須落實最最終產(chǎn)品品的產(chǎn)出出進度計計劃，即即主生產(chǎn)產(chǎn)計劃，這這是物料料需求計計算展開開的依據(jù)據(jù)。還要要需要知知道產(chǎn)品品的零部部件和原原材料結結構，即即無聊清清單，才才能把主主生產(chǎn)計計劃展開開成物料料需求計計劃；同同時，必必須知道道庫存數(shù)數(shù)量才能能準確地地計算出出各種零零部件和和原材料料的采購購數(shù)量。因因此，以以主生產(chǎn)產(chǎn)計劃，物物料清單單為依據(jù)據(jù)計算物物料需求求。物料需求計計劃原理理框架如如下圖11.1：產(chǎn)品產(chǎn)出計劃產(chǎn)品產(chǎn)出計劃物料需求計劃報 告物料需求計劃（數(shù)量、時間）產(chǎn)品結構文件庫存狀態(tài)文件圖1.11.2解決決手段 建立

10、立物料需需求分析析的決策策支持系系統(tǒng)，完完成復雜雜的分析析過程，并并自動生生成物料料需求訂訂單，以以供生產(chǎn)產(chǎn)使用。 1.3意義義應用該系統(tǒng)統(tǒng)，可為為企業(yè)生生產(chǎn)過程程中物料料需求和和選擇供供應商提提供依據(jù)據(jù)。2.數(shù)據(jù)處處理分析析2.1數(shù)據(jù)據(jù)流程圖圖圖2 . SEQ 圖2 * ARABIC 112.2物料料需求分分析的核核心流程程：物料需求計計劃主要要按照反反工藝路路線（成成品組裝件件零部部件）的的原理，按按照產(chǎn)品品產(chǎn)出計計劃規(guī)定定的產(chǎn)品品的生產(chǎn)產(chǎn)數(shù)量和和期限要要求，利利用產(chǎn)品品結構文文件、庫庫存信息息文件等等數(shù)據(jù)資資料，反反工藝順順序計算算出各種種物料的的需求數(shù)數(shù)量與需需求期限限，進而而，根據(jù)據(jù)

11、企業(yè)實實際確定定自制和和采購的的數(shù)量和和期限。物料需求計計算時主主要用到到五種庫庫存狀態(tài)態(tài)數(shù)據(jù)：毛需求求G（tt）、計計劃到貨貨量S（tt）、現(xiàn)現(xiàn)有量HH（t）、凈凈需求量量N（tt）和計計劃發(fā)出出訂貨量量R（tt-L），這這里t是是表示周周期的變變量，LL是提前前期。計算在第tt周期第第i層所所有物料料需求量量和需求求時間的的步驟為為：第一步：確確定第ii層第tt周期所所有毛需需求量。毛毛需求量量是指生生產(chǎn)中實實際需要要的量，00層的毛毛需求由由主生產(chǎn)產(chǎn)計劃確確定，其其余各層層的毛需需求量是是由其上上層的計計劃訂單單下達。第二步：確確定物料料第i層層第t周周期的凈凈需求量量，凈需需求量是是指

12、實際際需要的的增加量量。第三步：根根據(jù)凈需需求量確確定第tt周期計計劃下達達數(shù)量第四步：第第i層第第t周期期的計劃劃訂單下下達數(shù)量量，即為為第i層層物料的的毛需求求量，由由毛需求求量開始始重復上上述14步，直直至最低低層物料料。其分析流程程圖如下下圖：i=0 , t=1i=0 , t=1按照時間周期計算第n層所有物料的毛需求量第0層根據(jù)產(chǎn)品計劃得出，其他層由其父項計劃下達取得 確定第n層第t周期凈需求量N（t） 由凈需求N（t）確定計劃定單入庫R（t-L）所有周期算完否 確定計劃定單下達所有產(chǎn)品結構層次已分解 向下一層分解i=i+1結 束t=t+1否是是否2.3建立立數(shù)據(jù)字字典：總編號編號名稱

13、來源去向包含數(shù)據(jù)結結構1-01F1客戶訂單客戶分析處理訂單號、產(chǎn)產(chǎn)品編號號、訂購購數(shù)量、交交貨日期期1-02F2產(chǎn)品結構設計分析處理產(chǎn)品編號、層層次、上上層編號號、上層層需求1-03F3庫存狀態(tài)庫存分析處理產(chǎn)品編號、產(chǎn)產(chǎn)品名稱稱、庫存存總量、可可用量、將將要入庫庫量、安安全庫存存1-04F4物料訂單分析處理訂單下達訂單號、物物料編號號、訂購購數(shù)量、訂訂購日期期、有效效期至1-05F5用戶信息用戶登錄判斷用戶名、密密碼、權權限、備備注表2.33.抽象模模型建立立3.1系統(tǒng)統(tǒng)功能結結構圖圖3. SEQ 圖1.2 * ARABIC 13.2系統(tǒng)統(tǒng)業(yè)務流流程圖圖3. SEQ 圖1.2 * ARABIC

14、 2二設計階階段1.系統(tǒng)平平臺設計計1.1開發(fā)發(fā)平臺設設計前臺設計工工具：BBorllandd Deelphhi 66后臺數(shù)據(jù)庫庫： SQLL Seerveer 220088開發(fā)環(huán)境：硬件環(huán)環(huán)境：PPC電腦腦軟件環(huán)境：（見下下圖）服務器操作系統(tǒng)WINDOOWS 20007應用程序SQL SServver 20008客戶端操作系統(tǒng)WINDOOWS 20007應用程序Borlaand Dellphii 61.2網(wǎng)絡絡運行模模式設計計本系統(tǒng)采用用C/SS模式，即即客戶端端/服務務器模式式網(wǎng)絡拓撲結結構為星星型結構構2.主要功功能模塊塊設計2.1登錄錄模塊界面截圖如如下圖44.2 1：圖4.2 SEQ

15、 圖4.2 * ARABIC 1 功能能是驗證證用戶是是否合法法，是否否允許登登入系統(tǒng)統(tǒng)，如果果合法則則還要判判斷其權權限，以以限定用用戶的操操作權限限。2.2主界界面模塊塊界面如圖44.2 2登錄錄之前及及4.22 3登登錄之后后，其功功能是實實現(xiàn)在各各個功能能模塊的的界面之之間的進進行跳轉轉： 圖4.2 SEQ 圖4.2 * ARABIC 2 圖44.2 SEQ 圖4.2 * ARABIC 32.3主生生產(chǎn)計劃劃模塊界面如下圖圖4.22 4，主主要是實實現(xiàn)客戶戶訂單管管理：圖4.2 SEQ 圖4.2 * ARABIC 4 圖圖4.22 5為為產(chǎn)品結結構管理理：圖4.2 SEQ 圖4.2 *

16、 ARABIC 5 圖圖4.22 6為為物料庫庫存管理理：圖4.2 SEQ 圖4.2 * ARABIC 6 圖圖4.22 7為為物料需需求分析析界面：圖4.2 SEQ 圖4.2 * ARABIC 72.4訂單單管理模模塊 圖圖4.22 8為為訂單管管理界面面：圖4.2 SEQ 圖4.2 * ARABIC 82.5用戶戶管理模模塊 圖圖4.22 9為為用戶管管理界面面，包括括注冊、修修改密碼碼、權限限設置等等：圖4.2 SEQ 圖4.2 * ARABIC 93.數(shù)據(jù)庫庫設計數(shù)據(jù)庫設計計如下：客戶訂單文文件表ooderrforrm字段名稱字段描述數(shù)據(jù)類型字段長度是否主鍵允許為空否否Odernno訂

17、單號Char10YNPno產(chǎn)品編號Char10NNPnum訂單總量Int4NNPselffnumm自產(chǎn)量Int4NNPbuynnum外購量Int4NNOdertt下單日期Datettimee8NYDelitt交貨日期Datettimee8NYStatee當前狀態(tài)Datettimee10NY物料需求訂訂單文件件表maatellistt字段名稱字段描述數(shù)據(jù)類型字段長度是否主鍵允許為空否否Mlno訂單編號Char10YNMno物料編號Char10NYMlnumm訂購數(shù)量Int4NYMltimme訂購日期Datettimee8NYMlvivvtimme有效期至Datettimee8NYRemarrk備

18、注Char30NY物料庫存文文件表mmateestoor字段名稱字段描述數(shù)據(jù)類型字段長度是否主鍵允許為空否否Mno物料編號Char8YNMnamee物料名稱Char10NYMlayeer所屬層次Int4NYMprenno上層編號Char8NYMprennum上層需求Int4NYMtnumm庫存總量Int4NYMvnumm可用數(shù)量Int4NYMwnumm將要入庫量量Int4NYSecnuum安全庫存Int4NYMut計量單位Char4NYMfiniish成品率Floatt8NYMadvaant提前期Int4NYAvat生效日期Datettimee8NYInvatt失效日期Datettimee8N

19、YRemarrk備注Char30NY物料分析臨臨時表ttemppinffo字段名稱字段描述數(shù)據(jù)類型字段長度是否主鍵允許為空否否Dtimee需求日期Datettimee8NNDmno物料編號Char8NNDmnamme物料名稱Char10NNDmlayyer所屬層次Int4NNDmadvvanttt提前期Int4NNDprenno上層編號Char8NNDprennum上層需求Int4NNDmfinnishh成品率Floatt8NNDvnumm可用數(shù)量Int4NNDwnumm將要入庫量量Int4NNDsnumm安全庫存Int4NNDdtnuum毛需求量Int4NNDdnettnumm凈需求量Int

20、4NNdselffn自產(chǎn)量Int4NYdbuynn外購量Int4NY用戶信息表表useerinnfo字段名稱字段描述數(shù)據(jù)類型字段長度是否主鍵允許為空否否Usernnamee用戶名Char10YNPasssswd用密碼Char10NNUrighht用戶權限Char10NYLastiit最近登錄時時間Datettimee8NYLastoot最近登出時時間Datettimee8NYRemarrk備注Char30NY三實施階階段1.實現(xiàn)方方案以一個簡化化了的自自行車產(chǎn)產(chǎn)品來說說明，其其庫存狀狀態(tài)書記記庫如上上圖所示示。其結結構示意意圖為：自行車 自行車 車架（1）車輪（2） 車把（1）輪圈（1）輪胎（

21、2）輻條（42）0層1層2層基本的物料料計劃步步驟為：確定自行車車的總需需求、凈凈需求和和計劃定定單下達達的時間間；根據(jù)上層的的結果，確確定第11層上所所有物料料的凈需需求和計計劃定單單下達的的時間；根據(jù)上層車車輪的結結果，確確定第22層上所所有物料料的凈需需求和計計劃定單單下達的的時間。其中用到的的公式有有：第t周期的的凈需求求量=第第t周期期的毛需需求現(xiàn)有量量第t周周期計劃劃入庫量量+安全全庫存不考慮批量量問題，則則t-LL周期計計算計劃劃訂單下下達數(shù)量量等于tt周期凈凈需求量量，即： R（tt-L）=N（tt）2.系統(tǒng)開開發(fā)、調(diào)調(diào)試與運運行2.1登錄錄模塊設設計 界界面如圖圖圖5.4 S

22、EQ 圖5.4 * ARABIC 1 主主要程序序代碼為為：unit Loggin;var fmLLogiin: TfmmLoggin;impleemenntattionnuses dattamdd, MMainn;$R *.dffm/自自定義過過程，驗驗證用戶戶/proceedurre TTfmllogiin.uuserrjugg(u,p,rr:sttrinng);var uupsqql,uupsqql2:strringg;beginn if u= tthenn bbegiin shhowmmesssagee(用用戶名不不能為空空，請輸輸入用戶戶名！); eddtunn.seetfoocus

23、s; eend elsse iif pp= thhen bbegiin shhowmmesssagee(密密碼不能能為空，請請輸入密密碼！); eddtpww.seetfoocuss; eend elsse bbegiin uppsqll:=sellectt ussernnm,ppassswd,uriightt frrom useerinnfo wheere useernmm=+uu+ aand passswdd =+p+ andd urrighht=+r+; uppsqll2:=uppdatte uuserrinffo sset lasstitt=+ddateetosstr(Noww)+ w

24、heere useernmm=+uu+; trry dtmmd.qqryuup.CClosse; dtmmd.qqryuup.SSQL.Cleear; dtmmd.qqryuup.SSQL.Addd(uppsqll); dtmmd.qqryuup.OOpenn; if nott dttmd.qryyup.Eoff thhen /用用戶合法法，則進進入系統(tǒng)統(tǒng) bbegiin dttmd.qryyup.Cloose; /更新用用戶的最最近登錄錄時間 dttmd.qryyup.SQLL.Cllearr; dttmd.qryyup.SQLL.Addd(uupsqql2); dttmd.qryyup.E

25、xeecSQQL; fmmMaiin.RRzGrroupp1.VVisiiblee:=ffalsse; fmmMaiin.RRzGrroupp2.VVisiiblee:=ttruee; fmmMaiin.RRzGrroupp2.OOpenned:=trrue; fmmMaiin.RRzGrroupp3.VVisiiblee:=ttruee; fmmMaiin.RRzGrroupp4.VVisiiblee:=ttruee; fmmMaiin.RRzGrroupp5.VVisiiblee:=ttruee; fmmMaiin.RRzGrroupp5.VVisiiblee:=ttruee; fmmMa

26、iin.ppu:=u; fmmMaiin.ppp:=p; fmmMaiin.ppr:=r; fmmMaiin.ssttbb.Paanells00.TTextt:=ffmMaain.pu; fmmLoggin.Cloose; eend elsse bbegiin shhowmmesssagee(用用戶名或或密碼錯錯誤！); eddtunn.SeetFoocuss; eend exxceppt shoowmeessaage(連接接數(shù)據(jù)庫庫失敗，請請檢查數(shù)數(shù)據(jù)庫服服務是否否正常！); ennd; eend;end;/退出出登錄/proceedurre TTfmLLogiin.bbtneextCCli

27、cck(SSendder: TOObjeect);beginn sellf.CClosse;end;/登錄錄按鈕/proceedurre TTfmLLogiin.bbtnllgCllickk(Seendeer: TObbjecct);var rri:sstriing;beginn if sellf.rrbu.Cheeckeed tthenn rri:=usser elsse iif sselff.rbba.CChecckedd thhen rri:=addminni; useerjuug(ttrimm(eddtunn.Teext),trrim(edttpw.Texxt),ri);end;/用戶

28、名名和密碼碼文本框框里回車車/proceedurre TTfmLLogiin.eedtuunKeeyPrresss(Seendeer: TObbjecct; varr Keey: Chaar);var rri:sstriing;beginn if keyy=#113 tthenn bbegiin if sellf.rrbu.Cheeckeed tthenn rri:=usser elsse iif sselff.rbba.CChecckedd thhen rri:=addminni; useerjuug(ttrimm(eddtunn.Teext),trrim(edttpw.Texxt),ri)

29、; eend;end;end.2.2訂單單管理界面如圖55.4 2圖5.4 SEQ 圖5.4 * ARABIC 2主要代碼：unit Odeerfoorm;var fmOOderrforrm: TfmmOdeerfoorm;impleemenntattionnuses dattamdd, MMainn;$R *.dffm/各個個下拉框框賦值共共用過程程/proceedurre TTfmOOderrforrm.ccbpbbdpdd(teet:sstriing);var i,jj:inntegger; osqql:sstriing;beginn witth ddtmdd.qrryoffm ddo

30、bbegiin ossql:=sseleect disstinnct +ttet+ ffromm odderfformm; /查詢詢唯一值值 trry Cloose; SQLL.cllearr; SQLL.Addd(oosqll); Opeen; fmOOderrforrm.ddbnoo.DaataSSourrce:=niil; fmOOderrforrm.ddbgoo.DaataSSourrce:=niil; Firrst; i:=ReccorddCouunt; forr j:=0 to i-11 doo /循循環(huán)賦值值 bbegiin iff m=1 tthenn cbnno1.Iteem

31、s.Addd(FiielddByNNamee(ooderrno).AAsSttrinng) ellse if m=22 thhen cbnno2.Iteems.Addd(FiielddByNNamee(ooderrno).AAsSttrinng); Neext; eend; exxceppt shoowmeessaage(數(shù)據(jù)據(jù)庫連接接失敗！請檢查查數(shù)據(jù)庫庫服務是是否正常常！); ennd; eend;end;proceedurre TTfmOOderrforrm.bbtneexittCliick(Sennderr: TTObjjectt);beginn sellf.CClosse;end;p

32、roceedurre TTfmOOderrforrm.ccbnoo1DrropDDownn(Seendeer: TObbjecct);beginn m:=1; sellf.ccbnoo1.IItemms.CCleaar; sellf.ccbpbbdpdd(ooderrno);end;proceedurre TTfmOOderrforrm.ccbnoo2DrropDDownn(Seendeer: TObbjecct);beginn m:=2; sellf.ccbnoo2.IItemms.CCleaar; sellf.ccbpbbdpdd(ooderrno);end;/=/proceedurre

33、TTfmOOderrforrm.bbtnssearrCliick(Sennderr: TTObjjectt);var ssqql,ccdt:strringg;beginn ssqql:=seelecct ooderrno as 訂單號號,pnno aas 產(chǎn)產(chǎn)品編號號,mnnamee ass 產(chǎn)品品名稱,pnuum aas 訂訂購量,odeert as 訂購日日期,ddeliit aas 交交貨日期期,sttatee ass 當前前狀態(tài) froom ooderrforrm,mmateestoor wwherre mmno=pnoo annd ppno+; if cbnno1.Texxt the

34、en ccdt:= andd oddernno=+trrim(cbnno1.Texxt)+; if cbnno2.Texxt theen ccdt:=cddt+ annd ooderrno=+ttrimm(cbbno22.Teext)+; if dattetoostrr(dttp1.Datte) thhen cdtt:=ccdt+ aand dellit=+ddateetosstr(dtpp1.DDateeTimme)+; if dattetoostrr(dttp2.Datte) thhen cdtt:=ccdt+ aand dellit=+ddateetosstr(dtpp2.DDateeT

35、imme)+; if cbnnm.TTextt tthenn cddt:=cdtt+ andd pnno=+triim(ccbnmm.Teext)+; if cbsst.TTextt tthenn cddt:=cdtt+ andd sttatee=+ttrimm(cbbst.Texxt)+; ssqql:=ssqql+ccdt; witth ddtmdd.qrryoffm ddo bbegiin trry Cloose; SQLL.cllearr; SQLL.Addd(sssqll); Opeen; fmOOderrforrm.ddbnoo.DaataSSourrce:=dttmd.dsoof

36、m; /動動態(tài)指定定數(shù)據(jù)感感知組件件的數(shù)據(jù)據(jù)源 fmOOderrforrm.ddbgoo.DaataSSourrce:=dttmd.dsoofm; exxceppt shoowmeessaage(數(shù)據(jù)據(jù)庫連接接失??！請檢查查數(shù)據(jù)庫庫服務是是否正常常！); ennd; eend;end;/*是否否允許編編輯*proceedurre TTfmOOderrforrm.eedorrCliick(Sennderr: TTObjjectt);beginn if fmOOderrforrm.eedorr.Chheckked theen /允允許編輯輯 bbegiin fmmOdeerfoorm.dbggo.

37、OOptiionss:=ffmOdderfformm.dbbgo.Opttionns-dgRRowSSeleect+ddgedditiing; fmmOdeerfoorm.dbnno.VVisiibleeButttonns:=nbbinssertt,nbbdelletee,nbbediit,nnbpoost,nbccanccel,nbrrefrreshh; eend elsse /不允允許編輯輯 bbegiin fmmOdeerfoorm.dbggo.OOptiionss:=ffmOdderfformm.dbbgo.Opttionns+dgRRowSSeleect-ddgedditiing;

38、fmmOdeerfoorm.dbnno.VVisiibleeButttonns:=nbbfirrst,nbpprioor,nnbneext,nbllastt; eendend;proceedurre TTfmOOderrforrm.FFormmCreeatee(Seendeer: TObbjecct);beginn fmOOderrforrm.ddbnoo.ViisibbleBButttonss:=nbffirsst,nnbprriorr,nbbnexxt,nnblaast; fmOOderrforrm.ddbgoo.Opptioons:=fmmOdeerfoorm.dbggo.OOptiio

39、nss+ddgRoowSeelecct-dggediitinng;end;proceedurre TTfmOOderrforrm.FFormmShoow(SSendder: TOObjeect);beginn if fmMMainn.stttb.Pannelss0.Teext= theen bbegiin /游游客不能能操作數(shù)數(shù)據(jù)庫 seelf.GrooupBBox11.Ennablled:=faalsee; seelf.GrooupBBox22.Ennablled:=faalsee; eend elsse bbegiin /游游客不能能操作數(shù)數(shù)據(jù)庫 seelf.GrooupBBox11.En

40、nablled:=trrue; seelf.GrooupBBox22.Ennablled:=trrue; eend; / sselff.dttp1.DatteTiime:=noow; sellf.ddtp22.DaateTTimee:=nnow;end;/單擊擊DBGGridd標題時時排序/proceedurre TTfmOOderrforrm.ddbgooTittleCClicck(CColuumn: TCColuumn);var i:iinteegerr;beginn if dtmmd.qqryoofm.Acttivee thhen bbegiin foor ii:=11 too dbbg

41、o.Collumnns.CCounnt ddo beggin ddbgoo.Coolummnsi-11.TTitlle.FFontt.Coolorr:=cclWiindoowTeext;/恢恢復所有有標題字字體為默默認 ddbgoo.Coolummnsi-11.TTitlle.FFontt.Sttylee:=; endd; if dtmmd.qqryoofm.Sorrt(Coolummn.FFielldNaame+ AASC) tthenn bbegiin dttmd.qryyofmm.Soort:=Coolummn.FFielldNaame+ AASC; Coolummn.TTitlle.F

42、Fontt.Coolorr:= clRRed; /改改變標題題行字體體為紅色色，表示示當前的的排序方方式為升升序 Coolummn.TTitlle.FFontt.Sttylee:= fssBolld; eend elsse bbegiin dttmd.qryyofmm.Soort:=Coolummn.FFielldNaame+ DDESCC; Coolummn.TTitlle.FFontt.Coolorr:=cclBllue; /改改變標題題行字體體為藍色色，表示示當前的的排序方方式為降降序 Coolummn.TTitlle.FFontt.Sttylee:=fsBBoldd; eend een

43、d elsse sshowwmesssagge(記錄為為空,不不能排序序!);end;end.2.3庫存存管理界面如圖55.4 3： 圖5.4 SEQ 圖5.4 * ARABIC 3主要代碼：proceedurre TTfmMMstooragge.ccbmDDroppDowwn(ttet:strringg);var i,jj:inntegger; lsqql:sstriing;beginn witth ddtmdd.qrrys do bbegiin lssql:=sseleect disstinnct +ttet+ ffromm maatesstorr; /查詢詢唯一值值 trry Cloos

44、e; SQLL.cllearr; SQLL.Addd(llsqll); Opeen; fmMMstooragge.ddbgdd22.DattaSoourcce:=nill; fmMMstooragge.nnvg223.DDataaSouurcee:=nnil; Firrst; i:=ReccorddCouunt; forr j:=0 to i-11 doo /循循環(huán)賦值值 bbegiin iff m=1 tthenn cnoo23.Iteems.Addd(FiielddByNNamee(mmno).AAsSttrinng) ellse if m=22 thhen cnoo24.Iteems.A

45、ddd(FiielddByNNamee(mmno).AAsSttrinng) ellse if m=33 thhen cnmm22.Iteems.Addd(FiielddByNNamee(mmnamme).AssStrringg) ellse if m=44 thhen cblly222.Ittemss.Addd(FFielldByyNamme(mlaayerr).AsSStriing); Neext; eend; exxceppt shoowmeessaage(數(shù)據(jù)據(jù)庫連接接失??！請檢查查數(shù)據(jù)庫庫服務是是否正常常！); ennd; eend;end;proceedurre TTfmMMsto

46、oragge.ccno223DrropDDownn(Seendeer: TObbjecct);beginn m:=1; sellf.ccno223.IItemms.CCleaar; sellf.ccbmDDroppDowwn(mnoo);end;proceedurre TTfmMMstooragge.ccno224DrropDDownn(Seendeer: TObbjecct);beginn m:=2; sellf.ccno224.IItemms.CCleaar; sellf.ccbmDDroppDowwn(mnoo);end;proceedurre TTfmMMstooragge.ccnm2

47、22DrropDDownn(Seendeer: TObbjecct);beginn m:=3; sellf.ccnm222.IItemms.CCleaar; sellf.ccbmDDroppDowwn(mnaame);end;proceedurre TTfmMMstooragge.ccblyy22DDroppDowwn(SSendder: TOObjeect);beginn m:=4; sellf.ccblyy22.Iteems.Cleear; sellf.ccbmDDroppDowwn(mlaayerr);end;/*查詢詢/proceedurre TTfmMMstooragge.ssear

48、rchCClicck(SSendder: TOObjeect);var ssqql,ccdt:strringg;beginn ssqql:=seelecct mmno as 物料編編號,mmnamme aas 物物料名稱稱,mllayeer aas 層層次,mmtnuum aas 庫庫存總量量,mvvnumm ass 可用用量,mmwnuum aas 即即將入庫庫量,ssecnnum as 安全庫庫存,iinvaat aas 有有效期至至 frrom mattesttor wheere mnoo+; if cnoo23.Texxt theen ccdt:= andd mnno=+trrim(c

49、noo23.Texxt)+; if cnoo24.Texxt theen ccdt:=cddt+ annd mmno=+ttrimm(cnno244.Teext)+; if cnmm22.Texxt theen ccdt:=cddt+ annd mmnamme=+triim(ccnm222.TTextt)+; if dattetoostrr(dttp222.Daate) tthenn cddt:=cdtt+ andd innvatt=+dattetoostrr(dttp222.DaateTTimee)+; if dattetoostrr(dttp233.Daate) tthenn cddt:=

50、cdtt+ andd innvatt=+dattetoostrr(dttp233.DaateTTimee)+; if cblly222.Teext thhen cdtt:=ccdt+ aand mlaayerr=+ttrimm(cbbly222.TTextt)+; ssqql:=ssqql+ccdt; witth ddtmdd.qrrys do bbegiin trry Cloose; SQLL.cllearr; SQLL.Addd(sssqll); Opeen; fmMMstooragge.ddbgdd22.DattaSoourcce:=dtmmd.ddss;/動動態(tài)指定定數(shù)據(jù)感感知組件件的

51、數(shù)據(jù)據(jù)源 fmMMstooragge.nnvg223.DDataaSouurcee:=ddtmdd.dsss; exxceppt shoowmeessaage(數(shù)據(jù)據(jù)庫連接接失??！請檢查查數(shù)據(jù)庫庫服務是是否正常常！); ennd; eend;end;/*退出/proceedurre TTfmMMstooragge.eexittCliick(Sennderr: TTObjjectt);beginn sellf.CClosse;end;/*是否否允許編編輯*proceedurre TTfmMMstooragge.cchecckCllickk(Seendeer: TObbjecct);beginn

52、if fmMMstooragge.cchecck.CChecckedd thhen /允許編編輯 bbegiin fmmMsttoraage.dbggd222.Opptioons:=fmmMsttoraage.dbggd222.Opptioons-dggRowwSellectt+dgeedittingg; fmmMsttoraage.nvgg23.VissiblleBuuttoons:=nnbinnserrt,nnbdeelette,nnbeddit,nbppostt,nbbcanncell,nbbreffressh; eend elsse /不允允許編輯輯 bbegiin fmmMsttor

53、aage.dbggd222.Opptioons:=fmmMsttoraage.dbggd222.Opptioons+dggRowwSellectt-dgeedittingg; fmmMsttoraage.nvgg23.VissiblleBuuttoons:=nnbfiirstt,nbbpriior,nbnnextt,nbblasst; eendend;/*創(chuàng)建建時默認認不允許許編輯*proceedurre TTfmMMstooragge.FFormmCreeatee(Seendeer: TObbjecct);beginn fmMMstooragge.ddbgdd22.Opttionns:=fm

54、MMstooragge.ddbgdd22.Opttionns+dgRRowSSeleect-ddgedditiing; fmMMstooragge.nnvg223.VVisiibleeButttonns:=nbbfirrst,nbpprioor,nnbneext,nbllastt;end;proceedurre TTfmMMstooragge.FFormmShoow(SSendder: TOObjeect);beginn if fmMMainn.stttb.Pannelss0.Teext= theen bbegiin /游游客不能能操作數(shù)數(shù)據(jù)庫 seelf.GrooupBBox11.Ennab

55、lled:=faalsee; seelf.GrooupBBox22.Ennablled:=faalsee; eend elsse bbegiin /用用戶可以以操作數(shù)數(shù)據(jù)庫 seelf.GrooupBBox11.Ennablled:=trrue; seelf.GrooupBBox22.Ennablled:=trrue; eend;end;eend.2.4物料料需求分分析 界界面如下下圖5.4 44：圖5.4 SEQ 圖5.4 * ARABIC 4主要代碼：proceedurre TTfmDDmdbbreaak.FFormmCreeatee(Seendeer: TObbjecct);beginn

56、 fmDDmdbbreaak.ddbgoo.Opptioons:=fmmDmddbreeak.dbggo.OOptiionss+ddgRoowSeelecct-dggediitinng; fmDDmdbbreaak.ddbg22.Opptioons:=fmmDmddbreeak.dbggo.OOptiionss+ddgRoowSeelecct-dggediitinng; fmDDmdbbreaak.ddbnoo.ViisibbleBButttonss:=nbffirsst,nnbprriorr,nbbnexxt,nnblaast; fmDDmdbbreaak.nnvg22.ViisibbleB

57、Butttonss:=nbffirsst,nnbprriorr,nbbnexxt,nnblaast;end;/=顯示窗窗體=proceedurre TTfmDDmdbbreaak.FFormmShoow(SSendder: TOObjeect);beginn if fmMMainn.stttb.Pannelss0.Teext= theen bbegiin /游游客不能能操作數(shù)數(shù)據(jù)庫 seelf.gpbb1.EEnabbledd:=ffalsse; seelf.gpbb2.EEnabbledd:=ffalsse; eend elsse bbegiin /用用戶可以以操作數(shù)數(shù)據(jù)庫 seelf.gp

58、bb2.EEnabbledd:=ttruee; seelf.gpbb2.EEnabbledd:=ttruee; seelf.btnniniit.EEnabbledd:=ttruee; seelf.btnnbk.Enaableed:=fallse; seelf.btnnnexxt.EEnabbledd:=ffalsse; seelf.btnnendd.Ennablled:=trrue; seelf.btnnod.Enaableed:=fallse; eend;end;/=初初始化=/proceedurre TTfmDDmdbbreaak.bbtniinittCliick(Sennderr: TT

59、Objjectt);var ssqql,ccdt:strringg; i,mmm:iinteegerr; dtiime,dmnno,ddmnaame,dmllayeer,ddmaddvannt,ddpreeno,dprrenuum:sstriing; dvnnum,dwnnum,dsnnum,ddttnumm,dddnettnumm,dsselffn,ddbuyyn:sstriing; dmffiniish:strringg;beginn mm:=0; /查查詢層次次，其實實可以不不用的 b:=0; /初初始化里里的一個個簡單的的判斷，只只用一個個周期 j:=0; /全全局的層層次記錄錄，很重

60、重要 fmDDmdbbreaak.ddbnoo.DaataSSourrce:=niil; fmDDmdbbreaak.ddbgoo.DaataSSourrce:=niil; fmDDmdbbreaak.nnvg22.DaataSSourrce:=niil; fmDDmdbbreaak.ddbg22.DaataSSourrce:=niil; sellf.bbtniinitt.Ennablled:=trrue; tryy bbegiin /=數(shù)據(jù)庫庫初始化化，主要要是臨時時表的初初始化 wiith dtmmd.qqryiinitt doo beggin Cllosee; SQQL.ccleaar;