添加数据库中的经纬度信息

C# Code:

复制内容到剪贴板
代码:
MapInfo.Data.SpatialSchemaXY miSpS = new MapInfo.Data.SpatialSchemaXY();
MapInfo.Geometry.CoordSysFactory miCF = new MapInfo.Geometry.CoordSysFactory();
String mbCoordSys;

TableInfoServer ti = new TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=iWD=i","Select * from table1",MapInfo.Data.ServerToolkit.Odbc);

miSpS.XColumn = "xcoord";
miSpS.YColumn = "ycoord";
mbCoordSys = "CoordSys Earth Projection 1, 0";
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys);

ti.SpatialSchema = miSpS;
ti.Temporary = true;

MapInfo.Data.Table StateCapXY = Connection.Catalog.OpenTable(ti);
mapControl1.Map.Load(new MapTableLoader(StateCapXY ));

FeatureLayer _lyr = mapControl1.Map.Layers["StateCapXY"] as FeatureLayer;
MapInfo.Styles.BitmapPointStyle _bitmapSymbol = new MapInfo.Styles.BitmapPointStyle ();
MapInfo.Styles.CompositeStyle cs =new MapInfo.Styles.CompositeStyle();


String bitMapPath = "C:\\Program Files\\MapInfo\\mapx 5.0\\CUSTSYMB";
MapInfo.Styles.StyleRepository styleRepository = MapInfo.Engine.Session.Current.StyleRepository;
MapInfo.Styles.BitmapPointStyleRepository bmpPointStyleRepository = styleRepository.BitmapPointStyleRepository bmpPointStyleRepository.Reload(bitMapPath);
_bitmapSymbol.Name = "AMBU1-32.BMP";
_bitmapSymbol.PointSize = 6;
cs.SymbolStyle = _bitmapSymbol;
MapInfo.Mapping.FeatureOverrideStyleModifier fsm =new MapInfo.Mapping.FeatureOverrideStyleModifier("a",cs);

_lyr.Modifiers.Append(fsm);

VB Code:
复制内容到剪贴板
代码:
Dim miSpS As MapInfo.Data.SpatialSchemaXY = New MapInfo.Data.SpatialSchemaXY
Dim miCF As MapInfo.Geometry.CoordSysFactory = New MapInfo.Geometry.CoordSysFactory
Dim mbCoordSys As String

Dim ti As TableInfoServer = New TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=saWD=zackary", "Select * from tester5", MapInfo.Data.ServerToolkit.Odbc)

miSpS.XColumn = "xcoord"
miSpS.YColumn = "ycoord"
mbCoordSys = "CoordSys Earth Projection 1, 0"
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys)

ti.SpatialSchema = miSpS
ti.Temporary = True
Dim Connection As New MapInfo.Data.MIConnection
Connection.Open()
Dim StateCapXY As MapInfo.Data.Table = Connection.Catalog.OpenTable(ti)
MapControl1.Map.Load(New MapTableLoader(StateCapXY))

Dim _lyr As FeatureLayer = MapControl1.Map.Layers.Item("StateCapXY")
Dim _bitmapSymbol As MapInfo.Styles.BitmapPointStyle = New MapInfo.Styles.BitmapPointStyle
Dim cs As MapInfo.Styles.CompositeStyle = New MapInfo.Styles.CompositeStyle
Dim bitMapPath As String = "C:\Program Files\MapInfo\mapx 5.0\CUSTSYMB"
Dim styleRepository As MapInfo.Styles.StyleRepository = MapInfo.Engine.Session.Current.StyleRepository

Dim bmpPointStyleRepository As MapInfo.Styles.BitmapPointStyleRepository = styleRepository.BitmapPointStyleRepository

bmpPointStyleRepository.Reload(bitMapPath)
_bitmapSymbol.Name = "AMBU1-32.BMP"
_bitmapSymbol.PointSize = 18
cs.SymbolStyle = _bitmapSymbol
Dim fsm As MapInfo.Mapping.FeatureOverrideStyleModifier = New MapInfo.Mapping.FeatureOverrideStyleModifier("a", cs)

_lyr.Modifiers.Append(fsm)