使用存储过程获取员工项目分配(IBX 通用教程)
在这一部分中,您将构建一个表单,使用存储过程来查找员工的项目。创建这个表单的过程与您在“审计工资变更”中遵循的步骤非常相似,特别是因为您将再次使用“DmCSDemo” TDataModule。您将添加一些数据库组件,这与“审计工资变更”中的表单不同。
1. 创建表单
首先,向项目中添加另一个 VCL 表单。在项目管理器中,右键单击项目并点击菜单项“添加新建 > VCL 表单”。
调整新表单的属性:
- 将 Caption 设置为“员工项目分配”。
- 将 Name 设置为“FrmQueryProc”。
- 将表单的 Height 改为 370,Width 组件改为 380。
- 将 OldCreateOrder 设置为 true。
保存表单:对于 Delphi,将文件保存为 Frmqrysp.pas。
在此表单中使用 TDataModule:对于 Delphi,在 Frmqrysp.pas 的实现部分开头添加以下行:uses DmCSDemo;
2. 添加数据库组件
添加一个 TDataSource 组件以获取 EMPLOYEE 表的信息。从下拉菜单中将 DataSet 设置为“DmEmployee.EmployeeTable”。请注意,此数据集由“DmCSDemo” TDataModule 提供。将 Name 改为“EmployeeSource”。
添加一个 TIBQuery 以使用 SQL 语句访问数据库表。
- 将 Name 改为“EmployeeProjectsQuery”。
- 从下拉菜单中将 Database 设置为“DmEmployee.EmployeeDatabase”。
- 如果需要,从下拉菜单中将 Transaction 设置为“DmEmployee.IBTransaction1”。
- 通过点击此属性的省略号 (...) 按钮,显示 CommandText Editor 对话框来设置 SQL 属性。在对话框的 SQL 窗格中输入以下行:
Select * from Get_Emp_Proj( :EMP_NO )
这段 SQL 代码调用存储过程 Get_Emp_Proj,它返回包含给定员工编号所有项目的 dataset。
- 添加另一个 TDataSource。将 Name 改为“EmployeeProjectsSource”。将 DataSet 设置为“EmployeeProjectsQuery”。此 TDataSource 作为 TIBQuery 和您将在下一节添加的 TDBGrid 数据感知控件之间的接口。
3. 添加可视组件
在表单底部添加一个 TStatusBar。您将使用它来显示当前选定员工项目的相关信息。勾选 SimplePanel 为 true。
按下图所示添加三个 TPanel 组件。这些 TPanel 提供了一个框架,用于定位可视组件。调整它们以填满表单的区域,除了 TStatusBar。
在“Panel1”上添加一个 TDBNavigator 以导航数据库记录。从下拉菜单中将 DataSource 设置为“DmEmployee.EmployeeSource”。此数据源由 TDataModule 提供。在 VisibleButtons 属性下,勾选所有按钮。将 ShowHint 设置为 true,以便显示 TDBNavigator 工具按钮的提示。
在“Panel1”的右侧放置一个 TBitBtn。设置以下属性:
- 将 Caption 设置为“E&xit”,这样按 ALT+x 就相当于点击按钮。
- 从下拉菜单中将 Kind 设置为“bkClose”。此设置使按钮在点击 TBitBtn 时执行关闭对话框的命令。
- 在“Panel2”上放置一个 TDBGrid。调整大小以填满 TPanel。从下拉菜单中将 DataSource 设置为“EmployeeSource”。
在“Panel3”上放置另一个 TDBGrid。调整大小以填满 TPanel。从下拉菜单中将 DataSource 设置为“EmployeeProjectsSource”。TIBQuery 中的 SQL 查询获取包含给定员工编号所有项目的 dataset。“EmployeeProjectsSource” TDataSource 使 TIBQuery 的 dataset 可供 TDBGrid 使用。
4. 添加事件处理程序和其他代码
通过添加一个例程和创建三个事件处理程序来完成表单。您不需要为 TBitBtn 添加事件处理程序,因为这个按钮已经与点击它关联了一个命令。
添加一个 WriteMsg 例程,在 TStatusBar 中显示消息。
在 Frmqrysp.pas 的类型部分的私有部分添加以下过程:
procedure WriteMsg( strWrite : String );
您可以通过按 CTRL-SHIFT-C 使用类补全在实现部分创建此函数的存根。
为新过程添加以下代码:
procedure TFrmQueryProc.WriteMsg(StrWrite: String);
begin
StatusBar1.SimpleText := StrWrite;
end;
接下来,为“EmployeeSource” TDataSource 组件创建一个事件处理程序。在设计选项卡中选择“EmployeeSource” TDataSource,然后在对象检查器中双击 OnDataChange 事件。这个事件处理程序跟踪顶部 TDBGrid 中当前选定的员工,并更新 TStatusBar 和底部 TDBGrid。为事件处理程序添加以下代码:
procedure TFrmQueryProc.EmployeeSourceDataChange(Sender: TObject;Field: TField);
begin{ 执行 ProjectsQuery,它使用查询过程 }EmployeeProjectsQuery.Close;EmployeeProjectsQuery.Params[0].AsInteger :=DmEmployee.EmployeeTable.FieldByName('EMP_NO').AsInteger;EmployeeProjectsQuery.Open;WriteMsg('Employee ' + DmEmployee.EmployeeTable.FieldByName('EMP_NO').AsInteger +' is assigned to ' + IntToStr(EmployeeProjectsQuery.RecordCount) +' project(s).');
end;
最后,为表单本身编写两个事件处理程序。在设计选项卡中选择表单。在对象检查器中双击 OnShow 事件以创建事件的框架代码。添加以下代码:
procedure TFrmQueryProc.FormShow(Sender: TObject);
beginDmEmployee.EmployeeTable.Open;{ 允许从 EmployeeTable 流向本地 EmployeeSource 的数据流。这将允许 DataChange 事件执行查询过程 }EmployeeSource.Enabled := True;{ 显式查询准备不是必需的,但可以提供最佳性能 }with EmployeeProjectsQuery do if not Active then Prepare;
end;
当表单仍然被选中时,在对象检查器中双击 OnHide 事件以创建此事件的代码存根。修改存根如下:
procedure TFrmQueryProc.FormHide(Sender: TObject);
begin{ 为我们的表单关闭 DataChange 事件,因为 DmEmployee.EmployeeTable在其他地方使用 }EmployeeSource.Enabled := False;
end;
这完成了表单的构建。
5. 显示表单
修改在“创建主表单”中创建的主表单。在该表单上添加一个按钮以显示您刚刚创建的员工项目表单。
在 Frmmain.pas 的实现部分开头的 uses 子句中添加额外的一行,以便主表单知道您刚刚添加的 FrmQrySP 单元:
uses
FrmQrySP, { 查询存储过程示例 }
FrmTrigg, { 触发器示例 }
FrmViews; { 查看示例 }
在 Frmmain 表单上添加另一个 TButton,类似于在“创建主表单”中添加的 TButton。将 TButton.Caption 设置为“&查询存储过程示例”。将 TButton.Name 设置为“BtnQrySP”。然后通过在 Frmmain 表单的设计选项卡中双击该 TButton 添加新按钮的事件处理程序。使用以下代码作为事件处理程序:
procedure TFrmLauncher.BtnQrySPClick(Sender: TObject);
begin
FrmQueryProc.ShowModal;
end;
6. 运行应用程序
构建并运行应用程序。主表单显示:
点击新的“查询存储过程示例” TButton 以显示新表单:
顶部的 TDBGrid 显示数据库中的 EMPLOYEE 表。TStatusBar 显示当前选定员工没有项目。底部的 TDBGrid 除了字段名称 PROJ_ID 外不显示其他数据,因为员工没有项目。如果您选择了有项目的员工,您将看到:
EmpProjAssignWithProjects.png
底部的 TDBGrid 显示 TIBQuery 的 SQL 命令返回的数据集:包含给定员工编号的所有项目的 dataset。TStatusBar 显示员工的项目数量。
这完成了本项目。您可以根据 RAD Studio 安装的 CsDemos 示例的指导扩展它。