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

8
components/rx/exsortfb.pas
View File

@ -35,13 +35,7 @@ unit exsortfb;
interface
uses
Classes, SysUtils, DB,
{$IFDEF FPC}
RxDBGrid
{$ELSE}
exDBGrid
{$ENDIF}
;
Classes, SysUtils, DB, RxDBGrid;
type

3
components/rx/exsortmds.pas
View File

@ -15,6 +15,7 @@ type
implementation
uses memds;
type
THackMDS = class(TMemDataSet)
end;
@ -52,7 +53,7 @@ begin
ftLargeint:
begin
Result:=I1 > Field.AsInteger;
writeln('I1=', I1, ' I2=',Field.AsInteger,' Result=', Result, ' i=',i, ' j=',j);
// writeln('I1=', I1, ' I2=',Field.AsInteger,' Result=', Result, ' i=',i, ' j=',j);
end;
ftFloat,

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.