您好：

我不清楚你要如何的應用？

所以POST我自己寫的出勤表CODE某部份給你參考

請在DBgri的OnDrawColumnCell事件中加入以下程式碼

begin
if adoDataSet21.FieldByName('WeekDay').Value= '日' then
DBGrid1.Canvas.Brush.Color:=$00BABCFA
else if adoDataSet21.FieldByName('WeekDay').Value= '六' then
DBGrid1.Canvas.Brush.Color:=$00FFC6C6;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,[]);

end;