教程:使用 InterBase Express 访问数据库(四)
使用存储过程获取员工项目分配(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”。
- 如果需要,从下拉菜单