loader.xfm

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

inherited LoaderFrame: TLoaderFrame
  Width = 737
  Height = 304
  VertScrollBar.Range = 64
  Align = alClient
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 737
    Height = 64
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object ToolBar: TPanel
      Left = 1
      Top = 1
      Width = 586
      Height = 62
      BevelOuter = bvNone
      Color = 16591631
      ParentColor = False
      TabOrder = 0
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 85
        Height = 24
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object btClose: TSpeedButton
        Left = 87
        Top = 1
        Width = 85
        Height = 24
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btLoad: TSpeedButton
        Left = 173
        Top = 1
        Width = 85
        Height = 24
        Caption = 'Load'
        Flat = True
        Transparent = False
        OnClick = btLoadClick
      end
      object btDeleteAll: TSpeedButton
        Left = 259
        Top = 1
        Width = 85
        Height = 24
        Caption = 'Delete All'
        Flat = True
        Transparent = False
        OnClick = btDeleteAllClick
      end
      object Panel1: TPanel
        Left = 1
        Top = 26
        Width = 171
        Height = 35
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 0
        object Label1: TLabel
          Left = 6
          Top = 14
          Width = 49
          Height = 13
          Caption = 'Load rows'
        end
        object edRows: TEdit
          Left = 66
          Top = 10
          Width = 87
          Height = 21
          TabOrder = 0
          Text = '1000'
        end
      end
      object Panel3: TPanel
        Left = 173
        Top = 26
        Width = 412
        Height = 35
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object rgEvent: TRadioGroup
          Left = 8
          Top = 2
          Width = 225
          Height = 32
          Items.Strings = (
            'GetColumnData'
            'PutData')
          Columns = 2
          TabOrder = 0
          OnClick = rgEventClick
        end
      end
      object Panel4: TPanel
        Left = 345
        Top = 1
        Width = 240
        Height = 24
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 2
        object DBNavigator: TDBNavigator
          Left = 0
          Top = 0
          Width = 240
          Height = 24
          DataSource = DataSource
          Flat = True
          TabOrder = 0
        end
      end
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 64
    Width = 737
    Height = 240
    Align = alClient
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 440
    Top = 64
  end
  object Query: TMyQuery
    Connection = MyDACForm.MyConnection
    SQL.Strings = (
      'SELECT * FROM MYDAC_Loaded')
    AfterOpen = QueryAfterOpen
    BeforeClose = QueryBeforeClose
    AfterRefresh = QueryAfterOpen
    Left = 408
    Top = 64
  end
  object MyLoader: TMyLoader
    Connection = MyDACForm.MyConnection
    TableName = 'MYDAC_Loaded'
    Columns = <
      item
        Name = 'Code'
        FieldType = ftInteger
      end
      item
        Name = 'Num'
        FieldType = ftInteger
      end
      item
        Name = 'Num1'
        FieldType = ftFloat
      end
      item
        Name = 'Str'
      end
      item
        Name = 'Dat'
        FieldType = ftDateTime
      end>
    OnGetColumnData = GetColumnData
    Left = 408
    Top = 96
  end
  object TruncCommand: TMyCommand
    Connection = MyDACForm.MyConnection
    SQL.Strings = (
      'TRUNCATE TABLE MYDAC_Loaded')
    Left = 408
    Top = 128
  end
end