mytest002.dfm

韩国的一个数据表控件2 很好用 支持D4-5 一共5个 Korea, a data table control

object Form1: TForm1
  Left = 204
  Top = 157
  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 RealGrid1: TRealGrid
    Left = 14
    Top = 18
    Width = 573
    Height = 137
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 0
    Columns = <
      item
        Footer.Style = ()
        Group = 0
        Level = 1
        Title.Caption = 'Column0'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 148
      end
      item
        Footer.Style = ()
        Group = 0
        LevelIndex = 1
        Title.Caption = 'Column1'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 74
      end
      item
        Footer.Style = ()
        Group = 0
        Title.Caption = 'Column2'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 74
      end
      item
        Footer.Style = ()
        Group = 1
        LevelIndex = 1
        Title.Caption = 'Column3'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 69
      end
      item
        Footer.Style = ()
        Group = 1
        Title.Caption = 'Column4'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 68
      end
      item
        Footer.Style = ()
        Group = 2
        LevelIndex = 2
        Title.Caption = 'Column5'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 121
      end
      item
        Footer.Style = ()
        Group = 2
        LevelIndex = 1
        Title.Caption = 'Column6'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 60
      end
      item
        Footer.Style = ()
        Group = 2
        Title.Caption = 'Column7'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 60
      end>
    Groups = <
      item
        Levels = 2
        Title.Caption = 'Group0'
        Weight = 2
        Width = 148
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group1'
        Width = 137
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group2'
        Width = 241
        Weights = {01010101010101010101010101010101}
      end>
    Footers = <>
    Headers.Lines.CellColor = clBlack
    Headers.Lines.LevelColor = clBlack
    Headers.ColHeight = 21
    Headers.GrpHeight = 42
    FixedStyle.Lines.CellColor = clBlack
    FixedStyle.Lines.LevelColor = clBlack
    GroupMode = True
    Indicators.Font.Charset = DEFAULT_CHARSET
    Indicators.Font.Color = clWindowText
    Indicators.Font.Height = -11
    Indicators.Font.Name = 'Arial'
    Indicators.Font.Style = []
    Lines.HorzColor = clGray
    Options = [wgoArrowMove, wgoConfirmDelete, wgoEditing, wgoEnterToTab, wgoFocusRect]
    RowCount = 20
    ColRowHeight = 18
    GrpRowHeight = 36
    ColFixedCount = 0
    GrpFixedCount = 0
  end
  object Button1: TButton
    Left = 602
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object RealDBGrid1: TRealDBGrid
    Left = 16
    Top = 162
    Width = 575
    Height = 263
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 2
    Columns = <
      item
        Footer.Style = ()
        Group = 0
        Level = 1
        Title.Caption = 'Category'
        FieldName = 'Category'
        ColWidth = 64
        GrpWidth = 172
      end
      item
        Footer.Style = ()
        Group = 0
        LevelIndex = 1
        Title.Caption = 'Common_Name'
        FieldName = 'Common_Name'
        ColWidth = 64
        GrpWidth = 86
      end
      item
        Alignment = taLeftJustify
        Footer.Style = ()
        Group = 0
        Title.Caption = 'Graphic'
        FieldName = 'Graphic'
        ColWidth = 64
        GrpWidth = 86
      end
      item
        Alignment = taLeftJustify
        Footer.Style = ()
        Group = 1
        LevelIndex = 1
        Title.Caption = 'Length (cm)'
        FieldName = 'Length (cm)'
        ColWidth = 64
        GrpWidth = 86
      end
      item
        Alignment = taLeftJustify
        Footer.Style = ()
        Group = 1
        Title.Caption = 'Length_In'
        FieldName = 'Length_In'
        ColWidth = 64
        GrpWidth = 86
      end
      item
        Footer.Style = ()
        Group = 2
        LevelIndex = 2
        Title.Caption = 'Notes'
        FieldName = 'Notes'
        ColWidth = 64
        GrpWidth = 93
      end
      item
        Footer.Style = ()
        Group = 2
        LevelIndex = 1
        Title.Caption = 'Species Name'
        FieldName = 'Species Name'
        ColWidth = 64
        GrpWidth = 47
      end
      item
        Footer.Style = ()
        Group = 2
        Title.Caption = 'Species No'
        FieldName = 'Species No'
        ColWidth = 64
        GrpWidth = 46
      end>
    Groups = <
      item
        Levels = 2
        Title.Caption = 'Group0'
        Weight = 2
        Width = 172
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group1'
        Width = 172
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group2'
        Width = 186
        Weights = {01010101010101010101010101010101}
      end>
    Footers = <>
    Headers.Lines.CellColor = clBlack
    Headers.Lines.LevelColor = clBlack
    Headers.ColHeight = 21
    Headers.GrpHeight = 42
    FixedStyle.Lines.CellColor = clBlack
    FixedStyle.Lines.LevelColor = clBlack
    GroupMode = True
    Indicators.Font.Charset = DEFAULT_CHARSET
    Indicators.Font.Color = clWindowText
    Indicators.Font.Height = -11
    Indicators.Font.Name = 'Arial'
    Indicators.Font.Style = []
    Lines.HorzColor = clGray
    DataSource = DataSource1
    ColRowHeight = 18
    GrpRowHeight = 36
    ColFixedCount = 0
    GrpFixedCount = 0
  end
  object Button2: TButton
    Left = 604
    Top = 46
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object RealExcel1: TRealExcel
    Title.Font.Charset = ANSI_CHARSET
    Title.Font.Color = clWindowText
    Title.Font.Height = -13
    Title.Font.Name = '奔覆眉'
    Title.Font.Style = []
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Footer.Font.Charset = DEFAULT_CHARSET
    Footer.Font.Color = clWindowText
    Footer.Font.Height = -11
    Footer.Font.Name = 'MS Sans Serif'
    Footer.Font.Style = []
    SheetName = 'Sheet1'
    BorderColor = clRed
    GridColAttrib = True
    Grid = RealGrid1
    Left = 442
    Top = 4
  end
  object RealDBExcel1: TRealDBExcel
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clWindowText
    Title.Font.Height = -11
    Title.Font.Name = 'MS Sans Serif'
    Title.Font.Style = []
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Footer.Font.Charset = DEFAULT_CHARSET
    Footer.Font.Color = clWindowText
    Footer.Font.Height = -11
    Footer.Font.Name = 'MS Sans Serif'
    Footer.Font.Style = []
    SheetName = 'Sheet1'
    GridColAttrib = False
    Grid = RealDBGrid1
    Left = 496
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 28
    Top = 4
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 60
    Top = 2
  end
end