01 | 
02 | ** ****************************************************************************************** *
03 | **MS DESKTOP BI : Excel no BI
04 | ** *******************************************************************************************
05 | #include  "#SYSPATHMS4BI+\zInclude\IncludeDisplay.h"
06 | #include  "#SYSPATHMS4BI+\zInclude\includeChart.h" 
07 |    
08 |    <div  $IsVisible_lg :  /* visible only large (screen) */
09 |         DrawWindow : "Win012" , actions : $WinCustom +  $WinMinimize + $WinMaximize + $WinClose  , position : 150,  550,350,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
10 |                                       url :  UrlMs4Script   /* key word ms4script */
11 |     >;
12 |  
13 | Char : LCurrentDir:256, LcurrentDirExcel :256   ;
14 | integer : true :=1;
15 | Getcurrentdir(LCurrentDir);
16 | Concatene  LCurrentDir,"\japaneseExample.xls" into LcurrentDirExcel;
17 |  
18 |  Display "SELECT * FROM [中国最大の都市のリスト$]   "  ;
19 | Begin_Block_Rwd  :  full_page
20 |  
21 |         <notification : $Bts_Notif_info_Dismissable ,  " ###b Step 1  :  Basic Query Excel file    ###b  "> ;
22 |  
23 |      BEGIN
24 |         SetUniCode(True);
25 |         DBconnect{Ado:"xls"}(LcurrentDirExcel);
26 |         Ms4_Query: Web{Ado:"xls"}
27 |         Option  : 
28 |         BEGIN 
29 |             Style :$METRO  
30 |          END 
31 |         ("SELECT * FROM [中国最大の都市のリスト$]     " );
32 |      END ;
33 | End_Block_Rwd ;
34 |      Sql_DestroyEnv();
35 |        SetColorText(Hwdisplay:green,black) ;
36 |   Display "   to continue,  Click here                  ";
37 |   enter ;
38 |