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

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

2、s 復(fù)制一個(gè)存儲(chǔ)過(guò)程中的參數(shù)到另一個(gè)參數(shù)列表中Create 新建一個(gè)存儲(chǔ)過(guò)程控件DescriptionsAvailable 標(biāo)志服務(wù)器是否可以返回存儲(chǔ)過(guò)程的參數(shù)Destory 撤消一個(gè)存儲(chǔ)過(guò)程ExecProc 執(zhí)行服務(wù)器上的存儲(chǔ)過(guò)程GetResults 取得一個(gè)Sybase存儲(chǔ)過(guò)程的返回參數(shù)ParamByName 根據(jù)參數(shù)名訪問(wèn)參數(shù)信息Prepare 為執(zhí)行存儲(chǔ)過(guò)程進(jìn)行準(zhǔn)備UnPrepare 釋放在先前準(zhǔn)備操作時(shí)分配給存儲(chǔ)過(guò)程的資源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ù)的名字。通過(guò)調(diào)用ParamByName 方法可以在運(yùn)行時(shí)設(shè)置輸入?yún)?shù)，或者用來(lái)獲取輸出參數(shù)的值。MicrosoftMicrosoftMicrosoftMicrosoft2執(zhí)行一個(gè)存儲(chǔ)過(guò)程（1） 準(zhǔn)備工作 在執(zhí)行一個(gè)存儲(chǔ)過(guò)程前，需要做一些準(zhǔn)備工作，即要通知數(shù)據(jù)庫(kù)服務(wù)器。如果是在設(shè)計(jì)階段，可以通過(guò)Parameters 編輯框給出參數(shù)做準(zhǔn)備 ；如果在程序的運(yùn)行階段，

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

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

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

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

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

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

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

11、程序可以使用StoredProc 組件的Params 屬性或ParamByName方法來(lái)訪問(wèn)輸出參數(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ù)庫(kù)服務(wù)器中的存儲(chǔ)過(guò)程不支持輸入/輸出參數(shù)。4狀態(tài)結(jié)果參數(shù)狀態(tài)結(jié)果參數(shù) 除了返回輸出參數(shù)和數(shù)據(jù)集外，存儲(chǔ)過(guò)程還能返回狀態(tài)結(jié)果參數(shù)。狀態(tài)結(jié)果參數(shù)經(jīng)常用來(lái)返回錯(cuò)誤或狀態(tài)信息。在使用前先閱讀數(shù)據(jù)庫(kù)服務(wù)器的文檔，看是否支持以及怎樣支持狀態(tài)結(jié)果參數(shù)。狀態(tài)結(jié)果

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

14、，但可以使用SOL Explorer 來(lái)查看存儲(chǔ)過(guò)程的代碼，從代碼中找出參數(shù)名和參數(shù)類型，然后可在Object Inspector中手工建立參數(shù)。Microsoftl 設(shè)置好StoredProc 組件的DatabaseName 屬性和StoredProcName 屬性。l 在Object Inspector中，單擊StoredProc 組件的Params 屬性右邊的省略號(hào)按鈕，使可以打開(kāi)如圖8-1所示的參數(shù)編輯器。如果在第一步中沒(méi)有設(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ù)庫(kù)服務(wù)器上的存儲(chǔ)過(guò)程，想返回一個(gè)數(shù)據(jù)集，則必須將參數(shù)的DataType 屬性設(shè)為ftCursor。l 另外，如果是輸入或輸入/輸出參數(shù)，則必須設(shè)置參數(shù)的Va