02.01.03.tiptop：组件篇（4fd+4gl 新增：查询+输入框 界面化方式）

本页目录：

• 1、4fd
• 2、4gl
• 3、测试

---

4fd

# 注意：输入框带搜索按钮主要参数是：
  - widget:buttonedit
  - image type:select file
  - image:zoom
  - action:CONTROLP

p_qry 新增开窗查询

4gl

引用

DEFINE tm  RECORD
                wc      STRING
           END RECORD

CONSTRUCT BY NAME tm.wc ON apyslip
      ON ACTION locale
         CALL cl_show_fld_cont()
         LET g_action_choice = "locale"
         EXIT CONSTRUCT
          ON ACTION CONTROLP
           CASE
            WHEN INFIELD(apyslip)
                  CALL cl_init_qry_var()
                  LET g_qryparam.form     = "q_apa09"
                  LET g_qryparam.state    = "c"
                  CALL cl_create_qry() RETURNING g_qryparam.multiret
                  DISPLAY g_qryparam.multiret TO apyslip
                  NEXT FIELD apyslip
           END CASE
      ON IDLE g_idle_seconds
         CALL cl_on_idle()
         CONTINUE CONSTRUCT
 
      ON ACTION help
         CALL cl_show_help()
 
      ON ACTION controlg
         CALL cl_cmdask()
 
      ON ACTION about
         CALL cl_about()
 
      ON ACTION exit
         LET INT_FLAG = 1
         EXIT CONSTRUCT
   END CONSTRUCT

   IF g_action_choice = "locale" THEN
      LET g_action_choice = ""
      CALL cl_dynamic_locale()
      CONTINUE WHILE
   END IF

• 参数说明：

.form                         查询程序代码
.state                          状态 input/construct (i/c)
.construct                  是否作Construct (Y/N)
.where                        其他Where条件
.pagecount               每页最大浏览笔数
.default1~5                开窗栏位的预设值
.arg1~9                      查询资料的条件替换值
.multiret_index          多选资料所要回传的栏位索引值
.multiret                   多选资料的回传值暂存器
.ordercons                ORDER BY的顺序

测试