Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.02.2007, 13:48   #11
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Сообщений: 108
По умолчанию

Ну да, а если я хочу выводить отчет в Report?
John_chek вне форума Ответить с цитированием
Старый 16.02.2007, 02:24   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от John_chek Посмотреть сообщение
Ну да, а если я хочу выводить отчет в Report?
Тогда, безусловно, лучше - в базу.
mihali4 вне форума Ответить с цитированием
Старый 16.02.2007, 09:08   #13
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Сообщений: 108
По умолчанию

Тогда, если позволите, еще вопросик?!
Код:
 
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' вставить 'к'?
Как бы сейчас не совсем правильно, так как если сотрудника удалить, и добавить нового, все поломается!

Последний раз редактировалось John_chek; 16.02.2007 в 09:10.
John_chek вне форума Ответить с цитированием
Старый 17.02.2007, 03:05   #14
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

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;

Последний раз редактировалось mihali4; 17.02.2007 в 20:39.
mihali4 вне форума Ответить с цитированием
Старый 17.02.2007, 11:12   #15
Speeker
Форумчанин
 
Аватар для Speeker
 
Регистрация: 01.12.2006
Сообщений: 241
По умолчанию

To John Chek Пожалуйста, каждый новы вопрос в новой теме
Програмисты - единственные люди, которым платят за исправления их же ошибок
Speeker вне форума Ответить с цитированием
Старый 19.02.2007, 08:55   #16
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Сообщений: 108
По умолчанию

mihali4 большой респект! Спасибо за ответы!
John_chek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание отчета в delphi Pang БД в Delphi 7 10.01.2012 16:35
У кого практика? Пример отчета [Smarik] Свободное общение 10 21.06.2009 19:59
QReport 3.0 формирование отчета без БД. OLEG'arh БД в Delphi 0 21.06.2008 03:21
RepoRTF: формирование отчета БД Lady_olga БД в Delphi 0 04.06.2008 13:13