ehlibado.pas

来自「非常出色表格制作工具,可以生成多种表格.」· PAS 代码 · 共 37 行

{*******************************************************}
{                                                       }
{                       EhLib v2.5                      }
{     Register object that sort data in TADOQuery       }
{                                                       }
{      Copyright (c) 2002 by Dmitry V. Bolshakov        }
{                                                       }
{*******************************************************}

{*******************************************************}
{ Add this unit to 'uses' clause of any unit of your    }
{ project to allow TDBGridEh to sort data in            }
{ TADOQuery automatically after sorting markers         }
{ will be changed.                                      }
{ TSQLDatasetFeaturesEh will try to find line in        }
{ TADOQuery.SQL string that begin from 'ORDER BY' phrase}
{ and replace line by 'ORDER BY FieldNo1 [DESC],....'   }
{ using SortMarkedColumns.                              }
{*******************************************************}

unit EhLibADO;

{$I EhLib.Inc}

interface

uses
  DbUtilsEh, ADODB;

implementation

uses Classes;

initialization
  RegisterDatasetFeaturesEh(TSQLDatasetFeaturesEh, TADOQuery);
end.