** ****************************************************************************************** *
**MS DESKTOP BI : Excel no BI
** *******************************************************************************************
#include  "#SYSPATHMS4BI+\zInclude\IncludeDisplay.h"
#include  "#SYSPATHMS4BI+\zInclude\includeChart.h" 
   
   <div  $IsVisible_lg :  /* visible only large (screen) */
		DrawWindow : "Win012" , actions : $WinCustom +  $WinMinimize + $WinMaximize + $WinClose  , position : 150,  550,350,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
		 							 url :  UrlMs4Script   /* key word ms4script */
    >;
 
Char : LCurrentDir:256, LcurrentDirExcel :256   ;
integer : true :=1;
Getcurrentdir(LCurrentDir);
Concatene  LCurrentDir,"\japaneseExample.xls" into LcurrentDirExcel;
 
 Display "SELECT * FROM [中国最大の都市のリスト$]   "  ;
Begin_Block_Rwd  :  full_page
 
		<notification : $Bts_Notif_info_Dismissable ,  " ###b Step 1  :  Basic Query Excel file    ###b  "> ;
 
	 BEGIN
		SetUniCode(True);
		DBconnect{Ado:"xls"}(LcurrentDirExcel);
		Ms4_Query: Web{Ado:"xls"}
        Option  : 
		BEGIN 
            Style :$METRO  
	 	END 
		("SELECT * FROM [中国最大の都市のリスト$]     " );
     END ;
End_Block_Rwd ;
     Sql_DestroyEnv();
  	 SetColorText(Hwdisplay:green,black) ;
  Display "   to continue,  Click here                  ";
  enter ;