服务器端用SQL-Server，如何实现DBGrid中隔行变色?本地数据库没有问题！

Question

（以下程序能实现斑马线，但程序不够稳定）
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  iRow,iGridHeight : Integer;
begin
  iGridHeight := Rect.Bottom - Rect.Top;
  iRow := (Rect.Top - iGridHeight ) div iGridHeight;
  if iRow mod 2 = 0 then dbgrid1.canvas.Brush.color:=$00EAEAEA;
  dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);
end;  （以下程序能在Paradox中实现斑马线，但不能在Access、SQL中实现）
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if query1.recno mod 2<>0 then  dbgrid1.canvas.Brush.color:=$00eaeaea;
    dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);
end;想问高手能否有更好的方法在Access、SQL中实现斑马线的更好的办法