DBGridEh实现特定颜色

关注

最新推荐文章于 2026-02-11 10:18:25 发布 153 阅读 AI 写同款· GEO 优化 ›

unit U_color;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Grids, DBGridEh, ExtCtrls;

type
TForm1 = class(TForm)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOTable1: TADOTable;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ys:string;
begin
ys:=ADOTable1.FieldValues['id'];
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('update test set ysbs=1 where id= '+ys);
try
    execSQL;
    application.MessageBox('变色成功','系统提示',mb_iconquestion+mb_ok);
except
end;
end;
ADOTable1.Refresh;

end;

procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
if ADOTable1.FieldValues['ysbs']='1' then
Background:=clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ys:string;
begin
ys:=ADOTable1.FieldValues['id'];
with ADOQuery2 do
begin
    close;
    sql.Clear;
    sql.add('update test set ysbs=2 where id='+ys);
    try
      execsql;
      application.MessageBox('恢复成功！','系统提示',mb_iconquestion+mb_ok);
    except
end;
end;
ADOTable1.Refresh;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if ADOTable1.Active=false then ADOTable1.Active:=true;
ADOTable1.Refresh;
end;

end.