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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2018, 09:45   #1
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию вывод отчетов в excel

добрый день! никак у меня не получается сделать отчет в excel!!!
попытки не принесли результатов.((
необходимо для каждого тех. процесса вывести свой набор материалов.
выводится таблица материалов только для первого тех. процесса. как сделать для остальных?
Код:
  for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do
      begin
        excl.ActiveSheet.Cells(i+2,1):='Технологическая операция'+' '+PechatUdNormForm.TehProcessComboBox.items.Strings[i]+' '+PechatUdNormForm.ListBox1.Items.Strings[i];
        excl.cells[i+2,1].WrapText:=false;
      end;
index:=3;
....
// Устанавливаем размер массива с данными для экспорта
    FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+2,1,PechatUdNormForm.ADOQuery1.Fields.Count],varVariant);
  // Заполняем массив
   PechatUdNormForm.ADOQuery1.First;
   k:=1;
   while not PechatUdNormForm.ADOQuery1.Eof do
   begin
    for j:=1 to PechatUdNormForm.ADOQuery1.Fields.Count do begin
    FData[k,j]:=PechatUdNormForm.ADOQuery1.Fields[j-1].Value;
    end;
    inc(k);
    PechatUdNormForm.ADOQuery1.Next;
   end;
  //Копируем данные в Excel
   Excl.Range[Excl.Cells[4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+3, PechatUdNormForm.ADOQuery1.Fields.Count]].Value:=FData;
запрос в query
Код:
 for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do begin
    with PechatUdNormForm.ADOQuery1 do begin
     Close;
     SQL.Clear;
     SQL.Add('select unr.obm, n051s.nam, n051s.mar, n051s.ram, n051s.gsm, ');
     sql.Add('n051s.gss, unr.unr1, unr.kets, unr.ets, n051s.cenp, unr.unr1*n051s.cenp as cen ');
     sql.Add('from unr left outer join [O:\dbf\n051s.DBF] on n051s.obm=unr.obm ');
     sql.add('where unr.tpr='+QuotedStr(PechatUdNormForm.TehProcessComboBox.items.Strings[i]));
     Open;
    end;
Etsareva вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры конструирования отчетов в Excel compdoktor Microsoft Office Excel 1 26.02.2014 21:10
Генерация отчетов из Excel по шаблону Word Nicolas_46 Microsoft Office Excel 3 10.10.2013 20:28
Вывод отчетов nats C# (си шарп) 4 21.03.2011 17:24
Сбор отчетов из Outlook в Excel zazuza Microsoft Office Excel 4 17.04.2009 19:13
экспорт отчетов access в excel kate158 Microsoft Office Access 2 17.03.2009 16:10