在delphi中经常用到网格控件(dbgrid)显示数据

《在delphi中经常用到网格控件(dbgrid)显示数据》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、在DELPHI中经常用到网格控件（DBGrid）显示数据，网格控件只提供了每一行的颜色属性，但在实际应用中我们经常希望它按某一行某一项的取值不同显示不同的颜色，甚至在网格中的单位表格项中显示出图像等等，下面我们以一个简单的例子来告诉大家怎么做。比如我们要求如果春季有退书用红色表示，如果秋季有退书用黄色表示　　　　　利用DBGrid自绘功能可以很容易地实现这样的要求。用户可以处理DBGrid的OnDrawColumnCell事件，在其中实现特殊的效果。要判断记录是否满足要求，可以使用DBGrid的DataLink属性获得数据，但DBGrid的DataLink属性属于保护成员

2、，必须在TCustomDBGrid的子类中调用。typeTMyCustomDBGrid=class(TCustomDBGrid);procedureTForm1.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);varsCjts,sQjTs:String;beginwithTMyCustomerDBGrid(Sender)dobeginCjts:=DataLink.Fields[5].AsString;sQjts

3、:=DataLink.Fields[9].AsString;ifsCjts<>‘‘then　　　　　　　//春季退书数量>0的用红色显示Canvas.Brush.Color:=clRedelseifsQjts<>‘‘then　　　　　　//秋季退书数量>0的用黄色显示Canvas.Brush.Color:=clYellowelseCanvas.Brush.Color:=clWhite;Canvas.Font.Color:=clBlack;canvas.fillrect(rect);canvas.textout(rect.left+4,rect.top+4,Column.F

4、ield.AsString);end;end;　　由此方法可以延伸出其它控件的多种修饰方法，比如可以按数据项值采用不同的颜色，可以按记录号显示不同的颜色。总之，灵活应用canvas、rect及bitmap等对象，可以将各种网格装饰得绚丽多彩。如何才能得到DBGRID的行号，而不是数据集的行号？Edit1.Text:=inttostr(TDrawGrid(DBGrid1).Row);http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517在Delphi语言的数据库编程中，DBGrid是显示数据的主要手段之一。但是DBGr

5、id缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid外观的目的。通过编程，我们可以改变DBGrid的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。以下的示例程序演示了对DBGrid各属性的设置，使Delphi显示的表格就像网页中的表格一样漂亮美观。示例程序的运行：在Form1上放置DBGrid1、Query1、DataSource1三个数据库组件，设置相关的属性，使DBGrid1能显示表中的数据。然后，在DBGrid1的onDrawColumnCell事件中键入以下代码，然后运行程序，就可以看到神奇的结果了

6、。本代码在Windows98、Delphi5.0环境下调试通过。procedureTMainForm.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);vari:integer;beginifgdSelectedinStatethenExit;//定义表头的字体和背景颜色：fori:=0to(SenderasTDBGrid).Columns.Count-1dobegin(SenderasTDBGrid).Colu

7、mns[i].Title.Font.Name:='宋体';//字体(SenderasTDBGrid).Columns[i].Title.Font.Size:=9;//字体大小(SenderasTDBGrid).Columns[i].Title.Font.Color:=$000000ff;//字体颜色(红色)(SenderasTDBGrid).Columns[i].Title.Color:=$0000ff00;//背景色(绿色)end;//隔行改变网格背景色：ifQuery1.RecNomod2=0then(SenderasTD