ehlibdbx.pas

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

{*******************************************************}
{                                                       }
{                       EhLib v2.5                      }
{      Register object that sort data in TSQLQuery      }
{                                                       }
{      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            }
{ TSQLQuery automatically after sorting markers         }
{ will be changed.                                      }
{ TSQLDatasetFeaturesEh will try to find line in        }
{ TSQLQuery.SQL string that begin from 'ORDER BY' phrase}
{ and replace line by 'ORDER BY FieldNo1 [DESC],....'   }
{ using SortMarkedColumns.                              }
{*******************************************************}

unit EhLibDBX;

{$I EhLib.Inc}

interface

uses
  DbUtilsEh, SqlExpr;

implementation

initialization
  RegisterDatasetFeaturesEh(TSQLDatasetFeaturesEh, TSQLQuery);
end.