找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2329|回复: 5

网上下的程序如何让它运行起来

[复制链接]
  • TA的每日心情
    开心
    2021-6-23 17:03
  • 签到天数: 11 天

    连续签到: 3 天

    [LV.3]偶尔看看II

    5

    主题

    19

    回帖

    205

    积分

    中级会员

    积分
    205
    发表于 2018-3-14 14:29:33 | 显示全部楼层 |阅读模式
    下面这个带控件的程序该如何操作才能把它加入到QAD菜单中并让它运行进来。
    望高手指点指点!

    本人小白一个,一点QAD操作基础都没有,只会通过process编辑器编辑并运行一些简单代码。
    希望能有详细的操作步骤,先谢了。
    QAD装在LUINX服务器中,版本:3.0

    附:程序代码
    DEFINE VARIABLE w AS HANDLE NO-UNDO.

    CREATE WINDOW w ASSIGN
        WIDTH = 50
        HEIGHT = 5
        MESSAGE-AREA = FALSE
        STATUS-AREA = FALSE.   

    CURRENT-WINDOW = w.

    DEFINE BUTTON btnOK LABEL "OK" SIZE 12 BY 1.2.
    FORM
        "Hello World!" VIEW-AS TEXT AT COL 20 ROW 2
        btnOK AT COL 20 ROW 4
        WITH FRAME f SIZE 50 BY 5 NO-BOX THREE-D.

    VIEW FRAME f.
    ENABLE btnOK WITH FRAME f.
    WAIT-FOR "CHOOSE" OF btnOK.
    DELETE OBJECT w.

    每天进步一点
  • TA的每日心情
    奋斗
    2024-3-21 15:25
  • 签到天数: 1714 天

    连续签到: 1 天

    [LV.Master]伴坛终老

    744

    主题

    1141

    回帖

    3万

    积分

    管理员

    进击的思考者

    积分
    39136
    发表于 2018-3-14 15:36:11 | 显示全部楼层
    你的这段程序是无法挂载到QAD上的,除非你使用的是老版本的GUI界面。
    该会员没有填写今日想说内容.
    回复

    使用道具 举报

  • TA的每日心情
    开心
    2021-6-23 17:03
  • 签到天数: 11 天

    连续签到: 3 天

    [LV.3]偶尔看看II

    5

    主题

    19

    回帖

    205

    积分

    中级会员

    积分
    205
     楼主| 发表于 2018-3-15 09:24:38 | 显示全部楼层
    怎么知道用的是老版本还是新版本的GUI界面。

    新版GUI的代码该怎么写,最好能来一段完整程序示范一下。
    每天进步一点
    回复

    使用道具 举报

  • TA的每日心情
    开心
    2021-6-23 17:03
  • 签到天数: 11 天

    连续签到: 3 天

    [LV.3]偶尔看看II

    5

    主题

    19

    回帖

    205

    积分

    中级会员

    积分
    205
     楼主| 发表于 2018-3-15 09:36:29 | 显示全部楼层
    下面是测试的另一段程序,可以在QAD的progress编辑器中运行。

    DEFINE VARIABLE location LIKE tr_hist.tr_loc.
    DEFINE VARIABLE part LIKE tr_hist.tr_part.
    DEFINE VARIABLE startdate LIKE tr_hist.tr_effdate.
    DEFINE VARIABLE enddate LIKE tr_hist.tr_effdate.
                                    
    REPEAT:
      SET location.
      SET part.
      SET startdate.
      SET enddate.                                                                 

      FOR EACH tr_hist WHERE tr_type = "RCT-TR" and tr_loc = location and tr_part = part and tr_effdate >= startdate and tr_effdate <=enddate BREAK BY tr_part :     
        ACCUMULATE tr_qty_loc (TOTAL BY tr_part).                                       
        IF LAST-OF(tr_part) THEN DISPLAY tr_part tr_loc ACCUM TOTAL BY tr_part tr_qty_loc label "SUM".                                                                 
      END.                                                                           
    END .  
    每天进步一点
    回复

    使用道具 举报

  • TA的每日心情
    开心
    2021-6-23 17:03
  • 签到天数: 11 天

    连续签到: 3 天

    [LV.3]偶尔看看II

    5

    主题

    19

    回帖

    205

    积分

    中级会员

    积分
    205
     楼主| 发表于 2018-3-15 16:46:21 | 显示全部楼层
    adminelvis 发表于 2018-3-14 15:36
    你的这段程序是无法挂载到QAD上的,除非你使用的是老版本的GUI界面。

    看了你的《OpenEdge ABL 语法帮助文档》帖子,终于搞懂了按钮,谢谢!
    每天进步一点
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2024-3-21 15:25
  • 签到天数: 1714 天

    连续签到: 1 天

    [LV.Master]伴坛终老

    744

    主题

    1141

    回帖

    3万

    积分

    管理员

    进击的思考者

    积分
    39136
    发表于 2018-5-14 22:30:20 | 显示全部楼层
    tsliu777 发表于 2018-3-15 16:46
    看了你的《OpenEdge ABL 语法帮助文档》帖子,终于搞懂了按钮,谢谢!

    搞定了就好,自学能力棒棒的
    该会员没有填写今日想说内容.
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|手机版|小黑屋|百度统计|OpenEdgeStudy快乐学习 ( 沪ICP备15012660号 )

    GMT+8, 2024-3-29 09:17 , Processed in 1.145083 second(s), 22 queries .

    Powered by Discuz! X3.5 Licensed

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表