delphi客戶服務(wù)器應(yīng)用開發(fā)四-wenkub.com
2024-08-17 15:18 本頁面
【正文】 , mtError, [mbOk], 0)。 end else MessageDlg(39。current transaction?39。 procedure (Sender: TObject)。t Commit Changes: No Transaction Active39。 。 begin if and (MessageDlg(39。 end。 。 CSDEMO 中演示事務(wù)控制的窗體是 TFrmTransDemo。 Delphi 擔(dān) 當(dāng)事務(wù)控制任務(wù)的部件是 TDatabase 。 事務(wù)控制編程 在客戶 /服務(wù)器應(yīng)用程序中，事務(wù)控制是一項(xiàng)很重要的技術(shù)。 DELETE FROM salary_history WHERE emp_no = :emp_num。 SUSPEND。其屬性如下： 表 DeleteEmployeeProc 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性名 屬 性 值 ────────────────────────── DataBaseName EmployeeDemoDB ParamBindMode PbByName Params EMP_NUM(輸入?yún)?shù)，整型 ) StoredProcName DELETE_EMPLOYEE ━━━━━━━━━━━━━━━━━━━━━━━━━━ 存儲(chǔ)過程 DELETE_EMPLOYEE 的程序如下： PROCEDURE DELETE_EMPLOYEE DECLARE VARIABLE any_sales INTEGER。程序中先準(zhǔn)備輸入?yún)?shù)，用ExecProc 方 法執(zhí)行存儲(chǔ)過程。 。 begin with DmEmployee do begin [0].AsString := SalesTable[39。 WHERE po_number = :po_num。 UPDATE customer SET on_hold = * WHERE cust_no = :cust_no。 SUSPEND。 BEGIN SELECT , , FROM sales s, customer c WHERE po_number = :po_num AND = INTO :ord_stat, :hold_stat, :cust_no。 SHIP_ORDE 的程序如下： PROCEDURE SHIP_ORDER DECLARE VARIABLE ord_stat CHAR(7)。用于當(dāng)EmployeeTable 數(shù)據(jù)記錄變化時(shí)，修正存儲(chǔ)過程的輸入?yún)?shù)，并執(zhí)行 SQL 語句。 project(s).39。Employee 39。 begin 。 end。 下面是客戶端的程序： procedure (Sender: TObject)。使用存儲(chǔ)過程的 TQuery 部件名為 EmployeeProjectsQuery，它的作用是建立 Employee 表和 Project 表的連接，以實(shí)現(xiàn)當(dāng) DBGrid1 中記錄改變時(shí)， DBGrid2 中的數(shù)據(jù)作相應(yīng)的改變。 1. TQuery 的存儲(chǔ)過程編程 CSDEMO 中演示用 TQuery 調(diào)用存儲(chǔ)過程的窗體是 TFrmQueryProc。 end。 。 END 因?yàn)橛|發(fā)器是相應(yīng)于 EMPLOYEE 表上的數(shù)據(jù)修改由服務(wù)器自動(dòng)觸發(fā)執(zhí)行的，所以在客戶應(yīng)用程序上沒有顯式的調(diào)用。 觸發(fā)器是在 SQL 服務(wù)器端執(zhí)行的一段程序，它在服務(wù)器端被觸發(fā)執(zhí)行完成一定的數(shù)據(jù)計(jì)算任務(wù)。它們的主要屬性及屬性值如下： 表 EmlpoyeeTable 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━ ━━━━ 屬 性 屬 性 值 ───────────────────── DatabaseName EmployeeDemoDB IndexFieldName Emp_No TableName EMPLOYEE ━━━━━━━━━━━━━━━━━━━━━ 表 SalaryHistoryTable 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━ 屬 性 屬 性 表 ───────────────────── DatabaseName EmployeeDemoDB IndexFieldName Emp_No MasterFields Emp_No MasterSource EmployeeSource TableName SALARY_HISTORY ━━━━━━━━━━━━━━━━━━━━━ 這兩個(gè)表之間存在兩種關(guān)系： ● 連接關(guān)系 EmployeeTable 的記錄變化時(shí)， SalaryHistoryTable 的數(shù)據(jù)要作相應(yīng)的變化。 crHourglass 型光標(biāo)表明正在執(zhí)行 SQL 查詢。 { 更新數(shù)據(jù)庫(kù)表名 } 。 begin := crHourglass。 不同數(shù)據(jù)庫(kù)表的切換 在許多數(shù)據(jù)庫(kù)應(yīng)用中都要在不同數(shù)據(jù)庫(kù)表之間相互切換，以響應(yīng)用戶輸入條件或系統(tǒng)狀態(tài)的變化。 KeepConnection屬性為 True，表明多次打開和關(guān)閉 EmployeeDemoDB 數(shù)據(jù)庫(kù)中的任意表，應(yīng)用程序?qū)⑹冀K與數(shù)據(jù)庫(kù)保持聯(lián)接，這省卻了重復(fù)注冊(cè)的開銷。 在 TDmEmployee 中定義了一個(gè) TDatabase 類型的部件──EmployeeDatabase。關(guān)于數(shù)據(jù)庫(kù)表中的字段名、類型、大小，這里不再贅述。 CHECK 語句是給數(shù)據(jù)庫(kù)字段取值范圍加約束條件。NOW39。)。99939。00039。 CREATE DOMAIN LASTNAME AS VARCHAR(20)。它是由 BDE配置工具 ()設(shè)置參數(shù)值。 Local InterBase 是InterBase Server 的單用戶版 32 位、兼容 ANSI SQL。 例如，計(jì)算大量記錄
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1