frmimportdatasource1.frm

超图的文件的导入与导出VB开发程序的应用,对地理信息系统开发有益

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmImportDs1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "转入向导1"
   ClientHeight    =   4005
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6525
   Icon            =   "frmImportDatasource1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4005
   ScaleWidth      =   6525
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Tag             =   "2909"
   Begin VB.CommandButton btnBack 
      Caption         =   "上一步"
      Enabled         =   0   'False
      Height          =   375
      Left            =   1815
      TabIndex        =   9
      Tag             =   "3129"
      Top             =   3510
      Width           =   1200
   End
   Begin VB.CheckBox chkProgress 
      Caption         =   "进程条显示"
      Height          =   255
      Left            =   2250
      TabIndex        =   6
      Tag             =   "3110"
      Top             =   2925
      Value           =   1  'Checked
      Width           =   2340
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "放弃"
      Height          =   375
      Left            =   4650
      TabIndex        =   8
      Tag             =   "3058"
      Top             =   3510
      Width           =   1200
   End
   Begin VB.CommandButton btnNext 
      Caption         =   "下一步"
      Default         =   -1  'True
      Height          =   375
      Left            =   3000
      TabIndex        =   7
      Tag             =   "3130"
      Top             =   3510
      Width           =   1200
   End
   Begin VB.Frame Frame1 
      Caption         =   "转入"
      Height          =   2685
      Left            =   2250
      TabIndex        =   10
      Tag             =   "1817"
      Top             =   75
      Width           =   4125
      Begin VB.Frame Frame3 
         Caption         =   "文件"
         Height          =   1560
         Left            =   165
         TabIndex        =   12
         Tag             =   "3127"
         Top             =   975
         Width           =   3795
         Begin VB.ComboBox cmbImportTo 
            Height          =   315
            Left            =   1920
            Style           =   2  'Dropdown List
            TabIndex        =   5
            Top             =   1125
            Width           =   1725
         End
         Begin VB.CommandButton btnOpen 
            Caption         =   ">>"
            Height          =   315
            Left            =   3330
            TabIndex        =   4
            Top             =   645
            Width           =   330
         End
         Begin VB.TextBox txtImportFile 
            Height          =   315
            Left            =   1110
            TabIndex        =   3
            Top             =   645
            Width           =   2235
         End
         Begin VB.ComboBox cmbFileType 
            Height          =   315
            Left            =   1095
            Style           =   2  'Dropdown List
            TabIndex        =   2
            Top             =   195
            Width           =   2580
         End
         Begin VB.Label Label2 
            Caption         =   "目标数据源"
            Height          =   225
            Left            =   120
            TabIndex        =   15
            Tag             =   "3088"
            Top             =   1170
            Width           =   1770
         End
         Begin VB.Label Label3 
            Caption         =   "源 文 件"
            Height          =   225
            Left            =   135
            TabIndex        =   14
            Tag             =   "3128"
            Top             =   690
            Width           =   1005
         End
         Begin VB.Label lblFileType 
            Caption         =   "文件类型"
            Height          =   225
            Left            =   135
            TabIndex        =   13
            Tag             =   "3106"
            Top             =   240
            Width           =   915
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "数据类型"
         Height          =   660
         Left            =   180
         TabIndex        =   11
         Tag             =   "3124"
         Top             =   210
         Width           =   3795
         Begin VB.OptionButton optVector 
            Caption         =   "矢量数据"
            Height          =   210
            Left            =   345
            TabIndex        =   0
            Tag             =   "3125"
            Top             =   315
            Value           =   -1  'True
            Width           =   1725
         End
         Begin VB.OptionButton optGrid 
            Caption         =   "栅格数据"
            Height          =   210
            Left            =   2190
            TabIndex        =   1
            Tag             =   "3126"
            Top             =   315
            Width           =   1305
         End
      End
   End
   Begin MSComDlg.CommonDialog cdlFile 
      Left            =   3675
      Top             =   3330
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3135
      Left            =   150
      Picture         =   "frmImportDatasource1.frx":000C
      Stretch         =   -1  'True
      Top             =   75
      Width           =   1905
   End
   Begin VB.Line Line2 
      BorderColor     =   &H8000000E&
      X1              =   0
      X2              =   6405
      Y1              =   3340
      Y2              =   3340
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   6405
      Y1              =   3330
      Y2              =   3330
   End
End
Attribute VB_Name = "frmImportDs1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=========================================================================================
'数据转入模块
'矢量文件和栅格文件处理方法不同,在窗体上放置一个label控件记录转入文件的属性,以便下一步处理
'转入数据源时需要检验数据源名称是否重复.bVector用于记录所选文件类型,
'为True时,表示要转入的是Vector(矢量)文件;为False时,表示要转入Grid(栅格)文件.
'=========================================================================================
Option Explicit
Public bVector As Boolean            '记录文件类型
Dim iOldIndex As Integer

Private Sub btnCancel_Click()
    Unload Me
End Sub

Private Sub btnNext_Click()
    '判断待转换文件是否存在
    If Not FileExist(txtImportFile.Text) Then
        MsgBox txtImportFile.Text & "文件不存在,请重新输入!", vbCritical
        txtImportFile.SetFocus
        Exit Sub
    End If
    '判断数据源名是否有效
    If cmbImportTo.Text = "" Then
        MsgBox "无效的数据源名称!", vbCritical
        Exit Sub
    End If
    bVector = IIf(optVector.Value, True, False)
    '调用下一个窗体
    Me.Hide
    'E00不能转为CAD图层
    If cmbFileType.ListIndex = 3 Then frmImportDs2_V.optCADLayer.Enabled = False
     
    Select Case bVector
        Case True
            Select Case cmbFileType.ListIndex
                Case 0
                    frmImportDs2_V.cmbUnit.Enabled = False
                    frmImportDs2_V.cmbUnit.BackColor = &H80000004
                    frmImportDs2_V.chkNodesAttribTable.Enabled = False
                Case 3, 5                           'E00 和 Dxf
                    frmImportDs2_V.chkNodesAttribTable.Enabled = True
                Case Else
                    frmImportDs2_V.chkNodesAttribTable.Enabled = False
            End Select
            frmImportDs2_V.Show vbModal
        Case False
            frmImportDs2_G.Show vbModal, Me
    End Select
End Sub

Private Sub btnOpen_Click()
    Dim cmlFilter As String
    cmlFilter = cmbFileType.Text & "|" & Mid$(cmbFileType.Text, InStr(cmbFileType.Text, "(") + 1, 5)
    cdlFile.CancelError = False
    cdlFile.FileName = ""
    cdlFile.Filter = cmlFilter
    cdlFile.DialogTitle = "打开"
    cdlFile.Flags = cdlOFNFileMustExist
    cdlFile.ShowOpen
    txtImportFile.Text = cdlFile.FileName
    btnNext.SetFocus
End Sub

Private Sub cmbFileType_Click()
    If iOldIndex <> cmbFileType.ListIndex Then
        txtImportFile.Text = ""
    End If
    iOldIndex = cmbFileType.ListIndex
End Sub

Private Sub Form_Load()
    Dim objDS As soDataSource
    '获取主窗体数据源信息,添加到组合框
    cmbImportTo.Clear
    With frmMain.SuperWorkspace1
        For Each objDS In .Datasources
            cmbImportTo.AddItem objDS.Alias
        Next
    End With
    If frmMain.tvwSpace.SelectedItem.Parent.Text = "工作空间" Then
        cmbImportTo.Text = frmMain.tvwSpace.SelectedItem.Text
    Else
        cmbImportTo.Text = frmMain.tvwSpace.SelectedItem.Parent.Text
    End If
    Set objDS = Nothing
    iOldIndex = -1
    optVector_Click
End Sub

Private Sub optGrid_Click()
    cmbFileType.Clear
    With cmbFileType
        .AddItem "Bmp 图像文件(*.bmp)"                  '"Bmp 图像文件 (*.bmp)"
        .AddItem "Grid 图像文件(*.grd)"
        .AddItem "JPG 图像文件(*.jpg)"                  '"JPG 图像文件 (*.jpg)"
        .AddItem "MrSid 图像文件(*.sid)"                ' "MrSid 图像文件 (*.sid)"
        .AddItem "WMF 图像文件(*.wmf)"
        .AddItem "Idrisi 栅格文件(*.img)"
        .AddItem "Erdas 影像文件(*.img)"
        .AddItem "TIF 图像文件(*.tif)"                   '"TIF文件(*.tif)"
        .ListIndex = 0
    End With
    iOldIndex = cmbFileType.ListIndex
    txtImportFile.Text = ""
End Sub

Private Sub optVector_Click()
    cmbFileType.Clear
    With cmbFileType
        .AddItem "MapInfo 交换文件 (*.mif)"                        ' "MapInfo 交换文件 (*.mif)"
        .AddItem "MapInfo 表文件 (*.tab)"                          ' "MapInfo 表文件 (*.tab)
        .AddItem "MicroStation 文件(*.dgn)"                        ' "MicroStation 文件(*.dgn)"
        .AddItem "Arc/Info E00 文件 (*.e00)"                       ' "Arc/Info E00 文件 (*.e00)"
        .AddItem "ArcView Shape 文件 (*.shp)"                      ' "ArcView Shape 文件 (*.shp)"
        .AddItem "Arc/Info Coverage 文件 (*.*)"                    ' "Arc/Info Coverage 文件 (Arc.*)"
        .AddItem "国标矢量交换文件 (*.vct)|*.vct"
        .AddItem "idrisi矢量交换文件 (*.vce)|*.vec"
        .AddItem "AutoCAD 交换文件(*.dxf)"                         ' "AutoCAD 交换文件(*.dxf)"
        .AddItem "WMF(*.wmf)"
        .ListIndex = 0
    End With
    iOldIndex = cmbFileType.ListIndex
    txtImportFile.Text = ""
End Sub