dump.xfm

Crlab公司用来连接MySQL数据库的控件

inherited DumpFrame: TDumpFrame
  Width = 524
  Height = 304
  VertScrollBar.Range = 123
  Align = alClient
  AutoScroll = False
  object meSQL: TMemo
    Left = 0
    Top = 194
    Width = 524
    Height = 110
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 524
    Height = 194
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 463
      Height = 191
      BevelOuter = bvNone
      Color = 16591631
      ParentColor = False
      TabOrder = 0
      object btBackup: TSpeedButton
        Left = 1
        Top = 97
        Width = 82
        Height = 22
        Caption = 'Backup Tables'
        Flat = True
        Transparent = False
        OnClick = btBackupClick
      end
      object btBackupSQL: TSpeedButton
        Left = 84
        Top = 97
        Width = 82
        Height = 22
        Caption = 'Backup SQL'
        Flat = True
        Transparent = False
        OnClick = btBackupSQLClick
      end
      object btRestore: TSpeedButton
        Left = 167
        Top = 97
        Width = 82
        Height = 22
        Caption = 'Restore'
        Flat = True
        Transparent = False
        OnClick = btRestoreClick
      end
      object Panel4: TPanel
        Left = 250
        Top = 97
        Width = 109
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 0
        object cbTbBackup: TCheckBox
          Left = 5
          Top = 3
          Width = 101
          Height = 17
          Caption = 'Backup tables'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
      end
      object Panel5: TPanel
        Left = 360
        Top = 97
        Width = 102
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object cbDataBackUp: TCheckBox
          Left = 5
          Top = 3
          Width = 92
          Height = 17
          Caption = 'Backup Data'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
      end
      object Panel6: TPanel
        Left = 1
        Top = 1
        Width = 461
        Height = 47
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 2
        object Label1: TLabel
          Left = 5
          Top = 4
          Width = 213
          Height = 13
          Caption = 'Table names to backup (with comma delimiter):'
        end
        object edTbNames: TEdit
          Left = 5
          Top = 20
          Width = 449
          Height = 21
          TabOrder = 0
          Text = 'EMP'
        end
      end
      object Panel7: TPanel
        Left = 1
        Top = 49
        Width = 461
        Height = 47
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 3
        object Label2: TLabel
          Left = 5
          Top = 2
          Width = 121
          Height = 13
          Caption = 'SQL statement to backup:'
        end
        object edQuery: TEdit
          Left = 5
          Top = 20
          Width = 448
          Height = 21
          TabOrder = 0
          Text = 'SELECT * FROM DEPT'
        end
      end
      object pnResult: TPanel
        Left = 1
        Top = 120
        Width = 461
        Height = 70
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 4
        object ProgressBar: TProgressBar
          Left = 0
          Top = 46
          Width = 460
          Height = 22
          Anchors = [akLeft, akTop, akRight]
        end
        object lbTableName: TLabel
          Left = 91
          Top = 6
          Width = 1
          Height = 13
        end
        object Label3: TLabel
          Left = 10
          Top = 6
          Width = 69
          Height = 19
          Caption = 'Current table:'
          Font.Color = clText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label4: TLabel
          Left = 10
          Top = 25
          Width = 116
          Height = 19
          Caption = 'Table backup progress:'
          Font.Color = clText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
    end
  end
  object MyDump: TMyDump
    SQL.Strings = (
      '')
    OnBackupProgress = MyDumpBackupProgress
    OnRestoreProgress = MyDumpRestoreProgress
    Connection = MyDACForm.MyConnection
    Left = 22
    Top = 208
  end
end