unit1.dfm

控制数据表每行的颜色

object Form1: TForm1
  Left = 253
  Top = 106
  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 DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 688
    Height = 217
    Align = alTop
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
  end
  object DBImage1: TDBImage
    Left = 8
    Top = 224
    Width = 321
    Height = 217
    DataField = 'picture'
    DataSource = DataSource1
    TabOrder = 1
  end
  object Button1: TButton
    Left = 352
    Top = 232
    Width = 75
    Height = 25
    Caption = #26041#27861'1'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 352
    Top = 272
    Width = 75
    Height = 25
    Caption = #26041#27861'2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object dxDBGrid1: TdxDBGrid
    Left = 312
    Top = 272
    Width = 337
    Height = 161
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 4
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    OnCustomDrawCell = dxDBGrid1CustomDrawCell
    object dxDBGrid1ID: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ID'
    end
    object dxDBGrid1name: TdxDBGridColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1picture: TdxDBGridBlobColumn
      Width = 100
      BandIndex = 0
      RowIndex = 0
      FieldName = 'picture'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 264
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    Left = 16
    Top = 200
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sysright.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 16
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'student'
    Left = 224
    Top = 16
    object ADOTable1ID: TIntegerField
      FieldName = 'ID'
    end
    object ADOTable1name: TWideStringField
      FieldName = 'name'
      FixedChar = True
      Size = 10
    end
    object ADOTable1picture: TBlobField
      FieldName = 'picture'
    end
  end
end