main.dfm

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

object Form1: TForm1
  Left = 146
  Top = 113
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 315
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 26
    TabOrder = 0
    object btOpen: TButton
      Left = 0
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 75
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Close'
      TabOrder = 2
      OnClick = btCloseClick
    end
    object btAutoFill: TButton
      Left = 150
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Append 100'
      TabOrder = 3
      OnClick = btAutoFillClick
    end
    object btAddField: TButton
      Left = 225
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Add field'
      TabOrder = 4
      OnClick = btAddFieldClick
    end
    object btDelField: TButton
      Left = 300
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Del field'
      TabOrder = 5
      OnClick = btDelFieldClick
    end
    object DBNavigator: TDBNavigator
      Left = 375
      Top = 2
      Width = 240
      Height = 22
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 26
    Width = 688
    Height = 87
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 33
      Width = 22
      Height = 13
      Caption = 'Field'
    end
    object Label2: TLabel
      Left = 184
      Top = 32
      Width = 27
      Height = 13
      Caption = 'Value'
    end
    object Label5: TLabel
      Left = 7
      Top = 62
      Width = 22
      Height = 13
      Caption = 'Filter'
    end
    object edField: TEdit
      Left = 40
      Top = 29
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object edValue: TEdit
      Left = 222
      Top = 29
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object btLocate: TButton
      Left = 357
      Top = 27
      Width = 75
      Height = 25
      Caption = 'Locate'
      TabOrder = 2
      OnClick = btLocateClick
    end
    object edFilter: TEdit
      Left = 40
      Top = 58
      Width = 303
      Height = 21
      TabOrder = 3
    end
    object cbFiltered: TCheckBox
      Left = 360
      Top = 62
      Width = 73
      Height = 17
      Caption = 'Filtered'
      TabOrder = 4
      OnClick = cbFilteredClick
    end
    object btLoad: TButton
      Left = 0
      Top = 1
      Width = 75
      Height = 22
      Caption = 'Load...'
      TabOrder = 5
      OnClick = btLoadClick
    end
    object btSave: TButton
      Left = 75
      Top = 1
      Width = 75
      Height = 22
      Caption = 'Save...'
      TabOrder = 6
      OnClick = btSaveClick
    end
    object btClear: TButton
      Left = 150
      Top = 0
      Width = 70
      Height = 23
      Caption = 'Clear'
      TabOrder = 7
      OnClick = btClearClick
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 113
    Width = 688
    Height = 202
    Align = alClient
    DataSource = DataSource
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBMemo: TDBMemo
    Left = 0
    Top = 318
    Width = 688
    Height = 116
    Align = alBottom
    DataField = 'MEMO'
    DataSource = DataSource
    TabOrder = 3
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 434
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Width = 120
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object VirtualTable: TVirtualTable
    Active = True
    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 = 488
    Top = 42
    Data = {
      0100040006004E554D424552060000000600535452494E470100320004004441
      54450B00000004004D454D4F100000000000640000000800000000000000F03F
      2C00557365204F7261636C652044617461204163636573732066726F6D20436F
      7265204C61622021212120283129080000007E3313B5CC420E004D656D6F2076
      616C756520283129080000000000000000402C00557365204F7261636C652044
      617461204163636573732066726F6D20436F7265204C61622021212120283229
      080000007E3313B5CC420E004D656D6F2076616C756520283229080000000000
      000008402C00557365204F7261636C652044617461204163636573732066726F
      6D20436F7265204C61622021212120283329080000007E3313B5CC420E004D65
      6D6F2076616C756520283329080000000000000010402C00557365204F726163
      6C652044617461204163636573732066726F6D20436F7265204C616220212121
      20283429080000007E3313B5CC420E004D656D6F2076616C7565202834290800
      00000000000014402C00557365204F7261636C65204461746120416363657373
      2066726F6D20436F7265204C61622021212120283529080000007E3313B5CC42
      0E004D656D6F2076616C756520283529080000000000000018402C0055736520
      4F7261636C652044617461204163636573732066726F6D20436F7265204C6162
      2021212120283629080000007E3313B5CC420E004D656D6F2076616C75652028
      362908000000000000001C402C00557365204F7261636C652044617461204163
      636573732066726F6D20436F7265204C61622021212120283729080000007E33
      13B5CC420E004D656D6F2076616C756520283729080000000000000020402C00
      557365204F7261636C652044617461204163636573732066726F6D20436F7265
      204C61622021212120283829080000007E3313B5CC420E004D656D6F2076616C