frmnewdataset.frm

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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmNewDataset 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "新建数据集"
   ClientHeight    =   2385
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4890
   Icon            =   "frmNewDataset.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2385
   ScaleWidth      =   4890
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin MSComDlg.CommonDialog cdlFile 
      Left            =   210
      Top             =   1890
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.ComboBox cmbDatasource 
      Height          =   315
      Left            =   2025
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   315
      Width           =   2235
   End
   Begin VB.TextBox txtDatasetName 
      Height          =   315
      Left            =   2040
      TabIndex        =   3
      Top             =   780
      Width           =   2220
   End
   Begin VB.ComboBox cmbFileType 
      Height          =   315
      Left            =   2040
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   1245
      Width           =   2235
   End
   Begin VB.CommandButton cmdFinish 
      Caption         =   "创建"
      Default         =   -1  'True
      Height          =   375
      Left            =   1305
      TabIndex        =   1
      Tag             =   "3133"
      Top             =   1905
      Width           =   1200
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "放弃"
      Height          =   375
      Left            =   3300
      TabIndex        =   0
      Tag             =   "3058"
      Top             =   1905
      Width           =   1200
   End
   Begin VB.Line Line2 
      BorderColor     =   &H8000000E&
      X1              =   0
      X2              =   4875
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   4875
      Y1              =   1785
      Y2              =   1785
   End
   Begin VB.Label lblFileType 
      Caption         =   "数据集类型"
      Height          =   210
      Left            =   435
      TabIndex        =   7
      Tag             =   "3113"
      Top             =   1320
      Width           =   1170
   End
   Begin VB.Label lblDataset 
      Caption         =   "数据集名称"
      Height          =   225
      Left            =   435
      TabIndex        =   6
      Tag             =   "3182"
      Top             =   840
      Width           =   1170
   End
   Begin VB.Label lblDatasource 
      Caption         =   "目标数据源"
      Height          =   225
      Left            =   435
      TabIndex        =   5
      Tag             =   "3086"
      Top             =   375
      Width           =   1170
   End
End
Attribute VB_Name = "frmNewDataset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdFinish_Click()
    Dim objDS As soDataSource
    Dim objDt As soDataset
    Dim bResult As Boolean
    Dim strDatasetName As String
    
    Set objDS = frmMain.SuperWorkspace1.Datasources.Item(cmbDatasource.Text)
    If objDS Is Nothing Then
        MsgBox "错误！", vbInformation
        Exit Sub
    End If
    
    '判断数据集名称是否合法
    strDatasetName = Trim$(txtDatasetName.Text)
    If objDS.IsAvailableDatasetName(strDatasetName) = False Then
        MsgBox "数据集名称不合法", vbInformation
        Exit Sub
    End If
    
    '建立数据集
    Select Case cmbFileType.ListIndex + 1
        Case 1: '"点":
            Set objDt = objDS.CreateDataset(strDatasetName, scdPoint, scoDefault)
        Case 2: '"线":
            Set objDt = objDS.CreateDataset(strDatasetName, scdLine, scoDefault)
        Case 3: '"面":
            Set objDt = objDS.CreateDataset(strDatasetName, scdRegion, scoDefault)
        Case 4: '"文本":
            Set objDt = objDS.CreateDataset(strDatasetName, scdText, scoDefault)
    End Select
    
    If objDt Is Nothing Then
        MsgBox "数据集创建失败!", vbInformation
    Else
        If objDt.Type = scdPoint Then
            frmMain.tvwDS.Nodes.Add "A" & frmMain.SuperWorkspace1.Datasources(1).Alias, tvwChild, , objDt.Name, 6
        ElseIf objDt.Type = scdLine Then
            frmMain.tvwDS.Nodes.Add "A" & frmMain.SuperWorkspace1.Datasources(1).Alias, tvwChild, , objDt.Name, 5
        ElseIf objDt.Type = scdRegion Then
            frmMain.tvwDS.Nodes.Add "A" & frmMain.SuperWorkspace1.Datasources(1).Alias, tvwChild, , objDt.Name, 9
        ElseIf objDt.Type = scdText Then
            frmMain.tvwDS.Nodes.Add "A" & frmMain.SuperWorkspace1.Datasources(1).Alias, tvwChild, , objDt.Name, 2
        End If
        frmMain.tvwDS.Nodes(1).Expanded = True
    End If
    
    Unload Me
End Sub

Private Sub Form_Load()
    Dim strDataSourceName() As String
    Dim nDatasourceCount As Integer
    Dim Datasource As soDataSource
    
    '添加数据源信息
    For Each Datasource In frmMain.SuperWorkspace1.Datasources
        cmbDatasource.AddItem Datasource.Alias
    Next
    cmbDatasource.ListIndex = 0
    
    '添加数据集类型(本示范程序仅支持点、线、面、文本)
    With cmbFileType
        .AddItem "点"
        .AddItem "线"
        .AddItem "面"
        .AddItem "文本"
    End With
    
    txtDatasetName.Text = "Dataset1"
End Sub