frmexport.frm

一个交通专用的gis-T系统

VERSION 5.00
Begin VB.Form frmexport 
   Caption         =   "数据导出"
   ClientHeight    =   2220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3615
   Icon            =   "frmexport.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2220
   ScaleWidth      =   3615
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "帮助(&H)"
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   1800
      Width           =   855
   End
   Begin VB.CommandButton cmdcancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   1800
      Width           =   855
   End
   Begin VB.CommandButton cmdok 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   1800
      TabIndex        =   5
      Top             =   1800
      Width           =   855
   End
   Begin VB.Frame Frame1 
      Caption         =   "交通网络数据输出选项设置"
      Height          =   1575
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   3615
      Begin VB.TextBox TxtName 
         Height          =   270
         Left            =   1200
         TabIndex        =   1
         Text            =   "Network.in"
         Top             =   360
         Width           =   1575
      End
      Begin VB.CommandButton cmdbrow 
         Caption         =   "..(&B)"
         Height          =   255
         Left            =   2880
         TabIndex        =   3
         Top             =   720
         Width           =   615
      End
      Begin VB.TextBox txtsave 
         Height          =   270
         Left            =   1200
         TabIndex        =   2
         Top             =   720
         Width           =   1575
      End
      Begin VB.ComboBox cmbfield 
         Height          =   300
         Left            =   1200
         TabIndex        =   4
         Text            =   "Combo1"
         Top             =   1080
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "文件名称："
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   10
         Top             =   400
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "保存位置："
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   9
         Top             =   765
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "文件格式："
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   8
         Top             =   1155
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frmexport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Private Sub cmdbrow_Click()
    Dim tt
    Newpath = BrowseForFolder(frmexport.hWnd, "请选择项目保存路径：")
    If Trim(Newpath) <> "" Then
       tt = ReadIndex("Rec")
       WriteIndex "P" + Trim(tt), Newpath
       WriteIndex "Rec", Str(Val(tt) + 1)
       txtsave.Text = Newpath
       If Right(txtsave.Text, 1) <> "\" Then
            txtsave.Text = txtsave.Text & "\"
       End If
    End If
End Sub



Private Sub Cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdok_Click()
    
    ExportPath = txtsave.Text
    ExportSoft = cmbfield.Text
    ExportName = txtname.Text
    
    
    Dim RsExportNode As Recordset
    Set RsExportNode = mDbBiblio.OpenRecordset("Nodes")
    Dim RsExportLink As Recordset
    Set RsExportLink = mDbBiblio.OpenRecordset("Links")
    
    If ExportSoft = "emme/2" Then
        Load Emme2
        Emme2.Show
'        Emme2 RsExportNode, RsExportLink, ExportPath, ExportName
    ElseIf ExportSoft = "Transtar" Then
    
    ElseIf ExportSoft = "自定义数据格式" Then
        Load FrmDBshow
        FrmDBshow.Show
    End If
    

    Unload Me
        
        
        
End Sub

Private Sub Form_Load()

    cmbfield.AddItem "emme/2"
    cmbfield.AddItem "Trips"
    cmbfield.AddItem "自定义数据格式"
    cmbfield.Text = "emme/2"
    txtsave.Text = ProjectPath
    
End Sub