delphi客戶服務(wù)器應(yīng)用開(kāi)發(fā)四(參考版)
2024-08-25 15:18本頁(yè)面
【正文】 end。t Undo Edits: No Transaction Active39。Can39。 。, mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin 。 + 39。 begin if and (MessageDlg(39。 按下 BtnUndoEdits 按鈕將返轉(zhuǎn)當(dāng)前事物，恢復(fù)原來(lái)的數(shù)據(jù)，開(kāi)始新的事務(wù)控制，并刷新數(shù)據(jù)的顯示。, mtError, [mbOk], 0)。39。 end else MessageDlg(39。 。Are you sure you want to mit your changes?39。 procedure (Sender: TObject)。 窗口中有兩個(gè)按鈕 BtnCommitEdits和 BtnUndoEdits。 begin 。 end。 begin 。 DBGrid1 中顯示 EmployeeTable 中的內(nèi)容。 在 CSDEMO 中 TDatabase 部件為 EMployeeDatabase，其 TransIsolation屬性值為 tiReadCommitted，意為如果存在多個(gè)同時(shí)事務(wù)訪問(wèn)數(shù)據(jù)庫(kù)，則其中任一事務(wù)只能讀其它事務(wù)提交的了數(shù)據(jù)。 TDatabase 用于事務(wù)控制的屬性是 TransIsolation，方法有 StartTranstion、 Commit 和 Rollback。其中顯式控制的性能較高，下面介紹 Delphi 事務(wù)顯式控制的編程方法。它對(duì)于提高系統(tǒng)的可靠性，維護(hù)數(shù)據(jù)一致性有著重要的意義。 END Parameters: EMP_NUM INPUT INTEGER 從上述存儲(chǔ)過(guò)程的例子中，我們看到存儲(chǔ)過(guò)程在維護(hù)服務(wù)器上的數(shù)據(jù)一致性方面有很強(qiáng)的能力，它節(jié)省了系統(tǒng)開(kāi)銷，提高了客戶端的性能。 DELETE FROM employee WHERE emp_no = :emp_num。 DELETE FROM employee_project WHERE emp_no = :emp_num。 END UPDATE department SET mngr_no = NULL WHERE mngr_no = :emp_num。 IF (any_sales 0) THEN BEGIN EXCEPTION reassign_sales。 BEGIN any_sales = 0。它完成的任務(wù)是刪除 Employee 表中的記錄，并修改所有相關(guān)的表， 以維護(hù)數(shù)據(jù)的一致性。調(diào)用 。 當(dāng)用戶按 ShipOrder 按鈕時(shí)，執(zhí)行這段程序。 end。 。PO_NUMBER39。 在客 戶端使用該過(guò)程的 TStoreProc 部件是 ShipOrderProc，其主要屬性如下表： 表 ShipOrderProc 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性名 屬 性 值 ──────────────────────────── DatabaseName EmployeeDemoDB ParamBindMode pbByName Params PO_NUM(輸入?yún)?shù)， String 類型 ) StoredProcName SHIP_ORDER ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 客戶端執(zhí)行 SHIP_ORDER 的程序如下： procedure (Sender: TObject)。 SUSPEND。NOW39。 SUSPEND。 60 INTO :any_po DO BEGIN EXCEPTION customer_check。 END FOR SELECT po_number FROM sales WHERE cust_no = :cust_no AND order_status = shipped AND paid = n AND ship_date 39。 END ELSE IF (hold_stat = *) THEN BEGIN EXCEPTION customer_on_hold。 IF (ord_stat = shipped) THEN BEGIN EXCEPTION order_already_shipped。 DECLARE VARIABLE any_po CHAR(8)。 DECLARE VARIABLE hold_stat CHAR(1)。字段內(nèi)容的修改任務(wù)由服務(wù)器上的存儲(chǔ)過(guò)程 SHIP_ORDER 完成。 2. TStoredProc 部件的存儲(chǔ)過(guò)程編程 TStoredProc Delphi 專門用來(lái)使用服務(wù)器存儲(chǔ)過(guò)程的部件。 該事件處理過(guò)程與 EmployeeSource 的 OnDataChange 屬性相聯(lián)。)。 + IntToStr() + 39。 + + 39。 WriteMsg(39。 [0].AsInteger := 。 Field: TField)。 用 Prepare 顯式地準(zhǔn)備 SQL 語(yǔ)句，雖非必須，但可以優(yōu)化 SQL 的執(zhí)行。 with EmployeeProjectsQuery do if not Active then Prepare。 begin 。 END EMP_NO INPUT SMALLINT PROJ_ID OUTPUT CHAR(5) 該過(guò)程帶兩個(gè)參數(shù)： EMP_NO 是輸入?yún)?shù)，類型是 SMALLINT. PROJ_ID 是輸出參數(shù)，類型是 CHAR(5) 相應(yīng)地， EmployeeProjectsQuery 的主要屬性如下： 表 18. 18 EmployeeProjectsQuery 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬 性 屬 性 值 ────────────────────────── DatabaseName Employee
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1