根据内表数据做图表

制作图表有两种方法:

1)调用 GRAPH_MATRIX_2D,根据内表数据做2维图,内表的第一个字段是key

DATABEGIN OF gt_itab OCCURS 0,
        stu_name TYPE LENGTH 20,
        data1 TYPE f,
        data2 TYPE f,
        data3 TYPE f,
        data4 TYPE f,
        data5 TYPE f,
        data6 TYPE f,
END OF gt_itab.

DATABEGIN OF gt_options OCCURS 0,
        option TYPE LENGTH 20,
       END OF gt_options.
DATABEGIN OF gt_cols OCCURS 0,
      col_name TYPE LENGTH 15,
      END OF gt_cols.

START-OF-SELECTION.
  PERFORM sub_fill_data.
  PERFORM sub_write_chart.


*&---------------------------------------------------------------------*
*&      Form  SUB_FILL_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_fill_data .
  gt_itab-stu_name 'ZhangSan'.
  gt_itab-data1 '70.5'.
*  gt_itab-data2 = '86.5'.
*  gt_itab-data3 = '60'.
*  gt_itab-data4 = '68'.
*  gt_itab-data5 = '92.5'.
*  gt_itab-data6 = '83'.
  APPEND gt_itab.

  gt_itab-stu_name 'LiSi'.
  gt_itab-data1 '45.5'.
*  gt_itab-data2 = '53'.
*  gt_itab-data3 = '58'.
*  gt_itab-data4 = '60.5'.
*  gt_itab-data5 = '60'.
*  gt_itab-data6 = '65'.
  APPEND gt_itab.

  gt_itab-stu_name 'WangWu'.
  gt_itab-data1 '76.5'.
*  gt_itab-data2 = '78.5'.
*  gt_itab-data3 = '83.5'.
*  gt_itab-data4 = '72'.
*  gt_itab-data5 = '68'.
*  gt_itab-data6 = '74'.
  APPEND gt_itab.

  gt_itab-stu_name 'ZhaoLiu'.
  gt_itab-data1 '70'.
*  gt_itab-data2 = '80'.
*  gt_itab-data3 = '75'.
*  gt_itab-data4 = '69'.
*  gt_itab-data5 = '65'.
*  gt_itab-data6 = '78'.
  APPEND gt_itab.

  gt_itab-stu_name 'SunQi'.
  gt_itab-data1 '92'.
*  gt_itab-data2 = '95'.
*  gt_itab-data3 = '91'.
*  gt_itab-data4 = '98'.
*  gt_itab-data5 = '98.5'.
*  gt_itab-data6 = '99.5'.
  APPEND gt_itab.

  gt_itab-stu_name 'ZhouBa'.
  gt_itab-data1 '75'.
*  gt_itab-data2 = '77'.
*  gt_itab-data3 = '80'.
*  gt_itab-data4 = '83'.
*  gt_itab-data5 = '75'.
*  gt_itab-data6 = '86'.
  APPEND gt_itab.

  gt_itab-stu_name 'LiuJiu'.
  gt_itab-data1 '30'.
*  gt_itab-data2 = '25.5'.
*  gt_itab-data3 = '22.5'.
*  gt_itab-data4 = '28'.
*  gt_itab-data5 = '35'.
*  gt_itab-data6 = '30'.
  APPEND gt_itab.
  gt_options-option 'P2TYPE = LN'.
  APPEND gt_options.
ENDFORM.                    " SUB_FILL_DATA

*&---------------------------------------------------------------------*
*&      Form  SUB_WRITE_CHART
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_write_chart .
*  CALL FUNCTION 'GRAPH_MATRIX_3D'
*    EXPORTING
*      col1   = 'JANUARY'
*      col2   = 'FEBRUARY'
*      col3   = 'MARCH'
*      col4   = 'APRIL'
*      col5   = 'MAY'
*      col6   = 'June'
*      titl   = 'Students exam results chart'
*    TABLES
*      data   = gt_itab[]
*      opts   = gt_options
*    EXCEPTIONS
*      OTHERS = 1.

  CALL FUNCTION 'GRAPH_MATRIX_2D'
    TABLES
      data              gt_itab[]
      opts              gt_options
      tcol              gt_cols[]
   EXCEPTIONS
     COL_INVALID       1
     OPT_INVALID       2
     OTHERS            3
            .
  IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " SUB_WRITE_CHART

 

 

2)调用GRAPH_MATRIX_3D 做3维图,最多6个column

DATABEGIN OF gt_itab OCCURS 0,
        stu_name TYPE LENGTH 20,
        data1 TYPE f,
        data2 TYPE f,
        data3 TYPE f,
        data4 TYPE f,
        data5 TYPE f,
        data6 TYPE f,
END OF gt_itab.

DATABEGIN OF gt_options OCCURS 0,
        option TYPE LENGTH 20,
       END OF gt_options.
DATABEGIN OF gt_cols OCCURS 0,
      col_name TYPE LENGTH 15,
      END OF gt_cols.

START-OF-SELECTION.
  PERFORM sub_fill_data.
  PERFORM sub_write_chart.


*&---------------------------------------------------------------------*
*&      Form  SUB_FILL_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_fill_data .
  gt_itab-stu_name 'ZhangSan'.
  gt_itab-data1 '70.5'.
  gt_itab-data2 '86.5'.
  gt_itab-data3 '60'.
  gt_itab-data4 '68'.
  gt_itab-data5 '92.5'.
  gt_itab-data6 '83'.
  APPEND gt_itab.

  gt_itab-stu_name 'LiSi'.
  gt_itab-data1 '45.5'.
  gt_itab-data2 '53'.
  gt_itab-data3 '58'.
  gt_itab-data4 '60.5'.
  gt_itab-data5 '60'.
  gt_itab-data6 '65'.
  APPEND gt_itab.

  gt_itab-stu_name 'WangWu'.
  gt_itab-data1 '76.5'.
  gt_itab-data2 '78.5'.
  gt_itab-data3 '83.5'.
  gt_itab-data4 '72'.
  gt_itab-data5 '68'.
  gt_itab-data6 '74'.
  APPEND gt_itab.

  gt_itab-stu_name 'ZhaoLiu'.
  gt_itab-data1 '70'.
  gt_itab-data2 '80'.
  gt_itab-data3 '75'.
  gt_itab-data4 '69'.
  gt_itab-data5 '65'.
  gt_itab-data6 '78'.
  APPEND gt_itab.

  gt_itab-stu_name 'SunQi'.
  gt_itab-data1 '92'.
  gt_itab-data2 '95'.
  gt_itab-data3 '91'.
  gt_itab-data4 '98'.
  gt_itab-data5 '98.5'.
  gt_itab-data6 '99.5'.
  APPEND gt_itab.

  gt_itab-stu_name 'ZhouBa'.
  gt_itab-data1 '75'.
  gt_itab-data2 '77'.
  gt_itab-data3 '80'.
  gt_itab-data4 '83'.
  gt_itab-data5 '75'.
  gt_itab-data6 '86'.
  APPEND gt_itab.

  gt_itab-stu_name 'LiuJiu'.
  gt_itab-data1 '30'.
  gt_itab-data2 '25.5'.
  gt_itab-data3 '22.5'.
  gt_itab-data4 '28'.
  gt_itab-data5 '35'.
  gt_itab-data6 '30'.
  APPEND gt_itab.
  gt_options-option 'P2TYPE = LN'.
  APPEND gt_options.
ENDFORM.                    " SUB_FILL_DATA

*&---------------------------------------------------------------------*
*&      Form  SUB_WRITE_CHART
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM sub_write_chart .
  CALL FUNCTION 'GRAPH_MATRIX_3D'
    EXPORTING
      col1   'JANUARY'
      col2   'FEBRUARY'
      col3   'MARCH'
      col4   'APRIL'
      col5   'MAY'
      col6   'June'
      titl   'Students exam results chart'
    TABLES
      data   gt_itab[]
      opts   gt_options
    EXCEPTIONS
      OTHERS 1.

*  CALL FUNCTION 'GRAPH_MATRIX_2D'
*    TABLES
*      data              = gt_itab[]
*      opts              = gt_options
*      tcol              = gt_cols[]
*   EXCEPTIONS
*     COL_INVALID       = 1
*     OPT_INVALID       = 2
*     OTHERS            = 3
*            .
*  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*  ENDIF.

ENDFORM.                    " SUB_WRITE_CHART

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值