Chinaunix首页 | 论坛 | 博客
  • 博客访问: 103065365
  • 博文数量: 19283
  • 博客积分: 9968
  • 博客等级: 上将
  • 技术积分: 196062
  • 用 户 组: 普通用户
  • 注册时间: 2007-02-07 14:28
文章分类

全部博文(19283)

文章存档

2011年(1)

2009年(125)

2008年(19094)

2007年(63)

分类: Oracle

2008-05-24 20:49:52

  在ORACLE的前端工具FORM4.5中,封装过程资源相当丰富,且用途广泛。笔者在系统设计中,借助其中的封装过程“FORMS_DDL”,解决了许多应用难题。以下就所实现部分功能作简要介绍。

  一、 实现数据的批量复制

  在应用系统中,经常存在需要成批量处理的数据,采用程序实现后,可以大大地提高工作效率。如以电表电耗DHJL(电表柜号DBGH,电表号DBH,倍率BL,月份YF CHAR(6),上月表底数BS1,本月表底数BS2)为例,用户当月的工作是将上月数据再追加一次,然后将BS2值自动替换为本月(A1)的BS1值,而用户只需输入本月的BS2值。编程实现如下:

  ――根据上月产生当月(A1〔的记录的查询

  H1:='SELECT DBGH,DBH,BL,'||''''||A1||''''||'"YF",BS2,BS2 FROM NHJL

  WHERE YF=TO_CHAR(ADD_MONTHS(TO_DATE(A1,'YYYYMM'),-1),'YYYYMM');

  ――生成临时表DHJL1

  FORMS_DDL('CREATE TABLE DHJL1 AS '||H1);

  ――将临时表追加到DHJL中,但不能重复

  H1:='INSERT INTO NHJL SELECT * FROM DHJL1 WHERE (DBGH,DBH,BL,YF)

  NOT IN (SELECT DBGH,DBH,BL,YF NHJL)';

  FORMS_DDL(H1);

  ――删除临时表

  FORMS_DDL('DROP TABLE DHJL1');

  ――提交

  COMMIT_FORM;

  二、 解决按周期换算问题

  日常应用中,还有一类具有典型周期性的应用。如在设备管理中,设备的周期性维修保养计划WXJH(设备编号SBBH,保养部位WXBW,保养内容WXNR,维修周期WXZQ,开始月份KSRQ CHAR(6)),用户在进行数据初始化之后,只要输入一个年份值(A1),就根据维修周期和输入年份换算出当年设备维修保养计划(WXJH1)的内容。程序实现如下:

  A1:='01';――初始化

  ――产生出1月份的维修保养项目的查询语句的字符串,并初始化H1

  H1:='SELECT SBBH,WXBW,WXNR,'||''''||A1||A2||''''||'"YF" FROM WXJH

  WHERE MOD('||A1||A2||'-TO_NUMBER(KSRQ),WXZQ)=0 AND KSRQ<='||''''||A1||A2||'''';

  K1:=2;――初始化

  ――产生出2到12月份的维修保养项目的查询语句的字符串,并用UNION连接

  WHILE K1<13 LOOP

  A2:=TO_CHAR(K1);

  A2:=LPAD(A2,2,'0');――格式转换

   H1:=H1||' UNION '||'SELECT SBBH,WXBW,WXNR,'||''''||A1||A2||''''||'"YF" FROM

   WXJH WHERE MOD('||A1||A2||'-TO_NUMBER(KSRQ),WXZQ)=0

   AND KSRQ<='||''''||A1||A2||'''';

  K1:=K1+1;

  END LOOP;

  ――删除旧表并创建新表

  FORMS_DDL('DROP VIEW WXJH1');

  FORMS_DDL('CREATE VIEW WXJH1 AS '||H1);

  三、 实现用户自定义公式列

  对于应用系统来说,绝大部分的编程和维护工作是由报表的调整引起的。用户会提出自己输入公式定义新列的要求。实现方法如下:

  1、定义基表

   T1(行关键字ROWKEY, 列关键字COLKEY char(2) ,值VALUE number );

  T2(行关键字ROWKEY,列1COL00 ,列2 COL01,。。。。。。,列nnCOLmn);

   T3(列编码COLKEY char(2), 公式FORMU varchar2(300));

   基表T1和基表T2中存放要查询的基本数据,实现N:1的对应关系。在T1上创建实现这种关系的数据库触发子,实现自动维护中间表T2(具体实现不再赘叙)。建立基表T1的主要目的,是为了REPORT中采用“矩阵风格”输出报表。基表T3中存放着所有可维护的列编码和列的公式。

   2、具体实现

   DECLARE

   H1 VARCHAR2(3000),

   H VARCHAR2(3000),

   CURSOR ZB IS SELECT 'SELECT ROWKEY,'||''''||COLKEY||''''||

   '"COLKEY",'||FORMU||'"VALUE" FROM T2' FROM T3

   WHERE FORMU IS NOT NULL;――定义按公式产生的新记录的游标

  BEGIN

   ――产生对基本T1的查询的字符串

   H1:='SELECT ROWKEY,COLKEY,VALUE FROM T1';

   ――将产生的新记录查询的“UNION”到基本T1上

   OPEN ZB;

   FETCH ZB INTO H;

   WHILE ZB%FOUND LOOP

    H1:=H1||' UNION '||H;

    FETCH ZB INTO H;

   END LOOP;

   CLOSE ZB;

   ――删除旧视图并创建新视图V1

   FORMS_DDL('DROP VIEW V1');

   FORMS_DDL('CREATE VIEW V1 AS '||H1);

  END;

阅读(724) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~