话不多说,先上炫图。
1 *&---------------------------------------------------------------------* 2 *& Report ZCHENH041 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT zchenh042. 10 11 DATA: BEGIN OF data OCCURS 1, 12 text(25), 13 value1 TYPE p, 14 value2 TYPE p, 15 value3 TYPE p, 16 value4 TYPE p, 17 END OF data. 18 19 20 PERFORM frm_get_data. 21 PERFORM frm_show_data. 22 23 24 *&---------------------------------------------------------------------* 25 *& Form FRM_GET_DATA 26 *&---------------------------------------------------------------------* 27 * text 28 *----------------------------------------------------------------------* 29 * --> p1 text 30 * <-- p2 text 31 *----------------------------------------------------------------------* 32 FORM frm_get_data . 33 data-text = '苹果'. 34 data-value1 = 11111. 35 data-value2 = 12345. 36 data-value3 = 15678. 37 data-value4 = 19876. 38 APPEND data. 39 40 data-text = '华为'. 41 data-value1 = 22222. 42 data-value2 = 23456. 43 data-value3 = 26789. 44 data-value4 = 29876. 45 APPEND data. 46 47 data-text = '小米'. 48 data-value1 = 33333. 49 data-value2 = 34567. 50 data-value3 = 36789. 51 data-value4 = 39876. 52 APPEND data. 53 54 data-text = '魅族'. 55 data-value1 = 54321. 56 data-value2 = 55555. 57 data-value3 = 56789. 58 data-value4 = 59876. 59 APPEND data. 60 61 data-text = '联想'. 62 data-value1 = 67890. 63 data-value2 = 66666. 64 data-value3 = 65432. 65 data-value4 = 61234. 66 APPEND data. 67 ENDFORM. " FRM_GET_DATA 68 *&---------------------------------------------------------------------* 69 *& Form FRM_SHOW_DATA 70 *&---------------------------------------------------------------------* 71 * text 72 *----------------------------------------------------------------------* 73 * --> p1 text 74 * <-- p2 text 75 *----------------------------------------------------------------------* 76 FORM frm_show_data . 77 CALL FUNCTION 'GRAPH_3D' 78 EXPORTING 79 dim1 = '手机品牌' 80 dim2 = '月销量' 81 mail_allow = 'X' 82 titl = '国产手机五大厂商手机销量对比' 83 TABLES 84 data = data. 85 ENDFORM. " FRM_SHOW_DATA
1 *&---------------------------------------------------------------------* 2 *& Report ZCHENH041 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT zchenh041. 10 11 DATA: BEGIN OF data OCCURS 1, 12 text(25), 13 value TYPE p, 14 END OF data. 15 16 17 PERFORM frm_get_data. 18 PERFORM frm_show_data. 19 20 21 *&---------------------------------------------------------------------* 22 *& Form FRM_GET_DATA 23 *&---------------------------------------------------------------------* 24 * text 25 *----------------------------------------------------------------------* 26 * --> p1 text 27 * <-- p2 text 28 *----------------------------------------------------------------------* 29 FORM frm_get_data . 30 data-text = '苹果'. 31 data-value = 12345. 32 APPEND data. 33 34 data-text = '华为'. 35 data-value = 22222. 36 APPEND data. 37 38 data-text = '小米'. 39 data-value = 11111. 40 APPEND data. 41 42 data-text = '魅族'. 43 data-value = 54321. 44 APPEND data. 45 46 data-text = '联想'. 47 data-value = 63625. 48 APPEND data. 49 ENDFORM. " FRM_GET_DATA 50 *&---------------------------------------------------------------------* 51 *& Form FRM_SHOW_DATA 52 *&---------------------------------------------------------------------* 53 * text 54 *----------------------------------------------------------------------* 55 * --> p1 text 56 * <-- p2 text 57 *----------------------------------------------------------------------* 58 FORM frm_show_data . 59 CALL FUNCTION 'GRAPH_2D' 60 EXPORTING 61 mail_allow = 'X' 62 so_title = '标题' 63 titl = '2D标题' 64 valt = '手机月销量(中国大陆)' 65 winszx = '60' 66 winszy = '50' 67 TABLES 68 data = data. 69 ENDFORM. " FRM_SHOW_DATA