paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add to sort engine for zeos zmacroquery

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2011-02-23 08:29:55 +00:00
parent a11ccc8c85
commit 4a643de30c
2 changed files with 45 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
components/rx/exsortzeos.pas
View File

@ -5,7 +5,8 @@ unit exsortzeos;
interface interface
uses uses
Classes, SysUtils, DB, RxDBGrid, ZConnection, ZDataset, ZAbstractRODataset; Classes, SysUtils, DB, RxDBGrid, ZConnection, ZDataset, ZAbstractRODataset,
ZMacroQuery;
type type
@ -21,64 +22,64 @@ implementation
procedure TZeosDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions); procedure TZeosDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions);
begin begin
if Assigned(ADataSet) then if not Assigned(ADataSet) then exit;
if ADataSet.ClassName='TZReadOnlyQuery' then if ADataSet.ClassName='TZReadOnlyQuery' then
begin begin
(ADataSet as TZReadOnlyQuery).SortedFields:=Field.FieldName; (ADataSet as TZReadOnlyQuery).SortedFields:=Field.FieldName;
if Asc then if Asc then
(ADataSet as TZReadOnlyQuery).SortType:=stAscending (ADataSet as TZReadOnlyQuery).SortType:=stAscending
else
(ADataSet as TZReadOnlyQuery).SortType:=stDescending;
end
else else
if ADataSet.ClassName='TZQuery' then (ADataSet as TZReadOnlyQuery).SortType:=stDescending;
begin end
(ADataSet as TZQuery).SortedFields:=Field.FieldName; else
if (ADataSet.ClassName='TZQuery') or (ADataSet is TZMacroQuery) then
begin
(ADataSet as TZQuery).SortedFields:=Field.FieldName;
if Asc then
(ADataSet as TZQuery).SortType:=stAscending
else
(ADataSet as TZQuery).SortType:=stDescending;
end
else
if ADataSet.ClassName='TZTable' then
begin
(ADataSet as TZTable).SortedFields:=Field.FieldName;
if Asc then if Asc then
(ADataSet as TZQuery).SortType:=stAscending (ADataSet as TZTable).SortType:=stAscending
else else
(ADataSet as TZQuery).SortType:=stDescending; (ADataSet as TZTable).SortType:=stDescending;
end end;
else
if ADataSet.ClassName='TZTable' then
begin
(ADataSet as TZTable).SortedFields:=Field.FieldName;
if Asc then
(ADataSet as TZTable).SortType:=stAscending
else
(ADataSet as TZTable).SortType:=stDescending;
end;
end; end;
procedure TZeosDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean); procedure TZeosDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);
begin begin
if Assigned(ADataSet) then if not Assigned(ADataSet) then exit;
if ADataSet.ClassName='TZReadOnlyQuery' then if ADataSet.ClassName='TZReadOnlyQuery' then
begin begin
(ADataSet as TZReadOnlyQuery).SortedFields:=ListField; (ADataSet as TZReadOnlyQuery).SortedFields:=ListField;
if Asc then if Asc then
(ADataSet as TZReadOnlyQuery).SortType:=stAscending (ADataSet as TZReadOnlyQuery).SortType:=stAscending
else else
(ADataSet as TZReadOnlyQuery).SortType:=stDescending; (ADataSet as TZReadOnlyQuery).SortType:=stDescending;
end end
else else
if ADataSet.ClassName='TZQuery' then if (ADataSet.ClassName='TZQuery') or (ADataSet is TZMacroQuery) then
begin begin
(ADataSet as TZQuery).SortedFields:=ListField; (ADataSet as TZQuery).SortedFields:=ListField;
if Asc then if Asc then
(ADataSet as TZQuery).SortType:=stAscending (ADataSet as TZQuery).SortType:=stAscending
else else
(ADataSet as TZQuery).SortType:=stDescending; (ADataSet as TZQuery).SortType:=stDescending;
end end
else else
if ADataSet.ClassName='TZTable' then if ADataSet.ClassName='TZTable' then
begin begin
(ADataSet as TZTable).SortedFields:=ListField; (ADataSet as TZTable).SortedFields:=ListField;
if Asc then if Asc then
(ADataSet as TZTable).SortType:=stAscending (ADataSet as TZTable).SortType:=stAscending
else else
(ADataSet as TZTable).SortType:=stDescending; (ADataSet as TZTable).SortType:=stDescending;
end; end;
end; end;
@ -86,5 +87,6 @@ initialization
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZReadOnlyQuery); RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZReadOnlyQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZQuery); RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZTable); RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZTable);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZMacroQuery);
end. end.

2
components/rx/rxtimeedit.pas
View File

@ -31,7 +31,7 @@
unit RxTimeEdit; unit RxTimeEdit;
{$mode objfpc}{$H+} {$I rx.inc}
interface interface