Ehlib для EhlibIBX

← →
Mery (2007-09-20 07:43) [0]

Может, кто-то уже решил проблему, с которой я столкнулась. При использовании указанных компонентов не сортируются и не фильтруются данные в DBGridEh для IBX. Как поправить код EhlibIBX?

← →
MsGuns © (2007-09-20 08:14) [1]

Прежде всего не использовать компоненты бездумно

← →
Mery (2007-09-20 11:30) [2]

Это понятно. Вопрос мой конкретнее.

← →
Sergey13 © (2007-09-20 11:37) [3]

> [0] Mery (20.09.07 07:43)
> Как поправить код EhlibIBX?

Может достаточно поправить свой код использования компонентов? Справку по ним почитать?

← →
clickmaker © (2007-09-20 11:41) [4]

смотри в сторону \EhLib\DataService\EhLibIBX.pas

← →
Slym © (2007-09-20 13:45) [5]

чтото типа
TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TADOQuery)).SortUsingFie ldName:=true;

TADOQuery - заменить на нужное

← →
Slym © (2007-09-20 13:45) [6]

Slym © (20.09.07 13:45) [5]
EhlibIBX
и обязательно uses EhlibIBX;

← →
zzzz (2007-09-20 13:56) [7]

Надо скопировать файл EhLibADO.Pas в папку с проектом и подключить его к проекту.

← →
Mery (2007-09-21 07:13) [8]

>zzzz (20.09.07 13:56) [7]
>Надо скопировать файл EhLibADO.Pas в папку с проектом и подключить его >к проекту.

А причём EhLibADO.Pas?
EhLibIBX.Pas я подключила. Но в нём самом ошибка: ни сортировка, ни фильтрация не идёт. В том и вопрос:как подкорректировать EhLibIBX? Может, кто-то это уже сделал.

← →
Slym © (2007-09-21 08:54) [9]

мой код пробовала?
по умолчанию TSQLDatasetFeaturesEh использует номер столбца для манипуляций, а в SQL нужно имя
строки
initialization TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TIBDataSet)).SortUsingFi eldName:=true; TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TIBQuery)).SortUsingFiel dName:=true;
включает распознавание потей по имени

← →
Mery (2007-09-21 09:15) [10]

Большое спасибо Slym.
теперь как-то через раз но срабатывает.
В результате код EhLIB (это версия 3.5)имеет вид:

unit EhLibIBX;
{$I EhLib.Inc}
interface

uses
DbUtilsEh, IBQuery, IBCustomDataSet, Db, IBTable;

implementation

function IBDataSetDriverName(DataSet: TDataSet): String;
begin
Result := "INTRBASE";
end;

function DateValueToIBSQLStringProc(DataSet: TDataSet; Value: Variant): String;
begin
Result := DateValueToDataBaseSQLString(IBDataSetDriverName(DataSet), Value)
end;

type

TIBSQLDatasetFeaturesEh = class(TSQLDatasetFeaturesEh)
public
constructor Create; override;
end;

TIBSelectSQLDatasetFeaturesEh = class(TSQLDatasetFeaturesEh)
public
constructor Create; override;
end;

//implementation

{ TIBSQLDatasetFeaturesEh }

constructor TIBSQLDatasetFeaturesEh.Create;
begin
inherited Create;
DateValueToSQLString := DateValueToIBSQLStringProc;
SQLPropName := "SQL";
end;

{ TIBSelectSQLDatasetFeaturesEh }

constructor TIBSelectSQLDatasetFeaturesEh.Create;
begin
inherited Create;
DateValueToSQLString := DateValueToIBSQLStringProc;
SQLPropName := "SelectSQL";
end;

initialization

RegisterDatasetFeaturesEh(TIBSQLDatasetFeaturesEh, TIBQuery);
RegisterDatasetFeaturesEh(TIBSelectSQLDatasetFeaturesEh, TIBDataSet);
RegisterDatasetFeaturesEh(TIBSelectSQLDatasetFeaturesEh, TIBTable);
TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TIBDataSet)).SortUsingFi eldName:=true;
TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TIBQuery)).SortUsingFiel dName:=true;
TSQLDatasetFeaturesEh(GetDatasetFeaturesForDataSetClass(TIBTable)).SortUsingFiel dName:=true;
end.

Но теперь бы ещё автоматическую фильтрацию...
Может, кто-то уже и это настроил... Или у кого то есть более совершенная версия EhlibIBX....

← →
Mery (2007-09-21 09:33) [11]

И ещё. Сортировка Работает на IBDataSet. А с IBTable дает ошибку:TIBTAble is not SQL based dataset. Т.е использовать TIBTABLE нельзя?

← →
zdm77 (2007-09-21 10:39) [12]

а нафига в обще использовать Table? чем Qury-то не устраивает? та же Table но правда с ТАКИМИ запросами :)

← →
zdm77 (2007-09-21 10:40) [13]

TIBTAble is not SQL based dataset
Вот если TTable откликнулась на SQL запрос.....вот это было-бы чудо :)

← →
Вася Правильный (2007-09-21 11:41) [14]

> Но теперь бы ещё автоматическую фильтрацию...

в IBX фильтрация не реализована, только через OnFilterRecord

Ehlib для EhlibIBX Найти похожие ветки