frmselectiontodataset.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Begin VB.Form frmSelectionToDataset 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择集->数据集"
   ClientHeight    =   1965
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3225
   Icon            =   "frmSelectionToDataset.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   3225
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Caption         =   "保存数据集到"
      Height          =   1380
      Left            =   30
      TabIndex        =   2
      Tag             =   "3050"
      Top             =   -15
      Width           =   3150
      Begin VB.TextBox txtDtName 
         Height          =   300
         Left            =   1050
         TabIndex        =   4
         Top             =   795
         Width           =   1845
      End
      Begin VB.ComboBox cmbDsName 
         Height          =   315
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   375
         Width           =   1845
      End
      Begin VB.Label Label2 
         Alignment       =   1  'Right Justify
         Caption         =   "数据集"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Tag             =   "3052"
         Top             =   855
         Width           =   750
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "数据源"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Tag             =   "3051"
         Top             =   435
         Width           =   750
      End
   End
   Begin VB.CommandButton btnCancel 
      Caption         =   "取消"
      Height          =   405
      Left            =   1860
      TabIndex        =   1
      Tag             =   "3058"
      Top             =   1455
      Width           =   1110
   End
   Begin VB.CommandButton btnOK 
      Caption         =   "确定"
      Enabled         =   0   'False
      Height          =   405
      Left            =   420
      TabIndex        =   0
      Tag             =   "3057"
      Top             =   1455
      Width           =   1110
   End
End
Attribute VB_Name = "frmSelectionToDataset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnCancel_Click()
    Unload Me
End Sub

Private Sub btnOK_Click()
    Dim objRecordset As soRecordset
    Dim objDS As soDataSource
    Dim objDestDt As soDataset
    Dim iImgIndex As Integer

    Set objDS = FrmMain.SuperWorkspace1.Datasources.Item(cmbDsName.Text)
    If objDS Is Nothing Then
        MsgBox "数据源" & cmbDsName.Text & vbCrLf & "错误！", vbInformation
        Exit Sub
    End If
    If objDS.IsAvailableDatasetName(Trim$(txtDtName.Text)) = False Then
        Set objDS = Nothing
        MsgBox "数据集名非法!", vbInformation                   '数据集名非法
        txtDtName.SetFocus
        Exit Sub
    End If

    Set objRecordset = FrmMain.SuperMap1.selection.ToRecordset(False)
    If objRecordset Is Nothing Then
        MsgBox "错误！", vbInformation
        Exit Sub
    End If
    '转换
    Set objDestDt = objDS.RecordsetToDataset(objRecordset, Trim$(txtDtName.Text))
    If objDestDt Is Nothing Then
        MsgBox "转换失败！, vbInformation"
    Else
        '确定数据集类型
        Select Case objDestDt.Type
            Case scdPoint
                iImgIndex = 10
            Case scdLine
                iImgIndex = 12
            Case scdRegion
                iImgIndex = 4
            Case scdText
                iImgIndex = 11
            Case scdCAD
                iImgIndex = 13
            Case scdNetwork
                iImgIndex = 3
            Case scdTIN
                iImgIndex = 6
            Case scdECW
                iImgIndex = 16
            Case scdMrSID
                iImgIndex = 17
            Case Else
                  iImgIndex = 7
        End Select
    
        FrmMain.tvwData.Nodes.Add objDS.Alias, tvwChild, , objDestDt.Name, iImgIndex

    End If
    
    Set objDS = Nothing
    Set objRecordset = Nothing
    Set objDestDt = Nothing
    
    Unload Me
End Sub

Private Sub Form_Load()
    '初始化窗体
    Dim objDS As soDataSource
    
    With FrmMain.SuperWorkspace1
        For Each objDS In .Datasources
            cmbDsName.AddItem objDS.Alias
        Next
    End With
    If cmbDsName.ListCount > 0 Then cmbDsName.ListIndex = 0
    
    Set objDS = Nothing
End Sub

Private Sub txtDtName_Change()
    If Trim$(txtDtName.Text) = "" Then
        btnOK.Enabled = False
    Else
        btnOK.Enabled = True
    End If
End Sub