pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

sort engine

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-08-29 12:01:16 +00:00
parent 2915b5797b
commit df28fec280
3 changed files with 63 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
components/rx/exsortzeos.pas
View File

@ -11,6 +11,7 @@ type
TFBDataSetSortEngine = class(TExDBGridSortEngine)
public
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);override;
procedure SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);override;
end;
implementation
@ -18,16 +19,69 @@ implementation
procedure TFBDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);
begin
if Assigned(ADataSet) then
begin
(ADataSet as TZQuery).SortedFields:='"' + Field.FieldName + '"';
if Asc then
(ADataSet as TZQuery).SortType:=stAscending
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
else
(ADataSet as TZQuery).SortType:=stDescending;
end
if ADataSet.ClassName='TZQuery' 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 TZTable).SortType:=stAscending
else
(ADataSet as TZTable).SortType:=stDescending;
end;
end;
procedure TFBDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);
begin
if Assigned(ADataSet) then
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
(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;
initialization
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZReadOnlyQuery);
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZQuery);
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZTable);
end.