ceshi555555555555

最新推荐文章于 2020-06-29 09:38:31 发布

weixin_34061555

最新推荐文章于 2020-06-29 09:38:31 发布

阅读量112

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Bigbirdblog/p/4816480.html

本文介绍了一个Oracle Forms应用程序中实现隐式提交的方法及一个查询按钮触发的查询过程。通过设置属性和触发器，实现了数据的自动保存，并定义了一个查询按钮的事件处理程序来执行特定的查询。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ccc

-- 隐式提交
IF NOT app_form.quietcommit THEN        
     RAISE form_trigger_failure;
END IF;
        
        -- 执行一次自查询 
        Set_Block_Property('QC_HEADER',onetime_where,'QUALITY_CHECK_ID = '||:QC_HEADER.QUALITY_CHECK_ID);
        Go_Block('QC_HEADER');
        Execute_Query;
        
 --隐式保存（相当于手动ctrl+s） 
 IF NOT app_form.quietcommit THEN        
  RAISE form_trigger_failure;
 END IF;

  *  查询按钮                

  PROCEDURE SUMMARY_FIND_BTN(event VARCHAR2) IS
  BEGIN
      
      IF event = 'WHEN-BUTTON-PRESSED' THEN
          
           :parameter.G_query_find := 'TRUE';
           app_find.find('DELIVER_SUMMARY');
       :parameter.G_query_find := 'FALSE';
       
       go_block('DELIVER_SUMMARY');
       
      END IF;
      
  END SUMMARY_FIND_BTN;