PC World 2001 January/PCWorld_2001-01_cd.bin/Software/Topware/xmlspy/xmlspy35.exe/Main/DlgExpDest.frm

Visual Basic Form | 2000-11-20 | 7.0 KB | 228 lines

VERSION 5.00
Begin VB.Form DlgExpDest
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Export destination"
   ClientHeight    =   3300
   ClientLeft      =   4440
   ClientTop       =   2700
   ClientWidth     =   7200
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   7200
   ShowInTaskbar   =   0   'False
   Begin VB.OptionButton OptionDB
      Caption         =   "Do export to database"
      Height          =   255
      Left            =   3360
      TabIndex        =   12
      Top             =   120
      Width           =   3135
   End
   Begin VB.OptionButton OptionText
      Caption         =   "Do export to text"
      Height          =   255
      Left            =   120
      TabIndex        =   11
      Top             =   120
      Width           =   3015
   End
   Begin VB.Frame Frame2
      Caption         =   "Export to database settings"
      Height          =   2055
      Left            =   3360
      TabIndex        =   3
      Top             =   480
      Width           =   3735
      Begin VB.CheckBox CheckTables
         Caption         =   "Create missing tables (text field length is 255 characters)"
         Height          =   375
         Left            =   240
         TabIndex        =   18
         Top             =   1320
         Width           =   3015
      End
      Begin VB.CommandButton BtnBrowseDB
         Caption         =   "Browse"
         Height          =   255
         Left            =   2880
         TabIndex        =   17
         Top             =   840
         Width           =   735
      End
      Begin VB.TextBox DBFileEdit
         Height          =   285
         Left            =   720
         TabIndex        =   15
         Text            =   "file"
         Top             =   840
         Width           =   2055
      End
      Begin VB.OptionButton OptionExistingDB
         Caption         =   "Use existing MS Access database"
         Height          =   255
         Left            =   240
         TabIndex        =   14
         Top             =   600
         Width           =   3015
      End
      Begin VB.OptionButton OptionNewDB
         Caption         =   "Create new MS Access database"
         Height          =   255
         Left            =   240
         TabIndex        =   13
         Top             =   360
         Width           =   2775
      End
      Begin VB.Label Label5
         Caption         =   "File:"
         Height          =   255
         Left            =   300
         TabIndex        =   16
         Top             =   900
         Width           =   375
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Export to text settings"
      Height          =   2055
      Left            =   120
      TabIndex        =   2
      Top             =   480
      Width           =   3015
      Begin VB.CommandButton BtnBrowse
         Caption         =   "Browse"
         Height          =   255
         Left            =   2160
         TabIndex        =   10
         Top             =   480
         Width           =   735
      End
      Begin VB.TextBox FolderEdit
         Height          =   285
         Left            =   240
         TabIndex        =   8
         Text            =   "folder"
         Top             =   480
         Width           =   1815
      End
      Begin VB.CheckBox CheckHeader
         Caption         =   "Create header row"
         Height          =   255
         Left            =   240
         TabIndex        =   4
         Top             =   840
         Width           =   2535
      End
      Begin VB.Label Label4
         Caption         =   "Destination folder:"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   240
         Width           =   1695
      End
      Begin VB.Label Label3
         Caption         =   "There is no enclosing character"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   1200
         Width           =   2535
      End
      Begin VB.Label Label2
         Caption         =   "Field delimiter is 0x09"
         Height          =   255
         Left            =   240
         TabIndex        =   6
         Top             =   1440
         Width           =   2535
      End
      Begin VB.Label Label1
         Caption         =   "File extension is .txt"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   1680
         Width           =   2535
      End
   End
   Begin VB.CommandButton CancelButton
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   1
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton OKButton
      Caption         =   "Export"
      Height          =   375
      Left            =   5640
      TabIndex        =   0
      Top             =   2760
      Width           =   1215
   End
Attribute VB_Name = "DlgExpDest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public bOK As Boolean
Option Explicit
Private Sub BtnBrowse_Click()
    Dim pos As Long
    Dim objDlg
    Set objDlg = CreateObject("MSComDlg.CommonDialog")
    objDlg.DialogTitle = "Please locate a file in the destination folder"
    objDlg.ShowOpen
    If Len(objDlg.FileName) > 0 Then
        pos = InStrRev(objDlg.FileName, "\")
        If pos > 3 Then
            FolderEdit.Text = Left(objDlg.FileName, pos)
        Else
            FolderEdit.Text = objDlg.FileName
        End If
    End If
End Sub
Private Sub BtnBrowseDB_Click()
    Dim pos As Long
    Dim objDlg
    Set objDlg = CreateObject("MSComDlg.CommonDialog")
    objDlg.DialogTitle = "Locate a file in the destination folder"
    If OptionExistingDB.Value = True Then
        objDlg.DialogTitle = "Locate the MS Access file"
    End If
    objDlg.ShowOpen
    DBFileEdit.Text = objDlg.FileName
    If OptionNewDB.Value = True Then
        If Len(objDlg.FileName) > 0 Then
            pos = InStrRev(objDlg.FileName, "\")
            If pos > 3 Then
                DBFileEdit.Text = Left(objDlg.FileName, pos)
            End If
        End If
    End If
End Sub
Private Sub CancelButton_Click()
    Hide
End Sub
Private Sub Form_Activate()
    bOK = False
    OptionText.Value = True
    OptionNewDB.Value = True
End Sub
Private Sub OKButton_Click()
    bOK = True
    Hide
End Sub
Private Sub OptionDB_Click()
    Frame2.Enabled = True
    Frame1.Enabled = False
End Sub
Private Sub OptionText_Click()
    Frame2.Enabled = False
    Frame1.Enabled = True
End Sub