在进销存等数据库系统中，在数据查询统计及打印报表时，根据用户要求，需要提供彩色数据表格和灰度报表，以便用户能够直观了解不同的分类数据信息，通过Delphi和Windows底层开发技术，我们可以自定义数据表格组件，实现在同一表格中对不同类别的数据显示不同的颜色；我们还可以重新设计报表，开发出能够定制数据行显示不同灰度的报表组件。下面分别阐述如下。
大多数的数据浏览控件是从标准控件中演变过来的，它们具有一些相似的特性，都是通过TDataSource控件连接到TTable或者TQuery控件，尤其是TDBGrid控件，它可以以网格的形式显示数据库表中全部记录的所有字段信息。但是TDBGrid控件的Color属性只能从整体上修改网格显示的颜色，如果要对应不同的数据行根据需求的变化灵活显示不同的颜色，就需要我们通过编程实现了。这里要用到DefalultDrawing这个属性，该属性是布尔型属性，它用于控制网格中各网格单元的绘制方式。在缺省情况下，该属性的值为True，也就是说Delphi使用网格本身缺省的方法绘制网格中各网格单元，并填充各网格单元中的内容，各网格单元中的数据根据其对应的字段控件的DisplayFormat属性和EditFormat属性进行显示和绘制。如果DefalultDrawing属性被设置为False，Delphi不会自动地绘制网格中各网格单元和网格单元中的数据，用户必须自己为TDBGrid控件的OnDrawDataCell事件编写相应的程序用于绘制各网格单元和其中的数据。具体程序代码如下：
……
procedure TFZhanKuanFenLeiRep.DBGrid2DrawDataCell
(Sender: TObject;const Rect: TRect; Field: TField; State: TGridDrawState);
var
pmbm,qcbm:string;
begin
pmbm:=datasource1.DataSet.Fields[0].AsString;
qcbm:=datasource1.DataSet.Fields[1].AsString;
case Length(pmbm) of
（在需要的地方显示灰色）
1: (Sender as TDBGrid).Canvas.Brush.Color := clgray;
2: (Sender as TDBGrid).Canvas.Brush.Color := clgray;
4,6,8,10,12:
begin
if datasource1.DataSet.FieldByName( yjdbz ).asstring= 0 then
if qcbm= 0000 then
(Sender as TDBGrid).Canvas.Brush.Color := clbtnface
（在需要的地方显示白色）
else (Sender as TDBGrid).Canvas.Brush.Color := Clwhite
else
(Sender as TDBGrid).Canvas.Brush.Color := cl3dlight;
end
end;
（用定义的刷子填充矩形）
(Sender as TDBGrid).Canvas.FillRect(Rect);
(Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,Field.AsString);
end;
……
至此，配合程序中的数据，我们就可以用TDBGrid控件来显示和编辑彩色数据表格中的数据了。
下面阐述的是如何显示灰度报表。在Delphi的Qreport组中有Quickrep控件，设置该控件的属性，加入DetailBand，在DetailBand的BeforePrint事件中编写代码如下：
……
procedure TFZhanKuanFenLeiRep.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
len:integer;
st:string;
label le1;
begin
if Trim(SQuickRep1.DataSet[ PMBM ]) = 0 then begin
SetQRShapeColor([QRShape2, QRShape3, QRShape6, QRShape12,
QRShape13, QRShape14], clgray);
end
else
case Length(SQuickRep1.DataSet.Fields[0].AsString) of
2:
SetQRShapeColor([QRShape2, QRShape3, QRShape6, QRShape12,
QRShape13, QRShape14], clgray);
4,6,8,10,12:
begin
if SQuickRep1.DataSet.Fields[0].AsString= 合计 then DetailBand1.Color:=clGray
else
begin
len:=Length(SQuickRep1.DataSet.Fields[0].AsString);
st:=SQuickRep1.DataSet.Fields[0].AsString;
SQuickRep1.DataSet.Next;
if not SQuickRep1.DataSet.EOF then
begin
if st=copy(SQuickRep1.DataSet.Fields[0].AsString,1,len) then
SetQRShapeColor([QRShape2, QRShape3, QRShape6, QRShape12,
QRShape13, QRShape14], cl3DLight)
else
SetQRShapeColor([QRShape2, QRShape3, QRShape6, QRShape12,
QRShape13, QRShape14], clWhite);
// DetailBand1.Color:=clWhite;
SQuickRep1.DataSet.Prior;
end
else
SetQRShapeColor([QRShape2, QRShape3, QRShape6, QRShape12,
QRShape13, QRShape14], clWhite);
// DetailBand1.Color:=clWhite;
end;
end;
end;
end;
……
该段代码将查询统计到的数据进行分类，并且分别显示不同的灰度颜色。其中SetQRShapeColor过程为将指定的报表显示格填充指定的颜色，其程序代码编写如下：
procedure SetQRShapeColor(Shapes: array of TQRShape; PColor: TColor);
var
X: Integer;
begin
for X := 0 to High(Shapes) do Shapes[X].Brush.Color := PColor;
end;
以上程序代码在Delphi6.0中编译通过。
