frmidentify.frm

师兄做的一个利用VB结合mapx组件做的超市查询小系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmIdentify 
   Caption         =   "查询结果"
   ClientHeight    =   5055
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3915
   LinkTopic       =   "Form1"
   ScaleHeight     =   5055
   ScaleWidth      =   3915
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid 
      Height          =   4335
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   7646
      _Version        =   393216
      BackColorBkg    =   16777215
      AllowUserResizing=   3
   End
   Begin VB.Label lblCurrentLayer 
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "frmIdentify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.Show 0, frmMain
End Sub

Public Sub InitData(ByVal sCurEditLayerName As String)
  Dim oDS As MapXLib.DataSet
  Dim oLayer As MapXLib.Layer
  Dim oFtr As MapXLib.Feature
  Dim oFtrs As MapXLib.Features
  Dim i As Integer
  
  Me.lblCurrentLayer.Caption = "当前图层:" + sCurEditLayerName
  
  Set oLayer = frmMain.MapDisp.Layers(sCurEditLayerName)
  Set oDS = frmMain.MapDisp.DataSets(sCurEditLayerName)
  
  If oLayer.Selection.Count > 0 Then
    Set oFtrs = oLayer.Selection
  Else
    For Each oLayer In frmMain.MapDisp.Layers
        If oLayer.Selection.Count > 0 Then
            Set oFtrs = oLayer.Selection
        Else
            Exit Sub
        End If
    Next oLayer
  End If
  
  Me.MSFlexGrid.Rows = oDS.fields.Count + 1
  Me.MSFlexGrid.Cols = 2
  
  
  Set oFtr = oFtrs(1)
 
  MSFlexGrid.TextMatrix(0, 0) = "属性名称"
  MSFlexGrid.TextMatrix(0, 1) = "属性值"
  
  For i = 1 To oDS.fields.Count
    Me.MSFlexGrid.TextMatrix(i, 0) = oDS.fields(i).Name
    Me.MSFlexGrid.TextMatrix(i, 1) = oDS.Value(oFtr, i)
  Next i
End Sub