{"id":652,"date":"2019-05-20T08:48:45","date_gmt":"2019-05-20T00:48:45","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=652"},"modified":"2019-05-29T08:45:40","modified_gmt":"2019-05-29T00:45:40","slug":"%e5%8d%95%e8%ba%ab%e7%9a%84%e8%a1%8c%e8%83%8c%e6%99%af%e9%a2%9c%e8%89%b2%e5%8a%a8%e6%80%81%e8%ae%be%e7%bd%ae%e4%be%8b%e5%ad%90","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=652","title":{"rendered":"TIPTOP \u5355\u8eab\u7684\u884c\u80cc\u666f\u989c\u8272\u52a8\u6001\u8bbe\u7f6e\u4f8b\u5b50"},"content":{"rendered":"<pre class=\"pure-highlightjs\"><code class=\"null\"># Prog. Version..: '5.25.06-12.01.05(00010)'     #\r\n#\r\n# Pattern name...: csfi001demo.4gl\r\n# Descriptions...: \u5355\u8eab\u9ad8\u4eae\u663e\u793ademo\r\n# Date &amp; Author..: 120426 by yjb\r\n#\r\n##############################################################\r\n# \u8bf4\u660e\uff1a\r\n#      1. \u672c\u7a0b\u5e8f\u5c55\u73b0\uff1a\u663e\u793a\u5355\u5143\u683c\u5185\u5b57\u4f53\u989c\u8272\uff0c\u663e\u793a\u5355\u5143\u683c\u80cc\u666f\uff0c\u663e\u793a\u6574\u884c\u80cc\u666f\r\n#      2. gp5.20\u548cgp5.20\u7248\u672c\u6d4b\u8bd5\u901a\u8fc7\r\n#      3. \u4e3b\u8981\u5e94\u7528\u4e86DIALOG.setArrayAttributes\u65b9\u6cd5\r\n##############################################################\r\n#\r\n# Modify.........: MOD-120426 BY yjb\r\n\r\n\r\nGLOBALS \"..\/..\/config\/top.global\"\r\n\r\nDEFINE g_table1 DYNAMIC ARRAY OF RECORD  #\u5355\u8eab\u6570\u7ec4\r\n           edit1  int,\r\n           edit2  STRING,\r\n           edit3  STRING,\r\n           edit4  STRING\r\n           END RECORD\r\n\r\nDEFINE g_table1_attr DYNAMIC ARRAY OF RECORD  #\u5c5e\u6027\u6570\u7ec4\uff0c\u540d\u79f0\u4e0e\u5355\u8eab\u6570\u7ec4\u4e00\u81f4\uff0c\u7c7b\u578b\u5b9a\u4e49\u4e3astring\r\n           edit1  STRING,\r\n           edit2  STRING,\r\n           edit3  STRING,\r\n           edit4  STRING\r\n           END RECORD\r\n\r\nDEFINE g_table2 DYNAMIC ARRAY OF RECORD\r\n           edit_1  int,\r\n           edit_2  STRING\r\n           END RECORD\r\n\r\nMAIN\r\n   DEFINE l_ac  INTEGER\r\n   \r\n\r\n   WHENEVER ERROR CALL cl_err_msg_log\r\n \r\n   LET g_prog=\"csfi001demo\"\r\n\r\n   IF (NOT cl_user()) THEN\r\n      EXIT PROGRAM\r\n   END IF\r\n\r\n   IF (NOT cl_setup(\"CSF\")) THEN\r\n      EXIT PROGRAM\r\n   END IF\r\n\r\n\r\n   OPEN WINDOW w1 WITH FORM \"csf\/42f\/csfi001demo\"\r\n          ATTRIBUTE (STYLE = g_win_style CLIPPED) \r\n\r\n          CALL cl_set_locale_frm_name(\"csfi001demo\")\r\n          CALL cl_ui_init()\r\n\r\n   \r\n   CALL b_fill()\r\n   \r\n   DIALOG ATTRIBUTES(UNBUFFERED=TRUE)\r\n      DISPLAY ARRAY g_table1 TO s_table1.*\r\n          BEFORE DISPLAY \r\n             CALL DIALOG.setArrayAttributes(\"s_table1\",g_table1_attr)    #\u53c2\u6570\uff1a\u5c4f\u5e55\u53d8\u91cf,\u5c5e\u6027\u6570\u7ec4\r\n\r\n      END DISPLAY\r\n      \r\n      DISPLAY ARRAY g_table2 TO s_table2.*\r\n  \r\n      END DISPLAY\r\n\r\n      ON ACTION CLOSE\r\n         EXIT DIALOG\r\n      ON ACTION exit\r\n         EXIT DIALOG\r\n   END DIALOG\r\n\r\n   CLOSE WINDOW w1\r\nEND MAIN\r\n\r\nFUNCTION b_fill()\r\n   DEFINE l_i  INTEGER\r\n\r\n   CALL g_table1.clear()\r\n   CALL g_table2.clear()\r\n   CALL g_table1_attr.clear()\r\n\r\n   FOR l_i = 1 TO 20\r\n      LET g_table1[l_i].edit1 = l_i\r\n      LET g_table1[l_i].edit2 = l_i\r\n      LET g_table1[l_i].edit3 = l_i\r\n      LET g_table1[l_i].edit4 = l_i\r\n      \r\n      LET g_table2[l_i].edit_1 = l_i\r\n      LET g_table2[l_i].edit_2 = l_i\r\n   END FOR\r\n\r\n   #\u5047\u8bbe\u6761\u4ef6\u8bbe\u5b9a \uff08\u5b9e\u9645\u5e94\u7528\u53ef\u4ee5\u653e\u5728\u4e0a\u9762\u5faa\u73af\u4e2d\u5904\u7406\uff09\r\n\r\n   LET g_table1_attr[2].edit1 = \"red\"    #\u663e\u793a\u5355\u5143\u683c\u5185\u5b57\u4f53\u989c\u8272\r\n\r\n   LET g_table1_attr[3].edit1 = \"red reverse\"   #\u663e\u793a\u5355\u5143\u683c\u80cc\u666f\r\n\r\n   #\u663e\u793a\u6574\u884c\u80cc\u666f\r\n   LET g_table1_attr[4].edit1 = \"yellow reverse\"  \r\n   LET g_table1_attr[4].edit2 = \"yellow reverse\"\r\n   LET g_table1_attr[4].edit3 = \"yellow reverse\"\r\n   LET g_table1_attr[4].edit4 = \"yellow reverse\"\r\n\r\nEND FUNCTION\r\n\r\n\r\n\r\n\r\n\u989c\u8272\u7c7b\u578b\uff1a\r\nBLACK     \u9ed1\u8272\r\nBLUE      \u84dd\u8272\r\nCYAN      \u9752\u8272\r\nGREEN     \u7eff\u8272\r\nMAGENTA   \u54c1\u7ea2\u8272\r\nRED       \u7ea2\u8272\r\nWHITE     \u767d\u8272\r\nYELLOW    \u9ec4\u8272\r\nBOLD      \u7c97\u4f53\r\nDIM       \u6697\u53f9\u65e0\u5149\r\nINVISIBLE \u9690\u85cf\r\nNORMAL    \u6b63\u5e38 \u6b63\u89c4\r\nREVERSE   \u53cd\u5411 \u5012\u8f6c\r\nBLINK     \u95ea\u70c1\r\nUNDERLINE \u4e0b\u5212\u7ebf\r\n<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p>\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a<a href=\"https:\/\/www.hefeiyu.com\">\u8d6b\u975e\u57df<\/a> &raquo; <a href=\"https:\/\/www.hefeiyu.com\/?p=652\">TIPTOP \u5355\u8eab\u7684\u884c\u80cc\u666f\u989c\u8272\u52a8\u6001\u8bbe\u7f6e\u4f8b\u5b50<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p># Prog. Version..: &#8216;5.25.06-12.01.05(00010)&#8217; # # # Pattern name&#8230;: csfi001demo.4gl # Descriptions&#8230;: \u5355\u8eab\u9ad8\u4eae\u663e\u793ademo # Date &#038;amp [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[26],"tags":[129],"class_list":["post-652","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-129"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/652","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=652"}],"version-history":[{"count":2,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/652\/revisions"}],"predecessor-version":[{"id":929,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/652\/revisions\/929"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=652"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=652"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=652"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}