求DXDBGRID的详细使用技巧

[xuliabc]

听说DXDBGRID控件功能很强大，很想了解一下，烦各位高手提供一下相关资料，谢谢！

[mathsfan]

网上搜索吧...

[xuliabc]

1、固定列宽
2、求合计（很奇怪，这个有时候出来有时候不出来）
3、将语句写到代码里面，运行后能排序。
现在是需要将语句写到控件属性然后将active设为true，觉得这样很不灵活。

暂时想到这几个问题，还有需要注意的地方希望大家一起补充一下。

[xuliabc]

补充一条
4、如果dxdbgrid有个checkbox字段，
怎样调用checkbox的check属性对选中的数据进行处理。

[fengfan]

这个dxdbgrid 搞的我要死

用到的几个比较好的功能：最佳列宽，比我自己写的显示效果要好。
导出到Excel。
统计，排序之类的。

另 dxdbgrid 已经不在 DevExpress 系列的新版本中，在Delphi2007下几乎不可能安装这个控件，所以我最终放弃了升级，继续使用Delphi 7,2007的开发环境可比7好多了。

dxdbGrid 控件比 cxGrid控件取代。到目前为止，我还没有研究透cxGrid怎么取代dxDBGrid 的。

[bdmh]

[Quote=引用 4 楼 xuliabc 的回复:]
1、固定列宽
2、求合计（很奇怪，这个有时候出来有时候不出来）
3、将语句写到代码里面，运行后能排序。
现在是需要将语句写到控件属性然后将active设为true，觉得这样很不灵活。

暂时想到这几个问题，还有需要注意的地方希望大家一起补充一下。
[/Quote]

1.固定列宽是什么意思,不能调整宽度吗,将列的Sizing := False
2.求合计有两个条件
(1)设置dxDBGrid1.KeyField
(2)dxDBGrid1.OptionsDB := dxDBGrid1.OptionsDB + [edgoLoadAllRecords]
(3)设置列的汇总属性
col.SummaryFooterField := colField;
col.SummaryFooterFormat := '合计:0.00';
col.SummaryFooterType := cstSum

3.不明白你的意思,要想点击表头排序,满足上面(1),(2)即可
4.如果是TdxDBGridCheckColumn列,有OnToggleClick事件

[xuliabc]

网上收过了，例子很少很简单。

[bdmh]

网上搜吧,有问题可以直接交流

[xuliabc]

固定列宽就是滚动条拖动的时候，固定的列不动。

[vivian_930]

up
在使用DBGride的过程中个人感觉不是很单行，一不小心会自动保存所有，尤其对于想保存历史记录时使用不是很方便

[xuliabc]

[Quote=引用 12 楼 bdmh 的回复:]


procedure TForm1.dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
begin
if ANode.Index mod 2 = 0 then
AColor := clRed
else
AColor := clYellow
end;

运行后光标的颜色没有了，怎样设置光标颜色？

[xuliabc]

ding

[bdmh]

[Quote=引用 8 楼 xuliabc 的回复:]
固定列宽就是滚动条拖动的时候，固定的列不动。
[/Quote]
添加band,将band设置为固定,设置band的fixed属性

[xuliabc]

6、怎样让dxdbgrid隔行显示不同颜色.(比如基数行显示红色，偶数行显示蓝色)
7、导出到Excel.

[bdmh]

[Quote=引用 11 楼 xuliabc 的回复:]
6、怎样让dxdbgrid隔行显示不同颜色.(比如基数行显示红色，偶数行显示蓝色)
7、导出到Excel.
[/Quote]
6:

procedure TForm1.dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
  const AText: String; AFont: TFont; var AColor: TColor; ASelected,
  AFocused: Boolean; var ADone: Boolean);
begin
  if ANode.Index mod 2 = 0 then
    AColor := clRed
  else
    AColor := clYellow
end;

7:

dxDBGrid1.SaveToXLS('filename',True);

[xuliabc]

zai ding