unit1.dfm

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

object Form1: TForm1
  Left = 318
  Top = 287
  Width = 721
  Height = 540
  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 grdReal: TRealGrid
    Left = 20
    Top = 12
    Width = 561
    Height = 197
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 0
    Columns = <
      item
        Footer.Style = (
          '200000'
          '199990')
        Group = 0
        LevelIndex = 1
        Title.Caption = 'Column0'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 66
      end
      item
        Color = clYellow
        Footer.Style = (
          '099990'
          '099990')
        Group = 0
        Title.Caption = 'Column1'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 69
      end
      item
        Footer.Style = (
          '299990'
          '099990')
        Group = 0
        Level = 1
        Title.Caption = 'Column2'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 135
      end
      item
        Footer.Style = (
          '099990'
          '099990')
        Group = 2
        Title.Caption = 'Column3'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 64
      end
      item
        Footer.Style = (
          '099990'
          '099990')
        Group = 1
        Title.Caption = 'Column4'
        DataWidth = 16
        ColWidth = 64
        GrpWidth = 64
      end>
    Groups = <
      item
        Levels = 2
        Title.Caption = 'Group0'
        Weight = 2
        Width = 135
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group1'
        Title.Visible = False
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group2'
        Weights = {01010101010101010101010101010101}
      end>
    Footers = <
      item
        Title.Caption = 'aa'
        ColHeight = 21
        GrpHeight = 42
      end
      item
        ColHeight = 21
        GrpHeight = 42
      end>
    Headers.Lines.CellColor = clBlack
    Headers.Lines.LevelColor = clBlack
    Headers.ColHeight = 21
    Headers.GrpHeight = 42
    FixedStyle.Lines.CellColor = clBlack
    FixedStyle.Lines.LevelColor = clBlack
    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, wgoDeleting, wgoEditing, wgoEnterToTab, wgoFocusRect, wgoInserting]
    ColRowHeight = 18
    GrpRowHeight = 36
    ColFixedCount = 0
    GrpFixedCount = 0
  end
  object cmReal: TButton
    Left = 600
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Convert'
    TabOrder = 1
    OnClick = cmRealClick
  end
  object grdDB: TRealDBGrid
    Left = 20
    Top = 232
    Width = 561
    Height = 257
    ImeName = '茄惫绢(茄臂) (MS-IME98)'
    TabOrder = 2
    Columns = <
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Footer.Style = ()
        Group = 0
        Level = 1
        Title.Caption = 'CustNo'
        FieldName = 'CustNo'
        ColWidth = 57
        GrpWidth = 146
      end
      item
        Color = clLime
        Footer.Style = ()
        Group = 0
        LevelIndex = 1
        Title.Caption = 'Company'
        FieldName = 'Company'
        ColWidth = 157
        GrpWidth = 98
      end
      item
        Footer.Style = ()
        Group = 2
        Level = 1
        Title.Caption = 'Addr1'
        FieldName = 'Addr1'
        ColWidth = 159
        GrpWidth = 47
      end
      item
        Footer.Style = ()
        Group = 3
        Title.Caption = 'Addr2'
        FieldName = 'Addr2'
        ColWidth = 140
        GrpWidth = 82
      end
      item
        Color = clAqua
        Footer.Style = ()
        Group = 4
        Level = 1
        Title.Caption = 'City'
        FieldName = 'City'
        ColWidth = 87
        GrpWidth = 32
      end
      item
        Footer.Style = ()
        Group = 0
        Title.Caption = 'State'
        FieldName = 'State'
        ColWidth = 160
        GrpWidth = 48
      end
      item
        Footer.Style = ()
        Group = 1
        Title.Caption = 'Zip'
        FieldName = 'Zip'
        ColWidth = 80
        GrpWidth = 50
      end
      item
        Footer.Style = ()
        Group = 2
        Level = 1
        LevelIndex = 1
        Title.Caption = 'Country'
        FieldName = 'Country'
        ColWidth = 160
        GrpWidth = 47
      end
      item
        Footer.Style = ()
        Group = 2
        Title.Caption = 'Phone'
        FieldName = 'Phone'
        ColWidth = 120
        GrpWidth = 94
      end
      item
        Footer.Style = ()
        Group = 1
        LevelIndex = 1
        Title.Caption = 'FAX'
        FieldName = 'FAX'
        ColWidth = 86
        GrpWidth = 51
      end
      item
        Footer.Style = ()
        Group = 2
        Level = 2
        Title.Caption = 'TaxRate'
        FieldName = 'TaxRate'
        ColWidth = 80
        GrpWidth = 94
      end
      item
        Footer.Style = ()
        Group = 4
        Title.Caption = 'Contact'
        FieldName = 'Contact'
        ColWidth = 106
        GrpWidth = 64
      end
      item
        Footer.Style = ()
        Group = 4
        Level = 1
        LevelIndex = 1
        Title.Caption = 'LastInvoiceDate'
        FieldName = 'LastInvoiceDate'
        ColWidth = 112
        GrpWidth = 32
      end>
    Groups = <
      item
        Levels = 2
        Title.Caption = 'Group0'
        Weight = 2
        Width = 146
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group1'
        Width = 101
        Weights = {01010101010101010101010101010101}
      end
      item
        Levels = 3
        Title.Caption = 'Group2'
        Weight = 3
        Width = 94
        Weights = {01010101010101010101010101010101}
      end
      item
        Title.Caption = 'Group3'
        Width = 82
        Weights = {01010101010101010101010101010101}
      end
      item
        Levels = 2
        Title.Caption = 'Group4'
        Weight = 2
        Weights = {01010101010101010101010101010101}
      end>
    Footers = <>
    Headers.Lines.CellColor = clBlack
    Headers.Lines.LevelColor = clBlack
    Headers.ColHeight = 21
    Headers.GrpHeight = 60
    FixedStyle.Lines.CellColor = clBlack
    FixedStyle.Lines.LevelColor = clBlack
    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 cmDB: TButton
    Left = 600
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Convert'
    TabOrder = 3
    OnClick = cmDBClick
  end
  object chkReal: TCheckBox
    Left = 600
    Top = 12
    Width = 97
    Height = 17
    Caption = 'Group Mode'
    TabOrder = 4
    OnClick = chkRealClick
  end
  object chkDB: TCheckBox
    Left = 600
    Top = 232
    Width = 97
    Height = 17
    Caption = 'Group Mode'
    TabOrder = 5
    OnClick = chkDBClick
  end
  object exMain: TRealExcel
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clWindowText
    Title.Font.Height = -19
    Title.Font.Name = 'MS Sans Serif'
    Title.Font.Style = [fsBold]
    Title.Text = 'TRealGrid 竣伎 函券'
    Header.Color = clInfoBk
    Header.Font.Charset = ANSI_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -13
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = [fsBold]
    Header.Lines.Strings = (
      'TRealGrid甫 竣伎肺'
      '函券窍绰 楷嚼涝聪促.'
      '八配 官而聪促.')
    Footer.Color = clYellow
    Footer.Font.Charset = ANSI_CHARSET
    Footer.Font.Color = clWindowText
    Footer.Font.Height = -13
    Footer.Font.Name = 'Tahoma'
    Footer.Font.Style = []
    Footer.HAlign = taRightJustify
    Footer.Lines.Strings = (
      '肋 钎矫登绊 乐嚼聪鳖?')
    SheetName = 'Sheet1'
    Grid = grdReal
    Left = 600
    Top = 72
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 604
    Top = 288
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 640
    Top = 288
  end
  object exDb: TRealDBExcel
    Title.Color = clBlack
    Title.Font.Charset = ANSI_CHARSET
    Title.Font.Color = clWhite
    Title.Font.Height = -21
    Title.Font.Name = 'Tahoma'
    Title.Font.Style = [fsBold]
    Title.Text = 'TRealDBGrid甫 竣伎 函券 抗力'
    Header.Font.Charset = ANSI_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -16
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = []
    Header.HAlign = taRightJustify
    Header.Lines.Strings = (
      'TRealDBGrid甫 竣伎肺 函券窍绊 乐嚼聪促.')
    Footer.Color = clLime
    Footer.Font.Charset = ANSI_CHARSET
    Footer.Font.Color = clWindowText
    Footer.Font.Height = -16
    Footer.Font.Name = 'Tahoma'
    Footer.Font.Style = [fsBold]
    Footer.Lines.Strings = (
      '加档啊 腹捞 蠢赋聪促.'
      '八配 官而聪促.')
    SheetName = 'Sheet1'
    Grid = grdDB
    Left = 604
    Top = 328
  end
end