知识大全 Delphi客户服务器应用开发（四）[2]

Posted 2022-07-21 数据库

篇首语：志高品高，志下品下。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi客户服务器应用开发（四）[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi客户服务器应用开发（四）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　CREATE TABLE EMPLOYEE （EMP_NO EMPNO NOT NULL

　　FIRST_NAME FIRSTNAME NOT NULL

　　LAST_NAME LASTNAME NOT NULL

　　PHONE_EXT VARCHAR（）

　　HIRE_DATE DATE DEFAULT NOW NOT NULL

　　DEPT_NO DEPTNO NOT NULL

　　JOB_CODE JOBCODE NOT NULL

　　JOB_GRADE JOBGRADE NOT NULL

　　JOB_COUNTRY COUNTRYNAME NOT NULL

　　SALARY SALARY NOT NULL

　　FULL_NAME PUTED BY （last_name || || first_name）

　　PRIMARY KEY （EMP_NO））

　　CHECK语句是给数据库字段取值范围加约束条件 PRIMARY_KEY语句是给表建立关键字索引

　　如法炮制就可以定义IBLOCAL中的所有表

　　IBLOCAL中的表包括

　　EMPLOYEE CUSTOMER DEPARTMENT EMPLOYEE_PROJECT

　　PROJECT SALES SALARY_HISCORY

　　各数据库表中的内容如下

　　表 EmployeeDemoDB中各数据库表的内容

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　数据库表名表中内容

　　───────────────────────────

　　EMPLOYEE 雇员信息

　　CUSTOMER 客户信息

　　DEPARTMENT 部门信息

　　EMPLOYEE_PROJECT 雇员负责的工程

　　PROJECT 工程信息

　　SALES 销售信息

　　SALARY_HISTORY 雇员薪水调整的历史信息

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　每个数据库表中都定义了关键字段关于数据库表中的字段名类型大小这里不再赘述

　　 应用程序分析

　　 TDatabase部件的使用

　　CSDEMO程序中定义了一个数据库模块部件 TDmEmployee 它是继承于TDataModule TDataModule是在Delphi 中才出现的专门放置数据访问部件（如TDatabase TTable和TQuery等）的框架其它涉及数据库访问的窗体只要在uses语句中插入数据库模块所在的库单元该窗体上的数据库部件就可引用相应的数据库访问部件

　　在TDmEmployee中定义了一个TDatabase类型的部件──EmployeeDatabase EmployeeDatagase的主要属性及属性值如下

　　表 EmployeeDatabase部件主要属性的取值

　　━━━━━━━━━━━━━━━━━━━━━━━

　　属性属性值

　　───────────────────────

　　AliasName IBLOCAL

　　DatabaseName EmployeeDemoDB

　　KeepConnection True

　　LoginPrompt False

　　TransIsolation tiReadCommitted

　　Params USERNAME = SYSDBA

　　PASSWORD = masterkey

　　Connected True

　　━━━━━━━━━━━━━━━━━━━━━━━

　　AliasName属性所指定的IBLOCAL 必须已经在BDE中配置好 DatabaseName属性指定要使用的数据库名该数据库名是由应用程序自己定义的因此不反应到BDE中该属性值被TTable TQuery等DataSet部件引用并且出现在DataSet部件的DatabaseName 下拉式列表框中本例中的 EmployeeDemoDB 被EmployeeTable SalesTable等所有DataSet部件引用

　　Connected为True表明应用程序与数据库将保持联接

　　KeepConnection属性为True 表明多次打开和关闭EmployeeDemoDB数据库中的任意表应用程序将始终与数据库保持联接这省却了重复注册的开销

　　LoginPrompt 属性为False 表明应用程序自动处理与数据库的联接注册因此 Params属性中定义了注册的用户名和口令

　　USERNAME = SYSDBA

　　PASSWORD = masterkey

　　TransIsolation属性为tiReadCommitted表明如果存在多个同时事务则某一事务只允许读由其它事务提交了的数据

　　程序中EmployeeDatabase的应用还与事务控制等有关下文中会介绍这方面的内容

　　 不同数据库表的切换

　　在许多数据库应用中都要在不同数据库表之间相互切换以响应用户输入条件或系统状态的变化这时往往需要特别的处理例如改变光标形状或隐藏数据改变等尤其是在客户/服务器应用程序中因为是用SQL语句访问远程数据库有时还要在服务器端执行计算任务所以客户端的数据变化会有一定的间隔因此应该让用户明白发生了什么下面是CSDEMO在数据库表切换时的处理办法

　　procedure TFrmViewDemo ShowTable（ ATable: string ）

　　begin

　　Screen Cursor := crHourglass; 向用户提示当前操作状态

　　VaryingTable DisableControls; 隐藏数据变化

　　VaryingTable Active := FALSE; 关闭原来的数据库表

　　VaryingTable TableName := ATable; 更新数据库表名

　　VaryingTable Open; 打开数据库表

　　VaryingTable EnableControls; 显示所作的修改

　　Screen Cursor := crDefault; 重新设置光标形状

　　end;

　　crHourglass型光标表明正在执行SQL查询 DisableControls和EnableControls的作用是隐藏和显示数据变化

　　 InterBase触发器（Trigger）的应用

　　在CSDEMO应用程序中演示触发器应用的窗体是TFromTriggerDemo;

　　在该窗体中包含两个TDBGrid对象 DBGrid 显示EmployeeTable中的数据 DBGrid 显示SalaryHistoryTable中的数据它们的主要属性及属性值如下

　　表 EmlpoyeeTable部件主要属性的取值

　　━━━━━━━━━━━━━━━━━━━━━

　　属性属性值

　　─────────────────────

　　DatabaseName EmployeeDemoDB

　　IndexFieldName Emp_No

　　TableName EMPLOYEE

　　━━━━━━━━━━━━━━━━━━━━━

　　表 SalaryHistoryTable部件主要属性的取值

　　━━━━━━━━━━━━━━━━━━━━━

　　属性属性表

　　─────────────────────

　　DatabaseName EmployeeDemoDB

　　IndexFieldName Emp_No

　　MasterFields Emp_No

　　MasterSource EmployeeSource

　　TableName SALARY_HISTORY

　　━━━━━━━━━━━━━━━━━━━━━

　　这两个表之间存在两种关系

　　● 连接关系

　　EmployeeTable的记录变化时 SalaryHistoryTable的数据要作相应的变化这种连接关系是通过索引来实现的

　　● 数据一致性

　　对EmployeeTable中的Salary字段的值作修改必须反映到SalaryHistoryTable中 SalaryHistoryTable维护的是Salary变化的历史信息这种数据一致性要求在本程序中是通过触发器实现的

　　触发器是在SQL服务器端执行的一段程序它在服务器端被触发执行完成一定的数据计算任务

　　下面是InterBase服务器上与Employee表相关的触发器程序

　　Triggers on Table EMPLOYEE:

　　SAVE_SALARY_CHANGE Sequence: Type: AFTER UPDATE Active AS

　　BEGIN

　　IF （old salary <> new salary） THEN

　　INSERT INTO salary_history

　　（emp_no change_date updater_id old_salary percent_change）

　　VALUES （

　　old emp_no

　　 now

　　user

　　old salary

　　（new salary old salary） * / old salary）

　　END

　　因为触发器是相应于EMPLOYEE表上的数据修改由服务器自动触发执行的所以在客户应用程序上没有显式的调用在客户端有打开并显示数据库表内容的程序和当SALARY_HISTORY表中数据变化时的更新显示的操作

cha138/Article/program/Delphi/201311/25126