delphi客戶服務(wù)器應(yīng)用開發(fā)（四）(文件)
【正文】 的 DatabaseName 下拉式列表框中。 LoginPrompt 屬性為 False，表明應(yīng)用程序自動(dòng)處理與數(shù)據(jù)庫(kù)的聯(lián)接注冊(cè)，因此，Params 屬性中定義了注冊(cè)的用戶名和口令： USERNAME = SYSDBA PASSWORD = masterkey TransIsolation 屬性為 tiReadCommitted 表明，如果存在多個(gè)同時(shí)事務(wù)，則某一事務(wù)只允許讀由其它事務(wù)提交了的數(shù)據(jù)。這時(shí)，往往需要特別的處理，例如改變光標(biāo)形狀或隱藏?cái)?shù)據(jù) 改變等，尤其是在客戶 /服務(wù)器應(yīng)用程序中。 { 向用戶提示當(dāng)前操作狀態(tài) } 。 { 打開數(shù)據(jù)庫(kù)表 } 。 DisableControls 和EnableControls 的作用是隱藏和顯示數(shù)據(jù)變化。這種連接關(guān)系是通過索引來實(shí)現(xiàn)的。 下面是 InterBase 服務(wù)器上與 Employee 表相關(guān)的觸發(fā)器程序： Triggers on Table EMPLOYEE: SAVE_SALARY_CHANGE, Sequence: 0, Type: AFTER UPDATE, Active AS BEGIN IF ( ) THEN INSERT INTO salary_history (emp_no, change_date, updater_id, old_salary, percent_change) VALUES ( , 39。在客戶端有打開并顯示數(shù)據(jù)庫(kù)表內(nèi)容的程序和當(dāng) SALARY_HISTORY 表中數(shù)據(jù)變化時(shí)的更新顯示的操作。 end。 存儲(chǔ)過程編程 存儲(chǔ)過程也是 SQL 服務(wù)器上的一段程序，它接收輸入?yún)?shù)，在服務(wù)器端執(zhí)行，并將結(jié)果返回客戶端，存儲(chǔ)過程是必須在客戶應(yīng)用程 序中顯式調(diào)用的。 TFrmQueryProc 中有兩個(gè) TDBGrid 部件。具體的連接任務(wù)是由服務(wù)器上的存儲(chǔ)過程 Get_Emp_Proj 完成。 begin 。 用 Prepare 顯式地準(zhǔn)備 SQL 語(yǔ)句，雖非必須，但可以優(yōu)化 SQL 的執(zhí)行。 [0].AsInteger := 。 + + 39。)。 2. TStoredProc 部件的存儲(chǔ)過程編程 TStoredProc Delphi 專門用來使用服務(wù)器存儲(chǔ)過程的部件。 DECLARE VARIABLE hold_stat CHAR(1)。 IF (ord_stat = shipped) THEN BEGIN EXCEPTION order_already_shipped。 END FOR SELECT po_number FROM sales WHERE cust_no = :cust_no AND order_status = shipped AND paid = n AND ship_date 39。 SUSPEND。 SUSPEND。PO_NUMBER39。 end。調(diào)用 。 BEGIN any_sales = 0。 END UPDATE department SET mngr_no = NULL WHERE mngr_no = :emp_num。 DELETE FROM employee WHERE emp_no = :emp_num。它對(duì)于提高系統(tǒng)的可靠性，維護(hù)數(shù)據(jù)一致性有著重要的意義。 TDatabase 用于事務(wù)控制的屬性是 TransIsolation，方法有 StartTranstion、 Commit 和 Rollback。 DBGrid1 中顯示 EmployeeTable 中的內(nèi)容。 end。 窗口中有兩個(gè)按鈕 BtnCommitEdits和 BtnUndoEdits。Are you sure you want to mit your changes?39。 end else MessageDlg(39。, mtError, [mbOk], 0)。 begin if and (MessageDlg(39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin 。Can39。 end。t Undo Edits: No Transaction Active39。 。 + 39。 按下 BtnUndoEdits 按鈕將返轉(zhuǎn)當(dāng)前事物，恢復(fù)原來的數(shù)據(jù)，開始新的事務(wù)控制，并刷新數(shù)據(jù)的顯示。39。 。 procedure (Sender: TObject)。 begin 。 begin 。 在 CSDEMO 中 TDatabase 部件為 EMployeeDatabase，其 TransIsolation屬性值為 tiReadCommitted，意為如果存在多個(gè)同時(shí)事務(wù)訪問數(shù)據(jù)庫(kù)，則其中任一事務(wù)只能讀其它事務(wù)提交的了數(shù)據(jù)。其中顯式控制的性能較高，下面介紹 Delphi 事務(wù)顯式控制的編程方法。 END Parameters: EMP_NUM INPUT INTEGER 從上述存儲(chǔ)過程的例子中，我們看到存儲(chǔ)過程在維護(hù)服務(wù)器上的數(shù)據(jù)一致性方面有很強(qiáng)的能力，它節(jié)省了系統(tǒng)開銷，提高了客戶端的性能。 DELETE FROM employee_project WHERE emp_no = :emp_num。 IF (any_sales 0) THEN BEGIN EXCEPTION reassign_sales。它完成的任務(wù)是刪除 Employee 表中的記錄，并修改所有相關(guān)的表， 以維護(hù)數(shù)據(jù)的一致性。 當(dāng)用戶按 ShipOrder 按鈕時(shí)，執(zhí)行這段程序。 。 在客 戶端使用該過程的 TStoreProc 部件是 ShipOrderProc，其主要屬性如下表： 表 ShipOrderProc 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性名 屬 性 值 ──────────────────────────── DatabaseName EmployeeDemoDB ParamBindMode pbByName
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1