MS4 Script source : GET-02-01BASICCREATEDB.MS4
01 | #includeSYSpathMS4BI "\zInclude\includeChart.h" 
02 | #includeSYSpathMS4BI "\zInclude\IncludeDisplay.h"       
03 |      <div  $IsVisible_lg :  /* visible only large (screen) */
04 |         DrawWindow : "Win5" , actions : $WinCustom +  $WinMinimize + $WinMaximize  + $WinClose , position : 150,  350,750,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
05 |                                       url :  UrlMs4Script   /* key word ms4script */
06 |      >;
07 | ** ****************************************************************************************** *
08 | ** MONDAY SOFTWARE  
09 | ** *******************************************************************************************
10 | text : LCurrentDir , Lnewdb ,table1  ;
11 | Getcurrentdir(LCurrentDir);
12 | Concatene  LCurrentDir,"ms4bilangbasic.db" into Lnewdb;
13 | Concatene  LCurrentDir,"list_of_cities_in_china-44j.xls" into Table1; 
14 |  
15 |  DBDelete{MS4DB}(Lnewdb);
16 |     Display "------------------------------------------------------------------------- " ;
17 |     Display "    Create DB Lang :        China                         " ;
18 |     Display "------------------------------------------------------------------------- " ;
19 | Begin_Block_Rwd  :  full_page
20 |           <notification : $Bts_Notif_success_Dismissable ,  " ###b Step 2  :  Build MS4 DB - Consolidation of 2 Excel files   ###b "> ; 
21 |      
22 |             ConnectDB{Ado:"xls"}(Table1);
23 |               IMPORT : New Ms4Db   
24 |               BEGIN  
25 |                        ConnectDB {Ms4DB} (Lnewdb)  , 
26 |                       Create:Table("[ms4lang]") 
27 |               END 
28 |                 (" SELECT  *  from  [Sheet1$]   "  );
29 |             DestroyEnvSql();
30 |             
31 |     ConnectDB {Ms4DB} (Lnewdb) ;
32 |     FormShow :  DrawGrid,  title :"MS4 DB : ms4bilangbasic.db table : ms4lang   "   use   View  ("[ms4lang]")  ;
33 | End_Block_Rwd ;         
34 |      Display "    Create DB Lang : End                  ",Lnewdb ;
35 |       SetColorText(Hwdisplay:green,black) ;
36 |       Display "   press enter to continue or Click here                  ";
37 |          enter;
38 | 
39 |      printSwExe();
40 |    
41 |  
42 |