《決策支持系統(tǒng)》word版(文件)
【正文】 s, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls。 ds1: TDataSource。 Edit1: TEdit。 Label3: TLabel。 GroupBox1: TGroupBox。 Edit6: TEdit。 Label8: TLabel。 aq2: TADOQuery。 btn3: TButton。 procedure btn3Click(Sender: TObject)。 var Key: Word。 Shift: TShiftState)。 var p,q,no:string。 (39。no39。).value:=trim()。 execsql。select * from putin39。 with aq2 do begin close。)。 (39。n339。).value:=trim(39。n539。 (39。)。039。 :=39。 :=39。procedure (Sender: TObject)。delete * from putin39。 with aq2 do begin close。)。 :=39。 end。 :=true。39。39。begin 。 //Q=ap+b。//邊際成本 可變成本，固定成本，總利潤，單價，銷售量，銷售收入若未輸入成本，則彈出提示框如下圖begin if (=39。) then showmessage(39。d:=0。 close。 while not eof do begin n:=n+1。 d:=d+fieldbyname(39。 end。 end。 a:=0。select 價格,預測銷售 from putin 39。).AsFloatAverageQ)*(fieldbyname(39。價格39。 end。 //求利潤最高時價格P FC:=strtofloat()。 L:=P*Q。 :=floattostr(P)。計算成功后，最優(yōu)價格決策結(jié)果如上圖所示 //錄入銷售價格，銷售量，總銷售額，總成本，平均單位成本，產(chǎn)品總利潤 with aq2 do begin 。qs:=0。 :=39。編號39。).Asfloat。 ls:=ps*qs。 qm:=floattostr(qs)。 dm:=floattostr(ds)。 :=39。+ lm+ 39。+39。+ cm+ 39。+39。+ dm+ 39。+39。+ rm+ 39。+39。+nos+39。 。 end。 :=true。procedure (Sender: TObject。 //當按下回車鍵或向下箭頭時，使edit1獲得焦點end。begin if((Key=VK_RETURN)or(Key=VK_DOWN)) then 。五、實驗報告評語及成績（請按優(yōu)，良，中，及格，不及格五級評定） 成績： 教師簽字：。 //當按下向上箭頭時，使edit9獲得焦點end。 var Key: Word。 Shift: TShiftState)。 end。 :=39。 end。39。39。39。39。39。39。39。39。39。39。 。 lm:=floattostr(ls)。 ds:=cs/qs。銷售價格P39。 qs:=fieldbyname(39。 open。rs:=0。cs:=0。 :=floattostr(R)。 R:=FC+VC*Q。 P:=(MCb)/(2*a) 。 b:=AverageQa*AverageP。 next。).AsFloatAverageP)。 while not eof do begin e:=e+(fieldbyname(39。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1