内容发布更新时间 : 2024/5/2 13:15:35星期一 下面是文章的全部内容请认真阅读。

转载DBGrid和DBGridEH

转载DBGrid和DBGridEH 二、应用实例

Enlib3.0组件包安装成功后 A、定制标题行 1、制作复杂标题行

标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：

usemultititile=true; titlelines=2

DBGridEh.Columns[0].Title.Caption := '办公用品|代码'; DBGridEh.Columns[1].Title.Caption := '办公用品|名称';

2、标题行显示图片

实现图2中的购买人标题行显示效果。首先添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将DBGridEh的TitleImages设置为img1.最后在需要显示图片的列标题的imageindex中设置需要显示的img1中图

片的序号。按F9执行一下程序，是不是很酷！

3、自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序

DBGridEh组件可以在标题行单元格中显示小三角形升、降排序标志符图片，在运行时可点击标题行，图片自动切换并做相应排序。具体属性设置如下：

OptionsEh＝dghAutoSortMarking Column.Title.TitleButton＝true

SortMarkedColumns 为当前排序列可在运行时使用. 然后在该列的ontitleclick事件中添加代码：

procedure TForm_Query.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh); var

sortstring:string; //排序列 begin //进行排序 with Column do begin

if FieldName = '' then

Exit;

case Title.SortMarker of smNoneEh: begin

Title.SortMarker := smDownEh; sortstring := Column.FieldName + ' ASC'; end;

smDownEh: sortstring := Column.FieldName + ' ASC'; smUpEh: sortstring := Column.FieldName + ' DESC'; end; //进行排序 try

dataset.Sort := sortstring //dataset为实际数据集变量名 except end; end; end;

切记lookup型字段不可做上述设置，否则系统会提示错误。