Запросы для создания отчета

[John_chek]

Ну да, а если я хочу выводить отчет в Report?

[mihali4]

Сообщение от John_chek

Ну да, а если я хочу выводить отчет в Report?

Тогда, безусловно, лучше - в базу.

[John_chek]

Тогда, если позволите, еще вопросик?!

 
const
  n = 14;
var
    i: integer;
//    num : array [1..n] of Integer;
    //k: integer;
begin
    //  k := DM.BDSotrud.FieldByName('ID').Value;
        DM.BDSAPOut.Delete;
     for i:=1 to n do
      begin
        DM.BDSAP.Close;
        DM.BDSAP.SQLs.SelectSQL.Text:='select COUNT(*) from kart where kart.id_sotrud='+IntToStr(i);
        DM.BDSAP.Open;
       // num[i] := DM.BDSAP.FieldByName('COUNT').Value;
        DM.BDSAPout.Insert;
        DM.BDSAPout.FieldByName('num').Value := DM.BDSAP.FieldValues['count'];
        DM.BDSAPout.FieldByName('ID_sotrud').Value := i;
        DM.BDSAPout.Post;
      end;
        DM.BDSAPout.ReopenLocate('id');
        DM.frxReport1.ShowReport(true);
end;

Как мне в параметр 'к' засунуть колличество сотрудников? Их ведь может быть не только 14, чтобу потом сюда:

 DM.BDSAPout.FieldByName('ID_sotrud').Value := i;

заместо 'i' вставить 'к'?
Как бы сейчас не совсем правильно, так как если сотрудника удалить, и добавить нового, все поломается!

[mihali4]

DM.BDSotrud.SQL.Text:='select id from sotrud';
DM.BDSotrud.ExecSQL;
DM.BDSotrud.First;
while not DM.BDSotrud.EOF do
begin
DM.BDSAP.SQLs.SelectSQL.Text:='sele ct COUNT(*) from kart where kart.id_sotrud='+DM.BDSotrud.FieldB yName('ID').AsText;
DM.BDSAP.ExecSQL;
DM.BDSAPout.Insert;
DM.BDSAPout.FieldByName('num').Valu e := DM.BDSAP.FieldValues['count(*)'];
DM.BDSAPout.FieldByName('ID_sotrud' ).Value := DM.BDSotrud.FieldByName('ID').Value ;
DM.BDSAPout.Post;
DM.BDSotrud.Next;
end;

[Speeker]

To John Chek Пожалуйста, каждый новы вопрос в новой теме

[John_chek]

mihali4 большой респект! Спасибо за ответы!