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 |         5F0;">FormPlus : 5F0;">DrawRadialGauge, 5F0;">5F0;">title : "  Radial Gauge Peacock "   , 5F0;">5F0;">Minorunit : 5 , StartAngle : -30 , endAngle : 210, max : ztotalPerc ,value  : zperc    ;
33 | display "end......";
34 | 
35 | 
36 |  
37 |  
38 |