《決策支持系統(tǒng)》word版-預(yù)覽頁(yè)
【正文】 價(jià)格的方法。保本價(jià)格公式為：P*=V+F/QP*——保本價(jià)格 V——單位可變費(fèi)用 F——固定費(fèi)用總額 Q——預(yù)期的銷售量 所謂目標(biāo)與其定價(jià)法，是根據(jù)估計(jì)的預(yù)期總銷售收入和估計(jì)的預(yù)期銷售量本制定價(jià)格的一種方法。所謂隨行就市定價(jià)法，是指企業(yè)按照行業(yè)的平均現(xiàn)行價(jià)格水平來定價(jià)。L=PQ =0 R=LC C=F+VQ R=04 本系統(tǒng)模型 價(jià)格優(yōu)化決策，假設(shè)需求擬合曲線為線性，對(duì)最大銷售利潤(rùn)兩個(gè)預(yù)期目標(biāo)定價(jià)。三、實(shí)驗(yàn)內(nèi)容及要求在系統(tǒng)分析的基礎(chǔ)上，確立系統(tǒng)運(yùn)行的軟硬件環(huán)境，重點(diǎn)設(shè)計(jì)數(shù)據(jù)庫(kù)、人機(jī)界面和模型的實(shí)現(xiàn)步驟。運(yùn)行時(shí)顯示數(shù)據(jù)庫(kù)中已有數(shù)據(jù)，在決策之前先點(diǎn)清空按鈕，將數(shù)據(jù)庫(kù)清空，進(jìn)行新一輪決策操作，然后依次填入所要決策的數(shù)據(jù)組，每輸入一次點(diǎn)擊確定，即可將數(shù)據(jù)錄入數(shù)據(jù)庫(kù)并顯示出來運(yùn)行時(shí)顯示數(shù)據(jù)庫(kù)中已有數(shù)據(jù)，待輸入操作完成后，填入固定成本和單位可變成本，點(diǎn)擊決策按鈕即可計(jì)算出總銷售額、總成本、平均單位成本、總利潤(rùn)錄入數(shù)據(jù)庫(kù)并得出最優(yōu)價(jià)格決策結(jié)果然后顯示出來數(shù)據(jù)庫(kù)設(shè)計(jì)如下：銷售記錄表4 人機(jī)界面的設(shè)計(jì)各決策模塊如下：最大利潤(rùn)和最大收入用的同是擬合需求曲線和最小二乘法，把他們集成在一個(gè)用戶界面，方便對(duì)比分析。三、 實(shí)驗(yàn)內(nèi)容及要求自選開發(fā)工具和數(shù)據(jù)庫(kù)管理系統(tǒng)，開發(fā)出企業(yè)決策支持系統(tǒng)，并對(duì)系統(tǒng)進(jìn)行調(diào)試和試運(yùn)行；最后進(jìn)行演示和答辯。type Tfmjgyh = class(TForm) Panel1: TPanel。 connect: TADOConnection。 Edit2: TEdit。 Label4: TLabel。 Label5: TLabel。 btn2: TButton。 Edit8: TEdit。 Label9: TLabel。 ads2: TADODataSet。 procedure FormActivate(Sender: TObject)。 Shift: TShiftState)。 private { Private declarations } public { Public declarations } end。 n1,n2,n3,n4,n5,n6,n7:string。insert into putin values(:no,:p,:q)39。).value:=trim()。 (39。 end。 :=true。 。 (39。n239。).value:=trim()。039。).value:=trim(39。n639。 (39。)。39。39。begin with aq1 do begin close。)。 。 execsql。select * from putin39。 begin 。 。 :=39。 。end。其它變量無(wú)實(shí)際意思，為過度n:integer。39。成本不能為空39。n:=0。 :=39。 c:=c+fieldbyname(39。價(jià)格39。 if n0 then begin AverageP:=d/n。 //求Q=ap+b擬合需求曲線，a和b if n0 then begin with aq1 do begin 。b:=0。 open。價(jià)格39。).AsFloatAverageP)。 a:=e/f。 MC:=VC*a。 AR:=LVC*QFC。 :=floattostr(Q)。 ls:=0。 ds:=0。select * from putout39。).AsString。 ps:=fieldbyname(39。 cs:=qs*strtofloat()+strtofloat()。 pm:=floattostr(ps)。 rm:=floattostr(rs)。Update putout set 總銷售額L=39。39。,總成本C=39。39。,平均單位成本d=39。39。,產(chǎn)品總利潤(rùn)R=39。39。where 編號(hào)=39。39。 next。 begin 。 。 var Key: Word。procedure (Sender: TObject。 //當(dāng)按下回車鍵或向下箭頭時(shí)，使edit2獲得焦點(diǎn) if Key=VK_UP then
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1