设为首页 收藏本站
查看: 903|回复: 0

[经验分享] Oracle Forms基本操作

[复制链接]

尚未签到

发表于 2016-7-18 11:30:49 | 显示全部楼层 |阅读模式
  
  第一步   当然是建表了 
  example   :   --   create   table   
  drop   table   t_tname; 
  create   table   t_tname(xh     number(2),                     --   序号 
  xm         varchar2(10),               --   姓名 
  csrq     date,                               --   出生日期 
  bz         varchar2(100),             --   备注 
  constraint   pk_t_tname   primary   key(xh)); 
  下面都以表格   t_tname   为例 
  
  第二步   就是实现功能了 
  打开form   builder   前期准备工作 
  首先要有一个画布、窗口(假如将其名字名为cc_main,w_main)两者必须对应,然后就是添加数据块(就是
  
  选择你建立的表格)布局画面,按照提示一步一步完成了,最后将你需要实现什么功能添加功能按钮,放在
  
  另外一个非数据库块 
  
  然后就是代码编写了。 
  1.WHEN-NEW-FORM-INSTANCE(进入FROM时执行)   所要做的就是初始化窗口和一些自己需要的查询 
  1.1   将初始化窗口写成一个过程 
  
  PROCEDURE   Prc_Init_Windows   IS 
  
  BEGIN 
  Set_Window_Property(Forms_Mdi_Window,TITLE, 'WINDOW_NAME ');             --设置多文档窗
  
  口标题 
  Set_Window_Property(Forms_Mdi_Window,WINDOW_STATE,maximize);         --设置多文档窗口最
  
  大化 
  Set_Window_Property( 'W_Main ',WINDOW_STATE,maximize);                         --设置主
  
  窗口最大化 
  :System.Message_Level:= '15 ';                                                           
  
  --设置信息提示级别 
  END; 
  然后直接调用过程在WHEN-NEW-FORM-INSTANCE触发器里 
  --   code   
  Prc_Init_Windows; 
  GO_BLOCK( 't_tname '); 
  SET_BLOCK_PROPERTY( 't_tname ',INSERT_ALLOWED,PROPERTY_false); 
  SET_BLOCK_PROPERTY( 't_tname ',UPDATE_ALLOWED,PROPERTY_false); 
  execute_query;     --   内置子程序执行查询(查询所有记录) 
  
  2.添加   (所要做的就是保证序号不能为空,关键字) 
  两种操作方法一种直接在界面上输入,二种弹出另外一个窗口进行操作 
  就讲第一种吧,定义一个form参数p_xh   (在对象导航器里面定义) 
  declare 
  nXHNUMBER(2); 
  BEGIN 
  
  GO_BLOCK( 't_tname '); 
  SET_BLOCK_PROPERTY( 't_tname ',INSERT_ALLOWED,PROPERTY_TRUE); 
  SET_BLOCK_PROPERTY( 't_tname ',UPDATE_ALLOWED,PROPERTY_false); 
  last_record; 
  create_record; 
  select   max(xh)   into   nXH   from   t_tname; 
  :parameter.p_xh   :=   nXH; 
  :t_tname.xh   :=   :parameter.p_xh; 
  
  END; 
  
  在t_tname数据块中添加WHEN-NEW-RECORD-INSTANCE触发器 
  if   get_block_property( 't_tname ',insert_allowed)   =   'true '   then 
  if   :t_tname.xh   is   null   then 
  :parameter.p_xh   :=   :parameter.p_xh   +   1; 
  :t_tname.xh   :=   :parameter.p_xh; 
  end   if; 
  end   if; 
  
  3.修改 
  GO_BLOCK( 't_tname '); 
  IF   :t_tname.XH   IS   NOT   NULL   THEN 
  SET_BLOCK_PROPERTY( 't_tname ',INSERT_ALLOWED,PROPERTY_FALSE); 
  SET_BLOCK_PROPERTY( 't_tname ',UPDATE_ALLOWED,PROPERTY_TRUE); 
  END   IF; 
  
  4.删除 
  
  GO_BLOCK( 't_tname '); 
  IF   :t_tname.XH   IS   NOT   NULL   THEN 
  SET_BLOCK_PROPERTY( 't_tname ',delete_ALLOWED,PROPERTY_true); 
  delete_record; 
  commit; 
  SET_BLOCK_PROPERTY( 't_tname ',delete_ALLOWED,PROPERTY_false); 
  END   IF; 
  
  5.保存 
  GO_BLOCK( 't_tname '); 
  COMMIT; 
  SET_BLOCK_PROPERTY( 't_tname ',delete_ALLOWED,PROPERTY_FALSE); 
  SET_BLOCK_PROPERTY( 't_tname ',INSERT_ALLOWED,PROPERTY_FALSE); 
  SET_BLOCK_PROPERTY( 't_tname ',UPDATE_ALLOWED,PROPERTY_FALSE); 
  
  6.撤消 
  DECLARE 
  P_WHERE       VARCHAR2(200); 
  BEGIN 
  GO_BLOCK( 't_tname ');       
  CLEAR_BLOCK(NO_COMMIT); 
  P_WHERE   :=   GET_BLOCK_PROPERTY( 't_tname ',DEFAULT_WHERE); 
  SET_BLOCK_PROPERTY( 't_tname ',DEFAULT_WHERE,P_WHERE); 
  EXECUTE_QUERY; 
  END; 
  
  7.查询 
  
  以姓名和出生日期为字段进行查询,从新添加一个窗口和画布,一个查询非数据块(例如块名为
  
  BLK_QUERY) 
  
  DECLPARE 
  P_WHERE       VARCAHR2(200)   :=   '1=1 '; 
  BEGIN 
  IF   :BLK_QUERY.XM   IS   NOT   NULL   THEN 
  P_WHERE   :=   P_WHERE|| '   AND   XM   =   '||CHR(39)||:BLK_QUERY.XM||CHR(39); 
  END   IF; 
  IF   :BLK_QUERY.CSRY   IS   NOT   NULL   THEN 
  P_WHERE   :=   P_WHERE|| '   AND   TO_CHAR(CSRY, ' 'YYYYMMDD ' ')   =           
  
  '||CHR(39)||TO_CHAR(:BLK_QUERY.CSRY, 'YYYYMMDD ')||CHR(39); 
  END   IF; 
  
  GO_BLOCK( 't_tname '); 
  CLEAR_BLOCK(NO_VALIDATE); 
  SET_BLOCK_PROPERTY( 't_tname ',DEFAULT_WHERE,P_WHERE); 
  EXECUTE_QUERY; 
  END; 

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-245851-1-1.html 上篇帖子: Oracle shell之间的传值 下篇帖子: oracle 导入导出行
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表