Delphi DBGrid总结

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段 之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编 程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
    以下的示例程序演示了对 DBGrid 各属性的 设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
    示例程序的运行：
    在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本 代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if gdSelected in State then Exit;
file://定义表头的字体和背景颜色：
    for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
    begin
      (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; file://字体
      (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; file://字体大小
      (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; file://字体颜色(红色)
      (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; file://背景色(绿色)
    end;
file://隔行改变网格背景色：
  if Query1.RecNo mod 2 = 0 then
    (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk file://定义背景颜色
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); file://定义背景颜色
file://定义网格线的颜色：
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do file://画 cell 的边框
  begin
    Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
    LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
    Pen.Color := $0000ff00; file://定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); file://画笔定位
    LineTo(Rect.Right, Rect.Bottom); file://画绿色的竖线
  end;
end;    
 2003-11-5 17:31:41    原来还有这个办法啊，在没有DevExpress之前....
我会陆续添加的
2003-11-11 17:07:42    问题: Delphi5 - 隔行改变DBGrid网格颜色   在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序
代码:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var i:integer;
begin
  if gdSelected in State then Exit;  file://隔行改变网格背景色：
    if adoQuery1.RecNo mod 2 = 0 then
      (Sender as TDBGrid).Canvas.Brush.Color := clinfobk file://定义背景颜色
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223);  file://定义背景颜色
定义网格线的颜色：
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do file://画 cell 的边框
  begin
    Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
    LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
    Pen.Color := clbtnface; file://定义画笔颜色(兰色)
    MoveTo(Rect.Right, Rect.Top); file://画笔定位
    LineTo(Rect.Right, Rect.Bottom); file://画绿色
  end;
end;
用BDE中的table1未能通过，颜色没有隔行变化。 
2003-11-11 17:12:09    在Delphi的DBGrid中插入其他可视组件   Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可 以通过在DBGrid中插入其他可视组件来实现这一点。
  Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组 件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。
 
  1、在Delphi 4.0中新建一个项 目。
  2、分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板 上DBGrid，DBComboBox四个组件到Form1上。
  3、设置各个组件的属性如下：
rcf1对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
TableName 'teacher.DBF'
Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
DataSource DataSource1
Visible False
Strings Items. '男'| '女'
注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。
4、DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的 字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Field.FieldName = DBComboBox1.DataField ) then
    begin
      DBComboBox1.Left := Rect.Left + DBGrid1.Left;
      DBComboBox1.Top := Rect.Top + DBGrid1.top;
      DBComboBox1.Width := Rect.Right - Rect.Left;
      DBComboBox1.Height := Rect.Bottom - Rect.Top;
      DBComboBox1.Visible := True;
    end;
  end;
end;
5、DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
    begin
      DBComboBox1.Visible := false;
    end;
end;
  6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函 数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：
 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key < > chr(9)) then
  begin
    if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
    begin
      DBComboBox1.SetFocus;
      SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
    end;
  end;
end;
   程序在中文Windows 98，Delphi 4.015 下调试通 过。希望本文能使你可以更加方便快捷的开发数据库应用程序。 
2003-11-11 17:17:56    锁定DBGrid左边的列    我在使用 Delphi3 进行数 据库编程的时候，希望 DBGRID 构件在显示数据的时候能象FoxPro 的 BROWSE 命令一样，锁定左边指定的几列不进行滚动，请问应用什么方法来实 现？
   我们知道 Delphi 的 TStringGrid 有一个属性 FixedCols 来 指定不滚动的列。虽然TDBGrid 不能直接使用这一属性，但通过强制类型转换也可以首先这一功能，因为这两个类都来自 TCustomGrid 类。 下面我们以 Delphi 3.0的 Demos/Db/CtrlGrid 为例来说明具体的用法。在这个例子的 TFmCtrlGrid.FormShow 过程中加入如下一行：
  TStringGrid(DbGrid1).FixedCols := 2;
运行该程序，在左右移动各列时，Symbol 列不会移动。除了这种 方法，也可以采用下面的方法：首先在 Form 声明部分加上
   type TMyGrid = Class(TDBGrid) end;
  然后在 TFmCtrlGrid.FormShow 过程中加入：
TMyGrid(DbGrid1).FixedCols := 2;
两者从形式上略有不同，但实质都 是一样的。我们这里设置 FixedCols 为 2，这是因为在 DBGrid 构件最左 侧有个指示列，如果你将 DBGrid 的 Options 属性的 dgIndicator 设 为False，则应设置 FixedCols 为1。 
 2003-11-11 17:21:36    使dbgrid的某几笔资料变色   你可在 DBGrid 元件的 DrawDataCell 事件中依资料的条件性来改变格子或文字的颜色.
如 :
OnDrawDataCell(...)
begin
  with TDBGrid(Sender) do
  begin
    if (条件) then
      Canvas.TextOut(Rect.Left + 4
    Rect.Top + 2
'要 显示的文字如表格的资料');
end;
    而你会看到 DBGrid 的显示资 料怎麽有重叠的情况那是因为原本DBGrid要显示的资料与 TextOut 所显示的资料重叠
    解决方法 :
    在 Query 元件所加入的栏位(在元件上按右键会有 Add Fields...的选 单)在不 要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;
procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
  // 决定在 DBGrid 得知表格 资料时要不要显示所得到的资料False -> 不显示
  // 就可避免与 TextOut 的文字 重叠了
  DisplayText : = False;
end;
end;
   如果用 Delphi 3 处理 很简单.例 如:对表 中某字段当其数值小于0时为红字其他为黑字.
在 DBGrid.OnDrawColumnCell(...) 中:
begin
  if TableField.AsInteger < 0 then
    DBGrid.Canvas.Font.Color := clRed
  else
    DBGrid.Canvas.Font.Color := clBlack;
  DBGrid.DefaultDrawColumnCell(...);
end;
这样对 Field 指定的格式仍旧生效不必重写. 
2003-11-11 17:25:29    实战Delphi数据网格色彩特效   Delphi中的数据网格控件(TDbGrid)对于显示和编辑数据库中大量的数据起着十分重要的作用；然而，在使 用数据网格控件的同时，也往往因为表格中大量的数据不易区分，而令操作者眼花缭乱。如何提高网格控件的易用性，克服它的此项不足呢？本文从改变数据网格的 色彩配置角度，提出了一种解决办法。
以下为数据网格控件的6种特殊效果的实现方法，至于数据网格控件与数据集如何连接的方法从略。
1. 纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示以 区别相邻的数据列。
file://在DbGrid的DrawColumnCell事件中编写如下代码：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色
End;
DbGrid1.Canvas.Pen.Mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State)