看来楼上这位兄弟想做酒店管理软件了，呵呵看来我们是同行
用空多交流交流
我用的是DBCtrlGrid,将它联上数据表，然后在其定义如下过程
procedure Troomstate_fe.ftbPaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
var
a,b,c,d:integer;
begin
c:=ftb.Height;
d:=ftb.height;
if dm_fe.room_state_qy.FieldByName('a040109').value='X' then //清扫房
begin
ftb.Canvas.Brush.Color := clolive;
ftb.Canvas.rectangle(1,1,c,d);
tubiao.Draw(ftb.canvas,40,40,4); //画上清扫图标
end;
if dm_fe.room_state_qy.FieldByName('a040109').value='O' then //空OK房
begin
ftb.Canvas.Brush.Color := clgreen;
ftb.Canvas.Rectangle(1,1,c,d);
ftb.Canvas.Font.Size:=12;
tubiao.Draw(ftb.canvas,40,40,3); // 画上钥匙图标
end;
end.
.....................
