delphi客戶服務(wù)器應(yīng)用開(kāi)發(fā)四-資料下載頁(yè)
【導(dǎo)讀】所謂適化就是將桌面應(yīng)用轉(zhuǎn)化為Client/Server應(yīng)用。適化是一個(gè)很復(fù)雜的主題，這里不詳細(xì)講述。本節(jié)將介紹適化Delphi應(yīng)用。程序中最重要的方面。桌面數(shù)據(jù)庫(kù)和SQL服務(wù)器數(shù)據(jù)庫(kù)在許多方面有不同之處。Delphi提供了兩種方法適化一個(gè)數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)，可能需要改變結(jié)果表。例如，可能想進(jìn)行不同數(shù)據(jù)類(lèi)型的映射。如果用SQL腳本和服務(wù)器數(shù)據(jù)定義工具定義元數(shù)據(jù)會(huì)更有效。實(shí)際上，在訪問(wèn)局部和過(guò)程數(shù)據(jù)源之間有許多重要的不同之處。Client/Server應(yīng)用程序必須解決大量的在桌面應(yīng)用中所沒(méi)有的問(wèn)題。任何Delphi應(yīng)用程序都能用TTable或TQuery部件訪問(wèn)數(shù)據(jù)。序通常都是使用TTable部件。如果應(yīng)用程序要檢索大量記錄，則TQuery部件要略勝一籌。因?yàn)榇鎯?chǔ)過(guò)程執(zhí)行更快，使用存儲(chǔ)過(guò)程還可以減少網(wǎng)絡(luò)負(fù)載，特。本節(jié)中采用的實(shí)例是數(shù)據(jù)庫(kù)的例子CSDEMO。CSDEMO較好地示范了BDE環(huán)境的配置，InterBASEServer高級(jí)功能應(yīng)用，本例中的SQL數(shù)據(jù)庫(kù)是IBLOCAL。新數(shù)據(jù)庫(kù)一般是以GDB為擴(kuò)展名。
【正文】 Sender: TObject)。 begin with DmEmployee do begin [0].AsString := SalesTable[39。PO_NUMBER39。]。 。 。 end。 end。 當(dāng)用戶按 ShipOrder 按鈕時(shí)，執(zhí)行這段程序。程序中先準(zhǔn)備輸入?yún)?shù)，用ExecProc 方 法執(zhí)行存儲(chǔ)過(guò)程。調(diào)用 。 在 CSDEMO 應(yīng)用程序中另一個(gè)使用存儲(chǔ)過(guò)程的 TStoredProc 部件是DeleteEmployeeProc。它完成的任務(wù)是刪除 Employee 表中的記錄，并修改所有相關(guān)的表， 以維護(hù)數(shù)據(jù)的一致性。其屬性如下： 表 DeleteEmployeeProc 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性名 屬 性 值 ────────────────────────── DataBaseName EmployeeDemoDB ParamBindMode PbByName Params EMP_NUM(輸入?yún)?shù)，整型 ) StoredProcName DELETE_EMPLOYEE ━━━━━━━━━━━━━━━━━━━━━━━━━━ 存儲(chǔ)過(guò)程 DELETE_EMPLOYEE 的程序如下： PROCEDURE DELETE_EMPLOYEE DECLARE VARIABLE any_sales INTEGER。 BEGIN any_sales = 0。 SELECT count(po_number) FROM sales WHERE sales_rep = :emp_num INTO :any_sales。 IF (any_sales 0) THEN BEGIN EXCEPTION reassign_sales。 SUSPEND。 END UPDATE department SET mngr_no = NULL WHERE mngr_no = :emp_num。 UPDATE project SET team_leader = NULL WHERE team_leader = :emp_num。 DELETE FROM employee_project WHERE emp_no = :emp_num。 DELETE FROM salary_history WHERE emp_no = :emp_num。 DELETE FROM employee WHERE emp_no = :emp_num。 SUSPEND。 END Parameters: EMP_NUM INPUT INTEGER 從上述存儲(chǔ)過(guò)程的例子中，我們看到存儲(chǔ)過(guò)程在維護(hù)服務(wù)器上的數(shù)據(jù)一致性方面有很強(qiáng)的能力，它節(jié)省了系統(tǒng)開(kāi)銷(xiāo)，提高了客戶端的性能。 事務(wù)控制編程 在客戶 /服務(wù)器應(yīng)用程序中，事務(wù)控制是一項(xiàng)很重要的技術(shù)。它對(duì)于提高系統(tǒng)的可靠性，維護(hù)數(shù)據(jù)一致性有著重要的意義。 Delphi 中提供了事務(wù)的隱式和顯式兩種控制方法。其中顯式控制的性能較高，下面介紹 Delphi 事務(wù)顯式控制的編程方法。 Delphi 擔(dān) 當(dāng)事務(wù)控制任務(wù)的部件是 TDatabase 。 TDatabase 用于事務(wù)控制的屬性是 TransIsolation，方法有 StartTranstion、 Commit 和 Rollback。關(guān)于這些屬性和方法作用和使用方法請(qǐng)參閱客戶 /服務(wù)器事務(wù)管理。 在 CSDEMO 中 TDatabase 部件為 EMployeeDatabase，其 TransIsolation屬性值為 tiReadCommitted，意為如果存在多個(gè)同時(shí)事務(wù)訪問(wèn)數(shù)據(jù)庫(kù)，則其中任一事務(wù)只能讀其它事務(wù)提交的了數(shù)據(jù)。 CSDEMO 中演示事務(wù)控制的窗體是 TFrmTransDemo。 DBGrid1 中顯示 EmployeeTable 中的內(nèi)容。當(dāng)窗口顯示時(shí)，EmployeeDatabase 開(kāi)始一次事務(wù)控制并激活 EmployeeTable： procedure (Sender: TObject)。 begin 。 。 end。 當(dāng)窗口被關(guān)閉或隱藏時(shí)， EmployeeDatabase 提交事務(wù)： procedure (Sender: TObject)。 begin 。 end。 窗口中有兩個(gè)按鈕 BtnCommitEdits和 BtnUndoEdits。按下 BtnCommitEdits按鈕將提交當(dāng)前事務(wù)，并開(kāi)始新的事務(wù)控制并刷新數(shù)據(jù)。 procedure (Sender: TObject)。 begin if and (MessageDlg(39。Are you sure you want to mit your changes?39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin 。 。 。 end else MessageDlg(39。Can39。39。t Commit Changes: No Transaction Active39。, mtError, [mbOk], 0)。 end。 按下 BtnUndoEdits 按鈕將返轉(zhuǎn)當(dāng)前事物，恢復(fù)原來(lái)的數(shù)據(jù)，開(kāi)始新的事務(wù)控制，并刷新數(shù)據(jù)的顯示。 procedure (Sender: TObject)。 begin if and (MessageDlg(39。Are you sure you want to undo all changes made during the 39。 + 39。current transaction?39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin 。 。 。 end else MessageDlg(39。Can39。39。t Undo Edits: No Transaction Active39。, mtError, [mbOk], 0)。 end。
鄂ICP備17016276號(hào)-1