В Excel из БД

@tsareva · Регистрация: 22.12.2017

Author24 — интернет-сервис помощи студентам

доброе утро! с excel работаю впервые, поэтому много вопросов. надежда на Вас!
combobox заполняется записями из бд. выбираю запись в combobox, в excel
выводятся записи, связанные с выбранной записью в комбо, например: в combobox - тех.
процесс, в excel вывожу материалы по нему (получается таблица материалов по тех.
процессу).

Delphi

// Устанавливаем размер массива с данными для экспорта
  FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+2,1,PechatUdNormForm.ADOQuery1.Fields.Count],varVariant);
  // Заполняем массив
   PechatUdNormForm.ADOQuery1.First;
   i:=1;
   while not PechatUdNormForm.ADOQuery1.Eof do
   begin
    for j:=1 to PechatUdNormForm.ADOQuery1.Fields.Count do begin
    FData[i,j]:=PechatUdNormForm.ADOQuery1.Fields[j-1].Value;
    end;
    i:=i+1;
    PechatUdNormForm.ADOQuery1.Next;
   end;
   //Копируем данные в Excel
   Excl.Range[Excl.Cells[4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+3, PechatUdNormForm.ADOQuery1.Fields.Count]].Value:=FData;
  //границы вокруг данных
   Excl.Range[Excl.Cells[4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+3, PechatUdNormForm.ADOQuery1.Fields.Count]].Select;
   Excl.Selection.Borders.LineStyle := 1;
   Excl.Selection.Borders.Weight := 2;
   Excl.Range[Excl.Cells[4, 1], Excl.Cells[4, 1]].Select;
   Excl.Range[Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+4, 1]].Value:='Итого:'+' '+PechatUdNormForm.Edit2.Text;
   Excl.Range[Excl.Cells[4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+4, 1]].WrapText:=false;

запрос в query:

Delphi

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, n051s where n051s.obm=unr.obm');
     sql.Add('and unr.tpr='+QuotedStr(TehProcessComboBox.Text));
     Open;
     end;

это работа с одной записью. на форме
чекбокс - печать всех тех. процессов/нескольких тех. процессов.
как сделать, чтобы в excel выводились все тех. процессы со своими материалами?
большое спасибо!

Добавлено через 24 минуты
не знаю, какое условие прописать в строке 7 второго фрагмента кода.

@drvolodko · 26.09.2018, 08:13

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

не знаю, какое условие прописать в строке 7 второго фрагмента кода.

а мы тем более

На первый взгляд все нормально. И условие указано. Просто, если у вас по условию выбирается из БД только одна запись - она одна и будет. Если по чек боксу надо все печатать - тогда седьмую строку совсем убирать надо. Я так полагаю.

@tsareva · 26.09.2018, 14:26 **[ТС]**

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

тогда седьмую строку совсем убирать надо.

если ее убрать, то все материалы выводятся, а надо список материалов для каждого тех. процесса отдельно.
как на картинке, то же самое, только для каждого тех. процесса отдельно в одном документе.

@drvolodko · 27.09.2018, 08:44

Тогда точно убрать и комбобокс тут не нужен. Сделай массив техпроцессов (array of word если у тебя по id связка, нет - тогда TStringList). Загрузи данные по техпроцессам.

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

sql.Add('and unr.tpr='+QuotedStr(TehProcessComboBox.Text));

замени на:

Delphi

1	sql.add('and unr.tpr=:tpr');

И дальше в цикле присваивай параметру элемент массива, открывай таблицу с новыми данными и выводи.

@tsareva · 27.09.2018, 09:22 **[ТС]**

загрузила массив тех. процессов в dbgrideh, из него - в excel:

Delphi

 index:=2;
  PechatUdNormForm.DBGrideh1.DataSource.DataSet.First;
  for i:=1 to PechatUdNormForm.DBGrideh1.DataSource.DataSet.RecordCount do
    begin
      excl.cells[index,1]:='Технологическая операция'+' '+PechatUdNormForm.DBGrideh1.fields[0].asstring+' '+PechatUdNormForm.DBGrideh1.fields[1].asstring;
      excl.cells[index,1].WrapText:=false;
      inc(index);
      PechatUdNormForm.DBGrideh1.DataSource.DataSet.Next;
   end;

что значит

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

присваивай параметру элемент массива

?
что-то вроде этого:

Delphi

 ...
sql.add('where unr.tpr=:tpr');
     Open;
     Parameters.ParamByName('tpr').Value:=excl.cells[index,1];

?

@drvolodko · 27.09.2018, 12:07

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

загрузила массив тех. процессов

не то. Ну можно и в комобобоксе оставить, для одиночной печати. Тогда, если нужно печатать подряд все, что в комбобоксе:

Delphi

for i:=0 to combobox.items.count-1 do
begin
Adoquery.close;
Adoquery.Parameters.ParamByName('tpr').Value:=combobox.items.strings[i];
adoquery.open;
///выводишь полученное в excel
end;

@tsareva · 27.09.2018, 13:21 **[ТС]**

а через dbgrideh возможно связать? как я начала?

@drvolodko · 27.09.2018, 14:24

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

а через dbgrideh возможно связать?

dbgrideh - эта штуковина только отображает набор выбранных из бд данных. Все выбранные данные находятся в Adoquery после команды open и только потом, если таковое необходимо, они отобразяться в dbgrideh.

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

как я начала?

И вы их точно так же для массива вывода брали из Adoquery:

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

// Устанавливаем размер массива с данными для экспорта
FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+2,1,PechatUdNormForm.ADOQuery1.Fields.C ount],varVariant);
* // Заполняем массив
* *PechatUdNormForm.ADOQuery1.First;
* *i:=1;
* *while not PechatUdNormForm.ADOQuery1.Eof do
* *begin
* * for j:=1 to PechatUdNormForm.ADOQuery1.Fields.Count do begin
* * FData[i,j]:=PechatUdNormForm.ADOQuery1.Fields[j-1].Value;
* * end;
* * i:=i+1;
* * PechatUdNormForm.ADOQuery1.Next;
* *end

@tsareva · 28.09.2018, 11:15 **[ТС]**

сделала вот так:

Delphi

index:=2;
     for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do
      begin
        excl.ActiveSheet.Cells(index,1):='Технологическая операция'+' '+PechatUdNormForm.TehProcessComboBox.items.Strings[i]+' '+PechatUdNormForm.ListBox1.Items.Strings[i];
        excl.cells[index,1].WrapText:=false;
        inc(index);
      end;
index:=3;
....
index:=4;
     // Устанавливаем размер массива с данными для экспорта
      FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+3,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;
     Excl.Range[Excl.Cells[index, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+4, PechatUdNormForm.ADOQuery1.Fields.Count]].Value:=FData;

Delphi

 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;

но список материалов все равно выводит только для одного ТП.

@drvolodko · 12.10.2018, 16:33

Может, конечно и поздновато (командировка была), но все же: 1. Где параметр? 2. Где цикл для изменения значения параметра?

@tsareva · 31.10.2018, 10:48 **[ТС]**

drvolodko. если сделать цикл, то выводятся так же материалы только для одного ТП, только уже не для первого в списке, а для последнего.

Delphi

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 INNER join [O:\dbf\n051s.DBF] on n051s.obm=unr.obm ');
     sql.add('where tpr='+QuotedStr(PechatUdNormForm.TehProcessComboBox.items.Strings[i]));
     Open;
    end;

Delphi

index:=4;
   for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do begin
     FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+3,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;
       k:=k+1;
        PechatUdNormForm.ADOQuery1.Next;
    end;
 
   Excl.Range[Excl.ActiveSheet.Cells[index, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+3, PechatUdNormForm.ADOQuery1.Fields.Count]].Value:=FData;
  end;

@drvolodko · 02.11.2018, 11:19

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

если сделать цикл, то выводятся так же материалы только для одного ТП, только уже не для первого в списке, а для последнего.

Да. Все верно. Только за одним исключением. Тут надо либо переопределять размерность массива данных и добавлять циклично отобранные новые записи в конец этого массива, либо так же в цикле этот массив сразу выводить в Excel, запоминать последнюю позицию и на следующей итерации выводить новые данные с последней_позиции_ячейки+1. И снова заполнять массив новыми данными. Как-то так. А то получается, что вы отбираете данные из БД и тянете их в массив, затирая предыдущие... Поэтому и выводится только что-то одно..

@drvolodko 222 / 66 / 33 Регистрация: 23.05.2014 Сообщений: 715
	26.09.2018, 08:13	2
	Сообщение от tsareva не знаю, какое условие прописать в строке 7 второго фрагмента кода. а мы тем более На первый взгляд все нормально. И условие указано. Просто, если у вас по условию выбирается из БД только одна запись - она одна и будет. Если по чек боксу надо все печатать - тогда седьмую строку совсем убирать надо. Я так полагаю. 0

@tsareva 0 / 0 / 0 Регистрация: 22.12.2017 Сообщений: 218
	26.09.2018, 14:26 [ТС]	3
	Сообщение от drvolodko тогда седьмую строку совсем убирать надо. если ее убрать, то все материалы выводятся, а надо список материалов для каждого тех. процесса отдельно. как на картинке, то же самое, только для каждого тех. процесса отдельно в одном документе. Миниатюры 0

@tsareva 0 / 0 / 0 Регистрация: 22.12.2017 Сообщений: 218
	27.09.2018, 13:21 [ТС]	7
	а через dbgrideh возможно связать? как я начала? 0

@drvolodko 222 / 66 / 33 Регистрация: 23.05.2014 Сообщений: 715
	27.09.2018, 14:24	8
	Сообщение от tsareva а через dbgrideh возможно связать? dbgrideh - эта штуковина только отображает набор выбранных из бд данных. Все выбранные данные находятся в Adoquery после команды open и только потом, если таковое необходимо, они отобразяться в dbgrideh. Сообщение от tsareva как я начала? И вы их точно так же для массива вывода брали из Adoquery: Сообщение от tsareva // Устанавливаем размер массива с данными для экспорта FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount+2,1,PechatUdNormForm.ADOQuery1.Fields.C ount],varVariant); * // Заполняем массив * PechatUdNormForm.ADOQuery1.First; i:=1; while not PechatUdNormForm.ADOQuery1.Eof do begin * for j:=1 to PechatUdNormForm.ADOQuery1.Fields.Count do begin * * FData[i,j]:=PechatUdNormForm.ADOQuery1.Fields[j-1].Value; * * end; * * i:=i+1; * * PechatUdNormForm.ADOQuery1.Next; * *end 0

@drvolodko 222 / 66 / 33 Регистрация: 23.05.2014 Сообщений: 715
	12.10.2018, 16:33	10
	Может, конечно и поздновато (командировка была), но все же: 1. Где параметр? 2. Где цикл для изменения значения параметра? 0

@drvolodko 222 / 66 / 33 Регистрация: 23.05.2014 Сообщений: 715
	02.11.2018, 11:19	12
	Сообщение от tsareva если сделать цикл, то выводятся так же материалы только для одного ТП, только уже не для первого в списке, а для последнего. Да. Все верно. Только за одним исключением. Тут надо либо переопределять размерность массива данных и добавлять циклично отобранные новые записи в конец этого массива, либо так же в цикле этот массив сразу выводить в Excel, запоминать последнюю позицию и на следующей итерации выводить новые данные с последней_позиции_ячейки+1. И снова заполнять массив новыми данными. Как-то так. А то получается, что вы отбираете данные из БД и тянете их в массив, затирая предыдущие... Поэтому и выводится только что-то одно.. 0