1、设置
在功能定义是参数设置QUERY_ONLY = "YES"即可
注意：表单开发时必须设置form的第一个导航块属性，且每个块都需要设置下一导航块

2、原理

PROCEDURE query_only_mode IS
    blockname  VARCHAR2(30);
    formname   VARCHAR2(30);
    basetable  VARCHAR2(80);
  BEGIN
    COPY('Entering app_form.query_only_mode.','global.frd_debug');
    copy('YES', 'parameter.query_only');
    app_menu.set_prop('FILE.SAVE', enabled, property_off);
    app_menu.set_prop('FILE.ACCEPT', enabled, property_off);
    formname  := Name_In('system.current_form');
    blockname := Get_Form_Property(formname, FIRST_BLOCK);
    while (blockname is not null) loop
      if (Get_Block_Property(blockname, BASE_TABLE) is not NULL) then
        Set_Block_Property(blockname, INSERT_ALLOWED, PROPERTY_FALSE);
        Set_Block_Property(blockname, UPDATE_ALLOWED, PROPERTY_FALSE);
        Set_Block_Property(blockname, DELETE_ALLOWED, PROPERTY_FALSE);
      end if;
      blockname := Get_Block_Property(blockname, NEXTBLOCK);
    end loop;
    COPY('Completed app_form.query_only_mode.','global.frd_debug');
  END query_only_mode;