《數(shù)據(jù)庫應(yīng)用技術(shù)——Delphi應(yīng)用系統(tǒng)開發(fā)》-蔣麗華-電子教案第八章

1、lMicrosoftMicrosoftMicrosoft屬性含義Overload決定在Oracle服務(wù)器上執(zhí)行哪一種存儲(chǔ)過程的重載ParamBindMode決定組件在服務(wù)器上執(zhí)行存儲(chǔ)過程時(shí)，參數(shù)列表中各參數(shù)的先后順序ParamCount指明了組件在執(zhí)行存儲(chǔ)過程中使用參數(shù)的數(shù)目Params儲(chǔ)存存儲(chǔ)過程中輸入和輸出的參數(shù)Prepared標(biāo)志執(zhí)行存儲(chǔ)過程的準(zhǔn)備工作是否已完成StmtHandle為了在存儲(chǔ)過程中直接調(diào)用BDE的API函數(shù)StoredProcName表示服務(wù)器上的存儲(chǔ)過程名表8-1 StoredProc組件特有屬性MicrosoftMicrosoft方法方法 功功 能能CopyParam

2、s 復(fù)制一個(gè)存儲(chǔ)過程中的參數(shù)到另一個(gè)參數(shù)列表中Create 新建一個(gè)存儲(chǔ)過程控件DescriptionsAvailable 標(biāo)志服務(wù)器是否可以返回存儲(chǔ)過程的參數(shù)Destory 撤消一個(gè)存儲(chǔ)過程ExecProc 執(zhí)行服務(wù)器上的存儲(chǔ)過程GetResults 取得一個(gè)Sybase存儲(chǔ)過程的返回參數(shù)ParamByName 根據(jù)參數(shù)名訪問參數(shù)信息Prepare 為執(zhí)行存儲(chǔ)過程進(jìn)行準(zhǔn)備UnPrepare 釋放在先前準(zhǔn)備操作時(shí)分配給存儲(chǔ)過程的資源Microsoft圖8-1 Parameters編輯框 圖8-2 在Object Inspector中設(shè)置ProcedureName屬性MicrosoftParam

3、ByName 方法：其基本格式如下：Function ParamByName (const Value: string ):Tparam;調(diào)用ParamByName 方法會(huì)根據(jù)參數(shù)名獲取相應(yīng)的參數(shù)信息。Value 就是 希望獲取信息的參數(shù)的名字。通過調(diào)用ParamByName 方法可以在運(yùn)行時(shí)設(shè)置輸入?yún)?shù)，或者用來獲取輸出參數(shù)的值。MicrosoftMicrosoftMicrosoftMicrosoft2執(zhí)行一個(gè)存儲(chǔ)過程（1） 準(zhǔn)備工作 在執(zhí)行一個(gè)存儲(chǔ)過程前，需要做一些準(zhǔn)備工作，即要通知數(shù)據(jù)庫服務(wù)器。如果是在設(shè)計(jì)階段，可以通過Parameters 編輯框給出參數(shù)做準(zhǔn)備 ；如果在程序的運(yùn)行階段，

4、可以調(diào)用 StoredProc 組件的 Prepare 方法，如： StoredProc1. Prepare; 如果應(yīng)用程序在運(yùn)行階段改變了存儲(chǔ)過程的參數(shù)，例如使用了 Oracle 的重載過程，就需要重新準(zhǔn)備存儲(chǔ)過程，即必須重新調(diào)用StoredProc 組件的 Prepare 方法。 MicrosoftMicrosoftMicrosoft 圖8-3 Parameters編輯對(duì)話框框 圖8-4 在Object Inspector中訪問參數(shù)的屬性 Microsoft為：Function ParamByName(const Value:string):TParam; 其中，Value是要訪問的參數(shù)的

5、名字。通過調(diào)用ParamByName方法可以在運(yùn)行時(shí)設(shè)置輸入?yún)?shù)或者獲取輸出參數(shù)的值。 ExecProc方法：用來執(zhí)行服務(wù)器上的存儲(chǔ)過程的。在調(diào)用ExecProc方法前，首先要確認(rèn)Parameters屬性中給出所有存儲(chǔ)過程需要的參數(shù)，然后設(shè)置Prepared屬性為True，綁定參數(shù)。 最后調(diào)用ExecProc方法，當(dāng)ExecProc方法將控制權(quán)重新交給應(yīng)用程序時(shí)，如果存儲(chǔ)過程返回了輸出參數(shù)，它們將被存儲(chǔ)在Parameters屬性中。應(yīng)用程序可以通過Parameters屬性的參數(shù)表列索引，或者通過調(diào)用ParamByName方法訪問這些 輸出參數(shù)。Microsoft8.2 創(chuàng)建、編輯創(chuàng)建、編輯存儲(chǔ)

6、過程存儲(chǔ)過程 存儲(chǔ)過程一般是需要專門的工具來編寫的，使用存儲(chǔ)過程的數(shù)據(jù)庫服務(wù)器通常都帶有這種工具。在Delphi中，還可以通過SQL語句來編輯存儲(chǔ)過程。對(duì)于不同的數(shù)據(jù)庫服務(wù)器來說，即使功能相同的存儲(chǔ)過程，SQL語句也可能是不同的。所以，在使用存儲(chǔ)過程前需查閱數(shù)據(jù)庫服務(wù)器的文檔。MicrosoftMicrosoft狀態(tài)值含義狀態(tài)值含義0成功返回-3選中的進(jìn)程死鎖-1丟失引用對(duì)象-4權(quán)限錯(cuò)誤-2數(shù)據(jù)類型不匹配 如果沒有在存儲(chǔ)過程中使用Return定義返回狀態(tài)值，存儲(chǔ)過程會(huì)自動(dòng)定義一個(gè)RETURN_VALUE參數(shù)，它在Params屬性中的序號(hào)為0。 下面舉一個(gè)簡單的例子來說明在SQL Server數(shù)

7、據(jù)庫服務(wù)器中怎樣定義存儲(chǔ)過程，代碼如下。MicrosoftMicrosoftMicrosoftMicrosoftMicrosoft Create Procedure ShowInfoproc iStudID char(6) as /begin和end也可以省略 select StudName,StudScore from ShowInfo where StudID=iStudID 如果想從上面的存儲(chǔ)過程中檢索結(jié)果集，可以將Query組件的SQL屬性設(shè)置 為以下的SQL語句。 Execute ShowInfoproc 990071 ;使用Query組件來檢索存儲(chǔ)過程的結(jié)果數(shù)據(jù)集時(shí)有一個(gè)好處就是，

8、既可以檢索出整個(gè)結(jié)果數(shù)據(jù)集，也可以從結(jié)果數(shù)據(jù)集中選擇所需的記錄顯示。MicrosoftMicrosoftMicrosoft8.3.2使用使用StoredProc組件組件 通過StoredProc 組件也可以使用存儲(chǔ)過程，即可以檢索數(shù)據(jù)集、參數(shù)查詢、增加記錄、修改及刪除記錄等。MicrosoftMicrosoftMicrosoft圖8-5 程序界面 第二步：將ADOConnection組件（Name屬性設(shè)為ADOConnection1）與數(shù)據(jù)庫聯(lián)系，連接數(shù)據(jù)模板上的數(shù)據(jù)庫newworldhouse，設(shè)置Connected屬性為True；ADOStoredProc 組件（Name屬性設(shè)為ADOSt

9、oredProc1）的Connection選擇ADOConnection1；ADOQuery組件( Name屬性設(shè)為ADOQuery1） MicrosoftMicrosoftMicrosoft圖8-6 調(diào)用存儲(chǔ)過程結(jié)果 第五步：執(zhí)行程序，當(dāng)選中CheckBox1復(fù)選框時(shí)將顯示存儲(chǔ)過程的執(zhí)行結(jié)果，當(dāng)取消選中CheckBox1復(fù)選框時(shí)，將不顯示任何的數(shù)據(jù)。單擊“”按鈕，也可以執(zhí)行存儲(chǔ)過程，顯示界面如圖8-6所示。8.4 存儲(chǔ)過程的參數(shù)存儲(chǔ)過程的參數(shù) 與存儲(chǔ)過程相關(guān)的參數(shù)共有四種，即輸入?yún)?shù)、輸出參數(shù)、輸入/輸出參數(shù)和狀態(tài)結(jié)果參數(shù)。在下面的章節(jié)里將詳細(xì)介紹參數(shù)的種類以及怎樣訪問和創(chuàng)建參數(shù)。 Micr

10、osoft表8-4 存儲(chǔ)過程的參數(shù) 參數(shù)類型含義輸入?yún)?shù)需要應(yīng)用程序向存儲(chǔ)過程傳遞輸出參數(shù)由存儲(chǔ)過程向應(yīng)用程序傳遞輸入/輸出參數(shù)應(yīng)用程序和存儲(chǔ)過程可互相傳遞狀態(tài)結(jié)果參數(shù)由存儲(chǔ)過程向應(yīng)用程序傳遞的有關(guān)錯(cuò)誤和狀態(tài)的信息 存儲(chǔ)過程具體使用哪些參數(shù)，和數(shù)據(jù)庫服務(wù)器有關(guān)。像MS_SQL數(shù)據(jù)庫服務(wù)器和Sybase數(shù)據(jù)庫服務(wù)器上的存儲(chǔ)過程一般會(huì)返回狀態(tài)結(jié)果參數(shù)，而InterBase數(shù)據(jù)庫服務(wù)器不支持返回狀態(tài)結(jié)果參數(shù)。MicrosoftMicrosoft2使用輸出參數(shù)使用輸出參數(shù) 存儲(chǔ)過程使用輸出參數(shù)向調(diào)用它的應(yīng)用程序返回執(zhí)行結(jié)果。輸出參數(shù)是在存儲(chǔ)過程執(zhí)行后由存儲(chǔ)過程賦值，應(yīng)用程序可以訪問輸出參數(shù)的值。 應(yīng)用

11、程序可以使用StoredProc 組件的Params 屬性或ParamByName方法來訪問輸出參數(shù)。假如想將第一個(gè)輸出參數(shù)的值顯示在編輯框中，可使用如下的代碼： With MyStoredProc do Begin ExecProc; Edit1.Text:= Params0. AsString; End;MicrosoftCreate Or Replace Procedure UpdateInfo (InOutParam IN OUT Integer)AsBegin Update StudInfo; Set Age = InOutParam; Where StudID = 990071;

12、InOutParam:=20;End UpdateInfo;MicrosoftWith MyStoredProc doBegin ParamByName(InOutParam).AsInteger:= 29; ExecProc; Edit1.Text:= ParamByName(InOutParam).AsString;End;SQL Server數(shù)據(jù)庫服務(wù)器中的存儲(chǔ)過程不支持輸入/輸出參數(shù)。4狀態(tài)結(jié)果參數(shù)狀態(tài)結(jié)果參數(shù) 除了返回輸出參數(shù)和數(shù)據(jù)集外，存儲(chǔ)過程還能返回狀態(tài)結(jié)果參數(shù)。狀態(tài)結(jié)果參數(shù)經(jīng)常用來返回錯(cuò)誤或狀態(tài)信息。在使用前先閱讀數(shù)據(jù)庫服務(wù)器的文檔，看是否支持以及怎樣支持狀態(tài)結(jié)果參數(shù)。狀態(tài)結(jié)果

13、參數(shù)不需要在執(zhí)行存儲(chǔ)過程前賦值，只有在執(zhí)行存儲(chǔ)過程后才能訪問它的值。Microsoft8.4.2訪問參數(shù)訪問參數(shù) 存儲(chǔ)過程的參數(shù)可以在設(shè)計(jì)期間進(jìn)行訪問，也可以在程序的運(yùn)行期間進(jìn)行創(chuàng)建和訪問。1設(shè)計(jì)期間訪問參數(shù)設(shè)計(jì)期間訪問參數(shù) 如果在設(shè)計(jì)期間，已經(jīng)設(shè)置好了StoredProc 組件的DatabaseName 屬性和StoredProcName 屬性，那么可以使用StoredProc 組件的參數(shù)編輯器來查看存儲(chǔ)過程的參數(shù)名、參數(shù)類型等有關(guān)參數(shù)信息。如果是輸入?yún)?shù)，可以設(shè)置它們的值。不過，不是所有數(shù)據(jù)庫服務(wù)器都允許這樣做，像Informix 數(shù)據(jù)庫服務(wù)器，它不提供像存儲(chǔ)過程參數(shù)的名字、參數(shù)類型等信息

14、，但可以使用SOL Explorer 來查看存儲(chǔ)過程的代碼，從代碼中找出參數(shù)名和參數(shù)類型，然后可在Object Inspector中手工建立參數(shù)。Microsoftl 設(shè)置好StoredProc 組件的DatabaseName 屬性和StoredProcName 屬性。l 在Object Inspector中，單擊StoredProc 組件的Params 屬性右邊的省略號(hào)按鈕，使可以打開如圖8-1所示的參數(shù)編輯器。如果在第一步中沒有設(shè)置好DatabaseName 屬性或StoredProcName 屬性，那么在參數(shù)編輯器中就不會(huì)出現(xiàn)參數(shù)。此時(shí)，可以使用該編輯器工具欄上的Add New 按鈕，或

15、右擊該編輯器，在彈出的菜單中選擇Add 菜單項(xiàng)，就可以創(chuàng)建一個(gè)新的參數(shù)。l 在參數(shù)編輯器中選擇一個(gè)參數(shù)，就可以在Object Inspector中查看該參數(shù)的屬性；如果該參數(shù)的ParamType屬性值為ptUnkow，則必須在ParamType屬性右邊的下拉列表框里選擇參數(shù)的類型，可以為ptInput、ptOutput、ptInputOutput或者是ptResult。l 設(shè)置好參數(shù)的DataType屬性值，即設(shè)定參數(shù)的數(shù)據(jù)類型；如果是Oracle 數(shù)據(jù)庫服務(wù)器上的存儲(chǔ)過程，想返回一個(gè)數(shù)據(jù)集，則必須將參數(shù)的DataType 屬性設(shè)為ftCursor。l 另外，如果是輸入或輸入/輸出參數(shù)，則必須設(shè)置參數(shù)的Va