3. 安装的软件项目

　　当你安装InterBase SQL Link驱动程序，下列项目将被安装于你的工作站上。　

表18.7 安装的文件名

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

　　 项 目　　　　　　 　描 述

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

　　SQLD-IB.DLL 包含InterBase驱动程序和支持文件的动态链接库

SQLINT32.DLL

　　INTRBASE驱动类型　 加在配置工具的驱动管理程序中以配置基本的Borland

InterBase SQL Link驱动程序

　　INTRBASE 别名类型　 加入配置文件的别名以使建立联接SQL 服务器数据库的

别名

　　SQLD_IB.HLP 配置InterBase驱动程序的帮助文件

　　READLINK.TXT Borland SQL Links for Windows 自述文件

　　INTERBAS.MSG InterBase消息文件，通常安装上C:\INTERBAS

CONNECT.EXE 测试工作站和InterBase 服务器连接情况的工具

　　REMOTE.DLL 、 InterBase 的支持动态链接库

　　GDS.DLL 、GDS32.DLL

将InterBase 服务器描述 安装过程修改工作站的SERVICES文件以增加用于

　　加入SERVICES文件　 InterBase 服务器访问所需的协议描述 ，

如：gds- db 3050/tcp

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

　 软件项目中还应包括TCP/IP 接口软件

　 下表列出的文件给InterBase 客户端应用提供访问Winsock 1.1 的接口

表18.8 TCP/IP 接口软件

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

　　 文 件 名　　　　　　　描 述

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

　　MVWASYNC.EXE 异步通信模块

　 　VSL.INT TCP/1P 传输初始化文件

　　WINSOCK.DLL Windows Socket 动态链接库

　 　MSOCKLIB.DLL 将Windows Socket 调用映射到VSL驱动程序

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

　　如果TCP/IP 产品不是Winsock1.1 兼容，InterBase 客户端应用将也可采用其它TCP/1P 驱动程序。InterBase 服务器还可支持其它通信协议，如SPX/1PX ，NetBeIU 等。

4. 解决一般的联接问题

如果用SQL Links 建立与InterBase 服务器的连接有问题可采用下列步骤来分离问题原因：

⑴ 通过Windows ISQL 工具测试能否与InterBase 服务器联接

如果成功，状态信息会出现，并继续步骤⑵。

如果不成功，询问数据库管理员。

⑵ 检验InterBase SQL Links 驱动程序是否正确安装。

⑶ 重新安装SQL Links 。

⑷ 检查SERVICES ，文件中应有行：

gds_db 3050/tcp

如果不能正确安装，就请询问数据库管理员，否则继续步骤⑸。

⑸ 测试底层协议

① 输入TELNET命令，确认TCP 库是否正确安装。

如果TCP 库正确安装，注册提示符会出现。注册入网检查数据库是否存在。

如果消息是“can't resolve hostname ” 出现，检查工作站的HOSTS文件是否有你 的主机名和IP 地址的人口。如：

128.127.50.12 mis_server

如果用TELNET是成功的，但仍然无法正确联接，则没有正确安装InterBase 。请寻

求数据库管理员的帮助。

② PING 到服务器服务器上，测试InterBase 服务器是否正常运行并且为桌面应用可见

(如果PING是成功的，消息“servername is alive ”被显示) 。

PING 成功但TELNET 不成功，则inet daemon 可能有问题。

如果PING 到服务器上不成功，则有网络路径问题，将问题报给网络管理员。

如果底层协议不正常，请询问数据库管理员，否则继续帮助⑹。

⑹ 确认是否有InterBase 服务器的访问权，如果有请继续步骤⑺。

⑺ 检查BDE应用程序的InterBase别名是否正确安装。

如果能够直接从工作站上联接，但不能从BDE应用程序中，那么很有可能你的

IDAPI32.CFG 别名设置有问题。运行BDE配置工具检查InterBase 别名。

18.3 Delphi Client/Server 编程

　　本节介绍如何运用Delphi 可视化开发工具和ObjectPascal语言开发Client\Server 的数据库应用程序，采用的例子是CSDEMOS 。这是Delphi2.0 自带的演示Client\Server 开发的例子，它安装在C:\Program Files\Borland\Delphi 2.0\Demos\DB\CSDemos中(缺省安装)。

　　本节将包含以下内容：

● 使用TDatabase 部件连接SQL 服务器

　　● 用DataSet 部件（又称数据集部件），如TTable 和TQuery ，联接TDatabase 部件并访问数据库以及各种表之间如何切换

　　● 使用数据库连接

　　● 触发器的使用方法

　　● TStoredProc 部件的使用方法

　　● 客户和服务器之间的事务控制

　　● TStoredProc 部件的使用方法

18.3.1 使用TDatabase 部件联接SQL 服务器

18.3.1.1 TDatabase 部件概述

　　TDatabase 部件处理应用程序与单个数据库的联接。如果不需要控制数据库联接，可以不用创建TDatabase 部件。当应用程序试图打开数据库表(Table)时，会自动创建一个临时的TDatabase 部件。但如果你想控制数据库的持续联接、进入数据库服务器的注册和数据库别名的值或事务控制，那么你就必须为每个所需的联接创建一个TDatabase 部件。

　 1. 创建TDatabase 部件

　　TDatabase 部件在Component Palette中的Data Access页上，你能将其拖放在数据模块(Data module) 或窗体中。在设计时创建TDatabase 部件，用户可以设置初始值和编写OnLogin事件处理过程(Event Handle) 。OnLogin事件给用户提供了第一次注册数据库服务器时定制服务器安全参数，如口令，的能力。

　 2. TDatabase 的关键属性

⑴ DatabaseName属性

DatabaseName是所要联接的数据库名，并且用于DataSet软件，它将出现在DataSet 部件的DatabaseName属性的下拉式列表框中。设置DataBaseName属性是定义数据库应用的特定别名。DataSet 部件能引用该名字以取代直接使用BDE 别名。当TDatabase 部件的Connected属性为True时不能修改该属性。

　　⑵ AliaName属性

AliasName是BDE配置工具定义的BDE 别名的名字。TDatabase 从中获取其缺省的设置。如果设置DriveName属性，则该属性将被清除，如果当Connected为True 时强行设置DriveName属性将引发异常。

　　⑶ DriveName属性

DriveName是BDE驱动程序，如STANDARD 、ORACLE、SYBASE 、INFORMIX 或INTERBASE 的名字。如果设置AliasName ，则该属性值将被清除。

　　⑷ Params属性

Params属性包含了打开SQL 服务器上数据库时所需的参数。在缺省情况下，这些参数由BDE配置工具设置；用户也可以用数据库参数编辑器(Database Parameters Editor)修改这些参数。对于数据库服务器而言，Params 将描述一系列的参数，如服务器名、 数据库名、用户名和口令。

　　⑸ Connected属性

　　Connected属性指明是否建立数据库的联接，当应用程序打开数据库中的一个表时Connected 将被置为True ；反之，关闭数据库表，Connected 将被置为False ，除非KeepConnection为True 。而将Connected置为True则可不需打开数据库表即可建立数据库联接。TDatabase 的KeepConnection属性描述当数据库中没有表打开时是否维持数据库联连。

　　⑹ KeepConnection属性

　　KeepConnection属性描述当数据库中没有打开表时是否要保持与服务器的联连， 如果数据库应用需要打开和关闭单个数据库中的多个表时，将KeepConnection 设置为True是很有用的，那样，即使没有打开任何表，应用仍能保持与数据库的联接，它能够重复地打开和关闭数据库表，而不需要重复执行联接过程。如果KeepConnection置为False ，当每次将Connected置为True ，数据库都必须执行注册过程。

　　⑺ LoginPrompt属性

　　LoginPrompt属性用于控制如何处理SQL数据库的安全性问题。如置为True ，当应用程序试图建立数据库联接时屏幕上将出现标准Delphi 注册对话框。用户必须输入正确的用户名和口令。如果置为False ，则应用程序将寻找TDatabase 部件的Params 属性中的注册参数。下面是USERNAME 和PASSWORD 参数的例子：

　 USERNAME = SYSDBA

PASSWORD = masterkey

　　⑻ TransIsolation属性

　　TransIsolation属性描述SQL 服务器所有的事务控制独立级别。 tiDirtyRead使所有修改都被返回，而不管记录是否已被提交。tiReadCommitted 将只返回提交的记录，而提交的修改将不会在结果中反映出来。tiRepeatableRead 将只返回事务过程中最初的记录，即使另一个应用程序将所作的修改提交。

　　各种数据库服务器可能不同程度地支持这些独立级别，或者根本不支持。 如果需要的独立级别不被服务器支持，那么Dephi 将使用下一个更高的独立级别，如下表所示：

表18.10 各类服务器TransIsolation设置

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

　　独立级别　　　　 Oracle Sybase 和　　　　　InterBase

Microsoft SQL

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

Dirty Read Read Committed Read Committed Read Committed

Read Committed Read Committed Read Committed Read Committed

Repeatable read Repeatable read Not Supported Repeatable Read

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

各个独立级别的含义请见表18.12 。

3. TDatabase 的关键方法

　 ⑴ StartTransaction 方法

　　StartTransartion 方法在由TaransIsolation属性指定的独立级别下开始事务控制。如果在一个事务已被激活的情况下调用该方法，Delphi 将引发异常。

调用了该方法后，对数据库所做的修改一直由数据库服务器维持到调用Commmit 方法提交数据或调用Rollback 方法取消修改为止。只有当联接数据库服务器时，才能调用该方法。

　　⑵ Rollback 方法

　　Rollback 方法返转当前事务控制，并且取消自最近一次调用StartTransaction以来对数据库所做的所有修改。

　　⑶ Commit 方法

　　Commit 方法提交当前事务控制，并且将自最近一次调用StartTransaction以来所有数据修改存入数据库。

4. TDatabase 的OnLogin事件的处理

　　OnLogin事件的触发条件是当联接SQL数据库的TDatabase 部件被打开并且LoginPrompt属性为True 。使用OnLogin事件处理过程可以在运行时设置注册参数。OnLogin 事件处理过程得到TDatabase 的注册参数数组Params ，并且使用Values属性改变这些参数。

　　例如：

　LoginParams.Vaiues['SERVER NAME'] := 'MYSERVERNAME';

LoginParams.Values['USER NAME'] := 'MYUSERNAME';

LoginParams.Values[PASSWORD'] := 'MYAPSSWORD';

　　当控制从OnLogin事件处理过程中返回时，应用程序用这些参数来建立联接。

　　OnLogin事件处理过程的声明是这样的：

　　TLoginEvent = procedure(Database: TDatabase; LoginParam: TStrings) of Object;

property OnLogin: TLoginEvent;

TLoginEvent类型是处理OnLogin事件的方法头。Database 参数是要联接的数据库。LoginParams是TStrings类型的对象，包含用户名和口令，以及打开数据库时所用的其它参数。用户名是形如USER NAME = John.Doe 的字符串，口令是形如PASSWORD = is_Password 的字符串。当OnLogin事件处理过程被调用时应当在LoginParams中加入用户名和口令。

18.3.1.2 定制数据库服务器的注册参数

　　大多数数据库服务器都包含限制数据库访问的安全特征。通常，在用户能访问数据库之前，服务器都要求注册的用户名和口令。

　　如果服务器需要注册，在设计阶段，Delphi 会在你试图联接时提示你，诸如在会TTable 部件描述数据库表名时。

　　在缺省情况下，Delphi应用在打开数据库服务器的联接时，显示标准注册对话框。如果联接已建立，则注册对话框不会出现。

　　可以用下列方法处理服务器注册：

1. 将TDatabase 部件的LoginPrompt属性置为True 。这样，当应用程序试图建立数据库联接时，标准注册对话框会打开。

　　 2. 将LoginPrompt属性置为False ，在TDatabase 部件的Params属性中包含用户名和口令参数。例如：

　 　USERNAME = SYSDBA

PASSWORD = mosterkey

但不推荐使用该方法，因为这会危害数据库安全

　　3. 使用TDatabase 部件的OnLogin事件设置注册参数。OnLogin事件得到TDatabase 注册参数数组的拷贝，并利用Values属性改变这些参数。如：

　 　LoginParams.Values['SERVER NAME'] := 'MYSERVERNAME';

　 　LoginParams.Values['USER NAME'] := 'MYUERNAME';

　 　LoginParams.Values['PASSWORD'] := 'MYPASSWORD';

　　当控制从数据库注册事件处理过程中返回时，这些参数被用来建立联接。

18.3.1.3 建立应用程序特定的别名

　　TDatabase 的Aliases描述了数据库表的位置和数据库服务器的联接参数。通常都是在Delphi之外，运用BDE配置工具(BDECFG32.EXE) 创建别名，并且别名被存在BDE 配置文件IDAPI32.CFG中。

　　用户也可以用TDatabase创建只在应用程序中可用的别名，用TDatabase 创建的别名不会加进BDE配置文件中。任何DataSet 部件可通过描述DatabaseName 属性来使用这些别名。为了定制这些局部别名的参数，用鼠标左键双击TDatabase 部件或从TDatabase 部件中选择Database Editor ，Delphi 就会打开数据库属性编辑器(Database Properties Editor) 。

18.3.1.4 控制数据库的联接

　　TDatabase 部件的Connected属性，指示TDatabase 部件是否建立与数据库服务器的联接。当应用程序打开数据库中的表时，Connected 被设置为True 。将Connected 设为True 就建立了数据库的联接。

　　1. 保持数据库联接

　　TDatabase 的KeepConnection属性描述当没有数据库表打开时是否要与保持数据库的联接。

　　如果应用程序需要在单个数据库中多次打开关闭多个表时，将KeepConnection 置为True能使应用程序具备更好的性能。

　　当KeepConnection为True时，即使没有表打开，应用程序也能保持数据库的联接。那么就能重复打开和关闭数据库表而不需每次进行联接注册。

　　2. 使用TSesstion 控制联接

　TSesstion 部件有一个面向整个应用程序的KeepConnections属性。如果Session.KeepConnections为True ，那么用于所有TDatabase 部件的数据库联接都是持久的。

　　TSession为应用程序提供数据库联接的全局控制。TSession中的Databases 属性是Session中所有活跃数据库组成的数组，DatabasesCount属性描述活跃数据库的数目。

　　3. 描述Net 和Private目录

　　TSession 的NetFileDir属性描述BDE网络控制目录的路径。TSession 的PrivateDir属性描述存储诸述处理局部SQL 表达式的临时文件的目录的路径。

18.3.1.5 获取数据库信息

　　TSession拥有许多让用户获取数据库有关的信息，每个方法都以TStringList 部件作为传入参数，并将信息返回TStringList中。

　　1. GetAliasNames 方法

　　声明：procedure GetAliasNames(List: TStringList);

　　GetAliasNames 方法消除List中的参数，并将所有已定义的BDE 别名的名字写入List 。应用程序生成的别名不包括在内。

　　2. GetAliasParams方法

　　声明：procedure GetAliasParams(const AliasName: String; List: TStringList);

GetAliasParams 方法清除List 的内容，并将BDE 别名为AliaName 的参数写入List 。

　　3. GetDatabaseNames方法

　　声明：procedure GetDatabaseNames(List: TStrings);

GetDatabaseNames 方法清除List 的内容并将所有BDE 别名和应用程序定义的别名的名字写入List 。

4. GetDriverNames 方法

　　声明：procedure GetDriverNames(List: TStrings);

　　GetDriverNames 方法清除List中的内容，并将BDE 当前安装的驱动程序名写入List 。

　　5. GetDriverParams方法

　　声明：procedure GetDriverParams(const DriverName: String; List: TStrings);

　　GetDriverParams 方法消除List中的内容，并将名为DriveName驱动程序缺省参数写入List 。

　　6. GetTableNames 方法

　　声明：procedure GetTableNames(const DatabaseName, Pattern: Strings;

Extensions, SystemTable: Boolean; List: TStrings);

　　GetTableNames 方法消除List中的内容，并将名为DatabaseName 的数据库中的所有表的名字写入List 。Pattern 参数将限制表名。对于SQL 服务器，将SystemeTables设为True将获取系统表和用户表。对非SQL数据库，将Extensions设为True将在表名中包含扩展名。

18.3.2 处理Client/Server事务控制

　　使用隐式控制和显示控制的数据库应用中有两种方法管理事务控制：

　● 运用TDatabase 部件的属性和方法进行显式控制

　 ● 运用TQuery 部件的传递式SQL 控制事务

　　Delphi 还支持Paradox 和dBASE 表的局部事务处理

18.3.2.1 事务控制概述

　　当用Delphi 创建数据库应用时，Delphi提供了用为所有数据库访问的事务控制。

　　事务是这样一组操作，在被提交前，它们对一个或多个数据库的操作，必须全部执行成功。如果其中一个操作失败，则所有操作失败，即事务具有原子性。

　　即使发生硬件失败，事务也要保证数据库一致性。当允许多用户并发访问时，事务还要维持数据完整性。

　　例如：一个应用程序可能更新ORDERS 表以指明接受购买某一项目的定单，那么也要更新INNENTORY 表以反映库存的减少。如果在第一个更新之后，第二个更新之前发生硬件错误，数据库就会处于不一致状态，因为库存情况没有反映定单情况。在事务控制下，两个表达式将在同一时间提交，如果其中一个表达式失败，则被返转(Rolled Back) 。

18.3.2.2 使用隐式控制

　　在缺省情况下，Delphi通过BDE为应用程序提供隐式事务控制。当应用程序处于隐式事务控制时Delphi为DataSet中的写每个记录进行隐式事务控制。它提交每一个独立的写操作，如Post 和Append Record 。

　　使用隐式事务控制是容易的，它保证最小的记录更新冲突和数据库的一致性视图。另一方面，因为写入数据库的数据的每一行都要进行事务控制， 所以隐式事务控制将导致网络过忙和应用程序性能下降。

　　如果采用显式事务控制，就能选择最有效的时机来开始、提交和终止事务，特别是在开发多用户环境下的客户应用程序运行访问远程SQL 服务器，就更应该采用显式控制。

18.3.2.3 使用显式事务控制

　　有两种协作又独立的方式可运用于Delphi数据库应用的事务控制：

　　● 使用TDatabase 部件的方法和属性

　　● 使用TQuery 部件中的传递式SQL 。这种方式只有在Delphi Client/Server Suite 版中才有效，SQL Links 将SQL 表达式直接传给过程SQL 或ODBC服务器

　　使用TDatabase 部件的方法和属性的好处是提供了清晰的、轻便的、与特定数据库或服务器无关的应用能力。

　　使用传递式SQL的主要好处在于可以运用特定服务器的先进事务管理能力。

　 1. 使用TDatabase 的方法和属性

　　下表中列出了TDatabase部件中用于事务管理的方法和属性以及它们的使用方法：

表18.11 TDatabase用于事务显式控制的方法表

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

　 　方法或属性　　　　　 作 用

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

　　Commit 提交数据的修改并终止事务

　　Rollback 取消数据的修改并终止事务

　　StartTransaction 开始一个事务

　　TransIsolation 表述事务的独立性级别

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

　　StartTransaction ，Commit 和Rollback是供应用程序在运行时调用开始事务，控制事务并且保存或放弃所做数据修改的方法。

　　TransIsolation是TDatabase 部件的用于控制作用于相同表的不同事务之间如何交互的属性。

　　⑴ 开始一个事务

　　当你开始一个事务时，后来的所有读写数据库的表达式都发生在那次事务的环境中。每个表达式都是其中一部分。任何表达式所做的修改，要么成功地提交给数据库，要么每一个修改都被取消。考虑一个在ATM上的银行传输问题。当顾客决定将钱从存款帐户转到支付帐户时，在银行数据库记录上必须发生两个修改：

　　● 存款帐户必须记入借方

　　● 支付帐户必须记入贷方

　　如果出于某种原因，其中的一个操作不能被完成，那么任何一个操作都不应该发生。因为这些操作是相关的，它们应该发生在同一个事务中。

　　为了开始Delphi应用程序中的一个事务，需要调用TDatabase 部件中的StartTransaction 方法：

　　DatabaseInterBase.StartTransaction;

此后的所有数据操作都发生在最近一个事务的环境中，直到该次事务通过调用Commit 或Rollback显式地终止为止。

　　⑵ 提交一个事务

　　为了做永久性修改，事务必须使用TDatabase 部件的Commit 方法提交。执行提交表达式将保存数据库的修改并终止事务。例如，下列表达式将终止在上例中开始的事务：

　　DatabaseInterBase.Commit

　　Commit 的调用应当置于try …except 表达式中。如果一个事务不能成功提交，你就能处理错误，并重试操作。

　　⑶ 返转一个事务

　　为了取消数据库修改，必须用Rollback 方法返转一个事务。Rollback 复原一个事务的修改，并终止事务，例如：下列表达式将返转一个事务：

　DatabaseInterBase.Rollback;

Rollback通常发生在：

　　● 异常处理代码

　● 按钮或菜单事件代码，如用户点按了Cancel 按钮

　　⑷ 使用TransIsolation属性

　　TransIsolation属性描述TDatabase 部件事务的独立级别，事务的独立级别决定了事务与其它作用于相同表的事务是如何相互作用的。在改变或设置TransIsolation 的值之前，应当相当熟悉Delphi中的事务和事务管理。

　　TransIsolation 的缺省值是tiReadCommitted 。下表中总结了TransIsolation 的可能值并描述了它们的含义：

表18.12 TransIsolation属性值的含义

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

　 　独立级别　　　　　 　　　含 义

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

　 tiDirtyRead 允许读由其它同时事务写入数据库的未提交的修改。未提交的

　　　　　　　　　　　　 修改不是永久性的，可能在任何时候被复原。 在这个级别你

　　　　　　　　　　　　 的事务与其它事务所做的修改具有最低独立度。

　　tiReadCommitted 只允许读由其它同时事务提交的数据库修改。这是缺省的独

　　　　　　　　　　　　 立级别。

　　tiRepeatableRead 允许单个的数据库读事务无法看见其它同时事务对相同数据做

的修改。这个独立级别保证了你的事务一次读一个记录，记录

的视图不会改变， 在这个级别你的事务与其它事务做的修改完

全独立。

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

　　各种数据库服务器不同程度地支持这些独立级别，有的根本不支持。 如果请求的隔离级别不被服务器支持，Delphi 将采用更高的独立级别。各种服务器支持的独立级别请参见表18.10 。

如果应用程序使用ODBC与服务器交互，ODBC驱动程序必须支持独立级别。

　　2. 使用传递式SQL

　　为了能使用传递式SQL控制事物，必须：

　 ● 使用Delphi Client/Server Suite

● 安装正确的SQL Links驱动程序

　 ● 正确配置网络协议

　 ● 访问远程服务器上数据库的能力

　 ● 用BDE配置工具将SQLPASSTHROUGH MODE设置为NOT SHARED

通过传递式SQL ，你可以使用TQuery 、TStoredProc 、或TUpdateSQL 部件直接发送一个SQL事务控制表达式给远程数据库服务器；BDE 本身并不处理SQL 表达式，采用传递式SQL 可使用户直接获得SQL 服务器提供了事务控制优点，尤其是当那些控制是非标准的时。

　　SQL PASS THROUGHMODE 描述BDE 和传递式SQL是否共享相同的数据库联接。在大多数情况下，SQLPASSTHROUGHMODE 被设置SHARED AUTOCOMMIT 。然而，如果你想将SQL事务控制传递给服务器，你就必须用BDE配置工具，将BDE 的SQLPASSTHROUGHMODE 设置为NOT SHARED 。此外，还必须为传递SQL事务控制表达式的TQuery 部件建立独立的TDatabase 部件。

　　3. 使用本地事务

　　BDE 还支持Paradox 和dBASE上的本地事务。从代码角度而言，在本地事务和远程数据库服务器的事务之间没有什么差别。

18.3.3 使用存储过程

18.3.3.1 TStoredProc 部件概述

　　存储过程是以数据库服务器为基础的接受输入参数，并将结果返回给应用程序的一段程序。TStoredProc 部件操作远程服务器上的数据库中的存储过程。存储过程是一连串表达式的集合，作为服务器的一部分存储。存储过程在服务器上执行一系列重复性的与数据库相关的任务，并将结果传给客户应用程序，如Delphi数据库应用程序。

TStaredProc 部件使Delphi数据库应用程序能执行服务器上的存储过程。

　　● 充分利用服务器的处理能力和速度

　● 减少网络传输的数量

　　例如，考虑一个需要计算单个值的应用程序，在大批记录中的标准差值。如果在Delphi应用程序中执行这项功能就必须从服务器中得到所有在计算中用到的记录，这必将导致网络拥塞。因为应用程序所需的只是代表标准差的最终返回值。因此，由服务器上的存储过程来读数据，执行计算和将值传给应用程序将更有效。

　 1. TSoredProc 的关键属性

　　⑴ DatabaseName属性

　　DatabaseName属性描述要访问的数据库的名字。该属性可以为：

　　● 已定义的BDE 别名

　　● 本地型数据库的目录

　　● Local InterBase 服务器的目录路径和文件名

　　● TDatabase 定义的应用程序别名

　　在改变DatabaseName之前要使用Close方法将Dataset部件置为非活跃状态。

　　⑵ StoredProcName属性

　　StoredProcName属性表示服务器上的存储过程名。Oracle 服务器允许多个具有相同名字的存储过程。因此要设置Overload属性来描述执行在Oracle 服务器上的存储过程名。

　　⑶ Overload属性

　　Oracle 服务器允许Oracle软件包中存储过程的重载。就是说具有相同名字的不同过程，设置Overload属性用来描述执行在Oracle 服务器上的存储过程。如果Overload值为零，则假定没有重载，如果Overload为1 ，则Delphi执行具有同名的第一个存储过程；如果值为2 ，则执行第二个存储过程。

　　⑷ Params属性

　　Params属性包含传给存储过程的参数。

　 2. 关键方法

　　⑴ ParamByName 方法

　　声明：function ParamByName(const Value: String): TParam;

ParamByName 方法返回Params属性中具有名为Value 的元素值。一般用该方法在动态查询中给参数赋值。

　　⑵ Prepare 方法

　　PrePare 方法准备要执行的存储过程，这允许服务器载入存储过程，否则准备处理异常。

　　⑶ ExecProc 方法

　　ExecProc 方法执行服务器上的存储过程。

　　⑷ Open 方法

　　Open 方法打开DataSet 部件，并将其置于浏览状态。这相当于将Active属性置为True 。对于TStoredProc如果存储过程返回一个结果集，则使用Open执行存储过程。如果存储过程返回单行，早使用ExecProc执行存储过程。

18.3.3.2 TStoreProc使用方法

　 1. 建立一个StoredProc 部件

　　为数据库服务器上的存储过程建立一个TStoredProc 部件的步骤如下：

　　⑴ 从Component Palette 的Data Access页选择TStoredProc 部件放在数据模块上。

　　⑵ 将TStoredProc 部件的DatabaseName属性设置为存储过程所在的数据库名。

DatabaseName 必须是BDE 别名。

　　⑶ 将TStoredProc 部件的StoredProcName属性设为所用的存储过程名，或者从下拉式

列表框中选择。

　　⑷ 在TStoredProc 部件的Params属性中描述输入参数。可以使用参数编辑器来设置输

入参数。参数编辑器也可让用户察看存储过程返回给应用程序的值。

　 2. 设置存储过程的输入参数，察看输出结果参数

　　许多存储过程需要给它们传入一系列的输入参数，以确定处理什么和怎样处理，在Params属性中描述这些参数。所描述的输入参数的顺序是很重要的，它由服务器上的存储过程来确定。在设计时，最容易和最安全的方法是激活TStoredProc 参数编辑器，编辑输入参数。参数编辑器以正确的次序列出输入参数，让你给它们赋值。

　　要激活TStoredProc的参数编辑器：

① 选择TStoredProc 部件。

　 ② 按鼠标右键激活加速菜单(Speed Menu) 。

③ 选择Define Parameters 。

参数名列表框显示过程的所有输入，输出和结果参数。有关输入、输出参数的信息从服务器中获得。对于某些服务器而方，参数信息是不可访问的，如Sybase ，在这种情况下，列表框是空的，因此必须自己按过程要求的顺序增加输入输出参数。

　　参数类型复选框中描述所选的参数是输入、输出，还是结果参数。如果服务器支持参数可以既是输入又是输出。如果在列表框中增添参数，就必须设置参数类型。

　　数据类型复选框，列出列表框中所选参数的数据类型。如果给列表框真善美参数，必须设置数据类型。

　　在值编辑框中给输入参数赋值。

　　如果服务器不传递存储过程信息给Delphi ，则可以用Add 按钮给存储过程增添参数。Delete 按钮则是将增添的参数删除，Clear 按钮将清除列表框中所有参数。

　　设置完参数后，选择OK按钮。

　 3. 在运行时建立参数和参数值

　　在运行时建立参数，可直接访问Params属性。Params属性是参数字符串的数组。例如，下列代码将编辑框的文本赋给数组的第一个字串：

　　StaredProc1.Params[0].Asstring := Edit1.Text

　　也能够用ParamsByName方法通过名字访问参数：

　　StoredProc1.ParamsByName('Company') Asstring := Edit1.Text;

　 4. 准备和执行存储过程

　　要使用存储过程还必须准备并执行它。可以有两种方式准备一个存储过程：

　 ● 在设计时，通过选择参数编辑器的OK 按钮

　 ● 在运行时，通过调用TStoredProc 的Prepare 方法

　　例如，下面的代码准备存储过程的执行：

　 StoredProc1.Prepare;

　　要执行准备好的存储过程，调用TStroedProc 部件的ExecProc 方法。下列代码演示了准备和执行存储过程：

　 　StoredProc1.Params[0] Asstring := Edit1.Text;

StoredProc1.prepare;

StoredProc1.ExecProc;

　　当你执行一个存储过程，它返回输出参数或结果集，有两种可能的返回类型：单个返回，如单值或值集，和一群结果集，返回很多值。

　 5. 访问输出参数和结果集

　　存储过程在输出参数数组中返回值。如果服务器支持返回值可以是单个结果或者结果集。

　　在运行时访问存储过程的输出参数，可以索引Params属性或者用ParamByName 方法访问这些值。下列表达式都用输出参数设置了编辑框的值：

　　Edit1.Text := StoredProc1.Params[6].AsString;

　 　Edit1.Text := StoredProc1.ParamsByName('Contact').AsString;

　　如果存储过程返回结果集，则用标准数据相关控制访问和显示值会更有用。

　　在某些服务器上如Sybase ，存储过程能象查询语句那样返回结果集，应用程序可以使用数据相关控制一显示这些存储过程的输出。

　　用数据相关控制显示存储过程返回结果的方法如下：

　　① 将DataSource 部件放在数据模块上。

　② 将DataSource 部件的DataSet属性设置为接收数据的TStoredProc 部件的名字。

　　③ 将数据相关控制的DataSource属性设为DataSource 部件的名字。　

　　这样，当用于TStoredProc部件和Active属性为True时，数据相关控制就能显示从存储过程返回的结果。　

18.3.4 从开发平台到服务器的向上适化