unit_demodbgridcolor.pas

来自「DELPHI的报表控件」· PAS 代码 · 共 53 行

unit Unit_DemoDBGridColor;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, DBGridColor;

type
  TForm1 = class(TForm)
    DBGridColor1: TDBGridColor;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1RYDM: TSmallintField;
    Table1SFXZ: TStringField;
    Table1SFJE: TCurrencyField;
    Table1XHBZ: TStringField;
    Table1SDRQ: TDateField;
    Table1SSSQ: TDateField;
    Table1OK: TBooleanField;
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure DBGridColor1QueryColor(var FontColor, BackColor: TColor;
      DataLink: TGridDataLink);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  DataSet.FieldByName('OK').AsBoolean := DataSet.FieldByName('RYDM').AsInteger > 5 ;
end;

procedure TForm1.DBGridColor1QueryColor(var FontColor, BackColor: TColor;
  DataLink: TGridDataLink);
var
  str : string;
begin
  Str := Table1.FieldByName('XHBZ').AsString;
  if str = '0' then begin FontColor := clYellow; BackColor := $00FF8080; end
  else if str = '3' then begin FontColor := clWhite; BackColor := clOlive; end;
end;

end.