unitmain.dfm

Ehlib自动编号及自适应列宽演示 Ehlib自动编号及自适应列宽演示

object Form1: TForm1
  Left = 417
  Top = 286
  Width = 304
  Height = 172
  Caption = 'Ehlib'#33258#21160#24207#21495' && '#33258#36866#24212#21015#23485
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 296
    Height = 145
    Align = alClient
    DataSource = ds1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = pm1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    OnKeyPress = DBGridEh1KeyPress
    Columns = <
      item
        Color = clScrollBar
        EditButtons = <>
        Footers = <>
        Title.Caption = #24207#21495
        Width = 29
      end
      item
        EditButtons = <>
        FieldName = 'GoodsName'
        Footers = <>
        Title.Caption = #21830#21697#21517#31216
        Width = 134
      end
      item
        EditButtons = <>
        FieldName = 'GoodsNumber'
        Footers = <>
        Title.Caption = #21830#21697#25968#37327
        Width = 78
      end>
  end
  object ds1: TDataSource
    DataSet = cs1
    Left = 72
    Top = 80
  end
  object cs1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 40
    Top = 80
    object cs1GoodsName: TStringField
      FieldName = 'GoodsName'
    end
    object cs1GoodsNumber: TIntegerField
      FieldName = 'GoodsNumber'
    end
  end
  object qry1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=pubs;Data Source=.'
    Parameters = <>
    Left = 132
    Top = 104
  end
  object ds2: TDataSource
    Left = 172
    Top = 104
  end
  object pm1: TPopupMenu
    Left = 104
    Top = 24
    object N1: TMenuItem
      Caption = #21024#38500
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #33258#36866#24212#21015#23485
      OnClick = N3Click
    end
  end
end