01 |
02 | ** ****************************************************************************************** *
03 | ** MANDRAGORE PLANETE
04 | ** *******************************************************************************************
05 |
06 | #include
"#SYSPATHMS4BI
+\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\99-DATABASE\VersionADO\300-00-CreateDBDemoExcel.ms4
"
07 |
08 |
09 | BEGIN
10 | integer
zperc := 80
;
11 | integer
ztotalPerc := 100
;
12 | text
Tperc ;
13 | DBconnect
{Ms4DB
}(LEnvDemoExcelDB);
14 | Ms4_SQLFetch
{Ms4DB
}("SELECT
* FROM
[ms4EmplPercBusiness2012] where
lastname = 'Peacock' ")
15 | Row_ForEach
:
16 | I++;
17 | Require
SetColorText
(Hwdisplay
:Yellow,black) ;
18 | zLastName := Column_GetData
:1
,CHAR
;
19 | Tperc := Column_GetData
:2
,CHAR
;
20 | Str_num(Tperc, zperc ) ;
21 |
22 | Display
"---[ms4EmplTotalBusiness]-------Row",i, "----(Value
Column
2
) are :---: ", zLastName,"----(Value
Column
3
) are : ",zperc;
23 |
24 | End_Row_ForEach
;
25 | END
;
26 |
27 | Display
" more Peacock % Business ", zperc ;
28 | ** ************************************************************
29 | ** DISPLAY RADIAL GAUGE
30 | ** ***********************************************************
31 |
32 | 5
F0;">FormPlus
: 5
F0;">DrawRadialGauge
,
5
F0;">
5
F0;">title : " Radial Gauge Peacock " ,
5
F0;">
5
F0;">Minorunit :
5
,
StartAngle
:
-30
,
endAngle
:
210
,
max
: ztotalPerc ,
value
: zperc ;
33 | display
"end
......";
34 |
35 |
36 |
37 |
38 |