第十八章　Delphi客户服务器应用开发（四）

18.3.4.1 适化概述　

　 所谓适化就是将桌面应用转化为Client/Server应用。

　　适化是一个很复杂的主题，这里不详细讲述。本节将介绍适化Delphi 应用程序中最重要的方面。

　　适化的主要方面有：

　　● 将数据库从桌面平台到服务器的适化

　 ● 将应用程序转化为Client/Server的适化

　　适化还需要实现从桌面环境到Client/Server环境的转化。

　　桌面数据库和SQL服务器数据库在许多方面有不同之处。例如：

　● 桌面数据库用于同一时刻单用户的访问，而服务器用于多用户访问

　● 桌面数据库是面向记录的，而服务器是面向集合的

　 ● 桌面数据库将每个表存储在独立的文件中， 而服务器将所有的表存储在数据库中Client/Server应用必须解决更新的问题，最复杂的是联接、网络和事务控制

18.3.4.2 适化数据库

　　适化数据库包含下列步骤：

　　● 在桌面数据库结构的基础上，定义服务器上的元数据

　 ● 将数据从桌面转化到服务器中

　● 解决下列问题：

　 ● 数据类型差异

　 　● 数据安全性和完整性

　 ● 事务控制

　　 ● 数据访问权

　　　● 数据合法性

　　　● 锁定

　Delphi提供了两种方法适化一个数据库。

　 ● 使用Database Desktop工具，选择菜单Tools/Utilities/Copy to命令将数据库表从桌面方式拷贝到SQL格式

● 建立应用TBatchMove部件的应用程序

　　这两种方法都可以将表结构和数据从桌面数据源转化到服务器上。依靠这些数据库，可能需要改变结果表。例如，可能想进行不同数据类型的映射。

　　也可以将下列特征加入数据库：

● 完整性约束

● 索引

　 ● 检测约束

● 存储过程和触发器

　 ● 其它服务器特征

　　如果用SQL脚本和服务器数据定义工具定义元数据会更有效。然后用前面介绍的两种方法转移数据。因为如果是手工定义数据库表，Database Desktop和TBatchMove 部件将只拷贝数据。

18.3.4.3 适化应用程序

　　在理论上，设计用来访问局部数据的Delphi应用程序做很少的修改就可以访问远程服务器上的数据。如果在服务器上定义适合的数据源，你就能将应用程序指向访问它，这只需简单地改变应用程序中TTable或TQuery部件的DatabaseName属性。

　　实际上，在访问局部和过程数据源之间有许多重要的不同之处。Client/Server应用程序必须解决大量的在桌面应用中所没有的问题。

　　任何Delphi应用程序都能用TTable或TQuery部件访问数据。桌面应用程序通常都是使用TTable部件。当适化到SQL服务器上时，用TQuery会更有效，如果应用程序要检索大量记录，则TQuery部件要略胜一筹。

　　如果应用程序使用统计或数学函数，那么在服务器上通过存储过程执行这些函数会更有效。因为存储过程执行更快，使用存储过程还可以减少网络负载，特别是大量行数据的函数。

　　例如，计算大量记录的标准差：

　　● 如果该函数在客户端执行，所有的值从服务器上检索出来并送到客户端，导致网络拥塞

　　● 如果该函数在服务器端执行，则应用程序只需要服务器上的答案

18.4 Delphi客户/服务器应用实例分析

　　本节中采用的实例是Delphi2.0数据库的例子CSDEMO。CSDEMO是Delphi客户/服务器编程的示例程序，它采用的数据库服务器是Local InterBase Server。

CSDEMO较好地示范了BDE环境的配置，InterBASE Server高级功能应用，SQL服务器联接，触发器应用、存储过程编程和事务控制技术等，具有较高的参考价值。本节讲述下列内容：

　 ● 数据库环境介绍

　　● TDatabase的应用

　● 不同数据库表的切换

　 ● 触发器编程

　　● 存储过程编程

　● 事务控制应用

18.4.1 数据库环境介绍

　　本例中采用的数据库服务器是Local InterBase Server。Local InterBase是InterBase Server的单用户版32位、兼容ANSI SQL。Local InterBase支持客户/服务器应用在单机上的开发和测试，并且可以很容易地适化到InterBase Server上。因此，开发客户/服务器应用采用Local InterBase作为原型开发环境是很方便的。

18.4.1.1 IBLOCAL的BDE参数

　　本例中的SQL数据库是IBLOCAL。它是由BDE配置工具(BDECFG32.EXE)设置参数值。它的各项参数值列于下表：

表18.13 IBLOCAL的各项参数值

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

参 数 名 参 数 值

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

TYPE INTRBASE

PATH

SERVER NAME C:\INTRBASE\EXAMPLES\EMPLOYEE.GDB

USER NAME SYSDBA

OPEN MODE READ/WRITE

SCHEMA CACHE SIZE 8

LANGDRIVER

SQLQRYMODE

SQLPASSTHRU MODE SHARED AUTOCOMMIT

SCHEMA CHCHE TIME -1

MAX ROWS -1

BATCH COUNT 200

ENABLE SCHEMA CACHE FALSE

SCHEMA CACHE DIR

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