01.03.01.tiptop：快速开始篇（4fd+4gl+数据库：数据交互）

本页目录：

• 1、编写程序
• 2、测试

编写程序

• 需求：4fd查询输入框输入信息，然后给到4gl获取数据，然后4gl查询数据库，查到的数据反回给4fd

4fd

• 添加ButtonEdit按钮，属性修改如下：

物件(Object)-名称：oea904表单字群(Formfield)-资料型态：VARCHAR限制(Constraints)-noEntry：勾选限制(Constraints)-notNull：勾选限制(Constraints)-必要的：勾选限制(Constraints)-验证：勾选显示-图片：zoom注解-注解：oea_file.oea904杂项(Miscellaneous)-行动(Action)：controlp

• 代码:cxmq380.4fd

<ManagedForm gstVersion="22800" name="ManagedForm" uid="{a0a998a7-586e-40c7-a945-556afe07247f}"><AGSettings/><Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{f7d1882a-c426-4abd-9aa0-16e2294dc3b3}" where=""><RecordField colName="" fieldIdRef="1" name="oea904" sqlTabName="" sqlType="VARCHAR" table_alias_name="" uid="{7b67776f-e187-43dd-804e-a61fc2d0d241}"/><RecordField colName="" fieldIdRef="2" name="cnt" sqlTabName="" table_alias_name="" uid="{92852dad-3335-479e-8af4-6954a553c1fe}"/><RecordField colName="" fieldIdRef="3" name="cn2" sqlTabName="" table_alias_name="" uid="{bbd73337-0489-4b87-b23f-ec237671c69e}"/></Record><Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record1" order="" uid="{23621e56-7e71-42f9-bb33-5809559846b5}" where=""/><Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Record2" order="" uid="{16ee7f58-47fc-4564-b685-b1eb425b2ad3}" where=""/><Form gridHeight="20" gridWidth="159" name="apmq380" text="apmq380"><Grid gridHeight="17" gridWidth="153" name="Grid1" posX="2" posY="0"><Group gridHeight="7" gridWidth="148" name="Group1" posX="2" posY="1" text="Group1"><Label posX="1" posY="1" text="oea904"/><ButtonEdit action="controlp" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" case="none" colName="" columnCount="" comment="oea_file.oea904" fieldId="1" gridHeight="1" gridWidth="27" image="zoom" name="oea904" noEntry="true" notNull="true" posX="8" posY="1" required="true" rowCount="" sqlTabName="" sqlType="VARCHAR" stepX="" stepY="" tabIndex="1" table_alias_name="" title="ButtonEdit1" verify="true" widget="ButtonEdit"/></Group><Group gridHeight="3" gridWidth="148" name="Group2" posX="2" posY="8" text="Group2"><HLine gridWidth="10" name="hl1" posX="1" posY="1"/><Label posX="12" posY="1" text="cnt"/><Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="2" gridHeight="1" gridWidth="6" name="cnt" posX="17" posY="1" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="2" table_alias_name="" title="Edit1" widget="Edit"/><HLine gridWidth="10" name="hl1607" posX="123" posY="1"/><Label posX="135" posY="1" text="cn"/><Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" fieldId="3" gridHeight="1" gridWidth="6" justify="right" name="cn2" posX="140" posY="1" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="3" table_alias_name="" title="Edit1" widget="Edit"/></Group></Grid></Form><DiagramLayout></DiagramLayout></ManagedForm>

4gl

• 在q_per添加开窗查询：q_oea904 。参考：03.01.03.组件篇（4fd+4gl 新增：查询+输入框 界面化方式）

• 代码：cxmq380.4gl

# Prog. Version..: '5.00.03-2023.11.16(00000)'# Pattern name...: cxmq380.4gl# Descriptions...: 多角订单出货未交明细查询# Author..: DKLi# Date: 2023.11.17DATABASE dsGLOBALS "../../config/top.global"# 4gl变量DEFINE g_curs_indexLIKE type_file.num10DEFINE g_row_count LIKE type_file.num10DEFINE g_cn2 LIKE type_file.num10DEFINE g_rows RECORD oea01 LIKE oea_file.oea01, oea904LIKE oea_file.oea904, poz011LIKE poz_file.poz011, oea02 LIKE oea_file.oea02, oea03 LIKE oea_file.oea03, oeb03 LIKE oeb_file.oeb03, oeb04 LIKE oeb_file.oeb04, oeb06 LIKE oeb_file.oeb06, ima021LIKE ima_file.ima021, oeb05 LIKE oeb_file.oeb05, oeb12 LIKE oeb_file.oeb12END RECORD# 4fd的变量DEFINE tm RECORDwc stringEND RECORD# Pattern name...: MAIN# Descriptions...: 主函数MAIN# 定義局域變量，本文函數可以用DEFINE p_row,p_col LIKE type_file.num5LET p_row = ARG_VAL(1)LET p_col = ARG_VAL(2)LET tm.wc = ARG_VAL(3)# 改變一些系統缺省值OPTIONSFORM LINE FIRST + 2, #畫面開始的位置MESSAGE LINELAST,#訊息顯示的位置PROMPT LINE LAST,#提示訊息的位置INPUT NO WRAP#輸入的方式: 不打轉DEFER INTERRUPT#擷取中斷鍵# cl_user( ) 主要在抓取系統中與『個人設定』IF (NOT cl_user()) THENEXIT PROGRAMEND IF# 當發生 SQL 錯誤時，系統會CALL cl_err_msg_log( )WHENEVER ERROR CALL cl_err_msg_log# cl_setup( ) 主要在抓取系統中與『模組設定』相關的變數值資料，# 如這個模組所必需的全域變數等等IF (NOT cl_setup("CXM")) THENEXIT PROGRAMEND IFCALLcl_used(g_prog,g_time,1) RETURNING g_time -- 計算使用時間 (進入時間)# 打開窗口LET p_row = 5 LET p_col = 10-- 給變量賦值OPEN WINDOW q380_w AT p_row,p_col WITH FORM "cxm/42f/cxmq380"ATTRIBUTE (STYLE = g_win_style CLIPPED)CALL cl_ui_init() -- 初始化程序設定 CALL q380_menu()-- 調用q380_menu函數CLOSE WINDOW q380_wCALLcl_used(g_prog,g_time,2) RETURNING g_time-- 計算使用時間 (退出時間)END MAIN# Pattern name...: q380_menu()# Descriptions...:画面的ToolBar的设置函数FUNCTION q380_menu()# ToolBar的設置MENU ""BEFORE MENUCALL cl_navigator_setting(g_curs_index, g_row_count)-- 重新設定TOOLBAR上的『上筆、跳筆、下筆』等五個按鍵是否可用 / 不可用。ON ACTION query -- 查询按钮 CALL q380_s()ON IDLE g_idle_seconds CALL cl_on_idle() CONTINUE MENUON ACTION locale --语言按钮CALL cl_dynamic_locale() #切换CALL cl_show_fld_cont() #显示ON ACTION help --帮助/说明按钮CALL cl_show_help()ON ACTION about --程式咨询按钮CALL cl_about()ON ACTION controlg --程式切换CALL cl_cmdask() ON ACTION exit -- 離開按鈕LET INT_FLAG = FALSEEXIT MENUON ACTION close -- 窗口右上角x按钮LET INT_FLAG=FALSEEXIT MENUEND MENUEND FUNCTION# Pattern name...: q380_q()# Descriptions...: 获取4fd传来的数据FUNCTION q380_s() INITIALIZE tm.wc TO NULL CALL q380_set_entry("q") CONSTRUCT BY NAME tm.wc ON oea904BEFORE CONSTRUCT CALL cl_qbe_init()ON ACTION CONTROLP CASEWHEN INFIELD(oea904) CALL cl_init_qry_var() LET g_qryparam.state = 'c'LET g_qryparam.form = "q_oea904" CALL cl_create_qry() RETURNING g_qryparam.multiret DISPLAY g_qryparam.multiret TO oea904 NEXT FIELD oea904 OTHERWISE EXIT CASE END CASEON ACTION locale CALL cl_dynamic_locale() CALL cl_show_fld_cont() EXIT CONSTRUCTON IDLE g_idle_seconds CALL cl_on_idle() CONTINUE CONSTRUCTON ACTION about CALL cl_about()ON ACTION controlg CALL cl_cmdask()ON ACTION help CALL cl_show_help() END CONSTRUCT CALL q380_q()END FUNCTION# Pattern name...: q380_set_entry(p_cmd)# Descriptions...: 设置输入框可以编辑FUNCTION q380_set_entry(p_cmd) DEFINE p_cmd LIKE type_file.chr1 IF p_cmd = 'q' THENCALL cl_set_comp_entry("oea904",TRUE) END IFEND FUNCTION# Pattern name...: q380_q()# Descriptions...: 根据4fd输入的信息，查询后台数据FUNCTION q380_q() DEFINE l_sql stringINITIALIZE g_rows.* TO NULL LET l_sql ="SELECT oea01,oea904,poz011,oea02,oea03,oeb03, "," oeb04,oeb06,ima021,oeb05,oeb12 ","FROM OEA_FILE ","INNER JOIN OEB_FILE ON oeb01=oea01 ","INNER JOIN IMA_FILE ON ima01=oeb04 ","INNER JOIN POZ_FILE ON poz01=oea904 ","WHERE ",tm.wc CLIPPED,"AND OEACONF = 'Y' ","AND oea11 IN ('6','7') ","GROUP BY oea01,oea904,poz011,oea02,oea03,oeb03, "," oeb04,oeb06,ima021,oeb05,oeb12 ","ORDER BY oea01,oeb03 " PREPARE q380_prepare FROM l_sql # DECLARE q380_cs SCROLL CURSOR FOR SELECT * FROM OEA_FILE ..... DECLARE q380_cs SCROLL CURSOR FOR q380_prepare LET g_cn2 = 0 FOREACH q380_cs INTO g_rows.*IF cl_null (g_rows.oea01)THEN CONTINUE FOREACHEND IFLET g_cn2 = g_cn2 + 1 END FOREACH call q380_show()END FUNCTION# Pattern name...: q380_show()# Descriptions...: 將數據顯示到畫面FUNCTION q380_show()DISPLAY g_cn2 TO FORMONLY.cn2END FUNCTION

测试

# 使用sftp 上传cd /u1/toptest/topcust/cxm/4fdput cxmq380.4fdcd /u1/toptest/topcust/cxm/4glput cxmq380.4gl# 使用ssh 编译cd /u1/toptest/topcust/cxm/4fdr.f2 cxmq380 2 ccd /u1/toptest/topcust/cxm/4glr.c2 cxmq380r.l2 cxmq380exe2 cxmq380

• 输入的内容是：PSWBLV2

-- 找最小笔数的oea904做测试SELECT oea904,COUNT(oea904)FROM OEA_FILEINNER JOIN OEB_FILE ON oeb01=oea01INNER JOIN IMA_FILE ON ima01=oeb04INNER JOIN POZ_FILE ON poz01=oea904WHERE OEACONF = 'Y'AND oea11 IN ('6','7')GROUP BY oea904ORDER BY COUNT(oea904)