決策支持系統(tǒng)word版(編輯修改稿)
2024-09-17 18:09 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 成績(jī)： 教師簽字：實(shí)驗(yàn)課程名稱： 決策支持系統(tǒng) 實(shí)驗(yàn)項(xiàng)目名稱企業(yè)決策支持系統(tǒng)的實(shí)現(xiàn)及演示實(shí)驗(yàn)者專業(yè)班級(jí)同組者實(shí)驗(yàn)日期一、 實(shí)驗(yàn)?zāi)康摹⒁饬x熟悉開發(fā)企業(yè)決策支持系統(tǒng)的具體開發(fā)過(guò)程，掌握開發(fā)工具，提高系統(tǒng)開發(fā)的能力。二、 實(shí)驗(yàn)基本原理與方法運(yùn)用開發(fā)工具（如：Visual Basic、Dephi、Powerbuilder、C等）和數(shù)據(jù)庫(kù)管理系統(tǒng)（Access、SQL Server等）開發(fā)企業(yè)決策支持系統(tǒng)，并對(duì)系統(tǒng)進(jìn)行調(diào)試和試運(yùn)行。三、 實(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)行演示和答辯。四、 實(shí)驗(yàn)原始記錄（可附加頁(yè)）（程序設(shè)計(jì)類實(shí)驗(yàn)：包括原程序、輸入數(shù)據(jù)、運(yùn)行結(jié)果、實(shí)驗(yàn)過(guò)程發(fā)現(xiàn)的問(wè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 Tfmjgyh = 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。 Edit5: 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: TObject)。 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 declarations } public { Public declarations } end。var fmjgyh: Tfmjgyh。implementation{$R *.dfm}procedure (Sender: TObject)。 var p,q,no:string。 n1,n2,n3,n4,n5,n6,n7:string。begin with aq1 do begin close。 。 (39。insert into putin values(:no,:p,:q)39。)。 (39。no39。).value:=trim()。 (39。p39。).value:=trim()。 (39。q39。).value:=trim()。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1