分享
 
 
 

Oracle中巧用FORMS_DDL

王朝oracle·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

在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,'''''A1A2'''''"YF" FROM WXJH

WHERE MOD('A1A2'-TO_NUMBER(KSRQ),WXZQ)=0 AND KSRQ<='''''A1A2'''';

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,'''''A1A2'''''"YF" FROM

WXJH WHERE MOD('A1A2'-TO_NUMBER(KSRQ),WXZQ)=0

AND KSRQ<='''''A1A2'''';

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有