第十章 存 储 过 程 　　这一章介绍怎样使用存储过程。存储过程是数据库服务器端的一段程序，它有两种类型。一种类似于SELECT查询，用于检索数据，检索到的数据能够以数据集的形式返回给客户。另一种类似于INSERT或DELETE查询，它不返回数据，只是执行一个动作。有的服务器允许同一个存储过程既可以返回数据又可以执行动作。 10.1 概 述 　　在不同类型的服务器上，存储过程的工作方式是不同的。例如，对于InterBase服务器来说，它能够以输出参数的形式返回数据，而对于其他服务器如MicrosoftSQL Server和Sybase，能够以数据集的形式返回数据和信息。 　　在Delphi 4中，要访问和操纵服务器上的存储过程，可以使用TStoredProc构件或TQuery构件。至于到底选择哪一个，取决于存储过程本身是怎样编写的、数据怎样返回和使用哪一种服务器。TStoredProc构件和TQuery构件都是从TDataSet继承下来的。 　　TStoredProc构件适合于执行那些不需要返回数据，并且通过输出参数来返回信息的存储过程。TStoredProc构件的Params属性用于管理这些参数，同时，TStoredProc构件的GetResults函数可以显式地申请返回结果。总之，TStoredProc构件适合于执行那些不需要返回结果或者只是通过输出参数返回结果的存储过程。 　　TQuery构件适合于执行那些能够返回数据集的存储过程，包括InterBase服务器上通过输出参数返回数据集的存储过程。当然，TQuery构件也适合于执行那些不需要返回结果或者只是通过输出参数返回结果的存储过程。 　　参数既可以由存储过程传递给客户程序，也可以由客户程序传递给存储过程，前者称为输出参数，后者称为输入参数。对于有的服务器来说，输出参数只能传递一个值，而有的服务器允许输出参数传递一个数据集。 10.2 什么时候需要用存储过程 　　如果服务器定义了存储过程，应当根据需要决定是否要用存储过程。存储过程通常是一些经常要执行的任务，这些任务往往是针对大量的记录而进行的。在服务器上执行存储过程，可以改善应用程序的性能。这是因为： .服务器往往具有强大的计算能力和速度。 .避免把大量的数据下载到客户端，减少网络上的传输量。 　　例如，假设一个应用程序需要计算一个数据，这个数据需要涉及到许多记录。如果不使用存储过程的话，把这些数据下载到客户端，导致网络上的流量剧增。 　　不仅如此，客户端可能是一台老掉牙的计算机，它的运算速度很慢。而改用存储过程后，服务器会很快地把数据计算出来，并且只需传递一个数据给客户端，其效率之高是非常明显的。 10.3 怎样使用存储过程 　　应用程序怎样使用存储过程，取决于存储过程本身是怎样编写的、数据怎样返回和使用哪一种服务器。 10.3.1 使用存储过程的一般步骤 　　要访问服务器上的存储过程，一般是这么几个步骤： 　　第一步，把一个TStoredProc构件放到窗体或数据模块上。 　　第二步，设置DatabaseName属性指定一个数据库，可以设为BDE别名或者应用程序专用的别名(如果用TDatabase构件连接数据库的话)。 　　第三步，设置StoredProcName属性指定存储过程的名称。如果前面正确设置了DatabaseName属性，就可以从一个下拉列表中选择一个存储过程。由于经常要在运行期执行不同的存储过程，因此，StoredProcName属性一般是在运行期设置的。 　　第四步，单击Params边上的省略号按钮打开一个编辑器。如果第二步和第三步设置正确的话，在这个编辑器中将显示所有的输入和输出参数，否则，这个编辑器就是空的。 　　要说明的是，并不是所有的服务器都能够提供有关的参数的信息。如果服务器没有提供有关参数的信息，就得自己建立这些参数。 10.3.2 准备和执行存储过程 　　在执行存储过程之前，最好先通知服务器准备好，这就要调用TStoredProc构件的Prepare函数，例如： 　　StoredProc1.Prepare; 　　注意：如果应用程序在运行期改变了参数的信息，必须重新调用Prepare函数。要执行存储过程，可以调用TStoredProc构件的ExecProc函数，程序示例如下： StoredProc1.Params[0].AsString := Edit1.Text; StoredProc1.Prepare; StoredProc1.ExecProc; 　　注意：如果在调用ExecProc之前没有调用Prepare，TStoredProc构件会自动把参数准备好，存储过程执行完毕后，再自动取消准备。不过，如果一个存储过程要反复执行多次的话，最好显式地调用Prepare，不再需要执行存储过程时调用UnPrepare函数。 　　执行了存储过程后，它有可能返回这样几种数据： .一是数据集，可以用标准的数据控件显示其中的数据。 .二是输出参数。 .三是状态信息。 10.4 创建一个存储过程 　　存储过程一般是用专门的工具编写的。不过，这里要介绍的是怎样用SQL语句在运行期动态地创建存储过程。对于不同的服务器来说，即使是相同功能的存储过程，SQL语句也有可能是不同的，因此，必须事先查阅服务器的文档。 10.4.1 使用SQL语句创建存储过程 　　要使用SQL语句创建存储过程，就要用到TQuery构件的SQL属性。如果存储过程中要用到参数的话，必须把TQuery构件的ParamCheck属性设为False。 　　下面的例子演示了怎样用SQL语句创建一个存储过程： With Query1 Do Begin 　 ParamCheck := False; With SQL Do Begin Clear; Add('CREATE PROCEDURE GET_MAX_EMP_NAME'); Add('RETURNS (Max_Name CHAR(15))'); Add('AS');Add('BEGIN'); Add('SELECT MAX(LAST_NAME)'); Add('FROM EMPLOYEE'); Add('INTO :Max_Name;'); Add('SUSPEND;'); Add('END');End; ExecSQL; End; 　　当然，也可以用SQL Explorer来创建存储过程。 10.4.2 用TQuery构件检索数据集 　　要用TQuery构件从存储过程中检索数据集，必须正确设置SQL属性。在SELECT语句中，要用存储过程的名称代替表格的名称。如果存储过程需要传递输入参数的话，要仿照Object Pascal语言的过程那样，在存储过程后面用一对圆括号把参数的值括起来。如果有多个输入参数，彼此之间要用逗号隔开。 　　例如，InterBase服务器上有一个存储过程叫GET_EMP_PROJ，它需要传递一个输入参数叫EMP_NO，并且通过一个输出参数叫PROJ_ID来传递执行结果。下面是这个存储过程的代码： CREATE PROCEDURE GET_EMP_PROJ (EMP_NO SMALLINT) 　 RETURNS (PROJ_ID CHAR(5)) 　 AS 　 　BEGIN 　　 FOR SELECT PROJ_ID 　　 FROM EMPLOYEE_PROJECT 　　 WHERE EMP_NO = :EMP_NO 　　 INTO :PROJ_ID 　　 DO 　　 SUSPEND; 　 END 　　相应地，要通过上面这个存储过程检索数据集，SQL语句可以这样写： SELECT * 　 FROM GET_EMP_PROJ(52) 10.4.3 用TStoredProc构件检索数据集 　　要用TStoredProc构件从存储过程中检索数据集，必须设置StoredProcName属性指定一个存储过程的名称。如果存储过程需要传递输入参数的话，可以通过Params属性或ParamByName函数提供参数。 　　例如，Sybase服务器上有一个存储过程叫GET_EMPLOYEES，它有个输入参数叫@EMP_NO。下面是这个存储过程的代码： 　　CREATE PROCEDURE GET_EMPLOYEES @EMP_NO SMALLINT 　　 AS SELECT EMP_NAME, EMPLOYEE_NO FROM EMPLOYEE_TABLE 　　 WHERE (EMPLOYEE_NO = @EMP_NO) 　　相应地，要通过上面这个存储过程检索数据集，程序应当这样写： With StoredProc1 Do Begin Close; ParamByName('@EMP_NO').AsSmallInt := 52; Active := True; End; 10.4.4 用TQuery构件通过参数检索数据 　　用TQuery构件通过参数返回的数据是一条记录，即使存储过程只有一个输出参数。因此，应用程序需要从返回的数据中检索出每一个字段的值。 　　首先，要在SELECT语句中用存储过程的名称代替表格的名称。 　　如果有多个输出参数的话，您可以选择其中部分输出参数，也可以用星号表示选择所有输出参数。 　　如果存储过程需要传递输入参数的话，在存储过程后面用一对圆括号把参数的值括起来。如果有多个输入参数，彼此之间要用逗号隔开。 　　例如，InterBase服务器上有一个存储过程叫GET_HIGH_EMP_NAME，通过一个输出参数叫High_Last_Name来返回EMPLOYEE表的LAST_NAME字段。 　　下面是这个存储过程的代码： CREATE PROCEDURE GET_HIGH_EMP_NAME RETURNS (High_Last_Name CHAR(15)) AS BEGIN SELECT MAX(LAST_NAME) FROM EMPLOYEE INTO :High_Last_Name; SUSPEND; END 　　相应地，SQL语句应当这样写： SELECT High_Last_Name 　 FROM GET_HIGH_EMP_NAME 10.4.5 用TStoredProc构件通过参数检索数据 　　要用TStoredProc构件通过参数检索数据，首先要设置StoredProcName属性指定一个存储过程。如果存储过程需要传递输入参数的话，可以通过Params属性或ParamByName函数提供参数。 　　调用ExecProc执行了存储过程后，可以通过Params属性或ParamByName函数访问输出参数。 　　例如，InterBase服务器上有一个存储过程叫GET_HIGH_EMP_NAME，通过一个输出参数叫High_Last_Name返回EMPLOYEE表的LAST_NAME字段。 　　下面是这个存储过程的代码： CREATE PROCEDURE GET_HIGH_EMP_NAME RETURNS (High_Last_Name CHAR(15)) AS　 BEGIN SELECT MAX(LAST_NAME)FROM EMPLOYEE INTO :High_Last_Name; SUSPEND; END 　　相应地，要通过上面这个存储过程检索数据，程序应当这样写： With StoredProc1 Do Begin StoredProcName := 'GET_HIGH_EMP_NAME'ExecProc; Edit1.Text := ParamByName('High_Last_Name').AsString; End; 10.4.6 用TQuery构件执行一个动作 　　有的存储过程并不返回数据，它