with Query_Result do begin close; sql.clear; sql.add('select name'); with Query_Sorts do begin close; sql.clear; sql.add('select distinct sorts from "abc"'); open; first; while not eof do begin Query_Result.sql.add(',(select sum(count) from "abc" where sorts='''+fieldbyname('sorts').asstring+''') as '+fieldbyname('sorts').asstring); next; end; close; end; sql.add(' from "abc" order by name'); prepare; open; end;
with Query_Result do begin close; sql.clear; sql.add('select name'); with Query_Sorts do begin close; sql.clear; sql.add('select distinct sorts from "abc"'); open; first; while not eof do begin Query_Result.sql.add(',(select sum(count) from "abc" where sorts='''+fieldbyname('sorts').asstring+''') as '+fieldbyname('sorts').asstring); next; end; close; end; sql.add(' from "abc" order by name'); prepare; open; end;
begin
close;
sql.clear;
sql.add('select name');
with Query_Sorts do
begin
close;
sql.clear;
sql.add('select distinct sorts from "abc"');
open;
first;
while not eof do
begin
Query_Result.sql.add(',(select sum(count) from "abc" where sorts='''+fieldbyname('sorts').asstring+''') as '+fieldbyname('sorts').asstring);
next;
end;
close;
end;
sql.add(' from "abc" order by name');
prepare;
open;
end;
begin
close;
sql.clear;
sql.add('select name');
with Query_Sorts do
begin
close;
sql.clear;
sql.add('select distinct sorts from "abc"');
open;
first;
while not eof do
begin
Query_Result.sql.add(',(select sum(count) from "abc" where sorts='''+fieldbyname('sorts').asstring+''') as '+fieldbyname('sorts').asstring);
next;
end;
close;
end;
sql.add(' from "abc" order by name');
prepare;
open;
end;