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.
DBGridEh实现特定颜色
最新推荐文章于 2020-11-27 20:56:52 发布