SAP 图形页面详解编程语言

 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