【正文】
//當(dāng)按下回車鍵或向下箭頭時(shí),使edit2獲得焦點(diǎn) if Key=VK_UP then 。 var Key: Word。 begin 。39。39。39。39。39。 rm:=floattostr(rs)。 cs:=qs*strtofloat()+strtofloat()。).AsString。 ds:=0。 :=floattostr(Q)。 MC:=VC*a。).AsFloatAverageP)。 open。 //求Q=ap+b擬合需求曲線,a和b if n0 then begin with aq1 do begin 。價(jià)格39。 :=39。成本不能為空39。其它變量無(wú)實(shí)際意思,為過(guò)度n:integer。 。 。select * from putin39。 。begin with aq1 do begin close。39。 (39。).value:=trim(39。).value:=trim()。 (39。 :=true。 (39。insert into putin values(:no,:p,:q)39。 private { Private declarations } public { Public declarations } end。 procedure FormActivate(Sender: TObject)。 Label9: TLabel。 btn2: TButton。 Label4: TLabel。 connect: TADOConnection。三、 實(shí)驗(yàn)內(nèi)容及要求自選開(kāi)發(fā)工具和數(shù)據(jù)庫(kù)管理系統(tǒng),開(kāi)發(fā)出企業(yè)決策支持系統(tǒng),并對(duì)系統(tǒng)進(jìn)行調(diào)試和試運(yùn)行;最后進(jìn)行演示和答辯。三、實(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)步驟。所謂隨行就市定價(jià)法,是指企業(yè)按照行業(yè)的平均現(xiàn)行價(jià)格水平來(lái)定價(jià)。下面介紹幾種常見(jiàn)的價(jià)格決策方法: 成本加成法主要是以產(chǎn)品成本為基數(shù),再加上一定比例盈利來(lái)制定銷售價(jià)格的方法。因此,企業(yè)在制定價(jià)格是,必須要分析競(jìng)爭(zhēng)企業(yè)的生產(chǎn)經(jīng)營(yíng)狀況和促銷手段的運(yùn)用,作為一個(gè)參考依據(jù)。企業(yè)用于促進(jìn)產(chǎn)品市場(chǎng)銷售的主要手段可歸結(jié)為產(chǎn)品銷售價(jià)格,廣告費(fèi)用的投入,產(chǎn)品質(zhì)量水品和銷售網(wǎng)點(diǎn)數(shù)量等,企業(yè)就應(yīng)就這些促銷手段的引用作出決策,而銷售價(jià)格是諸促銷手段中影響產(chǎn)品市場(chǎng)銷售最敏感,最重要的因素,價(jià)格決策的正確與否對(duì)企業(yè)經(jīng)營(yíng)決策的成敗起著重要的作用。三、 實(shí)驗(yàn)內(nèi)容及要求以現(xiàn)代企業(yè)為對(duì)象,選定決策支持主題(如:市場(chǎng)預(yù)測(cè)、銷售、生產(chǎn)、采購(gòu)、預(yù)算等),分析決策支持系統(tǒng)的決策過(guò)程、系統(tǒng)結(jié)構(gòu);建立抽象決策問(wèn)題的決策模型并加以描述,分析決策模型的運(yùn)行機(jī)制和邏輯流程。通常,估計(jì)產(chǎn)品成本有兩種方式:一是根據(jù)產(chǎn)品的構(gòu)成原理及生產(chǎn)工藝指標(biāo)等要求,分別計(jì)算出產(chǎn)品的材料成本,加工成本及分?jǐn)偟降匿N售,研發(fā)和管理等固定成本;二是根據(jù)同類產(chǎn)品過(guò)去經(jīng)營(yíng)周期實(shí)際發(fā)生的各項(xiàng)成本費(fèi)用數(shù)據(jù),結(jié)合各影響因素的變化趨勢(shì),在估算出產(chǎn)品的各項(xiàng)成本費(fèi)用。 選定最終價(jià)格實(shí)際定價(jià)時(shí),企業(yè)往往運(yùn)用一定的定價(jià)方法,縮小從中選定的價(jià)格范圍。 消費(fèi)者需求存在著普遍的差異,根據(jù)這種差異而產(chǎn)生的定價(jià)方法。Q=aP+b用最小二乘法確定系數(shù)a、b 保證Z=最小即可求出Z的一介導(dǎo)為零(n為樣本個(gè)數(shù))得到a= b=然后再利用上面的決策公式進(jìn)行計(jì)算,得到需求擬合曲線。單位可變成本和固定成本可以根據(jù)具體情況自己輸入,在左邊的DBgrid顯示樣本的所有記錄,右邊顯示經(jīng)過(guò)計(jì)算的相關(guān)數(shù)據(jù),右下則是分別在最大利潤(rùn)的目標(biāo)情況下的單價(jià),銷售量,銷售額和總利潤(rùn)。 Panel2: TPanel。 btn1: TButton。 Edit5: TEdit。 ds2: TDataSource。 aq3: TADOQuery。 procedure Edit1KeyDown(Sender: TObject。begin with aq1 do begin close。 (39。 begin 。 (39。).value:=trim()。)。).value:=trim(39。 execsql。 。 execsql。 end。 :=39。39。procedure (Sender: TObject)。) OR (=39。 AverageP:=0。預(yù)測(cè)銷售39。 //求平均價(jià)格 AverageQ:=c/n。 close。).AsFloatAverageP)。