delphi客戶服務(wù)器應(yīng)用開(kāi)發(fā)四(存儲(chǔ)版)
【正文】 INT PROJ_ID OUTPUT CHAR(5) 該過(guò)程帶兩個(gè)參數(shù)： EMP_NO 是輸入?yún)?shù)，類(lèi)型是 SMALLINT. PROJ_ID 是輸出參數(shù)，類(lèi)型是 CHAR(5) 相應(yīng)地， EmployeeProjectsQuery 的主要屬性如下： 表 18. 18 EmployeeProjectsQuery 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬 性 屬 性 值 ────────────────────────── DatabaseName EmployeeDemoDB Params EMP_No(輸入?yún)?shù)， Smallint 類(lèi)型 ) SQL Select * from Get_Emp_Proj(:EMP_NO) ━━━━━━━━━━━━━━━━━━━━━━━━━━ TQuery 部件是在 SQL 語(yǔ)句中直接調(diào)用存儲(chǔ)過(guò)程。 Field: TField)。 + IntToStr() + 39。字段內(nèi)容的修改任務(wù)由服務(wù)器上的存儲(chǔ)過(guò)程 SHIP_ORDER 完成。 END ELSE IF (hold_stat = *) THEN BEGIN EXCEPTION customer_on_hold。NOW39。 。它完成的任務(wù)是刪除 Employee 表中的記錄，并修改所有相關(guān)的表， 以維護(hù)數(shù)據(jù)的一致性。 DELETE FROM employee_project WHERE emp_no = :emp_num。其中顯式控制的性能較高，下面介紹 Delphi 事務(wù)顯式控制的編程方法。 begin 。 procedure (Sender: TObject)。39。 + 39。t Undo Edits: No Transaction Active39。Can39。 begin if and (MessageDlg(39。 end else MessageDlg(39。 窗口中有兩個(gè)按鈕 BtnCommitEdits和 BtnUndoEdits。 DBGrid1 中顯示 EmployeeTable 中的內(nèi)容。它對(duì)于提高系統(tǒng)的可靠性，維護(hù)數(shù)據(jù)一致性有著重要的意義。 END UPDATE department SET mngr_no = NULL WHERE mngr_no = :emp_num。調(diào)用 。PO_NUMBER39。 SUSPEND。 IF (ord_stat = shipped) THEN BEGIN EXCEPTION order_already_shipped。 2. TStoredProc 部件的存儲(chǔ)過(guò)程編程 TStoredProc Delphi 專(zhuān)門(mén)用來(lái)使用服務(wù)器存儲(chǔ)過(guò)程的部件。 + + 39。 用 Prepare 顯式地準(zhǔn)備 SQL 語(yǔ)句，雖非必須，但可以優(yōu)化 SQL 的執(zhí)行。具體的連接任務(wù)是由服務(wù)器上的存儲(chǔ)過(guò)程 Get_Emp_Proj 完成。 存儲(chǔ)過(guò)程編程 存儲(chǔ)過(guò)程也是 SQL 服務(wù)器上的一段程序，它接收輸入?yún)?shù)，在服務(wù)器端執(zhí)行，并將結(jié)果返回客戶端，存儲(chǔ)過(guò)程是必須在客戶應(yīng)用程 序中顯式調(diào)用的。在客戶端有打開(kāi)并顯示數(shù)據(jù)庫(kù)表內(nèi)容的程序和當(dāng) SALARY_HISTORY 表中數(shù)據(jù)變化時(shí)的更新顯示的操作。這種連接關(guān)系是通過(guò)索引來(lái)實(shí)現(xiàn)的。 { 打開(kāi)數(shù)據(jù)庫(kù)表 } 。這時(shí)，往往需要特別的處理，例如改變光標(biāo)形狀或隱藏?cái)?shù)據(jù) 改變等，尤其是在客戶 /服務(wù)器應(yīng)用程序中。 EmployeeDatagase 的主要屬性及屬性值如下： 表 EmployeeDatabase 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━ 屬性 屬性值 ─────────────────────── AliasName IBLOCAL DatabaseName EmployeeDemoDB KeepConnection True LoginPrompt False TransIsolation tiReadCommitted Params USERNAME = SYSDBA PASSWORD = masterkey Connected True ━━━━━━━━━━━━━━━━━━━━━━━ AliasName屬性所指定的 IBLOCAL，必須已經(jīng)在 BDE中配置好， DatabaseName屬性指定要使用的數(shù)據(jù)庫(kù)名，該數(shù)據(jù)庫(kù)名是由應(yīng)用程序自己定義的，因此不反應(yīng)到 BDE 中，該屬性值被 TTable、 TQuery 等 DataSet 部件引用，并且出現(xiàn)在DataSet 部件的 DatabaseName 下拉式列表框中。 PRIMARY_KEY 語(yǔ)句是給表建立關(guān)鍵字索引。 CREATE DOMAIN JOBGRADE AS SMALLINT CHECK (VALUE BETWEEN 0 AND 6)。 OR (VALUE 39。它的各項(xiàng)參數(shù)值列于下表： 表 IBLOCAL 的各項(xiàng)參數(shù)值 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 參 數(shù) 名 參 數(shù) 值 ──────────────────────────────────── TYPE INTRBASE PATH SERVER NAME C:\INTRBASE\EXAMPLES\ USER NAME SYSDBA OPEN MODE READ/WRITE SCHEMA CACHE SIZE 8 LANGDRIVER SQLQRYMODE SQLPASSTHRU MODE SHARED AUTOCOMMIT SCHEMA CHCHE TIME 1 MAX ROWS 1 BATCH COUNT 200 ENABLE SCHEMA CACHE FALSE SCHEMA CACHE DIR ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 數(shù)據(jù)庫(kù)結(jié)構(gòu)介紹 IBLOCAL 數(shù)據(jù)庫(kù)的結(jié)構(gòu)都是由 InterBase 服務(wù)器工具交
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1