Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const FORMCAPTION = "Import/Export"
'ResMe Converted To A Property: Const BUTTON1 = "&Import"
'ResMe Converted To A Property: Const BUTTON2 = "&Close"
'ResMe Converted To A Property: Const BUTTON3 = "&Export Table(s)"
'ResMe Converted To A Property: Const BUTTON4 = "Export &SQL Results"
'ResMe Converted To A Property: Const MSG1 = "Export"
'ResMe Converted To A Property: Const MSG2 = "Import"
'ResMe Converted To A Property: Const MSG3 = "Export SQL"
'ResMe Converted To A Property: Const MSG4 = "Select File"
'>>>>>>>>>>>>>>>>>>>>>>>>


Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdExport_Click()
  On Error GoTo ExpErr
  
  Dim i As Integer

  For i = 0 To lstTables.ListCount - 1
    If lstTables.Selected(i) Then
      'WAS: frmDataType.Caption = MSG1 & " '" & lstTables.List(i) & "'"
      frmDataType.Caption = MSG1 & LoadResString(S2_) & lstTables.List(i) & LoadResString(S3_)

      frmDataType.Show vbModal
      lstTables.Selected(i) = False
      If gnDataType <> gnDT_NONE Then
        If gnDataType <> gnDT_SQLDB Then
          SetCommDlg
          If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
            frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
          End If
          frmMDI.dlgCMD1.ShowSave
          If Len(frmMDI.dlgCMD1.FileName) > 0 Then
            Export (lstTables.List(i)), (frmMDI.dlgCMD1.FileName)
          End If
        Else
          Export (lstTables.List(i)), vbNullString
        End If
      End If
    End If
  Next

  cmdExport.Enabled = False

  Exit Sub

ExpErr:
  If Err = 32755 Then Exit Sub
  ShowError
End Sub

Private Sub cmdExportSQL_Click()
  On Error GoTo SQLExpErr
  
  Dim i As Integer

  frmDataType.Caption = MSG3
  frmDataType.Show vbModal
  If gnDataType <> gnDT_NONE Then
    If gnDataType <> gnDT_SQLDB Then
      SetCommDlg
      If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
        frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
      End If
      frmMDI.dlgCMD1.ShowSave
      If Len(frmMDI.dlgCMD1.FileName) > 0 Then
        Export vbNullString, (frmMDI.dlgCMD1.FileName)
      End If
    Else
      Export vbNullString, vbNullString
    End If
  End If

  Exit Sub

SQLExpErr:
  If Err = 32755 Then Exit Sub
  ShowError
End Sub

Private Sub cmdImport_Click()
  On Error GoTo ImpErr

  frmDataType.Caption = MSG2
  frmDataType.Show vbModal

  If gnDataType = gnDT_NONE Then Exit Sub
  
  If gnDataType <> gnDT_SQLDB Then
    SetCommDlg
    frmMDI.dlgCMD1.ShowOpen
    If Len(frmMDI.dlgCMD1.FileName) > 0 Then
      If gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE Then
        If gnDataType = gnDT_MSACCESS Then
          Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName)
        ElseIf gnDataType = gnDT_EXCEL50 Or gnDataType = gnDT_EXCEL40 Or gnDataType = gnDT_EXCEL30 Then
          'we can use Excel 5.0 for all Excel files because the
          'ISAM will figure out the version from the file itself
          'instead of relying on the connect string
          Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsEXCEL50)
        Else
          Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsBTRIEVE)
        End If
        If gImpDB Is Nothing Then Exit Sub
        frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1 & gImpDB.Name
        frmImpTbls.Show vbModal
      Else
        Import (frmMDI.dlgCMD1.FileName)
        While Len(frmMDI.dlgCMD1.FileName) > 0
          frmMDI.dlgCMD1.FileName = vbNullString
          frmMDI.dlgCMD1.ShowOpen
          Import (frmMDI.dlgCMD1.FileName)
        Wend
      End If
    End If
  Else
    Set gImpDB = gwsMainWS.OpenDatabase(vbNullString, 0, 0, "odbc;")
    If gImpDB Is Nothing Then Exit Sub
    frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1.Caption & gImpDB.Name
    frmImpTbls.Show vbModal
  End If
  
  Screen.MousePointer = vbDefault
  Exit Sub

ImpErr:
  If Err <> 32755 Then
    ShowError
  Else
    Screen.MousePointer = vbDefault
  End If
End Sub

Private Sub lstTables_Click()
  cmdExport.Enabled = True
End Sub

Private Sub lstTables_DblClick()
  Call cmdExport_Click
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 And Shift = 0 Then
    DisplayTopic 2016092
  End If
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmImpExp_Auto_Init
  Me.Caption = FORMCAPTION
  cmdImport.Caption = BUTTON1
  cmdClose.Caption = BUTTON2
  cmdExport.Caption = BUTTON3
  cmdExportSQL.Caption = BUTTON4
  
  If UCase(Mid(frmSQL.txtSQLStatement, 1, 7)) = "SELECT " Then
    cmdExportSQL.Enabled = True
  End If
  GetTableList frmImpExp.lstTables, False, False, True
  
  MsgBar vbNullString, False
End Sub

Private Sub Form_Resize()
  If WindowState <> 2 Then
    lstTables.Width = Width - 340
    Refresh
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Unload frmDataType
End Sub

Private Sub SetCommDlg()
   With frmMDI.dlgCMD1
     .DialogTitle = MSG4
     Select Case gnDataType
       Case gnDT_MSACCESS
         .Filter = "Microsoft Access (*.mdb)|*.mdb|All Files (*.*)|*.*"
         'WAS: .DialogTitle = "Select Microsoft Access Database"
         .DialogTitle = LoadResString(S485_Select_Microsoft_Ac)

         .Flags = FileOpenConstants.cdlOFNHideReadOnly
       Case gnDT_PARADOX3X, gnDT_PARADOX4X
         .Filter = "Paradox (*.db)|*.db"
         .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
       Case gnDT_FOXPRO26, gnDT_FOXPRO25, gnDT_FOXPRO20, gnDT_DBASEIV, gnDT_DBASEIII
         .Filter = "Xbase (*.dbf)|*.dbf"
         .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
       Case gnDT_BTRIEVE
         .Filter = "Btrieve (FILE.DDF)|FILE.DDF"
         .Flags = FileOpenConstants.cdlOFNHideReadOnly
       Case gnDT_EXCEL50, gnDT_EXCEL40, gnDT_EXCEL30
         .Filter = "Excel (*.xls)|*.xls"
         .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
       Case gnDT_TEXTFILE
         .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
         'WAS: .DialogTitle = "Select Text File"
         .DialogTitle = LoadResString(S492_Select_Text_File)

         .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
     End Select

     .FilterIndex = 1
     .FileName = vbNullString
     .CancelError = True
  End With
End Sub


'*********************************************************************************
'**          This Section Of Code Was Automatically Generated By ResMe          **
'**                                                                             **
'** String assignments to Constants have been converted to read-only properties **
'*********************************************************************************


'This was: Const FORMCAPTION = "Import/Export"
Property Get FORMCAPTION As String
    FORMCAPTION = "Import/Export"
End Property

'This was: Const BUTTON1 = "&Import"
Property Get BUTTON1 As String
    'WAS: BUTTON1 = "&Import"
    BUTTON1 = LoadResString(S285_Import)

End Property

'This was: Const BUTTON2 = "&Close"
Property Get BUTTON2 As String
    'WAS: BUTTON2 = "&Close"
    BUTTON2 = LoadResString(S94_Close)

End Property

'This was: Const BUTTON3 = "&Export Table(s)"
Property Get BUTTON3 As String
    'WAS: BUTTON3 = "&Export Table(s)"
    BUTTON3 = LoadResString(S229_Export_Table_s)

End Property

'This was: Const BUTTON4 = "Export &SQL Results"
Property Get BUTTON4 As String
    BUTTON4 = "Export &SQL Results"
End Property

'This was: Const MSG1 = "Export"
Property Get MSG1 As String
    'WAS: MSG1 = "Export"
    MSG1 = LoadResString(S225_Export)

End Property

'This was: Const MSG2 = "Import"
Property Get MSG2 As String
    'WAS: MSG2 = "Import"
    MSG2 = LoadResString(S286_Import)

End Property

'This was: Const MSG3 = "Export SQL"
Property Get MSG3 As String
    MSG3 = "Export SQL"
End Property

'This was: Const MSG4 = "Select File"
Property Get MSG4 As String
    'WAS: MSG4 = "Select File"
    MSG4 = LoadResString(S484_Select_File)

End Property


Private Sub frmImpExp_Auto_Init()
'This routine initializes all User Interface control properties on frmImpExp.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    'WAS: Me.Caption = "Import/Export"
    Me.Caption = LoadResString(S288_Import_Export)

    'WAS: cmdClose.Caption = "&Close"
    cmdClose.Caption = LoadResString(S94_Close)

    'WAS: cmdExportSQL.Caption = "Export &SQL Results"
    cmdExportSQL.Caption = LoadResString(S228_Export_SQL_Results)

    'WAS: cmdImport.Caption = "&Import"
    cmdImport.Caption = LoadResString(S285_Import)

    'WAS: cmdExport.Caption = "&Export Table(s)"
    cmdExport.Caption = LoadResString(S229_Export_Table_s)

End Sub