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 interface
uses uses
Classes, SysUtils, DB, Classes, SysUtils, DB, RxDBGrid;
{$IFDEF FPC}
RxDBGrid
{$ELSE}
exDBGrid
{$ENDIF}
;
type type

3
components/rx/exsortmds.pas
View File

@ -15,6 +15,7 @@ type
implementation implementation
uses memds; uses memds;
type type
THackMDS = class(TMemDataSet) THackMDS = class(TMemDataSet)
end; end;
@ -52,7 +53,7 @@ begin
ftLargeint: ftLargeint:
begin begin
Result:=I1 > Field.AsInteger; 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; end;
ftFloat, ftFloat,

66
components/rx/exsortzeos.pas
View File

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