Использование компонентов Microsoft Office в приложениях. Часть 1

Листинг 7

procedure TForm1.Button1Click(Sender: TObject);
   var
    RS      : _RecordSet;
    I,J     : Integer;
    NumRecs : Integer;
   begin
    RS := ADOCommand1.Execute;
    RS.MoveFirst;
   //
   // Очистим содержание таблицы
   //
    Spreadsheet1.ActiveSheet.Cells.Item[1, 1].Select;
    Spreadsheet1.ActiveSheet.UsedRange.Clear;
   //
   // Зададим заголовки колонок
   //
    J := 0;
    For I := 0 to RS.Fields.Count-1 do
    Begin
    Inc(J);
    Spreadsheet1.ActiveSheet.Cells.Item[1, J].Set_Value(   RS.Fields[I].Name)
    End;
   //
   // Занесем данные в ячейки
   //
    I := 1;
    While NOT RS.EOF do
    Begin
    For J := 1 to RS.Fields.Count do
    begin
     Spreadsheet1.ActiveSheet.Cells.Item[I+1, J].Set_Value(VarToStr(RS.Fields[J-1].Value));
    end;
    RS.MoveNext;
    Inc(I)
    End;
   
   NumRecs := I;
   end;

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует