Delphi + SQL + Excel

[nactyx]

Я сегодня, наверно, застрелюсь.

Вот, что у меня есть:

procedure TForm1.Button1Click(Sender: TObject);
var
    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
    BeginCol, BeginRow, i, j: Integer;
    RowCount, ColCount: Integer;
    PrevFio, PrevDate: String;
    x, n: Integer;
    sg: array of array of string;
    str, stb: Integer;
begin
  // координаты левого верхнего угла области в которую выводятся данные
  BeginCol := 1;
  BeginRow := 1;

  // Создание Эксель
  ExcelApp := CreateOleObject('Excel.Application');

  // Отключаем реакцию Эксель на события чтобы ускорить вывод
  ExcelApp.Application.EnableEvents := false;

  // Открываем шаблон
  Workbook := ExcelApp.WorkBooks.Add(report_path + 'Отчет по заданию.xlt');
  // Если шаблона нет и надо создать новый документ то
  //  Workbook := ExcelApp.WorkBooks.Add;

  ADOQuery3.Close;
  ADOQuery3.SQL.Clear;
  ADOQuery3.Parameters.Clear;
  ADOQuery3.SQL.Add('SELECT DISTINCT OpenDate');
  ADOQuery3.SQL.Add('FROM [SsmLoodsman].[dbo].[ProdTarget]');
  ADOQuery3.SQL.Add('where (OpenDate BETWEEN :date1  AND :date2)');
  ADOQuery3.SQL.Add('order by 1');
  ADOQuery3.Parameters.ParamByName('date1').Value := cxDateEdit1.Date;
  ADOQuery3.Parameters.ParamByName('date2').Value := cxDateEdit2.Date;
  ADOQuery3.Open;

  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.Parameters.Clear;
  ADOQuery2.SQL.Text:='SELECT DISTINCT Executor FROM [SsmLoodsman].[dbo].[ProdTarget] order by 1';
  ADOQuery2.Open;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.Parameters.Clear;
  ADOQuery1.SQL.Add('SELECT Executor, Id, [Order], Draft, Detail, OperQuantity, [Status], OpenDate');
  ADOQuery1.SQL.Add('FROM [SsmLoodsman].[dbo].[ProdTarget]');
  ADOQuery1.SQL.Add('where (OpenDate BETWEEN :date1  AND :date2)');
  ADOQuery1.SQL.Add('and ([Master] = :master)');
  ADOQuery1.SQL.Add('order by OpenDate, Executor');
  ADOQuery1.Parameters.ParamByName('master').Value := ComboBox1.Text;
  ADOQuery1.Parameters.ParamByName('date1').Value := cxDateEdit1.Date;
  ADOQuery1.Parameters.ParamByName('date2').Value := cxDateEdit2.Date;
  ADOQuery1.Open;

  str := ADOQuery1.RecordCount + ADOQuery2.RecordCount + 2;
  stb := ADOQuery1.FieldCount;
  PrevFio := '';
  x := 2;
  SetLength(sg, str, stb);
  sg[0,0] := 'МАСТЕР: ' + ComboBox1.Text;
  sg[1,0] := 'Исполнитель';
  sg[1,1] := 'Номер задания';
  sg[1,2] := 'Заказ';
  sg[1,3] := 'Чертеж';
  sg[1,4] := 'Наименование';
  sg[1,5] := 'Количество';
  sg[1,6] := 'Факт';

  n := 0;
  while not ADOQuery3.EOF do begin
    Inc(n);
    if n = 1 then ExcelApp.Worksheets[n].Name := Copy(ADOQuery3.FieldByName('OpenDate').AsString, 1, 10)
    else begin
    ExcelApp.ActiveSheet.Copy(After := ExcelApp.ActiveSheet);
    ExcelApp.Worksheets[n].Name := Copy(ADOQuery3.FieldByName('OpenDate').AsString, 1, 10);
    end;
    ADOQuery3.Next;
  end;

  while not ADOQuery1.EOF do begin
    if ADOQuery1.FieldByName('Executor').AsString <> PrevFio then begin
     PrevFio := ADOQuery1.FieldByName('Executor').AsString;
     sg[x,0] := PrevFio;
     Inc(x);
    end;
    sg[x,1] := ADOQuery1.FieldByName('Id').AsString;
    sg[x,2] := ADOQuery1.FieldByName('Order').AsString;
    sg[x,3] := ADOQuery1.FieldByName('Draft').AsString;
    sg[x,4] := ADOQuery1.FieldByName('Detail').AsString;
    sg[x,5] := ADOQuery1.FieldByName('OperQuantity').AsString;
    sg[x,6] := ADOQuery1.FieldByName('Status').AsString;
    sg[x,7] := Copy(ADOQuery1.FieldByName('OpenDate').AsString, 1, 10);
    Inc(x);
    ADOQuery1.Next;
  end;

  // Размеры выводимого массива данных
  ColCount := stb-1;
  RowCount := str;

    ArrayData := VarArrayCreate([0, str, 0, stb], varVariant);
    for i := 0 to str - 1 do begin
      for  j := 0 to stb - 1 do
         ArrayData[i, j] := sg[i,j];

  // Левая верхняя ячейка области в которую будем выводить данные
  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  // Правая нижняя
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol + ColCount - 1];

  // Область в которую будем выводить данные
  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

  // Сам вывод данных
  Range.Value := ArrayData;

  // Делаем Эксель видимым
  ExcelApp.Visible := true;
  end;
end;

ADOQuery3 - для создания страниц Excel по датам.
ADOQuery2 - для выбора исполнителей, принадлежащих к выбранному мастеру.
ADOQuery1 - непосредственно данные об исполнителях и заказах.

На данном этапе в результате я получаю такой вот .xls-файл:


Выбирал период за март текущего год. У первого задание датировано 24м числом. У второго - 25м. Листы созданы. Как данные разделить - я в ступоре.

[evg_m]

Есть два пути
1. один раз получить много(все даты) и потом МНОГО раз просматирвать выбирая нужное (по нужной дате)
2. каждый раз получать только нужное (только по нужной дате)

ADOQuery3 - для создания страниц Excel по датам.

  n := 0;
  while not ADOQuery3.EOF do begin
    Inc(n);
    if n = 1 then ExcelApp.Worksheets[n].Name := Copy(ADOQuery3.FieldByName('OpenDate').AsString, 1, 10)
    else begin
    ExcelApp.ActiveSheet.Copy(After := ExcelApp.ActiveSheet);
    ExcelApp.Worksheets[n].Name := Copy(ADOQuery3.FieldByName('OpenDate').AsString, 1, 10);
    end;
{ ЗДЕСЬ МЫ ЗНАЕМ ЛИСТ И ДАТУ относящуюся к ЭТОМУ листу}
    LoadDateList(ExcelApp.Worksheets[n]{нужный лист}, ADOQuery3.FieldByName('OpenDate').AsDate{нужная дата}); //так давай его заполним
    ADOQuery3.Next;
  end;

procedure TForm1.LoadDateList(workshhet: variant; listdate: TDate);
var
  fdt: TField;
begin
  ВАР 1. получаем один раз(уже получили) 
  ADOQuery1.First; // и смотрим много раз (КАждый раз сначала)
  fdt:=ADOQuery1.FieldByname('где там у нас дата?');
  while not ADOQuery1.Eof do begin 
    if ADOQuery1.FieldByname('где там у нас дата?').AsDatetime =listdate then begin //и берем только нужные даты
    if fdt.AsDatetime =listdate then begin //и берем только нужные даты
      // будем заполнять
    end;
    ADOQuery1.Next;
  end;  

  ВАР 2. каждый раз получаем только нужные
  ADOQueryD.SQL.text:=запрос получающий данные за ОДИН день 
  ADOQueryD.Open; 
  while not ADOQueryD.Eof do begin 
      // данные только нужные будем "просто" заполнять (без проверки даты)
    ADOQueryD.Next;
  end;  
  ADOQueryD.Close;
 
end; 
end;

[nactyx]

Я
СДЕЛАЛ
ЭТО!

Пришлось учесть еще такой нюанс, что в Excel-файле изначально должен быть хотя бы один лист. Поэтому основную часть пришлось вызывать и для одного первого листа, и для всех следующих, т.е. в двух местах.

Огромное спасибо Serge_Bliznykov и evg_m!

[Serge_Bliznykov]

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

Я
СДЕЛАЛ
ЭТО!

Молодец! Поздравляю!

Всегда пожалуйста!