【正文】 romyc strSQLstrSQL = insertintoyc(id,x,y)values(l,0,0) strSQL′顯示問題描述窗體End Sub，打開zk窗體，在窗體中繪制控件。其中，“常數(shù)項(xiàng)”右側(cè)的TextBox控件（名稱）屬性被修改為“Txta,“回歸系數(shù)”右側(cè)的TextBox控件（名稱）屬性被修改為“Txtb”?！懊颗度氘a(chǎn)品件數(shù)”右側(cè)的TextBox控件（名稱）屬性被修改為“TxtmPtrcpjs,“產(chǎn)品成本”右側(cè)的TextBox控件（名稱）屬性被修改為“Txtcpcb,Enabled屬性被修改為“False”。“預(yù)測”CommandButton控件的（名稱）屬性被修改為“Cmdyc,“繼續(xù)預(yù)測”CommandButton控件的（名稱）屬性被修改為“Cmdjxyc,“退出”CommandButton控件的（名稱）屬性被修改為“Cmdtc”。界面右下腳的TextBox控件（名稱）屬性被修改為“Txtl,Visible屬性被修改為“False”。，在彈出的zk(Code)“代碼編寫”界面中編寫Form_Load事件處理程序代碼。在界面中輸人的完整程序代碼如下：Private Sub Form_Load()Dim SqlmodelDim ADOrs_Model As NewRecordset=AD0′從Zd表中獲得最小二乘法模型文件的名稱和路徑Sqlmodel = select*from zd where id = lFilepath = ADOrs_Model(mxwjlj)modelName = ADOrs_Model(mxwjm)′調(diào)用最小二乘法模型程序Shell ( filepath amp。 modelName )Dim strSQL As StringDim ADOrs As New Recordset = ADO′定義變量a,b，存放從cs表中得到的a,b字段的值Dim a As Single, b As Single′等待最小二乘法模型程序執(zhí)行完畢For i = 0 To 9999strSQL = select*from cs strSQLA = ADOrs(a)B = ADOrs(b)If a 0 ThenExit ForEnd IfNext i′定義變量m,n，分別存放將a,b轉(zhuǎn)換為字符串后的值Dim m, n As Stringm = CStr(a)n = CStr(b)′若m左側(cè)的第一個(gè)字符為”.，則在第一個(gè)字符前加 0,If Left(m,l） = ”. Thenm = 0 amp。 mEnd If′若n左側(cè)的第一個(gè)字符為”.，則在第一個(gè)字符前加 0If Left (n,l） = . Thenn = 0 amp。 nEnd If′在文本框中顯示m,n的值Txta. Text = m = n′讓文本框成為只讀Txta. Enabled = False = False = FalseEnd Sub“預(yù)測”按鈕，在彈出的zk(Code)“代碼編寫”界面中編寫Cmdyc_Click事件處理程序代碼。在界面中輸人的完整程序代碼如下：Private Sub Cmdyc_Click()′判斷輸入的每批投入產(chǎn)品件數(shù)是否為空，若為空則彈出提示信息If ＝ ThenMsgBox 請輸入每批投入產(chǎn)品件數(shù)！ = Exit SubEnd If′判斷輸入的每批投入產(chǎn)品件數(shù)是否為數(shù)字，若不為數(shù)字則彈出提示信息If Not Is Numeric () ThenMsgBox 輸人的每批投人產(chǎn)品件數(shù)只能是正整數(shù)！ = Exit SubEnd If′判斷輸入的每批投入產(chǎn)品件數(shù)是否為正整數(shù)，若不為正整數(shù)則彈出提示信息If Instr ( , . ) or Instr ( , . ) or ( Instr (, 0 ） = 1 ) ThenMsgBox 輸人的每批投人產(chǎn)品件數(shù)只能是正整數(shù)！ = Txtmptrcpjs. SetFocusExit SubEnd If′如果是第一次預(yù)測If = Then′記錄輸入的每批投入產(chǎn)品件數(shù) = ′用剛輸入的每批投入產(chǎn)品件數(shù)更新yc表中的x字段Dim strSQL As StringstrSQL ＝ update yc set x= amp。 Val ( ) amp。 where id = l strSQLDim sqlmodelDim ADOrs_Model As New Recordset = ADO′從zd表中獲得一元線性回歸方程模型文件的名稱和路徑Sqlmodel = select * from zd where id = 2Filepath = ADOrs_Model ( mxwjlj )modelName = ADOrs_Model ( mxwjm )′調(diào)用一元線性回歸方程模型程序Shell(filepathamp。modelName)Dim ADO rs As New RecordsetSet ADO_rs . ActiveConnection = ADO′定義變量y，存放從yc表中得到的字段y的值Dim y As Single′等待一元線性回歸方程模型程序執(zhí)行完畢For I = 0 To 9999strSQL = ′′ select y from yc where id = l strSQLy = ADOrs ( y′′ )If y 0 ThenExit ForEnd IfNext i = y′如果不是第一次預(yù)測Else = ADO′變量y_1用于存放執(zhí)行模型程序前從yc表中得到的字段y的值strSQL =′′select x,y from yc where id = l strSQLy_l二AD0rs(y,)′如果前一次輸入的每批投入產(chǎn)品件數(shù)與這一次輸人的每批投入產(chǎn)品件數(shù)相同If = Then ＝ y_l′如果前一次輸入的每批投人產(chǎn)品件數(shù)與這一次輸入的每批投人產(chǎn)品件數(shù)不同Else ＝ strSQL ＝ update yc set x = amp。 Val ( ) amp。 where id ＝ lADO ExecutestrSQL = ADOSqlmodel = select * from zd where id = 2 SqlmodelFilepath = ADOs_Model ( mxwjlj )modelName = AD0rs_Model(mxwjm)Shell ( filepath amp。 modelName )′變量y_2用于存放執(zhí)行模型程序后從yc表中得到的字段y的值For I = 0 To 9999strSQL = select y from yc where id =l strSQLy_2 = ADOrs(y)′一元線性回歸方程模型程序執(zhí)行完畢If y_2 ＜ y_1 ThenExit ForEnd IfNext i = y_2End IfEnd If=True=FalseEnd Sub“繼續(xù)預(yù)測”按鈕，在彈出的zk(Code)“代碼編寫”界面中編寫Cmdjxyc_click事件處理程序代碼。在界面中輸人的完整程序代碼如下：Private Sub Cmdjxyc_Click() = = = True = FalseEndSuh“退出”按鈕，在彈出的zk(Cede)“代碼編寫”界面中編寫Cmdtc_Cliok事件處理程序代碼。在界面中輸人的完整程序代碼如下：Private Sub Cmdtc_Click()EndEndSub“工程”－“工程1屬性”選項(xiàng)，修改“啟動(dòng)對(duì)象”屬性為“SubMain”。單擊菜單欄上的“保存”按鈕，保存工程。四、解決接口問題從上述為成本預(yù)測DSS各部件所編制的程序代碼中可以看到：（)，以及一元線性回歸方程模型程序（）都使用了數(shù)據(jù)庫技術(shù)作為對(duì)成本預(yù)測（）數(shù)據(jù)庫中數(shù)據(jù)的存取接口。（）也使用了數(shù)據(jù)庫技術(shù)作為對(duì)成本預(yù)測數(shù)據(jù)庫中數(shù)據(jù)的存取接口。，以及一元線性回歸方程模型程序之前，都先訪問了成本預(yù)測數(shù)據(jù)庫中的字典（zd）表，在獲得了模型文件名及路徑后，將它們調(diào)人內(nèi)存中運(yùn)行。五、各部件的集成從為成本預(yù)測DSS各部件所編制的程序代碼中還可以看到，才實(shí)現(xiàn)了成本預(yù)測DSS各部件的有效集成。六、系統(tǒng)運(yùn)行：“啟動(dòng)”按鈕。 “問題描述”界面。單擊界面上的“進(jìn)入成本預(yù)測決策支持系統(tǒng)”按鈕。顯示器上將出現(xiàn) “成本預(yù)測決策支持系統(tǒng)”界面。可以看到，常數(shù)項(xiàng)a和回歸系數(shù)b的值已經(jīng)在界面中顯示出來。在界面中每批投人產(chǎn)品件數(shù)右側(cè)的文本框中輸人每批投入產(chǎn)品件數(shù)后（這里以41為例），單擊“預(yù)測”按鈕，在產(chǎn)品成本右側(cè)的文本框中將顯示預(yù)測的產(chǎn)品成本。單擊界面中的“繼續(xù)預(yù)測”按鈕將啟動(dòng)新的一輪預(yù)測。此時(shí)，可以在每批投入產(chǎn)品件數(shù)右側(cè)的文本框中輸入新的每批投入產(chǎn)品件數(shù)。如果此時(shí)輸入的每批投入產(chǎn)品件數(shù)不是正整數(shù)，則顯示器上將顯示 “錯(cuò)誤提示”對(duì)話框。6．預(yù)測結(jié)束后，單擊界面中的“退出”按鈕，將退出成本預(yù)測決策支持系統(tǒng)。五、體會(huì)（收獲）通過本實(shí)驗(yàn)的學(xué)習(xí)，我基本了解DSS系統(tǒng)集成方法，掌握總控部件和界面的實(shí)現(xiàn)，從設(shè)計(jì)數(shù)據(jù)部件、編制人機(jī)交互界面、編制總控程序、集成部件形成決策支持系統(tǒng)一步一步的根據(jù)指導(dǎo)書去練習(xí)，最終完成了DSS的集成，感覺學(xué)到了不少東西。40