Option Explicit
Option Compare Binary
'>>>>>>>>>>>>>>>>>>>>>>>>
'menus
'ResMe Converted To A Property: Const MNU_Database = "&File"
'ResMe Converted To A Property: Const MNU_DBOpen = "&Open DataBase..."
'ResMe Converted To A Property: Const MNU_DBOMDB = "&Microsoft Access..."
'ResMe Converted To A Property: Const MNU_DBOText = "&Text Files..."
'ResMe Converted To A Property: Const MNU_DBOODBC = "&ODBC..."
'ResMe Converted To A Property: Const MNU_DBNew = "&New..."
'ResMe Converted To A Property: Const MNU_DBNMDB = "&Microsoft Access"
'ResMe Converted To A Property: Const MNU_DBNMDB2x = "Version &2.0 MDB..."
'ResMe Converted To A Property: Const MNU_DBNMDB70 = "Version &7.0 MDB..."
'ResMe Converted To A Property: Const MNU_DBNODBC = "&ODBC..."
'ResMe Converted To A Property: Const MNU_DBNText = "&Text Files..."
'ResMe Converted To A Property: Const MNU_DBClose = "&Close"
'ResMe Converted To A Property: Const MNU_DBImpExp = "&Import/Export..."
'ResMe Converted To A Property: Const MNU_DBWorkspace = "&Workspace..."
'ResMe Converted To A Property: Const MNU_DBErrors = "&Errors..."
'ResMe Converted To A Property: Const MNU_DBCompact = "Co&mpact MDB..."
'ResMe Converted To A Property: Const MNU_DBRepair = "&Repair MDB..."
'ResMe Converted To A Property: Const MNU_DBExit = "E&xit"
'ResMe Converted To A Property: Const MNU_Util = "&Utility"
'ResMe Converted To A Property: Const MNU_UQuery = "&Query Builder..."
'ResMe Converted To A Property: Const MNU_UDataFormDesigner = "Data &Form Designer..."
'ResMe Converted To A Property: Const MNU_UReplace = "&Global Replace..."
'ResMe Converted To A Property: Const MNU_UAttachments = "&Attachments.."
'ResMe Converted To A Property: Const MNU_UGroupsUsers = "&Groups/Users..."
'ResMe Converted To A Property: Const MNU_USystemDB = "&SYSTEM.MD?..."
'ResMe Converted To A Property: Const MNU_Pref = "&Preferences"
'ResMe Converted To A Property: Const MNU_POpenOnStartup = "&Open Last DataBase on Startup"
'ResMe Converted To A Property: Const MNU_PAllowSys = "&Include System Tables"
'ResMe Converted To A Property: Const MNU_PQueryTimeout = "&Query Timeout Value..."
'ResMe Converted To A Property: Const MNU_PLoginTimeout = "&Login Timeout Value..."
'ResMe Converted To A Property: Const MNU_Window = "&Window"
'ResMe Converted To A Property: Const MNU_WTile = "&Tile"
'ResMe Converted To A Property: Const MNU_WCascade = "&Cascade"
'ResMe Converted To A Property: Const MNU_WArrange = "&Arrange Icons"
'ResMe Converted To A Property: Const MNU_Help = "&Help"
'ResMe Converted To A Property: Const MNU_HTopics = "&Topics..."
'ResMe Converted To A Property: Const MNU_HAbout = "&About..."
'ResMe Converted To A Property: Const MNU_DBPUOpen = "&Open"
'ResMe Converted To A Property: Const MNU_DBPUDesign = "&Design..."
'ResMe Converted To A Property: Const MNU_DBPUEdit = "&Edit"
'ResMe Converted To A Property: Const MNU_DBPURename = "&Rename"
'ResMe Converted To A Property: Const MNU_DBPUDelete = "De&lete"
'ResMe Converted To A Property: Const MNU_DBPUCopyStruct = "Copy Structure..."
'ResMe Converted To A Property: Const MNU_DBPURemoveAll = "Remove All Records"
'ResMe Converted To A Property: Const MNU_DBPURefresh = "Refresh List"
'ResMe Converted To A Property: Const MNU_DBPUNewTable = "New &Table"
'ResMe Converted To A Property: Const MNU_DBPUNewQuery = "New &Query"

'tooltips
'ResMe Converted To A Property: Const TOOLTIP1 = "Table type Recordset"
'ResMe Converted To A Property: Const TOOLTIP2 = "Dynaset type Recordset"
'ResMe Converted To A Property: Const TOOLTIP3 = "Snapshot type Recordset"
'ResMe Converted To A Property: Const TOOLTIP4 = "Passthrough type Recordset"
'ResMe Converted To A Property: Const TOOLTIP5 = "Use Data Control on New Form"
'ResMe Converted To A Property: Const TOOLTIP6 = "Don't Use Data Control on New Form"
'ResMe Converted To A Property: Const TOOLTIP7 = "Use DBGrid Control on New Form"
'ResMe Converted To A Property: Const TOOLTIP8 = "Begin a Transaction"
'ResMe Converted To A Property: Const TOOLTIP9 = "Rollback current Transaction"
'ResMe Converted To A Property: Const TOOLTIP10 = "Commit current Transaction"

'misc strings
'ResMe Converted To A Property: Const MSG3 = "Press any key to Close About Box"
'ResMe Converted To A Property: Const MSG4 = "Enter New Database Parameters"
'ResMe Converted To A Property: Const MSG5 = "Enter Driver Name:"
'ResMe Converted To A Property: Const MSG6 = "Driver Name"
'ResMe Converted To A Property: Const MSG7 = "You must Close First!"
'ResMe Converted To A Property: Const MSG8 = "NOTE: Use of Attached Tables is the Recommended Method"
'ResMe Converted To A Property: Const MSG9 = "Microsoft Access MDBs (*.mdb)|*.mdb|All Files (*.*)|*.*"
'ResMe Converted To A Property: Const MSG10 = "Open Microsoft Access Database to Repair"
'ResMe Converted To A Property: Const MSG11 = "Repairing "
'ResMe Converted To A Property: Const MSG12 = "Open Repaired Database?"
'ResMe Converted To A Property: Const MSG13 = "System Databases|SYSTEM.MD?"
'ResMe Converted To A Property: Const MSG14 = "Select SYSTEM.MD? (Microsoft Access Security File)"
'ResMe Converted To A Property: Const MSG15 = " User: "
'ResMe Converted To A Property: Const MSG16 = "Current Database must be closed due to the error!"
'ResMe Converted To A Property: Const MSG17 = "No Users found, try 'Utility/System MD?'!"
'ResMe Converted To A Property: Const MSG18 = "Login Timeout (in seconds):"
'ResMe Converted To A Property: Const MSG19 = "No Database Open"
'ResMe Converted To A Property: Const MSG20 = "Query Timeout (in seconds):"
'ResMe Converted To A Property: Const MSG21 = "Delete Table?"
'ResMe Converted To A Property: Const MSG22 = "Delete QueryDef?"
'ResMe Converted To A Property: Const MSG23 = "Delete Field?"
'ResMe Converted To A Property: Const MSG24 = "Delete Index?"
'ResMe Converted To A Property: Const MSG25 = "Delete All Records in Table?"
'ResMe Converted To A Property: Const MSG26 = "Rows deleted: "
'ResMe Converted To A Property: Const MSG27 = "SYSTEM.MD? Not found, Add one to VB Settings?"
'ResMe Converted To A Property: Const MSG28 = "Transactions not supported by this Driver!"
'ResMe Converted To A Property: Const MSG29 = "All changes will be gone, Rollback anyway?"
'ResMe Converted To A Property: Const MSG30 = " Property is Read Only!"
'ResMe Converted To A Property: Const MSG31 = "This function requires an active project!"
'>>>>>>>>>>>>>>>>>>>>>>>>

Dim mHwnd As Long

Private Sub mnuDBC70MDB_Click()
  CompactDB dbVersion30
End Sub

Private Sub mnuDBNMDB2x_Click()
  NewMDB dbVersion20
End Sub

Private Sub mnuDBNMDB70_Click()
  NewMDB dbVersion30
End Sub

Private Sub mnuDBOExcel_Click()
  'we can use Excel 5.0 for all Excel files because
  'the ISAM will figure out the version when
  'it opens file
  gsDataType = gsEXCEL50
  OpenLocalDB False
End Sub

Private Sub mnuDBPUDesign_Click()
  On Error Resume Next

  If gnodDBNode2 Is Nothing Then Exit Sub
  If gnodDBNode2.Tag = TABLE_STR Then
    gbAddTableFlag = False
    Screen.MousePointer = vbHourglass
    frmTblStruct.Show vbModal
  ElseIf gnodDBNode2.Tag = QUERY_STR Then
    Set frmDatabase.tvDatabase.SelectedItem = gnodDBNode2
    frmSQL.txtSQLStatement.Text = gdbCurrentDB.QueryDefs(gnodDBNode2.Text).SQL
  End If

End Sub

Sub mnuDBPUEdit_Click()
  On Error GoTo mnuDBPUEdit_ClickErr
  
  Dim prpObj As Property
  Dim vTmp As Variant
  Dim vNew As Variant
  Dim frmProp As New frmProperty
  
  If gnodDBNode2.Parent.Parent Is Nothing Then
    'must be a database property
    Set prpObj = gdbCurrentDB.Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "=") - 1))
  Else
    Select Case gnodDBNode2.Parent.Parent.Tag
      Case TABLE_STR
        Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "=") - 1))
      Case QUERY_STR
        Set prpObj = gdbCurrentDB.QueryDefs(gnodDBNode2.Parent.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "=") - 1))
      Case FIELDS_STR
        Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Parent.Text).Fields(gnodDBNode2.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "=") - 1))
      Case INDEXES_STR
        Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Parent.Text).Indexes(gnodDBNode2.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "=") - 1))
      Case Else
        Exit Sub
    End Select
  End If
  
  'store the value
  vTmp = prpObj.Value
  
  On Error Resume Next
  'try to set it to it's current value
  'to see if it is readonly
  prpObj.Value = vTmp
  If Err Then
    'readonly so just exit
    Err.Clear
    MsgBox "'" & prpObj.Name & "'" & MSG30, vbExclamation
    Exit Sub
  End If
  On Error GoTo mnuDBPUEdit_ClickErr
  
  With frmProp
    Set .PropObject = prpObj
    .Show vbModal
    If .OK Then
      gnodDBNode2.Text = prpObj.Name & "=" & prpObj.Value
      'see if it was a Name property
      If prpObj.Name = "Name" Then
        gnodDBNode2.Parent.Text = prpObj.Value
      End If
    End If
    Unload frmProp
  End With
  Set frmProp = Nothing
  
  Exit Sub
mnuDBPUEdit_ClickErr:
  ShowError
End Sub

Private Sub mnuDBPUNewQuery_Click()
  'load the query form to help build a query
  Unload frmQuery      'just to clear things out
  frmQuery.Show
End Sub

Private Sub mnuDBPUNewTable_Click()
  gbAddTableFlag = True
  Screen.MousePointer = vbHourglass
  frmTblStruct.Show vbModal
End Sub

Sub mnuDBPUOpen_Click()
  On Error Resume Next
  
  gbFromSQL = False
  Screen.MousePointer = vbHourglass
  
  If gnodDBNode.Tag = TABLE_STR Then
    OpenTable StripConnect(gnodDBNode2.Text)
  ElseIf gnodDBNode.Tag = QUERY_STR Then
    OpenQuery gnodDBNode2.Text, False
  End If
  
  Screen.MousePointer = vbDefault
  MsgBar vbNullString, False

End Sub

Private Sub mnuHAbout_Click()
  MsgBar MSG3, False
  frmAboutBox.Show vbModal
  MsgBar vbNullString, False
End Sub

Private Sub mnuDBC20MDB_Click()
  CompactDB dbVersion20
End Sub


Private Sub mnuDBClose_Click()
  CloseCurrentDB
End Sub

Private Sub mnuDBErrors_Click()
  On Error Resume Next
  Screen.MousePointer = vbHourglass
  RefreshErrors
  Screen.MousePointer = vbDefault
  If Err Then ShowError
End Sub

Private Sub mnuDBExit_Click()
  Unload Me
End Sub

Private Sub mnuDBNBtrieve_Click()
   gsDataType = gsBTRIEVE
   NewLocalISAM
End Sub

Private Sub mnuDBNDbase3_Click()
   gsDataType = gsDBASEIII
   NewLocalISAM
End Sub

Private Sub mnuDBNDbase4_Click()
   gsDataType = gsDBASEIV
   NewLocalISAM
End Sub

Private Sub mnuDBNDbase5_Click()
   gsDataType = gsDBASE5
   NewLocalISAM
End Sub

Private Sub mnuDBNFox20_Click()
   gsDataType = gsFOXPRO20
   NewLocalISAM
End Sub

Private Sub mnuDBNFox25_Click()
   gsDataType = gsFOXPRO25
   NewLocalISAM
End Sub

Private Sub mnuDBNFox26_Click()
   gsDataType = gsFOXPRO26
   NewLocalISAM
End Sub

Private Sub mnuDBNFox30_Click()
   gsDataType = gsFOXPRO30
   NewLocalISAM
End Sub

Private Sub mnuDBNODBC_Click()
  On Error GoTo DBNErr

  Dim sDriverName As String

  MsgBar MSG4, False

  'driver must be an valid entry in ODBCINST.Registry
  sDriverName = InputBox(MSG5, MSG6, gsDEFAULT_DRIVER)

  If Len(sDriverName) = 0 Then Exit Sub 'they cancelled
  
  DBEngine.RegisterDatabase vbNullString, sDriverName, False, vbNullString

  SendKeys "%FOO"   'force open database dialog

  MsgBar vbNullString, False
  Exit Sub

DBNErr:
  ShowError
End Sub

Private Sub mnuDBNParadox3_Click()
  gsDataType = gsPARADOX3X
  NewLocalISAM
End Sub

Private Sub mnuDBNParadox4_Click()
  gsDataType = gsPARADOX4X
  NewLocalISAM
End Sub

Private Sub mnuDBNParadox5_Click()
  gsDataType = gsPARADOX5X
  NewLocalISAM
End Sub

Private Sub mnuDBNText_Click()
  gsDataType = gsTEXTFILES
  NewLocalISAM
End Sub

Private Sub mnuDBOMDB_Click()
  gsDataType = gsMSACCESS
  OpenLocalDB False
End Sub

Private Sub mnuDBOBtrieve_Click()
  gsDataType = gsBTRIEVE
  OpenLocalDB False
End Sub

Private Sub mnuDBODbase3_Click()
   gsDataType = gsDBASEIII
   OpenLocalDB False
End Sub

Private Sub mnuDBODbase4_Click()
   gsDataType = gsDBASEIV
   OpenLocalDB False
End Sub

Private Sub mnuDBODbase5_Click()
   gsDataType = gsDBASE5
   OpenLocalDB False
End Sub

Private Sub mnuDBOFox20_Click()
   gsDataType = gsFOXPRO20
   OpenLocalDB False
End Sub

Private Sub mnuDBOFox25_Click()
   gsDataType = gsFOXPRO25
   OpenLocalDB False
End Sub

Private Sub mnuDBOFox26_Click()
   gsDataType = gsFOXPRO26
   OpenLocalDB False
End Sub

Private Sub mnuDBOFox30_Click()
   gsDataType = gsFOXPRO30
   OpenLocalDB False
End Sub

Private Sub mnuDBOODBC_Click()
  Dim frm As New frmODBCLogon

  frm.Show vbModal
  
  If frm.DBOpened Then
    ShowDBTools
    RefreshTables Nothing
    MsgBar MSG8, False
  End If
  
  Unload frm
  Set frm = Nothing
  
End Sub

Private Sub mnuDBOParadox3_Click()
   gsDataType = gsPARADOX3X
   OpenLocalDB False
End Sub

Private Sub mnuDBOParadox4_Click()
   gsDataType = gsPARADOX4X
   OpenLocalDB False
End Sub

Private Sub mnuDBOParadox5_Click()
   gsDataType = gsPARADOX5X
   OpenLocalDB False
End Sub

Private Sub mnuDBOText_Click()
   gsDataType = gsTEXTFILES
   OpenLocalDB False
End Sub

Private Sub mnuDBRepair_Click()
  On Error GoTo RepairAccErr

  Dim sNewName As String

  'get file name to repair
  With dlgCMD1
    .Filter = MSG9
    .DialogTitle = MSG10
    .FilterIndex = 1
    .Flags = FileOpenConstants.cdlOFNHideReadOnly
    .ShowOpen
  End With
  If Len(dlgCMD1.FileName) > 0 Then
    sNewName = dlgCMD1.FileName
  Else
    Exit Sub
  End If

  Screen.MousePointer = vbHourglass
  MsgBar MSG11 & sNewName, True
  DBEngine.RepairDatabase sNewName
  Screen.MousePointer = vbDefault
  MsgBar vbNullString, False

  If MsgBox(MSG12, vbYesNo + vbQuestion) = vbYes Then
    If gbDBOpenFlag Then
      Call mnuDBClose_Click
    End If
    gsDataType = gsMSACCESS
    gsDBName = sNewName
    OpenLocalDB True
  End If

  If gbDBOpenFlag Then
    ShowDBTools
    RefreshTables Nothing
  End If

  Exit Sub

RepairAccErr:
  If Err <> 32755 Then
    ShowError
  End If
End Sub

Private Sub mnuHTopics_Click()
  DisplayTopic 2016111
End Sub



Private Sub mnuUSystemDB_Click()
  On Error Resume Next
  
  Dim sTmp As String
  Dim x As Integer
  
  With dlgCMD1
    .Filter = MSG13
    .DialogTitle = MSG14
    .FilterIndex = 1
    .FileName = "SYSTEM.MDW"
    .CancelError = True
    .Flags = FileOpenConstants.cdlOFNHideReadOnly + FileOpenConstants.cdlOFNFileMustExist
  End With
  On Error Resume Next
  dlgCMD1.ShowOpen
  If Err = 32755 Then         'user cancelled
    Exit Sub
  Else
    sTmp = dlgCMD1.FileName  'must be a good filename
    SaveSetting APP_CATEGORY & "\VisData", "Engines", "SystemDB", sTmp
  End If

End Sub

Private Sub mnuDBWorkspace_Click()
  On Error GoTo WSErr
    
  Dim sDBName As String
  Dim sConnect As String
  Dim sUser As String
    
  If gbDBOpenFlag Then
    'save the old settings
    sDBName = gdbCurrentDB.Name
    sConnect = gdbCurrentDB.Connect
    sUser = gwsMainWS.UserName
  End If
  
  frmLogin.Show vbModal
  stsStatusBar.Panels(2).Text = MSG15 & gwsMainWS.UserName & " "
  
  'reopen the database if the user changed
  If UCase(sUser) <> UCase(gwsMainWS.UserName) And gbDBOpenFlag Then
    'have to close objects that will be invalid after reopening the DB
    CloseAllRecordsets
    Set gdbCurrentDB = gwsMainWS.OpenDatabase(sDBName, False, gnReadOnly, sConnect)
  End If
  
  Exit Sub
  
WSErr:
  ShowError
  If gbDBOpenFlag Then
    MsgBox MSG16, 48
  End If
  Call mnuDBClose_Click
End Sub

Private Sub mnuUAttachments_Click()
  On Error Resume Next
  Screen.MousePointer = vbHourglass
  frmAttachments.Show
  Screen.MousePointer = vbDefault
  If Err Then ShowError
End Sub

Private Sub mnuUGroupsUsers_Click()
  On Error Resume Next
    
  If gwsMainWS.Users.Count = 0 Then
    Beep
    MsgBox MSG17, 48
    Exit Sub
  End If
    
  Screen.MousePointer = vbHourglass
  frmGroupsUsers.Show
  Screen.MousePointer = vbDefault
  If Err Then ShowError
End Sub

Private Sub mnuPAllowSys_Click()
  On Error Resume Next

  mnuPAllowSys.Checked = Not mnuPAllowSys.Checked
  If Not gbDBOpenFlag Then Exit Sub
  
  RefreshTables Nothing
  
End Sub

Private Sub mnuPLoginTimeout_Click()
  On Error GoTo LTErr

  Dim sNewValue As String

  sNewValue = InputBox(MSG18, , CStr(glLoginTimeout))
  If Len(sNewValue) = 0 Then Exit Sub

  'try to set the new value
  If Val(sNewValue) >= 0 Then
    glLoginTimeout = Val(sNewValue)
    DBEngine.LoginTimeout = glLoginTimeout
  End If

  Exit Sub

LTErr:
  ShowError
End Sub

Private Sub mnuPOpenOnStartup_Click()
  mnuPOpenOnStartup.Checked = Not mnuPOpenOnStartup.Checked
End Sub

Private Sub mnuPQueryTimeout_Click()
  On Error GoTo QTErr

  Dim sNewValue As String

  If Not gbDBOpenFlag Then MsgBox MSG19, 48: Exit Sub
  
  sNewValue = InputBox(MSG20, , CStr(gdbCurrentDB.QueryTimeout))
  If Len(sNewValue) = 0 Then Exit Sub

  'try to set the new value
  gdbCurrentDB.QueryTimeout = Val(sNewValue)
  glQueryTimeout = Val(sNewValue)

  Exit Sub

QTErr:
  ShowError
  'reset the form control after the error
  glQueryTimeout = gdbCurrentDB.QueryTimeout
End Sub

Private Sub mnuUDataFormDesigner_Click()
  On Error Resume Next
  
  'make sure a project is loaded
  If gVDClass.VBInstance.ActiveVBProject Is Nothing Then
    MsgBox MSG31, vbInformation
    Exit Sub
  End If
  
  frmDFD.Show vbModal
  If Err Then ShowError
End Sub

Private Sub mnuUQuery_Click()
  frmQuery.Show
  frmQuery.WindowState = 0
End Sub

Private Sub mnuDBPUCopyStruct_Click()
  On Error Resume Next
  frmCopyStruct.Show vbModal
  If Err Then ShowError
End Sub

Private Sub mnuDBPUDelete_Click()
  On Error GoTo TblDelErr

  Dim sName As String
  If gnodDBNode2 Is Nothing Then Exit Sub
  
  Select Case gnodDBNode2.Tag
    Case TABLE_STR
      sName = StripConnect(gnodDBNode2.Text)
      If MsgBox(MSG21, vbYesNo + vbQuestion) = vbYes Then
        gdbCurrentDB.TableDefs.Delete sName
        frmDatabase.tvDatabase.Nodes.Remove gnodDBNode2.Index
      End If
    Case QUERY_STR
      sName = gnodDBNode2.Text
      If MsgBox(MSG22, vbYesNo + vbQuestion) = vbYes Then
        gdbCurrentDB.QueryDefs.Delete sName
        frmDatabase.tvDatabase.Nodes.Remove gnodDBNode2.Index
      End If
    Case FIELD_STR
      sName = gnodDBNode2.Text
      If MsgBox(MSG23, vbYesNo + vbQuestion) = vbYes Then
        gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Text).Fields.Delete sName
        frmDatabase.tvDatabase.Nodes.Remove gnodDBNode2.Index
      End If
    Case INDEX_STR
      sName = gnodDBNode2.Text
      If MsgBox(MSG24, vbYesNo + vbQuestion) = vbYes Then
        gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Text).Indexes.Delete sName
        frmDatabase.tvDatabase.Nodes.Remove gnodDBNode2.Index
      End If
  End Select

  Exit Sub

TblDelErr:
  ShowError
End Sub

Private Sub mnuDBPURefresh_Click()
  gdbCurrentDB.TableDefs.Refresh
  RefreshTables Nothing
End Sub

Private Sub mnuDBPURename_Click()
  On Error GoTo mnuDBPURename_ClickErr
  
  If Not gnodDBNode2 Is Nothing Then
    'set it to the new node for editing
    Set frmDatabase.tvDatabase.SelectedItem = gnodDBNode2
    frmDatabase.tvDatabase.StartLabelEdit
  End If

  Exit Sub

mnuDBPURename_ClickErr:
  ShowError
End Sub

Private Sub mnuDBPURemoveAll_Click()
  On Error GoTo RemoveAllErr

  Dim sTBLName As String
  
  sTBLName = StripConnect(gnodDBNode.Text)

  'WAS: If MsgBox(MSG25 & " '" & sTBLName & "'", vbYesNo + vbQuestion) = vbYes Then
  If MsgBox(MSG25 & LoadResString(S2_) & sTBLName & LoadResString(S3_), vbYesNo + vbQuestion) = vbYes Then

    'delete all rows with a sql statement
    If gsDataType = gsSQLDB Then
      gdbCurrentDB.Execute ("delete from " & sTBLName), dbSQLPassThrough
    Else
      gdbCurrentDB.Execute ("delete from " & sTBLName)
    End If
    If gdbCurrentDB.RecordsAffected > 0 Then
      MsgBox MSG26 & gdbCurrentDB.RecordsAffected, 48
      If gbTransPending Then gbDBChanged = True
    End If

  End If

  Exit Sub

RemoveAllErr:
  If Err = gnEOF_ERR Then Resume Next
  ShowError
End Sub

Private Sub mnuDBImpExp_Click()
  On Error Resume Next
  frmImpExp.Show vbModal
  If Err Then ShowError
End Sub

Private Sub mnuUReplace_Click()
  On Error GoTo ReplaceErr

  frmReplace.Show vbModal

  Exit Sub

ReplaceErr:
  ShowError
End Sub

Private Sub mnuWArrange_Click()
  Me.Arrange 3
End Sub

Private Sub mnuWCascade_Click()
  Me.Arrange 0
End Sub

Private Sub mnuWTile_Click()
  Me.Arrange 2
End Sub

Private Sub MDIForm_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmMDI_Auto_Init
  On Error GoTo MDILErr

  Dim x As Integer

  'load strings from constants
  'menus
  mnuDatabase.Caption = MNU_Database
  mnuDBOpen.Caption = MNU_DBOpen
  mnuDBOMDB.Caption = MNU_DBOMDB
  mnuDBOText.Caption = MNU_DBOText
  mnuDBOODBC.Caption = MNU_DBOODBC
  mnuDBNew.Caption = MNU_DBNew
  mnuDBNMDB.Caption = MNU_DBNMDB
  mnuDBNMDB2x.Caption = MNU_DBNMDB2x
  mnuDBNMDB70.Caption = MNU_DBNMDB70
  mnuDBNODBC.Caption = MNU_DBNODBC
  mnuDBNText.Caption = MNU_DBNText
  mnuDBClose.Caption = MNU_DBClose
  mnuDBImpExp.Caption = MNU_DBImpExp
  mnuDBWorkspace.Caption = MNU_DBWorkspace
  mnuDBErrors.Caption = MNU_DBErrors
  mnuDBCompact.Caption = MNU_DBCompact
  mnuDBRepair.Caption = MNU_DBRepair
  mnuDBExit.Caption = MNU_DBExit
  mnuUtil.Caption = MNU_Util
  mnuUQuery.Caption = MNU_UQuery
  mnuUDataFormDesigner.Caption = MNU_UDataFormDesigner
  mnuUReplace.Caption = MNU_UReplace
  mnuUAttachments.Caption = MNU_UAttachments
  mnuUGroupsUsers.Caption = MNU_UGroupsUsers
  mnuUSystemDB.Caption = MNU_USystemDB
  mnuPref.Caption = MNU_Pref
  mnuPOpenOnStartup.Caption = MNU_POpenOnStartup
  mnuPAllowSys.Caption = MNU_PAllowSys
  mnuPQueryTimeout.Caption = MNU_PQueryTimeout
  mnuPLoginTimeout.Caption = MNU_PLoginTimeout
  mnuWindow.Caption = MNU_Window
  mnuWTile.Caption = MNU_WTile
  mnuWCascade.Caption = MNU_WCascade
  mnuWArrange.Caption = MNU_WArrange
  mnuHelp.Caption = MNU_Help
  mnuHTopics.Caption = MNU_HTopics
  mnuHAbout.Caption = MNU_HAbout
  mnuDBPUOpen.Caption = MNU_DBPUOpen
  mnuDBPUDesign.Caption = MNU_DBPUDesign
  mnuDBPUEdit.Caption = MNU_DBPUEdit
  mnuDBPURename.Caption = MNU_DBPURename
  mnuDBPUDelete.Caption = MNU_DBPUDelete
  mnuDBPUCopyStruct.Caption = MNU_DBPUCopyStruct
  mnuDBPURemoveAll.Caption = MNU_DBPURemoveAll
  mnuDBPURefresh.Caption = MNU_DBPURefresh
  mnuDBPUNewTable.Caption = MNU_DBPUNewTable
  mnuDBPUNewQuery.Caption = MNU_DBPUNewQuery
  
  'tooltips
  tlbToolBar.Buttons(1).ToolTipText = TOOLTIP1
  tlbToolBar.Buttons(2).ToolTipText = TOOLTIP2
  tlbToolBar.Buttons(3).ToolTipText = TOOLTIP3
  tlbToolBar.Buttons(4).ToolTipText = TOOLTIP4
  tlbToolBar.Buttons(6).ToolTipText = TOOLTIP5
  tlbToolBar.Buttons(7).ToolTipText = TOOLTIP6
  tlbToolBar.Buttons(8).ToolTipText = TOOLTIP7
  tlbToolBar.Buttons(10).ToolTipText = TOOLTIP8
  tlbToolBar.Buttons(11).ToolTipText = TOOLTIP9
  tlbToolBar.Buttons(12).ToolTipText = TOOLTIP10

  gnMULocking = True   'pessimistic locking by default
  App.HelpFile = "vb98.chm"
  setHelpFile App.HelpFile            ' set the HTML Help file name for the HTML Help engine
  setHelpLocaleID GetVbIdeLocale      ' get the locale of VBIDE for the HTML Help engine
 
  'need to disable Btrieve menu items under 32 bit
  mnuDBOBtrieve.Visible = False
  mnuDBNBtrieve.Visible = False

  'get form coordinates
  x = Val(GetRegistryString("WindowState", "2"))
  If x = vbMaximized Then
    Show
  ElseIf x <> vbMinimized Then
    frmMDI.WindowState = x
  Else
    frmMDI.WindowState = 0
  End If
  If frmMDI.WindowState = 0 Then
    frmMDI.Left = Val(GetRegistryString("WindowLeft", "0"))
    frmMDI.Top = Val(GetRegistryString("WindowTop", "0"))
    Show
    frmMDI.Width = Val(GetRegistryString("WindowWidth", "9135"))
    frmMDI.Height = Val(GetRegistryString("WindowHeight", "6900"))
  End If
  
  On Error GoTo MDILErr
  
  'setup the DBEngine
  DBEngine.IniPath = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\" & APP_CATEGORY & "\" & APPNAME
  DBEngine.DefaultUser = "admin"
  DBEngine.DefaultPassword = vbNullString

  'login to Jet
  On Error Resume Next
  Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString)
  If Err = 3029 Then
    frmLogin.Show vbModal
  ElseIf Err = 3044 Then  'invalid path so system.mda is bogus
    If MsgBox(MSG27, vbYesNo + vbQuestion) = vbYes Then
      mnuUSystemDB_Click
    Else
      'store info so we don't keep asking
      SaveSetting APP_CATEGORY & "\VisData", "Engines", "SystemDB", vbNullString
    End If
  ElseIf Err <> 0 Then
    ShowError
    Unload Me
    Exit Sub
  End If
  stsStatusBar.Panels(2).Text = MSG15 & gwsMainWS.UserName & " "
  
  On Error GoTo MDILErr
  
  'add the workspace to the collection to bump the count
  Workspaces.Append gwsMainWS
  Me.Show
  LoadRegistrySettings
  
  'attempt to open the last database if that option
  'has been set on the preferences menu
  If frmMDI.mnuPOpenOnStartup.Checked And Len(gsDBName) > 0 Then
    If gsDataType = gsSQLDB Then
'      'for an ODBC database, we need to
'      'sendkeys to open the ODBC dialog
'      SendKeys "%FOO{Enter}"
      mnuDBOODBC_Click
    Else
      OpenLocalDB True
    End If
  Else
    HideDBTools
  End If

  Exit Sub

MDILErr:
  ShowError
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  On Error Resume Next
  ShutDownVisData
End Sub

Private Sub mnuDBMRU_Click(Index As Integer)
  On Error GoTo MRUErr

  gsDBName = Mid(mnuDBMRU(Index).Caption, 4, Len(mnuDBMRU(Index).Caption))
  gsDataType = mnuDBMRU(Index).Tag
  If UCase(Left(gsDataType, 5)) <> gsSQLDB Then
    OpenLocalDB True
  Else
    'must be an ODBC database so we need to load frmOpenDB
    'this will get the connect parts
    GetODBCConnectParts gsDataType
    'call the routine that will load the form
    mnuDBOODBC_Click
  End If

  Exit Sub

MRUErr:
  ShowError
End Sub

Private Sub tlbToolBar_ButtonClick(ByVal BUTTON As BUTTON)
  On Error GoTo tlbToolBar_ButtonClickErr
  
  Select Case BUTTON.Key
    Case "DataControl"
      gnFormType = gnFORM_DATACTL
    Case "NoDataControl"
      gnFormType = gnFORM_NODATACTL
    Case "DBGrid"
      gnFormType = gnFORM_DATAGRID
    
    Case "Table"
      gnRSType = gnRS_TABLE
    Case "Dynaset"
      gnRSType = gnRS_DYNASET
    Case "Snapshot"
      gnRSType = gnRS_SNAPSHOT
    Case "PassThrough"
      gnRSType = gnRS_PASSTHRU
    
    Case "BeginTrans"
      If gdbCurrentDB.Transactions = False Then
        Beep
        MsgBox MSG28
        Exit Sub
      End If
      gwsMainWS.BeginTrans
      gbDBChanged = False
      gbTransPending = True
      tlbToolBar.Buttons("BeginTrans").Enabled = False
      tlbToolBar.Buttons("Commit").Enabled = True
      tlbToolBar.Buttons("Rollback").Enabled = True
  If MsgBox(MSG25 & LoadResString(S2_) & sTBLName & LoadResString(S3_), vbYesNo + vbQuestion) = vbYes Then
      If MsgBox(MSG29, vbYesNo + vbQuestion) = vbYes Then
        gwsMainWS.Rollback
        gbDBChanged = False
        gbTransPending = False
        tlbToolBar.Buttons("BeginTrans").Enabled = True
        tlbToolBar.Buttons("Commit").Enabled = False
        tlbToolBar.Buttons("Rollback").Enabled = False
      End If
  If MsgBox(MSG25 & LoadResString(S2_) & sTBLName & LoadResString(S3_), vbYesNo + vbQuestion) = vbYes Then
      gwsMainWS.CommitTrans
      gbDBChanged = False
      gbTransPending = False
      tlbToolBar.Buttons("BeginTrans").Enabled = True
      tlbToolBar.Buttons("Commit").Enabled = False
      tlbToolBar.Buttons("Rollback").Enabled = False
  End Select
  
  Exit Sub
tlbToolBar_ButtonClickErr:
  ShowError
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 MNU_Database = "&File"
Property Get MNU_Database As String
    'WAS: MNU_Database = "&File"
    MNU_Database = LoadResString(S245_File)

End Property

'This was: Const MNU_DBOpen = "&Open DataBase..."
Property Get MNU_DBOpen As String
    'WAS: MNU_DBOpen = "&Open DataBase..."
    MNU_DBOpen = LoadResString(S362_Open_DataBase)

End Property

'This was: Const MNU_DBOMDB = "&Microsoft Access..."
Property Get MNU_DBOMDB As String
    'WAS: MNU_DBOMDB = "&Microsoft Access..."
    MNU_DBOMDB = LoadResString(S322_Microsoft_Access)

End Property

'This was: Const MNU_DBOText = "&Text Files..."
Property Get MNU_DBOText As String
    'WAS: MNU_DBOText = "&Text Files..."
    MNU_DBOText = LoadResString(S540_Text_Files)

End Property

'This was: Const MNU_DBOODBC = "&ODBC..."
Property Get MNU_DBOODBC As String
    MNU_DBOODBC = "&ODBC..."
End Property

'This was: Const MNU_DBNew = "&New..."
Property Get MNU_DBNew As String
    'WAS: MNU_DBNew = "&New..."
    MNU_DBNew = LoadResString(S344_New)

End Property

'This was: Const MNU_DBNMDB = "&Microsoft Access"
Property Get MNU_DBNMDB As String
    'WAS: MNU_DBNMDB = "&Microsoft Access"
    MNU_DBNMDB = LoadResString(S320_Microsoft_Access)

End Property

'This was: Const MNU_DBNMDB2x = "Version &2.0 MDB..."
Property Get MNU_DBNMDB2x As String
    'WAS: MNU_DBNMDB2x = "Version &2.0 MDB..."
    MNU_DBNMDB2x = LoadResString(S582_Version_2_0_MDB)

End Property

'This was: Const MNU_DBNMDB70 = "Version &7.0 MDB..."
Property Get MNU_DBNMDB70 As String
    'WAS: MNU_DBNMDB70 = "Version &7.0 MDB..."
    MNU_DBNMDB70 = LoadResString(S584_Version_7_0_MDB)

End Property

'This was: Const MNU_DBNODBC = "&ODBC..."
Property Get MNU_DBNODBC As String
    MNU_DBNODBC = "&ODBC..."
End Property

'This was: Const MNU_DBNText = "&Text Files..."
Property Get MNU_DBNText As String
    'WAS: MNU_DBNText = "&Text Files..."
    MNU_DBNText = LoadResString(S540_Text_Files)

End Property

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

End Property

'This was: Const MNU_DBImpExp = "&Import/Export..."
Property Get MNU_DBImpExp As String
    MNU_DBImpExp = "&Import/Export..."
End Property

'This was: Const MNU_DBWorkspace = "&Workspace..."
Property Get MNU_DBWorkspace As String
    'WAS: MNU_DBWorkspace = "&Workspace..."
    MNU_DBWorkspace = LoadResString(S591_Workspace)

End Property

'This was: Const MNU_DBErrors = "&Errors..."
Property Get MNU_DBErrors As String
    'WAS: MNU_DBErrors = "&Errors..."
    MNU_DBErrors = LoadResString(S211_Errors)

End Property

'This was: Const MNU_DBCompact = "Co&mpact MDB..."
Property Get MNU_DBCompact As String
    'WAS: MNU_DBCompact = "Co&mpact MDB..."
    MNU_DBCompact = LoadResString(S103_Co_mpact_MDB)

End Property

'This was: Const MNU_DBRepair = "&Repair MDB..."
Property Get MNU_DBRepair As String
    'WAS: MNU_DBRepair = "&Repair MDB..."
    MNU_DBRepair = LoadResString(S452_Repair_MDB)

End Property

'This was: Const MNU_DBExit = "E&xit"
Property Get MNU_DBExit As String
    'WAS: MNU_DBExit = "E&xit"
    MNU_DBExit = LoadResString(S224_E_xit)

End Property

'This was: Const MNU_Util = "&Utility"
Property Get MNU_Util As String
    'WAS: MNU_Util = "&Utility"
    MNU_Util = LoadResString(S566_Utility)

End Property

'This was: Const MNU_UQuery = "&Query Builder..."
Property Get MNU_UQuery As String
    'WAS: MNU_UQuery = "&Query Builder..."
    MNU_UQuery = LoadResString(S426_Query_Builder)

End Property

'This was: Const MNU_UDataFormDesigner = "Data &Form Designer..."
Property Get MNU_UDataFormDesigner As String
    'WAS: MNU_UDataFormDesigner = "Data &Form Designer..."
    MNU_UDataFormDesigner = LoadResString(S131_Data_Form_Designer)

End Property

'This was: Const MNU_UReplace = "&Global Replace..."
Property Get MNU_UReplace As String
    'WAS: MNU_UReplace = "&Global Replace..."
    MNU_UReplace = LoadResString(S273_Global_Replace)

End Property

'This was: Const MNU_UAttachments = "&Attachments.."
Property Get MNU_UAttachments As String
    'WAS: MNU_UAttachments = "&Attachments.."
    MNU_UAttachments = LoadResString(S60_Attachments)

End Property

'This was: Const MNU_UGroupsUsers = "&Groups/Users..."
Property Get MNU_UGroupsUsers As String
    MNU_UGroupsUsers = "&Groups/Users..."
End Property

'This was: Const MNU_USystemDB = "&SYSTEM.MD?..."
Property Get MNU_USystemDB As String
    MNU_USystemDB = "&SYSTEM.MD?..."
End Property

'This was: Const MNU_Pref = "&Preferences"
Property Get MNU_Pref As String
    'WAS: MNU_Pref = "&Preferences"
    MNU_Pref = LoadResString(S416_Preferences)

End Property

'This was: Const MNU_POpenOnStartup = "&Open Last DataBase on Startup"
Property Get MNU_POpenOnStartup As String
    'WAS: MNU_POpenOnStartup = "&Open Last DataBase on Startup"
    MNU_POpenOnStartup = LoadResString(S366_Open_Last_DataBase_)

End Property

'This was: Const MNU_PAllowSys = "&Include System Tables"
Property Get MNU_PAllowSys As String
    'WAS: MNU_PAllowSys = "&Include System Tables"
    MNU_PAllowSys = LoadResString(S292_Include_System_Tabl)

End Property

'This was: Const MNU_PQueryTimeout = "&Query Timeout Value..."
Property Get MNU_PQueryTimeout As String
    'WAS: MNU_PQueryTimeout = "&Query Timeout Value..."
    MNU_PQueryTimeout = LoadResString(S429_Query_Timeout_Value)

End Property

'This was: Const MNU_PLoginTimeout = "&Login Timeout Value..."
Property Get MNU_PLoginTimeout As String
    'WAS: MNU_PLoginTimeout = "&Login Timeout Value..."
    MNU_PLoginTimeout = LoadResString(S316_Login_Timeout_Value)

End Property

'This was: Const MNU_Window = "&Window"
Property Get MNU_Window As String
    'WAS: MNU_Window = "&Window"
    MNU_Window = LoadResString(S590_Window)

End Property

'This was: Const MNU_WTile = "&Tile"
Property Get MNU_WTile As String
    'WAS: MNU_WTile = "&Tile"
    MNU_WTile = LoadResString(S546_Tile)

End Property

'This was: Const MNU_WCascade = "&Cascade"
Property Get MNU_WCascade As String
    'WAS: MNU_WCascade = "&Cascade"
    MNU_WCascade = LoadResString(S87_Cascade)

End Property

'This was: Const MNU_WArrange = "&Arrange Icons"
Property Get MNU_WArrange As String
    'WAS: MNU_WArrange = "&Arrange Icons"
    MNU_WArrange = LoadResString(S50_Arrange_Icons)

End Property

'This was: Const MNU_Help = "&Help"
Property Get MNU_Help As String
    'WAS: MNU_Help = "&Help"
    MNU_Help = LoadResString(S281_Help)

End Property

'This was: Const MNU_HTopics = "&Topics..."
Property Get MNU_HTopics As String
    'WAS: MNU_HTopics = "&Topics..."
    MNU_HTopics = LoadResString(S550_Topics)

End Property

'This was: Const MNU_HAbout = "&About..."
Property Get MNU_HAbout As String
    'WAS: MNU_HAbout = "&About..."
    MNU_HAbout = LoadResString(S31_About)

End Property

'This was: Const MNU_DBPUOpen = "&Open"
Property Get MNU_DBPUOpen As String
    'WAS: MNU_DBPUOpen = "&Open"
    MNU_DBPUOpen = LoadResString(S360_Open)

End Property

'This was: Const MNU_DBPUDesign = "&Design..."
Property Get MNU_DBPUDesign As String
    'WAS: MNU_DBPUDesign = "&Design..."
    MNU_DBPUDesign = LoadResString(S173_Design)

End Property

'This was: Const MNU_DBPUEdit = "&Edit"
Property Get MNU_DBPUEdit As String
    'WAS: MNU_DBPUEdit = "&Edit"
    MNU_DBPUEdit = LoadResString(S183_Edit)

End Property

'This was: Const MNU_DBPURename = "&Rename"
Property Get MNU_DBPURename As String
    'WAS: MNU_DBPURename = "&Rename"
    MNU_DBPURename = LoadResString(S451_Rename)

End Property

'This was: Const MNU_DBPUDelete = "De&lete"
Property Get MNU_DBPUDelete As String
    'WAS: MNU_DBPUDelete = "De&lete"
    MNU_DBPUDelete = LoadResString(S157_De_lete)

End Property

'This was: Const MNU_DBPUCopyStruct = "Copy Structure..."
Property Get MNU_DBPUCopyStruct As String
    'WAS: MNU_DBPUCopyStruct = "Copy Structure..."
    MNU_DBPUCopyStruct = LoadResString(S118_Copy_Structure)

End Property

'This was: Const MNU_DBPURemoveAll = "Remove All Records"
Property Get MNU_DBPURemoveAll As String
    'WAS: MNU_DBPURemoveAll = "Remove All Records"
    MNU_DBPURemoveAll = LoadResString(S446_Remove_All_Records)

End Property

'This was: Const MNU_DBPURefresh = "Refresh List"
Property Get MNU_DBPURefresh As String
    'WAS: MNU_DBPURefresh = "Refresh List"
    MNU_DBPURefresh = LoadResString(S443_Refresh_List)

End Property

'This was: Const MNU_DBPUNewTable = "New &Table"
Property Get MNU_DBPUNewTable As String
    'WAS: MNU_DBPUNewTable = "New &Table"
    MNU_DBPUNewTable = LoadResString(S341_New_Table)

End Property

'This was: Const MNU_DBPUNewQuery = "New &Query"
Property Get MNU_DBPUNewQuery As String
    'WAS: MNU_DBPUNewQuery = "New &Query"
    MNU_DBPUNewQuery = LoadResString(S339_New_Query)

End Property

'This was: Const TOOLTIP1 = "Table type Recordset"
Property Get TOOLTIP1 As String
    'WAS: TOOLTIP1 = "Table type Recordset"
    TOOLTIP1 = LoadResString(S525_Table_type_Recordse)

End Property

'This was: Const TOOLTIP2 = "Dynaset type Recordset"
Property Get TOOLTIP2 As String
    'WAS: TOOLTIP2 = "Dynaset type Recordset"
    TOOLTIP2 = LoadResString(S180_Dynaset_type_Record)

End Property

'This was: Const TOOLTIP3 = "Snapshot type Recordset"
Property Get TOOLTIP3 As String
    'WAS: TOOLTIP3 = "Snapshot type Recordset"
    TOOLTIP3 = LoadResString(S502_Snapshot_type_Recor)

End Property

'This was: Const TOOLTIP4 = "Passthrough type Recordset"
Property Get TOOLTIP4 As String
    'WAS: TOOLTIP4 = "Passthrough type Recordset"
    TOOLTIP4 = LoadResString(S404_Passthrough_type_Re)

End Property

'This was: Const TOOLTIP5 = "Use Data Control on New Form"
Property Get TOOLTIP5 As String
    'WAS: TOOLTIP5 = "Use Data Control on New Form"
    TOOLTIP5 = LoadResString(S562_Use_Data_Control_on)

End Property

'This was: Const TOOLTIP6 = "Don't Use Data Control on New Form"
Property Get TOOLTIP6 As String
    'WAS: TOOLTIP6 = "Don't Use Data Control on New Form"
    TOOLTIP6 = LoadResString(S175_Don_t_Use_Data_Cont)

End Property

'This was: Const TOOLTIP7 = "Use DBGrid Control on New Form"
Property Get TOOLTIP7 As String
    'WAS: TOOLTIP7 = "Use DBGrid Control on New Form"
    TOOLTIP7 = LoadResString(S563_Use_DBGrid_Control_)

End Property

'This was: Const TOOLTIP8 = "Begin a Transaction"
Property Get TOOLTIP8 As String
    'WAS: TOOLTIP8 = "Begin a Transaction"
    TOOLTIP8 = LoadResString(S68_Begin_a_Transaction)

End Property

'This was: Const TOOLTIP9 = "Rollback current Transaction"
Property Get TOOLTIP9 As String
    'WAS: TOOLTIP9 = "Rollback current Transaction"
    TOOLTIP9 = LoadResString(S462_Rollback_current_Tr)

End Property

'This was: Const TOOLTIP10 = "Commit current Transaction"
Property Get TOOLTIP10 As String
    'WAS: TOOLTIP10 = "Commit current Transaction"
    TOOLTIP10 = LoadResString(S102_Commit_current_Tran)

End Property

'This was: Const MSG3 = "Press any key to Close About Box"
Property Get MSG3 As String
    'WAS: MSG3 = "Press any key to Close About Box"
    MSG3 = LoadResString(S417_Press_any_key_to_Cl)

End Property

'This was: Const MSG4 = "Enter New Database Parameters"
Property Get MSG4 As String
    'WAS: MSG4 = "Enter New Database Parameters"
    MSG4 = LoadResString(S194_Enter_New_Database_)

End Property

'This was: Const MSG5 = "Enter Driver Name:"
Property Get MSG5 As String
    'WAS: MSG5 = "Enter Driver Name:"
    MSG5 = LoadResString(S192_Enter_Driver_Name)

End Property

'This was: Const MSG6 = "Driver Name"
Property Get MSG6 As String
    'WAS: MSG6 = "Driver Name"
    MSG6 = LoadResString(S177_Driver_Name)

End Property

'This was: Const MSG7 = "You must Close First!"
Property Get MSG7 As String
    'WAS: MSG7 = "You must Close First!"
    MSG7 = LoadResString(S593_You_must_Close_Firs)

End Property

'This was: Const MSG8 = "NOTE: Use of Attached Tables is the Recommended Method"
Property Get MSG8 As String
    'WAS: MSG8 = "NOTE: Use of Attached Tables is the Recommended Method"
    MSG8 = LoadResString(S351_NOTE_Use_of_Attache)

End Property

'This was: Const MSG9 = "Microsoft Access MDBs (*.mdb)|*.mdb|All Files (*.*)|*.*"
Property Get MSG9 As String
    MSG9 = "Microsoft Access MDBs (*.mdb)|*.mdb|All Files (*.*)|*.*"
End Property

'This was: Const MSG10 = "Open Microsoft Access Database to Repair"
Property Get MSG10 As String
    'WAS: MSG10 = "Open Microsoft Access Database to Repair"
    MSG10 = LoadResString(S368_Open_Microsoft_Acce)

End Property

'This was: Const MSG11 = "Repairing "
Property Get MSG11 As String
    'WAS: MSG11 = "Repairing "
    MSG11 = LoadResString(S453_Repairing)

End Property

'This was: Const MSG12 = "Open Repaired Database?"
Property Get MSG12 As String
    'WAS: MSG12 = "Open Repaired Database?"
    MSG12 = LoadResString(S371_Open_Repaired_Datab)

End Property

'This was: Const MSG13 = "System Databases|SYSTEM.MD?"
Property Get MSG13 As String
    'WAS: MSG13 = "System Databases|SYSTEM.MD?"
    MSG13 = LoadResString(S511_System_Databases_SY)

End Property

'This was: Const MSG14 = "Select SYSTEM.MD? (Microsoft Access Security File)"
Property Get MSG14 As String
    'WAS: MSG14 = "Select SYSTEM.MD? (Microsoft Access Security File)"
    MSG14 = LoadResString(S489_Select_SYSTEM_MD_Mi)

End Property

'This was: Const MSG15 = " User: "
Property Get MSG15 As String
    'WAS: MSG15 = " User: "
    MSG15 = LoadResString(S564_User)

End Property

'This was: Const MSG16 = "Current Database must be closed due to the error!"
Property Get MSG16 As String
    'WAS: MSG16 = "Current Database must be closed due to the error!"
    MSG16 = LoadResString(S126_Current_Database_mu)

End Property

'This was: Const MSG17 = "No Users found, try 'Utility/System MD?'!"
Property Get MSG17 As String
    'WAS: MSG17 = "No Users found, try 'Utility/System MD?'!"
    MSG17 = LoadResString(S350_No_Users_found_try_)

End Property

'This was: Const MSG18 = "Login Timeout (in seconds):"
Property Get MSG18 As String
    'WAS: MSG18 = "Login Timeout (in seconds):"
    MSG18 = LoadResString(S315_Login_Timeout_in_se)

End Property

'This was: Const MSG19 = "No Database Open"
Property Get MSG19 As String
    'WAS: MSG19 = "No Database Open"
    MSG19 = LoadResString(S345_No_Database_Open)

End Property

'This was: Const MSG20 = "Query Timeout (in seconds):"
Property Get MSG20 As String
    'WAS: MSG20 = "Query Timeout (in seconds):"
    MSG20 = LoadResString(S427_Query_Timeout_in_se)

End Property

'This was: Const MSG21 = "Delete Table?"
Property Get MSG21 As String
    'WAS: MSG21 = "Delete Table?"
    MSG21 = LoadResString(S166_Delete_Table)

End Property

'This was: Const MSG22 = "Delete QueryDef?"
Property Get MSG22 As String
    'WAS: MSG22 = "Delete QueryDef?"
    MSG22 = LoadResString(S165_Delete_QueryDef)

End Property

'This was: Const MSG23 = "Delete Field?"
Property Get MSG23 As String
    'WAS: MSG23 = "Delete Field?"
    MSG23 = LoadResString(S162_Delete_Field)

End Property

'This was: Const MSG24 = "Delete Index?"
Property Get MSG24 As String
    'WAS: MSG24 = "Delete Index?"
    MSG24 = LoadResString(S164_Delete_Index)

End Property

'This was: Const MSG25 = "Delete All Records in Table?"
Property Get MSG25 As String
    'WAS: MSG25 = "Delete All Records in Table?"
    MSG25 = LoadResString(S159_Delete_All_Records_)

End Property

'This was: Const MSG26 = "Rows deleted: "
Property Get MSG26 As String
    'WAS: MSG26 = "Rows deleted: "
    MSG26 = LoadResString(S465_Rows_deleted)

End Property

'This was: Const MSG27 = "SYSTEM.MD? Not found, Add one to VB Settings?"
Property Get MSG27 As String
    'WAS: MSG27 = "SYSTEM.MD? Not found, Add one to VB Settings?"
    MSG27 = LoadResString(S512_SYSTEM_MD_Not_found)

End Property

'This was: Const MSG28 = "Transactions not supported by this Driver!"
Property Get MSG28 As String
    'WAS: MSG28 = "Transactions not supported by this Driver!"
    MSG28 = LoadResString(S551_Transactions_not_su)

End Property

'This was: Const MSG29 = "All changes will be gone, Rollback anyway?"
Property Get MSG29 As String
    'WAS: MSG29 = "All changes will be gone, Rollback anyway?"
    MSG29 = LoadResString(S42_All_changes_will_be)

End Property

'This was: Const MSG30 = " Property is Read Only!"
Property Get MSG30 As String
    'WAS: MSG30 = " Property is Read Only!"
    MSG30 = LoadResString(S421_Property_is_Read_On)

End Property

'This was: Const MSG31 = "This function requires an active project!"
Property Get MSG31 As String
    'WAS: MSG31 = "This function requires an active project!"
    MSG31 = LoadResString(S545_This_function_requi)

End Property


Private Sub frmMDI_Auto_Init()
'This routine initializes all User Interface control properties on frmMDI.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    'WAS: frmMDI.Caption = "VisData"
    frmMDI.Caption = LoadResString(S585_VisData)

    'WAS: tlbToolBar.Buttons(1).ToolTipText = "Table type Recordset"
    tlbToolBar.Buttons(1).ToolTipText = LoadResString(S525_Table_type_Recordse)

    'WAS: tlbToolBar.Buttons(2).ToolTipText = "Dynaset type Recordset"
    tlbToolBar.Buttons(2).ToolTipText = LoadResString(S180_Dynaset_type_Record)

    'WAS: tlbToolBar.Buttons(3).ToolTipText = "Snapshot type Recordset"
    tlbToolBar.Buttons(3).ToolTipText = LoadResString(S502_Snapshot_type_Recor)

    'WAS: tlbToolBar.Buttons(4).ToolTipText = "Passthrough type Recordset"
    tlbToolBar.Buttons(4).ToolTipText = LoadResString(S404_Passthrough_type_Re)

    'WAS: tlbToolBar.Buttons(6).ToolTipText = "Use Data Control on New Form"
    tlbToolBar.Buttons(6).ToolTipText = LoadResString(S562_Use_Data_Control_on)

    'WAS: tlbToolBar.Buttons(7).ToolTipText = "Don't Use Data Control on New Form"
    tlbToolBar.Buttons(7).ToolTipText = LoadResString(S175_Don_t_Use_Data_Cont)

    'WAS: tlbToolBar.Buttons(8).ToolTipText = "Use DBGrid Control on New Form"
    tlbToolBar.Buttons(8).ToolTipText = LoadResString(S563_Use_DBGrid_Control_)

    'WAS: tlbToolBar.Buttons(10).ToolTipText = "Begin a Transaction"
    tlbToolBar.Buttons(10).ToolTipText = LoadResString(S68_Begin_a_Transaction)

    'WAS: tlbToolBar.Buttons(11).ToolTipText = "Rollback current Transaction"
    tlbToolBar.Buttons(11).ToolTipText = LoadResString(S462_Rollback_current_Tr)

    'WAS: tlbToolBar.Buttons(12).ToolTipText = "Commit current Transaction"
    tlbToolBar.Buttons(12).ToolTipText = LoadResString(S102_Commit_current_Tran)

    'WAS: stsStatusBar.Panels(1).Text = "Ready"
    stsStatusBar.Panels(1).Text = LoadResString(S435_Ready)

    'WAS: mnuDatabase.Caption = "&File"
    mnuDatabase.Caption = LoadResString(S245_File)

    'WAS: mnuDBOpen.Caption = "&Open DataBase..."
    mnuDBOpen.Caption = LoadResString(S362_Open_DataBase)

    'WAS: mnuDBOMDB.Caption = "&Microsoft Access..."
    mnuDBOMDB.Caption = LoadResString(S322_Microsoft_Access)

    'WAS: mnuDBOdBASE.Caption = "&Dbase"
    mnuDBOdBASE.Caption = LoadResString(S149_Dbase)

    'WAS: mnuDBOdBASE4.Caption = "I&V..."
    mnuDBOdBASE4.Caption = LoadResString(S307_I_V)

    'WAS: mnuDBOdBASE3.Caption = "&III..."
    mnuDBOdBASE3.Caption = LoadResString(S284_III)

    'WAS: mnuDBOFoxPro.Caption = "&FoxPro"
    mnuDBOFoxPro.Caption = LoadResString(S261_FoxPro)

    'WAS: mnuDBOParadox.Caption = "&Paradox"
    mnuDBOParadox.Caption = LoadResString(S397_Paradox)

    'WAS: mnuDBOParadox4.Caption = "&4.X..."
    mnuDBOParadox4.Caption = LoadResString(S26_4_X)

    'WAS: mnuDBOParadox3.Caption = "&3.X..."
    mnuDBOParadox3.Caption = LoadResString(S25_3_X)

    'WAS: mnuDBOBtrieve.Caption = "&Btrieve..."
    mnuDBOBtrieve.Caption = LoadResString(S75_Btrieve)

    'WAS: mnuDBOExcel.Caption = "&Excel..."
    mnuDBOExcel.Caption = LoadResString(S218_Excel)

    'WAS: mnuDBOText.Caption = "&Text Files..."
    mnuDBOText.Caption = LoadResString(S540_Text_Files)

    'WAS: mnuDBOODBC.Caption = "&ODBC..."
    mnuDBOODBC.Caption = LoadResString(S354_ODBC)

    'WAS: mnuDBNew.Caption = "&New..."
    mnuDBNew.Caption = LoadResString(S344_New)

    'WAS: mnuDBNMDB.Caption = "&Microsoft Access"
    mnuDBNMDB.Caption = LoadResString(S320_Microsoft_Access)

    'WAS: mnuDBNMDB2x.Caption = "Version &2.0 MDB..."
    mnuDBNMDB2x.Caption = LoadResString(S582_Version_2_0_MDB)

    'WAS: mnuDBNMDB70.Caption = "Version &7.0 MDB..."
    mnuDBNMDB70.Caption = LoadResString(S584_Version_7_0_MDB)

    'WAS: mnuDBNdBASE.Caption = "&Dbase"
    mnuDBNdBASE.Caption = LoadResString(S149_Dbase)

    'WAS: mnuDBNdBASE4.Caption = "I&V..."
    mnuDBNdBASE4.Caption = LoadResString(S307_I_V)

    'WAS: mnuDBNdBASE3.Caption = "&III..."
    mnuDBNdBASE3.Caption = LoadResString(S284_III)

    'WAS: mnuDBNFoxPro.Caption = "&FoxPro"
    mnuDBNFoxPro.Caption = LoadResString(S261_FoxPro)

    'WAS: mnuDBNParadox.Caption = "&Paradox"
    mnuDBNParadox.Caption = LoadResString(S397_Paradox)

    'WAS: mnuDBNParadox4.Caption = "&4.X..."
    mnuDBNParadox4.Caption = LoadResString(S26_4_X)

    'WAS: mnuDBNParadox3.Caption = "&3.X..."
    mnuDBNParadox3.Caption = LoadResString(S25_3_X)

    'WAS: mnuDBNBtrieve.Caption = "&Btrieve..."
    mnuDBNBtrieve.Caption = LoadResString(S75_Btrieve)

    'WAS: mnuDBNODBC.Caption = "&ODBC..."
    mnuDBNODBC.Caption = LoadResString(S354_ODBC)

    'WAS: mnuDBNText.Caption = "&Text Files..."
    mnuDBNText.Caption = LoadResString(S540_Text_Files)

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

    'WAS: mnuDBImpExp.Caption = "&Import/Export..."
    mnuDBImpExp.Caption = LoadResString(S289_Import_Export)

    'WAS: mnuDBWorkspace.Caption = "&Workspace..."
    mnuDBWorkspace.Caption = LoadResString(S591_Workspace)

    'WAS: mnuDBErrors.Caption = "&Errors..."
    mnuDBErrors.Caption = LoadResString(S211_Errors)

    'WAS: mnuDBCompact.Caption = "Co&mpact MDB..."
    mnuDBCompact.Caption = LoadResString(S103_Co_mpact_MDB)

    'WAS: mnuDBC70MDB.Caption = "&7.0 MDB..."
    mnuDBC70MDB.Caption = LoadResString(S27_7_0_MDB)

    'WAS: mnuDBC20MDB.Caption = "&2.0 MDB..."
    mnuDBC20MDB.Caption = LoadResString(S24_2_0_MDB)

    'WAS: mnuDBRepair.Caption = "&Repair MDB..."
    mnuDBRepair.Caption = LoadResString(S452_Repair_MDB)

    'WAS: mnuDBExit.Caption = "E&xit"
    mnuDBExit.Caption = LoadResString(S224_E_xit)

    'WAS: mnuUtil.Caption = "&Utility"
    mnuUtil.Caption = LoadResString(S566_Utility)

    'WAS: mnuUQuery.Caption = "&Query Builder..."
    mnuUQuery.Caption = LoadResString(S426_Query_Builder)

    'WAS: mnuUDataFormDesigner.Caption = "Data &Form Designer..."
    mnuUDataFormDesigner.Caption = LoadResString(S131_Data_Form_Designer)

    'WAS: mnuUReplace.Caption = "&Global Replace..."
    mnuUReplace.Caption = LoadResString(S273_Global_Replace)

    'WAS: mnuUAttachments.Caption = "&Attachments.."
    mnuUAttachments.Caption = LoadResString(S60_Attachments)

    'WAS: mnuUGroupsUsers.Caption = "&Groups/Users..."
    mnuUGroupsUsers.Caption = LoadResString(S280_Groups_Users)

    'WAS: mnuUSystemDB.Caption = "&SYSTEM.MD?..."
    mnuUSystemDB.Caption = LoadResString(S513_SYSTEM_MD)

    'WAS: mnuPref.Caption = "&Preferences"
    mnuPref.Caption = LoadResString(S416_Preferences)

    'WAS: mnuPOpenOnStartup.Caption = "&Open Last DataBase on Startup"
    mnuPOpenOnStartup.Caption = LoadResString(S366_Open_Last_DataBase_)

    'WAS: mnuPAllowSys.Caption = "&Include System Tables"
    mnuPAllowSys.Caption = LoadResString(S292_Include_System_Tabl)

    'WAS: mnuPQueryTimeout.Caption = "&Query Timeout Value..."
    mnuPQueryTimeout.Caption = LoadResString(S429_Query_Timeout_Value)

    'WAS: mnuPLoginTimeout.Caption = "&Login Timeout Value..."
    mnuPLoginTimeout.Caption = LoadResString(S316_Login_Timeout_Value)

    'WAS: mnuWindow.Caption = "&Window"
    mnuWindow.Caption = LoadResString(S590_Window)

    'WAS: mnuWTile.Caption = "&Tile"
    mnuWTile.Caption = LoadResString(S546_Tile)

    'WAS: mnuWCascade.Caption = "&Cascade"
    mnuWCascade.Caption = LoadResString(S87_Cascade)

    'WAS: mnuWArrange.Caption = "&Arrange Icons"
    mnuWArrange.Caption = LoadResString(S50_Arrange_Icons)

    'WAS: mnuHelp.Caption = "&Help"
    mnuHelp.Caption = LoadResString(S281_Help)

    'WAS: mnuHTopics.Caption = "&Topics..."
    mnuHTopics.Caption = LoadResString(S550_Topics)

    'WAS: mnuHAbout.Caption = "&About..."
    mnuHAbout.Caption = LoadResString(S31_About)

    'WAS: mnuDBPUOpen.Caption = "&Open"
    mnuDBPUOpen.Caption = LoadResString(S360_Open)

    'WAS: mnuDBPUDesign.Caption = "&Design..."
    mnuDBPUDesign.Caption = LoadResString(S173_Design)

    'WAS: mnuDBPUEdit.Caption = "&Edit"
    mnuDBPUEdit.Caption = LoadResString(S183_Edit)

    'WAS: mnuDBPURename.Caption = "&Rename"
    mnuDBPURename.Caption = LoadResString(S451_Rename)

    'WAS: mnuDBPUDelete.Caption = "De&lete"
    mnuDBPUDelete.Caption = LoadResString(S157_De_lete)

    'WAS: mnuDBPUCopyStruct.Caption = "Copy Structure..."
    mnuDBPUCopyStruct.Caption = LoadResString(S118_Copy_Structure)

    'WAS: mnuDBPURemoveAll.Caption = "Remove All Records"
    mnuDBPURemoveAll.Caption = LoadResString(S446_Remove_All_Records)

    'WAS: mnuDBPURefresh.Caption = "Refresh List"
    mnuDBPURefresh.Caption = LoadResString(S443_Refresh_List)

    'WAS: mnuDBPUNewTable.Caption = "New &Table"
    mnuDBPUNewTable.Caption = LoadResString(S341_New_Table)

    'WAS: mnuDBPUNewQuery.Caption = "New &Query"
    mnuDBPUNewQuery.Caption = LoadResString(S339_New_Query)

End Sub