#include  "#SYSPATHMANDRAGORE+\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\99-DATABASE\VersionADO\300-00-CreateDBDemoExcel.ms4" 

 Array    GeoMapRef  Occurs 40 { char StringEx1:20;CHAR stringVal :128; integer IntValEx1;} ;
float : x1 dec(6) := 36.706776;
 text : Province1:="Weifang";
 integer : TRUE :=1;
** ************************************************************
** DISPLAY CHART  GeoMapRef
** ***********************************************************	

** ************************************************************
** DISPLAY CHART  LEAFLET
** ***********************************************************	
 Begin_Block_Rwd  :  margin_page  
  Setting :
 	Backgroundcolor : "GAINSBORO" ;
  
 begin_sw
 \n\l\n
 <``   #     MANDRAGORE  : GEOMAP --(Leaflet map)--        #  ``>
 end_sw		; 
	 BEGIN
	Perform InsertTable(void);
 	FormLeaflet : DRAWGEOMAP ID: "mymap", 
	SetView(27.934572,116.312164), Zoom : 4.3 ,
	height :"450px",width : "650px"
	use table ("[TABEXAMPLE]", field :"longstring" )   
	begin_sw
   
		var influence = L.circle([39.913818,116.363625], 160000).addTo(mymap);
		var circle = L.circle([33.391376,117.557678], {
						color: 'red',
						fillColor: '#f03',
						fillOpacity: 0.5,
						radius: 150000
						}).addTo(mymap);
					circle.bindPopup("I am a circleXXXXXXXXXXXXXXXXXXX.");
		var polygon = L.polygon([
					[27.518280, 120.425766],
					[32.540447,119.243889],
					[27.934572,116.312164]
					]).addTo(mymap);

					polygon.bindPopup("I am a polygon.");

					marker.bindPopup("<b>Hello world!</b><br>I am a popup.").openPopup();

 
					var popup = L.popup()
					.setLatLng([35.8617,104.1954])
					.setContent("CHINA.")
					.openOn(mymap);
   end_sw		; 
	    Ms4_sql{ms4db} ( " Drop  Table  [TABEXAMPLE] ");
	   	position  : relative,auto,auto : 
	    <url : "https://leafletjs.com/"   
         button :    $Bts_primary_btn_lg_block, icon :$fa_check , ">link>Help  Map (Leaflet Map)">;

		END;
End_Block_Rwd ;			
 	
	Exit  ;
proc InsertTable(void)
begin_proc	
	** For example !
 
	Str_Format(GeoMapRef[0].stringval,"var marker = L.marker([39.913818,116.363625]).addTo(mymap).bindPopup(\"<b>Beijing</b>\");");
	Str_Format(GeoMapRef[1].stringval,"L.marker([23.020536,113.751762]).addTo(mymap).bindPopup(\"<b>Dongguan</b>\");");
	Str_Format(GeoMapRef[2].stringval,"L.marker([31.752365,104.014374]).addTo(mymap).bindPopup(\"<b>Fushun</b>\");");
	Str_Format(GeoMapRef[3].stringval,"L.marker([27.934572,116.312164]).addTo(mymap).bindPopup(\"<b>Fuzhou</b>\");");
	Str_Format(GeoMapRef[4].stringval,"L.marker([22.578737,113.081902]).addTo(mymap).bindPopup(\"<b>Jiangmen</b>\");");
	Str_Format(GeoMapRef[5].stringval,"L.marker([24.919493,102.478493]).addTo(mymap).bindPopup(\"<b>Kunming</b>\");");
	Str_Format(GeoMapRef[6].stringval,"L.marker([35.102074,118.345329]).addTo(mymap).bindPopup(\"<b>Linyi</b>\");");
	Str_Format(GeoMapRef[7].stringval,"L.marker([29.868336,121.543991]).addTo(mymap).bindPopup(\"<b>Ningbo</b>\");");
	Str_Format(GeoMapRef[8].stringval,"L.marker([31.267401,121.522179]).addTo(mymap).bindPopup(\"<b>Shanghai</b>\");");
	Str_Format(GeoMapRef[9].stringval,"L.marker([22.731857,114.255753]).addTo(mymap).bindPopup(\"<b>Shenzhen</b>\"); ");
	Str_Format(GeoMapRef[10].stringval,"L.marker([33.391376,117.557678]).addTo(mymap).bindPopup(\"<b>Suzhou</b>\");");
	Str_Format(GeoMapRef[11].stringval,"L.marker([%f,119.161758]).addTo(mymap).bindPopup(\"<b>%s</b>\"); ",x1,province1);
	Str_Format(GeoMapRef[12].stringval,"L.marker([27.518280,120.425766]).addTo(mymap).bindPopup(\"<b>Wenzhou</b>\");");
	Str_Format(GeoMapRef[13].stringval,"L.marker([31.565372,120.327583]).addTo(mymap).bindPopup(\"<b>Wuxi</b>\");");
	Str_Format(GeoMapRef[14].stringval,"L.marker([24.479834,118.089424]).addTo(mymap).bindPopup(\"<b>Xiamen</b>\");");
	Str_Format(GeoMapRef[15].stringval,"L.marker([33.347317,120.163658]).addTo(mymap).bindPopup(\"<b>Yancheng</b>\");");
	Str_Format(GeoMapRef[16].stringval,"L.marker([32.540447,119.243889]).addTo(mymap).bindPopup(\"<b>Yangzhou</b>\");");
	Str_Format(GeoMapRef[17].stringval,"L.marker([41.158558,114.720085]).addTo(mymap).bindPopup(\"<b>Zhangjiakou</b>\");");
	Str_Format(GeoMapRef[18].stringval,"L.marker([22.516998,113.392723]).addTo(mymap).bindPopup(\"<b>Zhongshan</b>\");");
	
  DBconnect{Ms4DB}(LEnvDemoExcelDB); 
       TableExist{ms4db}("TABEXAMPLE") Return  ( msgsql) ; /* 2 return codes : TRUE or FALSE */
	 		if ( msgsql = TRUE) then Ms4_sql{ms4db} ( " Drop  Table  [TABEXAMPLE] "); end_if ;
	
   Ms4_SQL{ms4DB}("CREATE TABLE [TABEXAMPLE] "+ 
"(      [INDEXID] TEXT,"+ 
"       [LONGSTRING] char(1024),"+ 
"       PRIMARY KEY (`INDEXID`) )");  
 
      Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX0','%s')",GeoMapRef[0].stringval);
      Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX1','%s')",GeoMapRef[1].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX2','%s')",GeoMapRef[2].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX3','%s')",GeoMapRef[3].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX4','%s')",GeoMapRef[4].stringval);
      Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX5','%s')",GeoMapRef[5].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX6','%s')",GeoMapRef[6].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX7','%s')",GeoMapRef[7].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX8','%s')",GeoMapRef[8].stringval);
      Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX9','%s')",GeoMapRef[9].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX10','%s')",GeoMapRef[10].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX11','%s')",GeoMapRef[11].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX12','%s')",GeoMapRef[12].stringval);
      Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX13','%s')",GeoMapRef[13].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX14','%s')",GeoMapRef[14].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX15','%s')",GeoMapRef[15].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX16','%s')",GeoMapRef[16].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX17','%s')",GeoMapRef[17].stringval);
	  Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX18','%s')",GeoMapRef[18].stringval);
end_proc