Dim pFeatureWorkspace As IFeatureWorkspace
Dim pFeatureDataset As IFeatureDataset
Dim pfeatureclass As IFeatureClass
Dim pFLyr As IFeatureLayer
Dim strname As String
'数据库矢量数据=========================================
'打开矢量数据的workspace,通过SDE来打开数据库
Set pFeatureWorkspace = openSDEWorkspace("China250000")
Set pFLyr = New featurelayer
strname = "changchun"
Set pFLyr.featureclass = pFeatureWorkspace.OpenFeatureClass(strname) '打开选择的featureclass
pFLyr.Name = pFLyr.featureclass.AliasName '对图层进行命名
Set pGeoDs = pFLyr
Set pClone = pGeoDs.SpatialReference
If pClone.IsEqual(frmMain.MapMain.SpatialReference) Or blnNoAgain Then '2006-5-09
Call frmMain.MapMain.AddLayer(pFLyr) '添加图层
'数据库栅格数据============================================
Dim pRasterDataset As IRasterDataset
Dim strRasterName As String
Set pRasterDataset = GetRasterFromSDE(mdlFunction.Sdeserver, "5151/tcp", "China250000",mdlFunction.SdeUser, mdlFunction.SdePwd, "China250000.SDE.Changchun"
Set pRasLyr = New RasterLayer
pRasLyr.CreateFromDataset pRasterDataset
strRasterName = GetMapNumName(pRasLyr.Name)
pRasLyr.Name = strRasterName
Set pGeoDs = pRasLyr
Set pClone = pGeoDs.SpatialReference
'
If pClone.IsEqual(frmMain.MapMain.SpatialReference) Then '2006-5-09
Call frmMain.MapMain.AddLayer(pRasLyr)
ElseIf MsgBox("所加图层与当前控件空间参考不同,是否继续添加", vbOKCancel, "信息提示") = vbOK Then
Set frmMain.MapMain.SpatialReference = pClone
Call frmMain.MapMain.AddLayer(pRasLyr)
End If
Dim pFeatureDataset As IFeatureDataset
Dim pfeatureclass As IFeatureClass
Dim pFLyr As IFeatureLayer
Dim strname As String
'数据库矢量数据=========================================
'打开矢量数据的workspace,通过SDE来打开数据库
Set pFeatureWorkspace = openSDEWorkspace("China250000")
Set pFLyr = New featurelayer
strname = "changchun"
Set pFLyr.featureclass = pFeatureWorkspace.OpenFeatureClass(strname) '打开选择的featureclass
pFLyr.Name = pFLyr.featureclass.AliasName '对图层进行命名
Set pGeoDs = pFLyr
Set pClone = pGeoDs.SpatialReference
If pClone.IsEqual(frmMain.MapMain.SpatialReference) Or blnNoAgain Then '2006-5-09
Call frmMain.MapMain.AddLayer(pFLyr) '添加图层
'数据库栅格数据============================================
Dim pRasterDataset As IRasterDataset
Dim strRasterName As String
Set pRasterDataset = GetRasterFromSDE(mdlFunction.Sdeserver, "5151/tcp", "China250000",mdlFunction.SdeUser, mdlFunction.SdePwd, "China250000.SDE.Changchun"
Set pRasLyr = New RasterLayer
pRasLyr.CreateFromDataset pRasterDataset
strRasterName = GetMapNumName(pRasLyr.Name)
pRasLyr.Name = strRasterName
Set pGeoDs = pRasLyr
Set pClone = pGeoDs.SpatialReference
'
If pClone.IsEqual(frmMain.MapMain.SpatialReference) Then '2006-5-09
Call frmMain.MapMain.AddLayer(pRasLyr)
ElseIf MsgBox("所加图层与当前控件空间参考不同,是否继续添加", vbOKCancel, "信息提示") = vbOK Then
Set frmMain.MapMain.SpatialReference = pClone
Call frmMain.MapMain.AddLayer(pRasLyr)
End If