用ORACLE*Forms 和ORACLE*Graphics实现数据与图形动态显示

　　1 . 引言
　　---- Oracle 关系数据库管理系统是目前世界上最流行的高性能数据库管理系统之一，Developer/2000 是ORACLE 公司推出的集成化软件开发和运行环境。 ORACLE *Forms 是Developer/2000 的一部分，它是一种功能丰富，用于构建应用的工具产品，产品化屏幕处理存储在数据库中的数据。在许多实际应用中，往往需要将数据用很直观的图形表示出来。例如：饼图，折线图，直方图等，从而使数据及其比例关系一目了然。Developer/2000 的另一工具ORACLE *Graphics 提供了丰富的图形化表示数据的方法，它可以从各种数据源获得数据，并可以与Forms 模块结合起来，更有效地表示数据。
　　---- 笔者曾参加某企业决策支持系统的开发工作，通过在Forms 中调用Graphics 中的图形功能，使数据表示更为直观，并可根据Forms 中数据的变化来动态地显示图形，从而帮助决策人员进行数据分析，达到支持决策的目的。下文是笔者在实际开发中，完成动态显示图形功能制作过程中的一点体会。
　　
　　2. 动态图形显示的实现
　　---- 本例假设有一个产品销售数据表SALES，并含有销售时间，产品名称，销售量三个字段( 销售时间以年为单位)，其数据字典为
　　字段名
　　字段长度
　　字段含义
　　TIME
　　number(4)
　　销售时间
　　NAME
　　char(10)
　　产品名称
　　AMOUNT
　　number(10,2)
　　销售量
　　---- 启动Graphics，建立一个新的图形文件，并命名为chart.ogd。在Queries 中定义SQL 查询语句以显示图形，并在图形的属性栏中定义x 轴和y 轴所需显示的数据。本例将在x 轴显示产品名称，y 轴显示各种产品的销售量。
　　---- 启动Forms，建立一个新的 Forms 应用文件sale.fmb。在画布CANVAS1 中填加一个List Item 控件LIST1 ，并在LIST1 的属性中填充所要显示的时间值。然后填加一个Chart Item 控件chart_area1，并调节好chart_area1 的边界和大小，以显示图形chart.ogd。
　　
　　---- 在Forms 中调用图形，必须与Graphics 进行参数值的传递。首先回到Graphics 中，在chart.ogd 中设置如下结构：
　　
　　---- （1）在参数表Parameters 中定义参数。本例需传递时间参数，并设其为 m1，在参数表中设置其属性
　　
　　parameter m1
　　name m1
　　type number
　　initial value 1998
　　---- （2）定义图形的查询语句。在Queries 中定义"query0" 查询，如下所示：
　　select prodUCt,amount
　　from sales
　　where time=:m1
　　---- （3）定义过程。在 Program Unit 中编写 update_chart 过程，完成图形随参数变化显示的功能。
　　PROCEDURE update_chart IS
　　BEGIN
　　og_execute_query(og_get_query('query0'));
　　END;
　　---- 完成以上工作后，回到Forms 中，首先打开orawin95\forms45\plsqllib\og.pll 文件，然后定义如下结构：
　　---- （1）在LIST1 的属性List elements 中填写列表框中所要显示的数值，然后设置WHEN_LIST_CHANGED 触发器，并编写触发器代码，如下
　　
　　pl ParamList;
　　pl := Get_Parameter_List('plist');
　　IF NOT Id_Null(pl) THEN
　　destroy_parameter_list(pl);
　　END IF;
　　pl := Create_Parameter_List('plist');
　　add_parameter(pl,'m1',text_parameter,:blk1.list1);
　　og.interpret('c:\chart.ogd','chart_area1','
　　update_chart;',true,pl);
　　---- （2）在Forms 中设置WHEN_NEW_FORM_INSTANCE 触发器，完成初始化工作，其程序如下：
　　Set_Window_Property (Forms_MDI_Window,
　　Window_State,Maximize);
　　Show_Window ('sales');
　　set_window_property('sales',window_state,
　　maximize);
　　og.open('c:\chart.ogd','chart_area1');
　　---- （3）在Forms 中设置POST_FORM 触发器，用来在程序结束时关闭图形。

　　og.close('c:\chart.ogd','blk1.chart_area1');
　　---- 通过以上过程，动态图形显示得以实现。当改变时间列表中的数值时，图形随着时间的改变而变化，显示另一个时间相应的各种产品的销售量的值。
　　3. 结论
　　---- 本文介绍了一些Developer/2000 中Forms 和Graphics 的开发方法及使用技巧。当然Developer/2000 中还有许多其他的触发器及内部例程，需要在实践中不断探索。