ehlibibx.pas

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

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

unit EhLibIBX;

{$I EhLib.Inc}

interface

uses
  DbUtilsEh, IBQuery;

implementation

initialization
  RegisterDatasetFeaturesEh(TSQLDatasetFeaturesEh, TIBQuery);
end.