1.用数据块向导建立人员信息管理数据块。

2.建立控制块,指定块类型及名称。

3.为控制块上的项命名及选择类型(按钮和文本框)。

4.为按钮输入事件代码:

BEGIN
 set_block_property('emp',default_where,
    'deptno='||:control.dno);
  go_block('emp');
  execute_query;
END;

5.编译代码。

6.运行表单程序。

 

 效果图如下:

雇员信息查询