知识大全 Oracle DP2000 应用技巧

Posted 2022-07-15 单位

篇首语：于今腐草无萤火，终古垂杨有暮鸦。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Oracle DP2000 应用技巧相关的知识，希望对你有一定的参考价值。

Oracle DP2000 应用技巧 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Oracle 公司作为全球最大的数据库厂商之一其数据库系统是优秀的数据库管理系统在大型系统象保险金融等部门的广泛应用是众所周知的但其数据库前端开发工具DEVEPER/ 在业界中介绍的却相对较少其实其开发工具Developer/ 也是一功能强大的方便灵活的开发工具 Developer/ 在构建企业管理信息系统上其编程简便开发周期短维护方便等优势更是软件开发商所中意之处笔者所在公司在开发社保系统中就采用Developer/ 在辽宁省的应用中取得良好效果下面就本人在Developer/ 开发社保系统中所遇问题与各位进行交流　　 Developer/ FROMS 中的宏代换　　　　在早期FOXPRO 数据库编程中经常用到宏代换功能但在FORMS 中却没有此功能象 & * 等在编程中经常用到的在FORMS 中只得一行一行代码的写但后来发现FORMS 中也有类似功能用NAME_IN() COPY() 可以实现类似的功能 Name_in（）用于取出参数名代表的对象了数值而COPY（）把一个参数值传递给另一参数值表示的对象的如下例　　　　FORM 结构　　块B 　　项 L L L L L L 　　在作录入程序时要对L L 项清零　　DELCATE 　　strItemName varchar ( );　　BEGIN　　for I in … loop　　strItemName:= :b l ||to_char(i);　　copy(null strItemNmae);　　end loop;　　END;　　对于NAME_IN 的应用可能更多一些笔者在做社保软件时作保险缴费录入时曾用它少写了许多代码当然代码的减少就义意味维护工作量的减少　　　　　　　　FORM结构　　养老　　块 YLYJ（养老应缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　块 YLSJ （养老实缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　工伤　　块 GSYJ（工伤应缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　块 GSSJ （工伤实缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　医疗　　块 YILYJ（医疗应缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　块 YILSJ （医疗实缴）　　项 DWJTC（单位缴统筹） DWJZH（单位缴帐户） GRJF（个人缴费）　　三个块的结构相同只是块名称不同缴费时时行的操作也一样实缴名项不能大于应缴不用NAME_IN 时只能写三段程序但用了NAME_IN 后只用一段写一个函数就能达到目的如下　　　　FUNCTION FUN_JF (PRE_BLOCK_NAME 　　IN VARCHAR) RETURN BOOLEAN IS 　　BEGIN　　if name_in(pre_block_name|| sj dwjtc )　　>name_in(pre_block_name|| yj dwjtc ) or　　name_in(pre_block_name|| sj dwjzh )　　>name_in(pre_block_name|| yj dwjzh ) or　　name_in(pre_block_name|| sj grjf )　　>name_in(pre_block_name|| yj grjf ) then　　message( 实缴大于应缴 );　　return false;　　end if;　　return true;　　END;　　从上面的两个例子来看NAME_IN 和COPY 的应用能起到其它编程语言的宏代换功能代码的优化方面确实能起不少的作用减少了程序源代码的维护工作　　　　用FORMS 实现ORACLE 数据库与其它数据源数据的交换　　　　 Developer/ 不能实现同时多数据源的同时连接在多系统和异种数据源的操作中功能确实大打折扣虽然可以用 GL 加ODBC 作一DLL 应用能实现但一般的应用中又有点没用必要作的那么复杂实际上Developer/ 内嵌包TEXT_IO 为我们提供了一个更简单的方法几乎所有的数据库或数据库前端开发工具都提供文本文件的操作这样我们完全可以用文本文件作为数据交换的通用格式下例是在保险业中的一应用（要用到d kwfile dll 应用）　　　　DECLARE　　filename varchar ( ):=null;　　filenum text_io file_type;　　linebuf varchar ( );　　r_temp temp%rowtype;　　BEGIN　　filename:=d k_file_dialog show　　( 请选择缴费工资台帐原文件 c:\\ 源文件(* txt)|* txt| );　　if filename is null then 　　raise form_trigger_failure; end if;　　filenum:=text_io fopen(filename r );　　loop　　BEGIN　　text_io get_line(filenum linebuf);　　TEXT_IO PUT(linebuf);TEXT_IO NEW_LINE;　　exception when no_data_found then　　exit;　　END;　　BEGIN　　v_temp l =substr(linebuf );　　v_temp l := to_number(substr(linebuf ));　　insert into temp(l l ) values (v_temp l v_temp l );　　exception when others then 　　END;　　< < end_loop > >　　null; 　　end loop;　　END;　　 FORMS 实现的列表查询多行录入中的实现行累计　　　　在PB 和VB 中都用类似的求和或者说累计列但在早期的FORMS 中没有此功能对于多条记录的录入中需要进行求和时很不方便其实利用FORM 的触发子很容易实现如下例　　　　块 b 项 l l l l 　　块 b 项 l l l l 　　块b 是B 的求和块　　在块B 中的PRE_TEXT_ITEM中代码　　IF SUBSTR(:SYSTEM CURRENT_ITEM ) IN ( L ) THEN 　　:GLOBAL ITEM_PREVALUES:=NAME_IN　　( B ||:SYSTEM CURRENT_ITEM);　　END IF;　　在块 B 中的POST_TEXT_ITEM中代码　　DECLARE　　num_cz number; 数据项在录入或修改前后的差值　　num_hz number; 数据项在修改后的求合　　BEGIN　　if substr(:system current_item ) in ( l ) then 　　:em_nextvalues:=name_in　　( b ||:system current_item);　　num_cz:=nvl(to_number(:em_nextvalues) ) 　　nvl(to_number(:em_prevalues) );　　新的和值　　num_hz:=nvl(to_number(name_in( b_sum 　　||:system current_item)) )+num_cz;　　copy(to_char(num_hz) b ||:system current_item); 　　end if;　　END;　　通过前后两值的比较很容易的实现一个较通用的求和算法另外又一次用到NAME_IN 和 COPY 减少了代码量在块上实现触发子也减少了代码维护工作量　　　　 REPORT 中实现的动态报表（一张表利用多个QUERY 语句生成一样格式的多张报表　　　　在做报表时经常要遇到类似的报表有多张的情况虽然通过简单的拷贝可以减少编程的工作量但在后期的维护中却增加了难度一张表改完后又改另一张表进行大量的重复劳动不是每个程序员想做的工作其实在REPORT 中有一很好的功能可能完成这样的工作就是REPORT 的宏代换如下例　　　　两个表 tab_temp (a number b number c number)　　tab_temp (d number e number f number)　　作两张报表表头一样但查询不一样分别取自两个表　　　　建一用户参数（user parameters） p_ 类型 CHAR 长度缺省值是 SELECT A B C FROM TAB_TEMP 　　　　建一查询(QUERIES) 在查询语句中输入 &P_ 　　　　生成布局可按要求画出报表　　因在查定义中用的是&p_ 定义所以可以在运行时动态的给P_ 传递能数只要能满足其列名定义即可例可用如下语句代入P_ 　　　　SELECT D A E B F C FROM TAB_TEMP 　　这样就生成了一个多功能报表把编写REPROT 工作从简单的布局编辑中解脱出来而投入到实质性的工作SQL 语句的生成上去　　　　　　　　　　　　 cha138/Article/program/Oracle/201311/18657