【文章內(nèi)容簡介】 begin :=+[dgRowSelect][dgediting]。 :=[nbfirst,nbprior,nbnext,nblast]。 endend。//****************************創(chuàng)建時默認(rèn)不允許編輯***************************procedure (Sender: TObject)。begin :=+[dgRowSelect][dgediting]。 :=[nbfirst,nbprior,nbnext,nblast]。end。procedure (Sender: TObject)。begin if [0].Text=39。39。 then begin //游客不能操作數(shù)據(jù)庫 :=false。 :=false。 end else begin //用戶可以操作數(shù)據(jù)庫 :=true。 :=true。 end。end。end. 4： 4主要代碼：procedure (Sender: TObject)。begin :=+[dgRowSelect][dgediting]。 :=+[dgRowSelect][dgediting]。 :=[nbfirst,nbprior,nbnext,nblast]。 :=[nbfirst,nbprior,nbnext,nblast]。end。//==============================顯示窗體======================================procedure (Sender: TObject)。begin if [0].Text=39。39。 then begin //游客不能操作數(shù)據(jù)庫 :=false。 :=false。 end else begin //用戶可以操作數(shù)據(jù)庫 :=true。 :=true。 :=true。 :=false。 :=false。 :=true。 :=false。 end。end。////===================================初始化==================================//procedure (Sender: TObject)。var ssql,cdt:string。 i,mm:integer。 dtime,dmno,dmname,dmlayer,dmadvant,dpreno,dprenum:string。 dvnum,dwnum,dsnum,ddtnum,ddnetnum,dselfn,dbuyn:string。 dmfinish:string。begin mm:=0。 //查詢層次，其實可以不用的 b:=0。 //初始化里的一個簡單的判斷，只用一個周期 j:=0。 //全局的層次記錄，很重要 :=nil。 :=nil。 :=nil。 :=nil。 :=true。 try begin //==================數(shù)據(jù)庫初始化，主要是臨時表的初始化 with do begin Close。 。 (39。delete from tempinfo39。)。 ExecSQL。 end。 //===================借助視圖，做0層次的訂單分析====================== //實際上，因為分析的sql語句太長超過255個字符才借助視圖 ssql:=39。select * from pinitvw where 訂單號39。+39。39。39。39。+39。39。39。39。 if datetostr()39。39。 then cdt:=39。 and 需求日期=39。+39。39。39。39。+datetostr()+39。39。39。39。 ssql:=ssql+cdt。 with do begin Close。 。 (ssql)。 Open。 :=false。 :=true。 end。 a:=。 if a=0 then //不存在未分析的訂單 showmessage(39。沒有未分解的訂單，你不需要再分解了！呵呵！39。) else if a0 then // 存在未分析的訂單，將執(zhí)行下面的一大段代碼 begin //===================將分析結(jié)果放入臨時表，已備下層分析============== if then begin 。 begin for i:=0 to a1 do begin with do begin //首先取出各個要用的字段的值 dtime:=(39。需求日期39。).AsString。 dmno:=(39。產(chǎn)品編號39。).AsString。 dmname:=(39。產(chǎn)品名稱39。).AsString。 dmlayer:=(39。層次39。).AsString。 dmadvant:=(39。提前期39。).AsString。 dpreno:=(39。上層編號39。).AsString。 dprenum:=(39。上層需求39。).AsString。 dmfinish:=(39。成品率39。).AsString。 dvnum:=(39?？捎脦齑?9。).AsString。 dwnum:=(39。將要入庫量39。).AsString。 dsnum:=(39。安全庫存量39。).AsString。 ddtnum:=(39。毛需求量39。).AsString。 ddnetnum:=(39。凈需求量39。).AsString。 dselfn:=(39。自產(chǎn)量39。).AsString。 dbuyn:=(39。外購量39。).AsString。 。 close。 。 //插入臨時表 (39。insert into tempinfo values(39。+39。39。39。39。+dtime+39。39。39。39。+39。,39。+39。39。39。39。+dmno+39。39。39。39。+39。,39。+39。39。39。39。+dmname+39。39。39。39。+39。,39。+39。39。39。39。+dmlayer+39。39。39。39。+39。,39。+39。39。39。39。+dmadvant+39。39。39。39。+39。,39。+39。39。39。39。+dpreno+39。39。39。39。+39。,39。+39。39。39。39。+dprenum+39。39。39。39。+39。,39。+39。39。39。39。+dmfinish+39。39。39。39。+39。,39。+39。39。39。39。+dvnum+39。39。39。39。+39。,39。+39。39。39。39。+dwnum+39。39。39。39。+39。,39。+39。39。39。39。+dsnum+39。39。39。39。+39。,39。+39。39。39。39。+ddtnum+39。39。39。39。+39。,39。+39。39。39。39。+ddnetnum+39。39。39。39。+39。,39。+39。39。39。39。+dselfn+39。39。39。39。+39。,39。+39。39。39。39。+dbuyn+39。39。39。39。+39。)39。)。 ExecSQL。 end end。 end。 b:=1。 end。 //===============將剛剛完成的分析結(jié)果從臨時表導(dǎo)出來顯示============== if b=1 then begin with do begin Close。 。 (39。select dtime as 需求日期,dmno as 產(chǎn)品編號,dmname as 產(chǎn)品名稱,dmlayer as 層次,dmadvant as 提前期,dpreno as 上層編號,dprenum as 上層需求,dmfinish,dvnum ,dwnum,dsnum,ddtnum,ddnetnum,dselfn as 自產(chǎn)量,dbuyn as 外購量 from tempinfo where dmlayer=39。+inttostr(mm))。 Open。 :=。 //動態(tài)指定數(shù)據(jù)感知組件的數(shù)據(jù)源 :=。 :=39。第39。+inttostr(j)+39。層的狀態(tài)未訂物料的訂單39。 // :=true。 end。 end。 //=================================================================== with do //獲取物料結(jié)構(gòu)的最低層次 begin close。 。 (39。select max(mlayer) as mly from matestor39。)。 open。 c:=(39。mly39。).AsInteger。 end。 :=false。 :=true。 :=true。 :=true。 showmessage(39。準(zhǔn)備完成，現(xiàn)在可以開始分解了！呵呵！39。)。 end。 end。 except showmessage(39。數(shù)據(jù)庫失?。≌垯z查數(shù)據(jù)庫服務(wù)是否正常！39。)。 end。end。//********************************退出****************************************procedure (Sender: TObject)。begin 。end。//***********************上面表格是否可以編輯**********************************procedure (Sender: TObject)。begin if then //允許編輯 begin :=[dgRowSelect]+[dgediting]。 :=[nbinsert,nbdelete,nbedit,nbpost,nbcancel,nbrefresh]。 end else //不允許編輯 begin :=+[dgRowSelect][dgediting]。 :=[nbfirst,nbpr