#include  "#SYSPATHMANDRAGORE+\zInclude\includeChart.h" 
#include  "#SYSPATHMANDRAGORE+\zInclude\IncludeDisplay.h"   	
     <div  $IsVisible_lg :  /* visible only large (screen) */
		DrawWindow : "Win5" , actions : $WinCustom +  $WinMinimize + $WinMaximize  + $WinClose , position : 150,  350,750,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
		 							 url :  UrlMs4Script   /* key word ms4script */
     >;
** ****************************************************************************************** *
** MANDRAGORE PLANETE  
** *******************************************************************************************
text : LCurrentDir , Lnewdb ,table1  ;
Getcurrentdir(LCurrentDir);
Concatene  LCurrentDir,"MANDRAGORElangbasic.db" into Lnewdb;
Concatene  LCurrentDir,"list_of_cities_in_china-44j.xls" into Table1; 
 
 DBDelete{MS4DB}(Lnewdb);
    Display "------------------------------------------------------------------------- " ;
	Display "    Create DB Lang :        China                         " ;
	Display "------------------------------------------------------------------------- " ;
Begin_Block_Rwd  :  full_page
  		<notification : $Bts_Notif_success_Dismissable ,  " ###b Step 2  :  Build MS4 DB - Consolidation of 2 Excel files   ###b "> ; 
	 
			DBconnect{Ado:"xls"}(Table1);
			  IMPORT : New Ms4Db   
		      BEGIN  
        		 	  DBconnect {Ms4DB} (Lnewdb)  , 
		    		  Create:Table("[ms4lang]") 
			  END 
				(" SELECT  *  from  [Sheet1$]   "  );
			Sql_DestroyEnv();
			
	DBconnect {Ms4DB} (Lnewdb) ;
    FormPlus :  DrawGrid,  title :"MS4 DB : MANDRAGORElangbasic.db table : ms4lang   "   use   View  ("[ms4lang]")  ;
End_Block_Rwd ; 		
	 Display "    Create DB Lang : End                  ",Lnewdb ;
	  SetColorText(Hwdisplay:green,black) ;
	  Display "   to continue,  Click here                  ";
    	 enter;