u_frmimports.dfm

数据表对拷程序。 做这个程序的本意是

            Height = 20
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 1
            OnChange = edtSourceChange
          end
        end
        object Panel5: TPanel
          Left = 243
          Top = 65
          Width = 41
          Height = 136
          Align = alRight
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 1
          object sbnSourceDown: TSpeedButton
            Left = 8
            Top = 72
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
              333333333337F33333333333333033333333333333373F333333333333090333
              33333333337F7F33333333333309033333333333337373F33333333330999033
              3333333337F337F33333333330999033333333333733373F3333333309999903
              333333337F33337F33333333099999033333333373333373F333333099999990
              33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
              33333333337F7F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333300033333333333337773333333}
            NumGlyphs = 2
            OnClick = sbnSourceDownClick
          end
          object sbnSourceUp: TSpeedButton
            Left = 8
            Top = 40
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
              3333333333777F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333309033333333333337F7F333333333333090333
              33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
              3333333777737777F333333099999990333333373F3333373333333309999903
              333333337F33337F33333333099999033333333373F333733333333330999033
              3333333337F337F3333333333099903333333333373F37333333333333090333
              33333333337F7F33333333333309033333333333337373333333333333303333
              333333333337F333333333333330333333333333333733333333}
            NumGlyphs = 2
            OnClick = sbnSourceUpClick
          end
          object sbnSourceFirst: TSpeedButton
            Left = 8
            Top = 8
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
              337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
              4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
              44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
              473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
              7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
              33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
              33333333333737F333333333333C943333333333333737333333333333339733
              3333333333337F33333333333333933333333333333373333333}
            NumGlyphs = 2
            OnClick = sbnSourceFirstClick
          end
          object sbnSourceLast: TSpeedButton
            Left = 8
            Top = 104
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
              333333333337F3333333333333397333333333333337FF333333333333C94333
              3333333333737F333333333333C9473333333333337373F3333333333CC94433
              3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
              333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
              33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
              4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
              443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
              444377733337F333777FC3333339333337437333333733333373}
            NumGlyphs = 2
            OnClick = sbnSourceLastClick
          end
        end
        object clbSource: TCheckListBox
          Left = 0
          Top = 65
          Width = 243
          Height = 136
          Align = alClient
          ItemHeight = 12
          TabOrder = 2
        end
      end
    end
  end
  object gpbSQL: TGroupBox
    Left = 0
    Top = 217
    Width = 577
    Height = 192
    Align = alClient
    Caption = #29983#25104'SQL'#35821#21477'[&Q]'
    TabOrder = 1
    object Panel8: TPanel
      Left = 2
      Top = 14
      Width = 573
      Height = 42
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object btnCreate: TButton
        Left = 16
        Top = 8
        Width = 75
        Height = 25
        Caption = #29983#25104'[&C]'
        TabOrder = 0
        OnClick = btnCreateClick
      end
      object btnLoad: TButton
        Left = 104
        Top = 8
        Width = 75
        Height = 25
        Caption = #35013#36733'[&L]...'
        TabOrder = 1
        OnClick = btnLoadClick
      end
      object btnSave: TButton
        Left = 192
        Top = 8
        Width = 75
        Height = 25
        Caption = #20445#23384'[&A]'
        TabOrder = 2
        OnClick = btnSaveClick
      end
      object btnExecute: TButton
        Left = 368
        Top = 8
        Width = 75
        Height = 25
        Caption = #25191#34892'[&E]'
        TabOrder = 3
        OnClick = btnExecuteClick
      end
      object btnSaveAs: TButton
        Left = 280
        Top = 8
        Width = 75
        Height = 25
        Caption = #21478#23384#20026'[&V]...'
        TabOrder = 4
        OnClick = btnSaveAsClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 409
    Width = 577
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object ActionList2: TActionList
    Left = 472
    Top = 376
    object Undo: TAction
      Caption = #25764#38144'[&U]'
      ShortCut = 16474
      OnExecute = UndoExecute
      OnUpdate = UndoUpdate
    end
    object Redo: TAction
      Caption = #37325#20570'[&R]'
      ShortCut = 16473
      OnExecute = RedoExecute
      OnUpdate = RedoUpdate
    end
    object Copy: TAction
      Caption = #22797#21046'[&C]'
      ShortCut = 16451
      OnExecute = CopyExecute
      OnUpdate = CopyUpdate
    end
    object Cut: TAction
      Caption = #21098#36148'[&T]'
      ShortCut = 16472
      OnExecute = CutExecute
      OnUpdate = CutUpdate
    end
    object Paste: TAction
      Caption = #31896#36148'[&P]'
      ShortCut = 16470
      OnExecute = PasteExecute
      OnUpdate = PasteUpdate
    end
    object Delete: TAction
      Caption = #21024#38500'[&D]'
      ShortCut = 46
      OnExecute = DeleteExecute
      OnUpdate = DeleteUpdate
    end
    object SelectAll: TAction
      Caption = #20840#36873'[&A]'
      ShortCut = 16449
      OnExecute = SelectAllExecute
      OnUpdate = SelectAllUpdate
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 256
    Top = 32
    object Undo1: TMenuItem
      Action = Undo
    end
    object R2: TMenuItem
      Action = Redo
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object Copy1: TMenuItem
      Action = Copy
    end
    object Cut1: TMenuItem
      Action = Cut
    end
    object Delete1: TMenuItem
      Action = Delete
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object Paste1: TMenuItem
      Action = Paste
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object SelectAll1: TMenuItem
      Action = SelectAll
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.sql'
    Filter = 'SQL'#35821#21477'(*.sql)|*.sql|'#25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 408
    Top = 376
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.sql'
    Filter = 'SQL'#35821#21477'(*.sql)|*.sql|'#25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 440
    Top = 376
  end
  object ADOSource: TADOConnection
    LoginPrompt = False
    Left = 8
    Top = 24
  end
  object quySource: TADOQuery
    Connection = ADOSource
    Parameters = <>
    Left = 8
    Top = 56
  end
  object ADODesc: TADOConnection
    LoginPrompt = False
    Left = 304
    Top = 24
  end
  object quyDesc: TADOQuery
    Connection = ADODesc
    Parameters = <>
    Left = 304
    Top = 56
  end
end