1、學(xué)生學(xué)號實(shí)驗(yàn)課成績學(xué) 生 實(shí) 驗(yàn) 報(bào) 告 書實(shí)驗(yàn)課程名稱決策支持系統(tǒng)開 課 學(xué) 院管理學(xué)院指導(dǎo)教師姓名學(xué) 生 姓 名學(xué)生專業(yè)班級200 92010 學(xué)年 第 2 學(xué)期實(shí)驗(yàn)課程名稱： 決策支持系統(tǒng) 實(shí)驗(yàn)項(xiàng)目名稱企業(yè)決策支持系統(tǒng)的系統(tǒng)分析實(shí)驗(yàn)者專業(yè)班級同組者實(shí)驗(yàn)日期一、 實(shí)驗(yàn)?zāi)康摹⒁饬x理解科學(xué)決策的過程和方法，并運(yùn)用系統(tǒng)分析工具正確描述決策過程，建立決策支持系統(tǒng)的邏輯模型。二、 實(shí)驗(yàn)基本原理與方法運(yùn)用系統(tǒng)分析的方法分析現(xiàn)代企業(yè)的科學(xué)決策過程，并結(jié)合企業(yè)決策的實(shí)際，掌握決策模型的具體應(yīng)用。三、 實(shí)驗(yàn)內(nèi)容及要求以現(xiàn)代企業(yè)為對象，選定決策支持主題（如：市場預(yù)測、銷售、生產(chǎn)、采購、預(yù)算等），分析決策支持系

2、統(tǒng)的決策過程、系統(tǒng)結(jié)構(gòu)；建立抽象決策問題的決策模型并加以描述，分析決策模型的運(yùn)行機(jī)制和邏輯流程。四、 實(shí)驗(yàn)原始記錄（可附加頁）（程序設(shè)計(jì)類實(shí)驗(yàn)：包括原程序、輸入數(shù)據(jù)、運(yùn)行結(jié)果、實(shí)驗(yàn)過程發(fā)現(xiàn)的問題及解決方法等；分析與設(shè)計(jì)、軟件工程類實(shí)驗(yàn)：編制分析與設(shè)計(jì)報(bào)告，要求用標(biāo)準(zhǔn)的繪圖工具繪制文檔中的圖表。系統(tǒng)實(shí)施部分要求記錄核心處理的方法、技巧或程序段；其它實(shí)驗(yàn)：記錄實(shí)驗(yàn)輸入數(shù)據(jù)、處理模型、輸出數(shù)據(jù)及結(jié)果分析）選題：價(jià)格優(yōu)化決策支持系統(tǒng) 在現(xiàn)代競爭日益激烈的市場上，企業(yè)為了促進(jìn)產(chǎn)品銷售、擴(kuò)大市場占有率，在分析市場銷售形勢、消費(fèi)者愛好及收入等情況變化后，總要制定、實(shí)施一定的經(jīng)營戰(zhàn)略和銷售策略，這些經(jīng)營戰(zhàn)略和

3、銷售策略可具體地表現(xiàn)為對市場促銷手段的運(yùn)用。企業(yè)用于促進(jìn)產(chǎn)品市場銷售的主要手段可歸結(jié)為產(chǎn)品銷售價(jià)格，廣告費(fèi)用的投入，產(chǎn)品質(zhì)量水品和銷售網(wǎng)點(diǎn)數(shù)量等，企業(yè)就應(yīng)就這些促銷手段的引用作出決策，而銷售價(jià)格是諸促銷手段中影響產(chǎn)品市場銷售最敏感，最重要的因素，價(jià)格決策的正確與否對企業(yè)經(jīng)營決策的成敗起著重要的作用。1 價(jià)格決策的步驟 價(jià)格決策是指企業(yè)根據(jù)市場條件和自身?xiàng)l件，對產(chǎn)品定價(jià)方案選擇，優(yōu)化的過程1.1 制定目標(biāo)企業(yè)必須決定，通過定價(jià)給特定的產(chǎn)品達(dá)到什么樣的定價(jià)目標(biāo)。一般情況下，企業(yè)通過定價(jià)來追求的目標(biāo)主要有四個(gè)：生存目標(biāo)，當(dāng)期利潤最大化目標(biāo)，市場份額領(lǐng)先地位目標(biāo)和產(chǎn)品質(zhì)量領(lǐng)先地位目標(biāo)。1.2 確定需求

4、企業(yè)就必須你和相應(yīng)的需求曲線，分析產(chǎn)品的需求價(jià)格彈性，預(yù)測產(chǎn)品的需求量。1.3 估計(jì)成本產(chǎn)品成本是企業(yè)定價(jià)的基礎(chǔ)。通常，估計(jì)產(chǎn)品成本有兩種方式：一是根據(jù)產(chǎn)品的構(gòu)成原理及生產(chǎn)工藝指標(biāo)等要求，分別計(jì)算出產(chǎn)品的材料成本，加工成本及分?jǐn)偟降匿N售，研發(fā)和管理等固定成本；二是根據(jù)同類產(chǎn)品過去經(jīng)營周期實(shí)際發(fā)生的各項(xiàng)成本費(fèi)用數(shù)據(jù)，結(jié)合各影響因素的變化趨勢，在估算出產(chǎn)品的各項(xiàng)成本費(fèi)用。一般而言，企業(yè)的產(chǎn)品成本應(yīng)是產(chǎn)品價(jià)格的底數(shù)。1.4 分析競爭企業(yè)在競爭市場上，競爭企業(yè)為促進(jìn)產(chǎn)品銷售，擴(kuò)大市場占有也會(huì)制定一定的經(jīng)營戰(zhàn)略和銷售策略，也會(huì)強(qiáng)化促銷手段的運(yùn)用。因此，企業(yè)在制定價(jià)格是，必須要分析競爭企業(yè)的生產(chǎn)經(jīng)營狀況和

5、促銷手段的運(yùn)用，作為一個(gè)參考依據(jù)。1.5 確定定價(jià)策略確定定價(jià)策略的目的是為了實(shí)現(xiàn)企業(yè)目標(biāo)。為同樣的企業(yè)目標(biāo)，可以有不同的定價(jià)策略。1.6 選擇定價(jià)方法定價(jià)策略確定后，即可選用不同的方法進(jìn)行企業(yè)產(chǎn)品的價(jià)格策略。價(jià)格決策的方法很多，是企業(yè)通過長期的經(jīng)營實(shí)踐而形成的，能夠適應(yīng)不同市場狀況，企業(yè)狀況，競爭狀況，社會(huì)需求的定價(jià)技術(shù)和計(jì)算方法，主要有成本導(dǎo)向定價(jià)法，需求導(dǎo)向定價(jià)法和競爭導(dǎo)向定價(jià)法等。1.7 選定最終價(jià)格實(shí)際定價(jià)時(shí)，企業(yè)往往運(yùn)用一定的定價(jià)方法，縮小從中選定的價(jià)格范圍。但在選擇最終價(jià)格時(shí)，企業(yè)還須在更大范圍內(nèi)考慮相關(guān)的制約因素。2價(jià)格決策方法在企業(yè)的三種定價(jià)導(dǎo)向中，成本導(dǎo)向定價(jià)法主要包括成本

6、加成的定價(jià)法、盈虧平衡定價(jià)法和目標(biāo)預(yù)期貢獻(xiàn)定價(jià)法；需求導(dǎo)向定價(jià)法主要包括需求函數(shù)定價(jià)法、需求差異定價(jià)法和認(rèn)知價(jià)值定價(jià)法；競爭導(dǎo)向定價(jià)法則主要包括隨行就市定價(jià)法和密封投標(biāo)定價(jià)法等等。下面介紹幾種常見的價(jià)格決策方法：2.1成本加成法成本加成法主要是以產(chǎn)品成本為基數(shù)，再加上一定比例盈利來制定銷售價(jià)格的方法。它是用產(chǎn)品的可變成本加上單位產(chǎn)品的固定成本及產(chǎn)品盈利來構(gòu)成產(chǎn)品價(jià)格。多用于中間商和零售商的價(jià)格制定。成本計(jì)算公式：P=（F+VC+Z）/Q式中：p產(chǎn)品價(jià)格 F固定費(fèi)用總額 VC單位可變費(fèi)用 Q預(yù)期的銷售量 Z期望銷售盈利Y成本利稅（潤）率2.2 量本利分析法量本利分析法是通過產(chǎn)品價(jià)格、預(yù)期銷售量、

7、固定成本及變動(dòng)成本之間的函數(shù)關(guān)系，求得盈虧平衡點(diǎn)上的保本價(jià)格，因此又稱為盈虧平衡定價(jià)法。保本價(jià)格公式為：P*=V+F/QP*保本價(jià)格 V單位可變費(fèi)用 F固定費(fèi)用總額 Q預(yù)期的銷售量 2.3目標(biāo)預(yù)期定價(jià)法所謂目標(biāo)與其定價(jià)法，是根據(jù)估計(jì)的預(yù)期總銷售收入和估計(jì)的預(yù)期銷售量本制定價(jià)格的一種方法。2.4需求差異定價(jià)法消費(fèi)者需求存在著普遍的差異，根據(jù)這種差異而產(chǎn)生的定價(jià)方法。2.5認(rèn)知價(jià)值定價(jià)法所謂認(rèn)知價(jià)值定價(jià)法，就是企業(yè)根據(jù)消費(fèi)者對產(chǎn)品的認(rèn)知價(jià)值來制定價(jià)格的一種方法，認(rèn)知價(jià)值與現(xiàn)代市場定位觀念相一致。認(rèn)知價(jià)值定價(jià)法的核心是掌握消費(fèi)者對商品價(jià)格（價(jià)值）的主觀判斷。2.6隨行就市定價(jià)法所謂隨行就市定價(jià)法，是

8、指企業(yè)按照行業(yè)的平均現(xiàn)行價(jià)格水平來定價(jià)。3 價(jià)格優(yōu)化決策需求曲線是分析產(chǎn)品價(jià)格和需求量之間的關(guān)系的十分有用的工具，運(yùn)用需求曲線，還可以非常有效地進(jìn)行產(chǎn)品價(jià)格的優(yōu)化決策，產(chǎn)品價(jià)格優(yōu)化決策原理：3.1需求曲線擬合形成需求曲線的價(jià)格和需求量之間的關(guān)系成反比例關(guān)系，通常分為曲線型和直線型兩種不同類型。對不同類型的需求曲線，在收集到一組不同的價(jià)格與銷售量數(shù)據(jù)后，可選用不用的函數(shù)形式進(jìn)行擬合，常用的用以你和需求曲線的函數(shù)形式有：線性函數(shù)，高次方程和指數(shù)函數(shù)等。線性函數(shù)表達(dá)式Q=a+b*P式中：Q需求量 P銷售價(jià)格 a、b待定系數(shù)高次方程的表達(dá)式指數(shù)函數(shù)的表達(dá)式形式為：這三個(gè)公式中a,b皆為待定常數(shù)，可用最

9、小二乘法來確定，其中第三個(gè)公式可以編成線性方便解決。3.2最大銷售收入的價(jià)格決策L=PQ =03.3最大銷售利潤的價(jià)格決策 R=L-C C=F+VQ R=04 本系統(tǒng)模型價(jià)格優(yōu)化決策，假設(shè)需求擬合曲線為線性，對最大銷售利潤兩個(gè)預(yù)期目標(biāo)定價(jià)。Q=aP+b用最小二乘法確定系數(shù)a、b 保證Z=最小即可求出Z的一介導(dǎo)為零（n為樣本個(gè)數(shù)）得到a= b=然后再利用上面的決策公式進(jìn)行計(jì)算，得到需求擬合曲線。便可進(jìn)行決策：4.1 最大銷售利潤 R=L-C C=F+VQ R=0 R=2aP+b-Va=0 MC=Va MR=2ap+b當(dāng)MC=MR時(shí)，利潤最大 （V變動(dòng)成本已知）P=Q=0.5aVP+0.5b L=

10、PQ=+bPR=L-C由上可以確定銷售單價(jià)，銷售量，銷售額，銷售利潤操作流程：錄入需要決策的數(shù)據(jù)輸入VC和FC點(diǎn)擊決策按鈕顯示數(shù)據(jù)并得出決策結(jié)果業(yè)務(wù)流程：輸入要決策數(shù)據(jù)的價(jià)格和預(yù)售量數(shù)據(jù)錄入完成是否將數(shù)據(jù)添加到數(shù)據(jù)庫中putin表中輸入固定成本和單位可變成本進(jìn)行決策分析并輸出結(jié)果將數(shù)據(jù)添加到數(shù)據(jù)庫中putout表中五、實(shí)驗(yàn)報(bào)告評語及成績（請按優(yōu)，良，中，及格，不及格五級評定） 成績： 教師簽字：實(shí)驗(yàn)課程名稱： 決策支持系統(tǒng) 實(shí)驗(yàn)項(xiàng)目名稱企業(yè)決策支持系統(tǒng)的系統(tǒng)設(shè)計(jì)實(shí)驗(yàn)者專業(yè)班級同組者實(shí)驗(yàn)日期一、實(shí)驗(yàn)?zāi)康摹⒁饬x設(shè)計(jì)決策支持系統(tǒng)的功能結(jié)構(gòu)、數(shù)據(jù)庫、人機(jī)界面和決策模型。二、實(shí)驗(yàn)基本原理與方法運(yùn)用系統(tǒng)設(shè)

11、計(jì)的方法，設(shè)計(jì)決策支持系統(tǒng)的功能層次結(jié)構(gòu)和決策模型的處理流程；運(yùn)用數(shù)據(jù)庫理論設(shè)計(jì)決策支持系統(tǒng)的數(shù)據(jù)庫結(jié)構(gòu)。三、實(shí)驗(yàn)內(nèi)容及要求在系統(tǒng)分析的基礎(chǔ)上，確立系統(tǒng)運(yùn)行的軟硬件環(huán)境，重點(diǎn)設(shè)計(jì)數(shù)據(jù)庫、人機(jī)界面和模型的實(shí)現(xiàn)步驟。四、實(shí)驗(yàn)原始記錄（可附加頁）（程序設(shè)計(jì)類實(shí)驗(yàn)：包括原程序、輸入數(shù)據(jù)、運(yùn)行結(jié)果、實(shí)驗(yàn)過程發(fā)現(xiàn)的問題及解決方法等；分析與設(shè)計(jì)、軟件工程類實(shí)驗(yàn)：編制分析與設(shè)計(jì)報(bào)告，要求用標(biāo)準(zhǔn)的繪圖工具繪制文檔中的圖表。系統(tǒng)實(shí)施部分要求記錄核心處理的方法、技巧或程序段；其它實(shí)驗(yàn)：記錄實(shí)驗(yàn)輸入數(shù)據(jù)、處理模型、輸出數(shù)據(jù)及結(jié)果分析）1.系統(tǒng)運(yùn)行軟硬件環(huán)境前臺(tái)設(shè)計(jì)工具：Delphi7.0后臺(tái)數(shù)據(jù)庫： Microsof

12、t office access 2007開發(fā)環(huán)境：硬件環(huán)境：PC電腦軟件環(huán)境：（見下圖）服務(wù)器操作系統(tǒng)WINDOWS XP應(yīng)用程序Microsoft office access 2007客戶端操作系統(tǒng)WINDOWS XP應(yīng)用程序Delphi7.02.主要功能及說明抽樣一定（相同）時(shí)期的銷售記錄，通過需擬合曲線和最小二乘法來決策該時(shí)期的分別在最大利潤目標(biāo)下和最大收入目標(biāo)下的的銷售單價(jià)，銷售額，銷售量，總利潤。以供下期價(jià)格決策參考。2.1輸入模塊運(yùn)行時(shí)顯示數(shù)據(jù)庫中已有數(shù)據(jù)，在決策之前先點(diǎn)清空按鈕，將數(shù)據(jù)庫清空，進(jìn)行新一輪決策操作，然后依次填入所要決策的數(shù)據(jù)組，每輸入一次點(diǎn)擊確定，即可將數(shù)據(jù)錄入數(shù)據(jù)

13、庫并顯示出來運(yùn)行時(shí)顯示數(shù)據(jù)庫中已有數(shù)據(jù)，待輸入操作完成后，填入固定成本和單位可變成本，點(diǎn)擊決策按鈕即可計(jì)算出總銷售額、總成本、平均單位成本、總利潤錄入數(shù)據(jù)庫并得出最優(yōu)價(jià)格決策結(jié)果然后顯示出來3.數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)如下：銷售記錄表4 人機(jī)界面的設(shè)計(jì)各決策模塊如下：最大利潤和最大收入用的同是擬合需求曲線和最小二乘法，把他們集成在一個(gè)用戶界面，方便對比分析。單位可變成本和固定成本可以根據(jù)具體情況自己輸入，在左邊的DBgrid顯示樣本的所有記錄，右邊顯示經(jīng)過計(jì)算的相關(guān)數(shù)據(jù)，右下則是分別在最大利潤的目標(biāo)情況下的單價(jià)，銷售量，銷售額和總利潤。五、實(shí)驗(yàn)報(bào)告評語及成績（請按優(yōu)，良，中，及格，不及格五級評定）

14、 成績： 教師簽字：實(shí)驗(yàn)課程名稱： 決策支持系統(tǒng) 實(shí)驗(yàn)項(xiàng)目名稱企業(yè)決策支持系統(tǒng)的實(shí)現(xiàn)及演示實(shí)驗(yàn)者專業(yè)班級同組者實(shí)驗(yàn)日期一、 實(shí)驗(yàn)?zāi)康?、意義熟悉開發(fā)企業(yè)決策支持系統(tǒng)的具體開發(fā)過程，掌握開發(fā)工具，提高系統(tǒng)開發(fā)的能力。二、 實(shí)驗(yàn)基本原理與方法運(yùn)用開發(fā)工具（如：Visual Basic、Dephi、Powerbuilder、C#等）和數(shù)據(jù)庫管理系統(tǒng)（Access、SQL Server等）開發(fā)企業(yè)決策支持系統(tǒng)，并對系統(tǒng)進(jìn)行調(diào)試和試運(yùn)行。三、 實(shí)驗(yàn)內(nèi)容及要求自選開發(fā)工具和數(shù)據(jù)庫管理系統(tǒng)，開發(fā)出企業(yè)決策支持系統(tǒng)，并對系統(tǒng)進(jìn)行調(diào)試和試運(yùn)行；最后進(jìn)行演示和答辯。四、 實(shí)驗(yàn)原始記錄（可附加頁）（程序設(shè)計(jì)類實(shí)驗(yàn)：包

15、括原程序、輸入數(shù)據(jù)、運(yùn)行結(jié)果、實(shí)驗(yàn)過程發(fā)現(xiàn)的問題及解決方法等；分析與設(shè)計(jì)、軟件工程類實(shí)驗(yàn)：編制分析與設(shè)計(jì)報(bào)告，要求用標(biāo)準(zhǔn)的繪圖工具繪制文檔中的圖表。系統(tǒng)實(shí)施部分要求記錄核心處理的方法、技巧或程序段；其它實(shí)驗(yàn)：記錄實(shí)驗(yàn)輸入數(shù)據(jù)、處理模型、輸出數(shù)據(jù)及結(jié)果分析）決策系統(tǒng)的部分源代碼：unit jgyh;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls;type Tf

16、mjgyh = class(TForm) Panel1: TPanel; Panel2: TPanel; dbg1: TDBGrid; ds1: TDataSource; connect: TADOConnection; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; btn1: TButton; dbg2: TDBGrid; Label3: TLabel; Label4: TLabel; Edit3: TEdit; Edit4: TEdit; GroupBox1: TGroupBox; Label5: TLabel; E

17、dit5: TEdit; Label6: TLabel; Edit6: TEdit; btn2: TButton; Label7: TLabel; Edit7: TEdit; Label8: TLabel; Edit8: TEdit; ds2: TDataSource; aq1: TADOQuery; aq2: TADOQuery; Label9: TLabel; Edit9: TEdit; ads1: TADODataSet; btn3: TButton; ads2: TADODataSet; aq3: TADOQuery; procedure btn1Click(Sender: TObje

18、ct); procedure btn3Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure btn2Click(Sender: TObject); procedure Edit9KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private Private declaratio

19、ns public Public declarations end;var fmjgyh: Tfmjgyh;implementation$R *.dfmprocedure Tfmjgyh.btn1Click(Sender: TObject); var p,q,no:string; n1,n2,n3,n4,n5,n6,n7:string;begin with aq1 do begin close; sql.clear; sql.add('insert into putin values(:no,:p,:q)'); parameters.parambyname('no

20、9;).value:=trim(edit9.Text); parameters.parambyname('p').value:=trim(edit1.Text); parameters.parambyname('q').value:=trim(edit2.Text); execsql; end; begin ads1.close; mandtext:='select * from putin' ads1.filtered:=true; ads1.open; end; with aq2 do begin close; sql.clear; sql.

21、add('insert into putout values(:n1,:n2,:n3,:n4,:n5,:n6,:n7)'); parameters.parambyname('n1').value:=trim(edit9.Text); parameters.parambyname('n2').value:=trim(edit1.Text); parameters.parambyname('n3').value:=trim(edit2.Text); parameters.parambyname('n4').value:

22、=trim('0'); parameters.parambyname('n5').value:=trim('0'); parameters.parambyname('n6').value:=trim('0'); parameters.parambyname('n7').value:=trim('0'); execsql; end; edit1.Text:='' edit2.Text:='' edit9.Text:='' edit9.Se

23、tFocus;end;procedure Tfmjgyh.btn3Click(Sender: TObject);begin with aq1 do begin close; sql.clear; sql.add('delete * from putin'); execsql; end; with aq2 do begin close; sql.clear; sql.add('delete * from putout'); execsql; end; begin ads1.close; mandtext:='select * from putin'

24、 ads1.filtered:=true; ads1.open; end; begin ads2.close; mandtext:='select * from putout' ads2.filtered:=true; ads2.open; end; edit1.Text:='' edit2.Text:='' edit9.Text:='' edit9.SetFocus;end;procedure Tfmjgyh.FormActivate(Sender: TObject);begin edit9.SetFocus;end;proce

25、dure Tfmjgyh.btn2Click(Sender: TObject);vara,b,c,d,e,f,AverageP,AverageQ:double; /Q=ap+b;其它變量無實(shí)際意思，為過度n:integer;qm,pm,lm,cm,rm,dm,nos:string;MC,VC,FC,AR,P,Q,L,R,qs,ls,ps,cs,ds,rs:double;/邊際成本 可變成本，固定成本，總利潤，單價(jià)，銷售量，銷售收入若未輸入成本，則彈出提示框如下圖begin if (edit3.Text='') OR (edit4.Text='') then sh

26、owmessage('成本不能為空') else begin /求平均價(jià)格和銷售量 with aq1 do begin sql.Clear ; c:=0;d:=0;n:=0; AverageP:=0;AverageQ:=0; close; SQL.Text:='select * from putin' open; while not eof do begin n:=n+1; c:=c+fieldbyname('預(yù)測銷售').AsFloat ; d:=d+fieldbyname('價(jià)格').AsFloat; next; end; i

27、f n>0 then begin AverageP:=d/n; /求平均價(jià)格 AverageQ:=c/n; /求平均銷售量 end; end; /求Q=ap+b擬合需求曲線，a和b if n>0 then begin with aq1 do begin sql.Clear ; e:=0;f:=0; a:=0;b:=0; close; SQL.Text:='select 價(jià)格,預(yù)測銷售 from putin ' open; while not eof do begin e:=e+(fieldbyname('預(yù)測銷售').AsFloat-AverageQ

28、)*(fieldbyname('價(jià)格').AsFloat-AverageP); f:=f+Sqr(fieldbyname('價(jià)格').AsFloat-AverageP); next; end; end; a:=e/f; b:=AverageQ-a*AverageP; VC:=strtofloat(edit4.Text); /求利潤最高時(shí)價(jià)格P FC:=strtofloat(edit3.Text); MC:=VC*a; P:=(MC-b)/(2*a) ; Q:=(b+a*p); L:=P*Q; AR:=L-VC*Q-FC; R:=FC+VC*Q; EDIT8.Te

29、xt:=floattostr(AR); edit5.Text:=floattostr(P); edit6.Text:=floattostr(Q); edit7.Text:=floattostr(R); end;計(jì)算成功后，最優(yōu)價(jià)格決策結(jié)果如上圖所示 /錄入銷售價(jià)格，銷售量，總銷售額，總成本，平均單位成本，產(chǎn)品總利潤 with aq2 do begin sql.Clear ; ls:=0;cs:=0; ps:=0;qs:=0; ds:=0;rs:=0; close; SQL.Text:='select * from putout' open; while not eof do begin nos:=fieldbyname('編號').AsString; qs:=fieldbyname('銷售量Q').Asfloat; ps:=fieldbyname('銷售價(jià)格P').AsFloat; ls:=ps*qs; cs:=qs*strtofloat(edit4.Text)+strtofloat(edit3.Text); ds:=cs/qs; rs:=ls-cs; qm:=floattostr(qs); pm:=floattostr(ps); lm:=floattostr(ls); cm:=