main.dfm

ODAC+SDAC源代码

object fmMain: TfmMain
  Left = 195
  Top = 181
  Width = 728
  Height = 463
  Caption = 'TVirtualTable Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 298
    Width = 720
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 113
    Width = 720
    Height = 185
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 720
    Height = 26
    TabOrder = 1
    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 DBMemo: TDBMemo
    Left = 0
    Top = 301
    Width = 720
    Height = 116
    Align = alBottom
    DataField = 'MEMO'
    DataSource = DataSource
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 26
    Width = 720
    Height = 87
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    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
      OnExit = edFilterExit
    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 StatusBar: TStatusBar
    Left = 0
    Top = 417
    Width = 720
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Width = 120
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'vtd'
    FileName = 'Data1.vtd'
    Filter = 'Virtual Table Data (*.vtd)|*.vtd|Any File (*.*)|*.*'
    Left = 488
    Top = 74
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'vtd'
    FileName = 'Data1.vtd'
    Filter = 'Virtual Table Data (*.vtd)|*.vtd|Any File (*.*)|*.*'
    Left = 520
    Top = 74
  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 = {
      0200040006004E554D424552060000000600535452494E470100320004004441
      54450B00000004004D454D4F1000000000006400000008000000000000000000
      F03F2C000000557365204F7261636C652044617461204163636573732066726F
      6D20436F7265204C616220212121202831290800000000007E3313B5CC420E00
      00004D656D6F2076616C7565202831290800000000000000000000402C000000
      557365204F7261636C652044617461204163636573732066726F6D20436F7265
      204C616220212121202832290800000000007E3313B5CC420E0000004D656D6F
      2076616C7565202832290800000000000000000008402C000000557365204F72
      61636C652044617461204163636573732066726F6D20436F7265204C61622021
      2121202833290800000000007E3313B5CC420E0000004D656D6F2076616C7565
      202833290800000000000000000010402C000000557365204F7261636C652044
      617461204163636573732066726F6D20436F7265204C61622021212120283429
      0800000000007E3313B5CC420E0000004D656D6F2076616C7565202834290800
      000000000000000014402C000000557365204F7261636C652044617461204163
      636573732066726F6D20436F7265204C61622021212120283529080000000000
      7E3313B5CC420E0000004D656D6F2076616C7565202835290800000000000000
      000018402C000000557365204F7261636C652044617461204163636573732066
      726F6D20436F7265204C616220212121202836290800000000007E3313B5CC42
      0E0000004D656D6F2076616C756520283629080000000000000000001C402C00
      0000557365204F7261636C652044617461204163636573732066726F6D20436F