procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
try
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(BaseQuery);
Query1.SQL.Add('ORDER BY ' + Column.FieldName);
Query1.Open;
DBGrid1.Columns.RestoreDefaults;
Column.Title.Font.Color := clBlue;
finally
end;
end;
begin
try
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(BaseQuery);
Query1.SQL.Add('ORDER BY ' + Column.FieldName);
Query1.Open;
DBGrid1.Columns.RestoreDefaults;
Column.Title.Font.Color := clBlue;
finally
end;
end;
解决方案 »
- rtf转txt文本
- 知道机器名和打印机共享名.我怎么把它设成默认打印机.急!急!急!急!
- 请问:关于语法上的简单问题(指针,记录)
- 我在label1中设置了这样一个caption:3/8,如何才能将它化成float型数据呢?
- ##### 建议某些CSDN的垃圾不要用DELPHI和C++比。。。
- RegisterClass 失败
- C中的myInteger=*myPointer,在delphi下怎么写?
- 自绘控件中有VCL成员(如TEdit),能不能把成员的属性公布出来?如何做?
- 如何动态设置Query的Params,并进行查询?
- 上帝救救我吧,建立动态存储过程的问题!
- 高分解决sql问题。在线等待。
- 急问急问急问急问急问急问急问急问急问急问急问急问
'order by '+
Column.FieldName