第13章 数据库编程(12)

delphi数据库编程

可通过DBGrid控件的OnTitleClick事件实现： procedure TForm1.DBGrid1TitleClick(Column: TColumn); //单击列标头

var

sSort, sTitle: string;

i: integer;

begin

sTitle := Column.FieldName; //取当前列字段名作为修改列标题的基础

with ADOTable1 do

{ 亦可用以下语句，适用于各种ADO数据集(需在本单元中引用ADODB)，

不必考虑其类型和名称：

with TCustomADODataSet(Column.Field.DataSet) do } begin

sSort := Sort; //取当前数据集排序字段和方式(升/降)

if sSort = Column.FieldName then //若为升序则改为降序

begin

sSort := sSort + ' DESC';

sTitle := sTitle + '↓'; //预存拟修改的列标题文本

end

else //否则改为升序 begin

sSort := Column.FieldName;

sTitle := sTitle + '↑';

end;

Sort := sSort; //排序

end;

//改变排序列标题的文本

Column.Title.Caption := sTitle;

// 其他列标题均设置为默认格式

for i := 0 to Column.Collection.Count - 1 do with TDBGrid(Column.Grid).Columns[i] do

if FieldName <> Column.FieldName then