pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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
uses
Classes, SysUtils, DB, RxDBGrid, ZConnection, ZDataset, ZAbstractRODataset;
Classes, SysUtils, DB, RxDBGrid, ZConnection, ZDataset, ZAbstractRODataset,
ZMacroQuery;
type
@@ -21,64 +22,64 @@ implementation
procedure TZeosDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions);
begin
if Assigned(ADataSet) then
if ADataSet.ClassName='TZReadOnlyQuery' then
begin
(ADataSet as TZReadOnlyQuery).SortedFields:=Field.FieldName;
if Asc then
(ADataSet as TZReadOnlyQuery).SortType:=stAscending
else
(ADataSet as TZReadOnlyQuery).SortType:=stDescending;
end
if not Assigned(ADataSet) then exit;
if ADataSet.ClassName='TZReadOnlyQuery' then
begin
(ADataSet as TZReadOnlyQuery).SortedFields:=Field.FieldName;
if Asc then
(ADataSet as TZReadOnlyQuery).SortType:=stAscending
else
if ADataSet.ClassName='TZQuery' then
begin
(ADataSet as TZQuery).SortedFields:=Field.FieldName;
(ADataSet as TZReadOnlyQuery).SortType:=stDescending;
end
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
(ADataSet as TZQuery).SortType:=stAscending
(ADataSet as TZTable).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
(ADataSet as TZTable).SortType:=stAscending
else
(ADataSet as TZTable).SortType:=stDescending;
end;
(ADataSet as TZTable).SortType:=stDescending;
end;
end;
procedure TZeosDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);
begin
if Assigned(ADataSet) then
if ADataSet.ClassName='TZReadOnlyQuery' then
begin
if not Assigned(ADataSet) then exit;
if ADataSet.ClassName='TZReadOnlyQuery' then
begin
(ADataSet as TZReadOnlyQuery).SortedFields:=ListField;
if Asc then
(ADataSet as TZReadOnlyQuery).SortType:=stAscending
else
(ADataSet as TZReadOnlyQuery).SortType:=stDescending;
end
else
if ADataSet.ClassName='TZQuery' then
begin
end
else
if (ADataSet.ClassName='TZQuery') or (ADataSet is TZMacroQuery) then
begin
(ADataSet as TZQuery).SortedFields:=ListField;
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:=ListField;
if Asc then
(ADataSet as TZTable).SortType:=stAscending
else
(ADataSet as TZTable).SortType:=stDescending;
end;
end
else
if ADataSet.ClassName='TZTable' then
begin
(ADataSet as TZTable).SortedFields:=ListField;
if Asc then
(ADataSet as TZTable).SortType:=stAscending
else
(ADataSet as TZTable).SortType:=stDescending;
end;
end;
@@ -86,5 +87,6 @@ initialization
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZReadOnlyQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZTable);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZMacroQuery);
end.

2
components/rx/rxtimeedit.pas
View File

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