vtable.xfm

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

inherited VirtualTableFrame: TVirtualTableFrame
  Width = 451
  Height = 304
  VertScrollBar.Range = 236
  Align = alClient
  AutoScroll = False
  object Splitter: TSplitter
    Left = 0
    Top = 185
    Width = 451
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 117
    Width = 451
    Height = 68
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object DBMemo: TDBMemo
    Left = 0
    Top = 188
    Width = 451
    Height = 116
    Align = alBottom
    DataField = 'MEMO'
    DataSource = DataSource
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 117
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 405
      Height = 115
      BevelOuter = bvNone
      Color = 9790720
      ParentColor = False
      TabOrder = 0
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 100
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object btClose: TSpeedButton
        Left = 102
        Top = 1
        Width = 100
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btAutoFill: TSpeedButton
        Left = 203
        Top = 24
        Width = 100
        Height = 22
        Caption = 'Append 100'
        Flat = True
        Transparent = False
        OnClick = btAutoFillClick
      end
      object btAddField: TSpeedButton
        Left = 203
        Top = 1
        Width = 100
        Height = 22
        Caption = 'Add field'
        Flat = True
        Transparent = False
        OnClick = btAddFieldClick
      end
      object btDelField: TSpeedButton
        Left = 304
        Top = 1
        Width = 100
        Height = 22
        Caption = 'Delete field'
        Flat = True
        Transparent = False
        OnClick = btDelFieldClick
      end
      object btClear: TSpeedButton
        Left = 304
        Top = 24
        Width = 100
        Height = 22
        Caption = 'Clear'
        Flat = True
        Transparent = False
        OnClick = btClearClick
      end
      object btSave: TSpeedButton
        Left = 102
        Top = 24
        Width = 100
        Height = 22
        Caption = 'Save...'
        Flat = True
        Transparent = False
        OnClick = btSaveClick
      end
      object btLoad: TSpeedButton
        Left = 1
        Top = 24
        Width = 100
        Height = 22
        Caption = 'Load...'
        Flat = True
        Transparent = False
        OnClick = btLoadClick
      end
      object Panel4: TPanel
        Left = 1
        Top = 47
        Width = 152
        Height = 33
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 0
        object Label1: TLabel
          Left = 5
          Top = 10
          Width = 21
          Height = 13
          Caption = 'Field'
        end
        object edField: TEdit
          Left = 35
          Top = 5
          Width = 111
          Height = 21
          TabOrder = 0
          Text = 'Number'
        end
      end
      object Panel5: TPanel
        Left = 1
        Top = 81
        Width = 403
        Height = 33
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object Label5: TLabel
          Left = 5
          Top = 10
          Width = 23
          Height = 13
          Caption = 'Filter'
        end
        object cbFiltered: TCheckBox
          Left = 325
          Top = 7
          Width = 64
          Height = 17
          Caption = 'Filtered'
          TabOrder = 0
          OnClick = cbFilteredClick
        end
        object edFilter: TEdit
          Left = 35
          Top = 5
          Width = 267
          Height = 21
          TabOrder = 1
          OnExit = edFilterExit
        end
      end
      object Panel6: TPanel
        Left = 154
        Top = 47
        Width = 250
        Height = 33
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 2
        object Label2: TLabel
          Left = 5
          Top = 10
          Width = 24
          Height = 13
          Caption = 'Value'
        end
        object edValue: TEdit
          Left = 37
          Top = 5
          Width = 111
          Height = 21
          TabOrder = 0
          Text = '7'
        end
        object Panel7: TPanel
          Left = 158
          Top = 4
          Width = 87
          Height = 24
          BevelOuter = bvNone
          TabOrder = 1
          object btLocate: TSpeedButton
            Left = 1
            Top = 1
            Width = 85
            Height = 22
            Caption = 'Locate'
            Flat = True
            Transparent = False
            OnClick = btLocateClick
          end
        end
      end
    end
  end
  object OpenDialog: TOpenDialog
    Height = 0
    Width = 0
    DefaultExt = 'xml'
    FileName = 'Data1'
    Filter = 'Virtual Table Data (*.xml;*.vtd)|*.xml;*.vtd|All Files (*.*)|*.*'
    FilterIndex = 0
    Title = 'Open'
    Left = 416
    Top = 34
  end
  object SaveDialog: TSaveDialog
    Height = 0
    Width = 0
    DefaultExt = 'xml'
    FileName = 'Data1'
    Filter = 'XML Virtual Table Data (*.xml)|*.xml|Binary Virtual Table Data (*.vtd)|*.vtd|All Files (*.*)|*.*'
    FilterIndex = 0
    Title = 'Save'
    Left = 448
    Top = 34
  end
  object VirtualTable: TVirtualTable
    Active = True
    Filter = 'String LIKE '#39'%1%'#39
    FieldDefs = <
      item
        Name = 'NUMBER'
        DataType = ftFloat
      end
      item
        Name = 'STRING'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATE'
        DataType = ftDateTime
      end
      item
        Name = 'MEMO'
        DataType = ftMemo
      end>
    Left = 416
    Top = 2
    Data = {
      0300040006004E554D42455206000000000000000600535452494E4701003200
      000000000400444154450B0000000000000004004D454D4F1000000000000000
      00006400000008000000000000000000F03F2B00000055736520436F7265204C
      616220446174612041636365737320436F6D706F6E656E747320212121202831
      29080000000000C6BF58C8CC420E0000004D656D6F2076616C75652028312908
      00000000000000000000402B00000055736520436F7265204C61622044617461