?? ehlibdbx.pas
字號:
{*******************************************************}
{ }
{ EhLib v3.5 }
{ Register object that sort data in }
{ TSQLQuery, TSQLDataSet }
{ }
{ Copyright (c) 2002, 2003 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, Db;
implementation
function DBXDataSetDriverName(DataSet: TCustomSQLDataSet): String;
begin
Result := DataSet.SQLConnection.DriverName;
end;
function DateValueToDBXSQLStringProc(DataSet: TDataSet; Value: Variant): String;
begin
Result := DateValueToDataBaseSQLString(DBXDataSetDriverName(TCustomSQLDataSet(DataSet)), Value)
end;
type
TDBXSQLDatasetFeaturesEh = class(TSQLDatasetFeaturesEh)
public
constructor Create; override;
end;
TDBXCommandTextDatasetFeaturesEh = class(TCommandTextDatasetFeaturesEh)
public
constructor Create; override;
end;
//implementation
{ TDBXSQLDatasetFeaturesEh }
constructor TDBXSQLDatasetFeaturesEh.Create;
begin
inherited Create;
DateValueToSQLString := DateValueToDBXSQLStringProc;
end;
{ TDBXCommandTextDatasetFeaturesEh }
constructor TDBXCommandTextDatasetFeaturesEh.Create;
begin
inherited Create;
DateValueToSQLString := DateValueToDBXSQLStringProc;
end;
initialization
RegisterDatasetFeaturesEh(TDBXSQLDatasetFeaturesEh, TSQLQuery);
RegisterDatasetFeaturesEh(TDBXCommandTextDatasetFeaturesEh, TSQLDataSet);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -