一般酒店管理软件都是专用的。
如:Roomstat.db(房间状态库)
字段: 房号
......
......
以下为引用别人的程序:
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.