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

Posted 2022-07-21 部件

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

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

　　procedure TFrmTriggerDemo FormShow（Sender: TObject）

　　begin

　　DmEmployee EmployeeTable Open;

　　DmEmployee SalaryHistoryTable Open;

　　end;

　　procedure TDmEmployee EmployeeTableAfterPost（DataSet: TDataSet）

　　begin

　　一个雇员的薪水变化将触发薪水调整历史记录的变化

　　因此如果SalaryHistory打开的话就需要更新显示

　　with SalaryHistoryTable do if Active then Refresh;

　　end;

　　 存储过程编程

　　存储过程也是SQL服务器上的一段程序它接收输入参数在服务器端执行并将结果返回客户端存储过程是必须在客户应用程序中显式调用的

　　对于数据库表中大量记录的统计和函数计算存储过程是很有用这样可以将重复性计算任务转换到服务器提高数据库应用的性能

　　Delphi中有两个部件能操作远程数据库服务器上的存储过程 TQuery和TStoredProc

　　 TQuery的存储过程编程

　　CSDEMO中演示用TQuery调用存储过程的窗体是TFrmQueryProc

　　TFrmQueryProc中有两个TDBGrid 部件 DBGrid 显示EmployeeTable中的数据 DBGrid 显示Project表中的数据使用存储过程的TQuery部件名为EmployeeProjectsQuery 它的作用是建立Employee 表和Project 表的连接以实现当DBGrid 中记录改变时 DBGrid 中的数据作相应的改变具体的连接任务是由服务器上的存储过程Get_Emp_Proj完成下面是Get_Emp_Proj的程序

　　PROCEDURE Get_Emp_Proj

　　BEGIN

　　FOR SELECT proj_id

　　FROM employee_project

　　WHERE emp_no = :emp_no

　　INTO :proj_id

　　SUSPEND;

　　END

　　EMP_NO INPUT SMALLINT

　　PROJ_ID OUTPUT CHAR（）

　　该过程带两个参数

　　EMP_NO是输入参数类型是SMALLINT

　　PROJ_ID是输出参数类型是CHAR（）

　　相应地 EmployeeProjectsQuery的主要属性如下

　　表 EmployeeProjectsQuery部件主要属性的取值

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

　　属性属性值

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

　　DatabaseName EmployeeDemoDB

　　Params EMP_No（输入参数 Smallint类型）

　　SQL Select * from

　　Get_Emp_Proj（ EMP_NO）

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

　　TQuery部件是在SQL语句中直接调用存储过程

　　下面是客户端的程序

　　procedure TFrmQueryProc FormShow（Sender: TObject）

　　begin

　　DmEmployee EmployeeTable Open;

　　EmployeeSource Enabled := True;

　　with EmployeeProjectsQuery do if not Active then Prepare;

　　end;

　　用Prepare显式地准备SQL语句虽非必须但可以优化SQL的执行

　　procedure TFrmQueryProc EmployeeDataChange（Sender: TObject; Field: TField）

　　begin

　　 mployeeProjectsQuery Close;

　　EmployeeProjectsQuery Params[ ] AsInteger :=

　　DmEmployee EmployeeTableEmp_No Value;

　　EmployeeProjectsQuery Open;

　　WriteMsg（ Employee + DmEmployee EmployeeTableEmp_No AsString +

　　 is assigned to + IntToStr（EmployeeProjectsQuery RecordCount） +

　　 project（s））

　　end;

　　该事件处理过程与EmployeeSource的OnDataChange属性相联用于当EmployeeTable数据记录变化时修正存储过程的输入参数并执行SQL语句

　　 TStoredProc部件的存储过程编程

　　TStoredProc Delphi 专门用来使用服务器存储过程的部件 CSDEMO 中演示用TStoredProc调用存储过程的窗体是TFrmExecPr

　　在程序运行中当按下ShipOrder按钮要求对ORED_STA_TUS等字段的内容作修改以维护数据库的一致性字段内容的修改任务由服务器上的存储过程SHIP_ORDER完成 SHIP_ORDE的程序如下

　　PROCEDURE SHIP_ORDER

　　DECLARE VARIABLE ord_stat CHAR（）

　　DECLARE VARIABLE hold_stat CHAR（）

　　DECLARE VARIABLE cust_no INTEGER;

　　DECLARE VARIABLE any_po CHAR（）

　　BEGIN

　　SELECT s order_status c on_hold c cust_no

　　FROM sales s customer c

　　WHERE po_number = :po_num

　　AND s cust_no = c cust_no

　　INTO :ord_stat :hold_stat :cust_no;

　　IF （ord_stat = shipped ） THEN

　　BEGIN

　　EXCEPTION order_already_shipped;

　　SUSPEND;

　　END

　　ELSE IF （hold_stat = * ） THEN

　　BEGIN

　　EXCEPTION customer_on_hold;

　　SUSPEND;

　　END

　　FOR SELECT po_number

　　FROM sales

　　WHERE cust_no = :cust_no

　　AND order_status = shipped

　　AND paid = n

　　AND ship_date < NOW

　　INTO :any_po

　　BEGIN

　　EXCEPTION customer_check;

　　UPDATE customer

　　SET on_hold = *

　　WHERE cust_no = :cust_no;

　　SUSPEND;

　　END

　　UPDATE sales

　　SET order_status = shipped ship_date = NOW

　　WHERE po_number = :po_num;

　　SUSPEND;

　　END

　　Parameters:

　　PO_NUM INPUT CHAR（）

　　该过程只带有一个输入参数 PO_NUM 类型是CHAR（）

　　在客户端使用该过程的TStoreProc部件是ShipOrderProc 其主要属性如下表

　　表 ShipOrderProc部件主要属性的取值

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

　　属性名属性值

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

　　DatabaseName EmployeeDemoDB

　　ParamBindMode pbByName

　　Params PO_NUM（输入参数 String类型）

　　StoredProcName SHIP_ORDER

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

cha138/Article/program/Delphi/201311/25127