Информационные системы

// Размер шрифта 1-го столбца

Worksheet.Range['A'+IntToStr(1),'M'+IntToStr(1)].Font.Size:=10;

// Выравнивание первого столбца

WorkSheet.Range['A'+IntToStr(1),'A'+IntToStr(R)].HorizontalAlignment:=xlHAlignLeft;

// Выравнивание первой строки

Worksheet.Range['A'+IntToStr(1),'M'+IntToStr(1)].HorizontalAlignment:=xlCenter;

// Показываем Excel

XLApp.Visible[0]:=true;

XLApp.ScreenUpdating[0]:=true;

// Разрываем связь с сервером

XLApp.Disconnect;

// Unassign the Delphi Variant Matrix

TabGrid:=Unassigned;

end;

procedure TForm1.Button12Click(Sender: TObject);

var

i,j,r,c: integer;

Excel,WorkBook,Sheet,TabGrid: Variant;

iIndex: OleVariant;

s: string;

f: textfile;

begin

AssignFile(f,ExtractFilePath(Application.ExeName)+'\data\firm_name.txt');

if FileExists(ExtractFilePath(Application.ExeName)+'\data\firm_name.txt')

then

  begin

   Reset(f);

   Read(f,s);

  end

else

  begin

   s:='Сводка по региону';

   Rewrite(f);

   Write(f,s);  

  end;

CloseFile(f);

//

s:=InputBox('Сводка по региону','Введите регион:',s);

if s='' then

  begin

   MessageDlg('Для передачи данных в Excel требуется ввести регион!',mtInformation,[mbOK],0);

   Exit;

  end;

//

AssignFile(f,ExtractFilePath(Application.ExeName)+'\data\firm_name.txt');

Rewrite(f);

Write(f,s);

CloseFile(f);

// 'Сводка по региону:'

//

iIndex:=1;

r:=StringGrid1.RowCount; // кол-во строк

c:=StringGrid1.ColCount; // кол-во столбцов

// Создаём массив-матрицу

TabGrid:=VarArrayCreate([0,(r-1),0,(c-1)],VarOleStr);

i:=0;

// Определяем цикл для заполнения массива-матрицы

repeat

  for j:=0 to (c-1) do     // заполнение TabGrid из StringGrid1

   TabGrid[i,j]:=StringGrid1.Cells[j+1,i];

   inc(i,1);

until i>(r-1);

// Загружаем Excel

try

  Excel:=CreateOleObject('Excel.Application'); // для остальных

except

  Excel:=CreateOleObject('Excel.Application.10'); // для Office XP

end;

Excel.SheetsInNewWorkbook:=1;

WorkBook:=Excel.WorkBooks.Add;

Sheet:=WorkBook.WorkSheets[1];

Sheet.Name:='База данных ГАИ - Отчет';

Sheet.Range['A6',Sheet.Cells.Item[r+5,c-1]].Value:=TabGrid;

// Ориентация страницы: книжная (xlPortrait или :=1)

Sheet.PageSetup.CenterHorizontally:=true;

Sheet.PageSetup.Orientation:=xlLandscape; // альбомная (или :=2)

// Поля (дробные числа разделяются только '.')

Sheet.PageSetup.LeftMargin:=Excel.CentimetersToPoints(1);

Sheet.PageSetup.RightMargin:=Excel.CentimetersToPoints(1);

Sheet.PageSetup.TopMargin:=Excel.CentimetersToPoints(1);

Sheet.PageSetup.BottomMargin:=Excel.CentimetersToPoints(1);

// Колонтитулы (дробные числа разделяются только '.')

Sheet.PageSetup.HeaderMargin:=Excel.CentimetersToPoints(0.5);

// &С, &К, &Д - страница, колво (всего), дата (dd,mm,yy)

// только для русского MS-Office; для English - &P, &N, &D

Sheet.PageSetup.RightHeader:='Страница &С из &К - &Д';

// Свойства таблицы

Sheet.Columns.WrapText:=true; // переносить по словам

Sheet.Cells.Columns.AutoFit;  // автовысота строк

Sheet.Range['A'+IntToStr(6),'J'+IntToStr(6)].RowHeight:=28;

Sheet.Columns.HorizontalAlignment:=xlLeft;

Sheet.Columns.VerticalAlignment:=xlCenter;

Sheet.Columns.ColumnWidth:=12;

Sheet.Columns.Font.Size:=8;

// Шапка над таблицей ([3,4] - строка, столбец)

Sheet.Cells[3,4]:=s+' - База данных ГАИ за '+DateToStr(Date);

Sheet.Range['A3','J3'].HorizontalAlignment:=xlHAlignCenter;

Sheet.Range['A3','J3'].Font.Name:='Times New Roman';

Sheet.Range['A3','J3'].Font.Bold:=true;

Sheet.Range['A3','J3'].Font.Size:=14;

Sheet.Range['A3','J3'].Columns.WrapText:=false;

// Обрамление ячеек (xlDouble,...)

Sheet.Range['A'+IntToStr(6),'J'+IntToStr(r+5)].Columns.Borders.LineStyle:=xlContinuous;

// Ширина столбцов

Sheet.Range['A'+IntToStr(6),'A'+IntToStr(r+5)].ColumnWidth:=6;

Sheet.Range['B'+IntToStr(6),'B'+IntToStr(r+5)].ColumnWidth:=24;

Sheet.Range['C'+IntToStr(6),'C'+IntToStr(r+5)].ColumnWidth:=22;

Sheet.Range['D'+IntToStr(6),'D'+IntToStr(r+5)].ColumnWidth:=14;

Sheet.Range['E'+IntToStr(6),'E'+IntToStr(r+5)].ColumnWidth:=12;

Sheet.Range['F'+IntToStr(6),'F'+IntToStr(r+5)].ColumnWidth:=12;

Sheet.Range['G'+IntToStr(6),'G'+IntToStr(r+5)].ColumnWidth:=8;

Sheet.Range['H'+IntToStr(6),'H'+IntToStr(r+5)].ColumnWidth:=12;

Sheet.Range['I'+IntToStr(6),'I'+IntToStr(r+5)].ColumnWidth:=12;

Sheet.Range['J'+IntToStr(6),'J'+IntToStr(r+5)].ColumnWidth:=12;

// Размер шрифта 6-го столбца

Sheet.Range['A'+IntToStr(6),'J'+IntToStr(6)].Font.Size:=10;

// Выравнивание первого столбца

Sheet.Range['A'+IntToStr(6),'A'+IntToStr(r+5)].HorizontalAlignment:=xlHAlignCenter;

Sheet.Range['A'+IntToStr(6),'A'+IntToStr(r+5)].Font.Bold:=true;

// Выравнивание первой строки

Sheet.Range['A'+IntToStr(6),'J'+IntToStr(6)].HorizontalAlignment:=xlCenter;

Sheet.Range['A'+IntToStr(6),'J'+IntToStr(6)].Font.Bold:=true;

// Показываем Excel

Excel.Visible:=True;

Excel.ScreenUpdating:=true;

// Unassign the Delphi Variant Matrix

Excel:=Unassigned;

WorkBook:=Unassigned;

Sheet:=Unassigned;

TabGrid:=Unassigned;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.StringGrid1Click(Sender: TObject);

begin

StringGrid1.ShowHint:=false;

end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);

var

i,j:integer;

begin

StringGrid1.ShowHint:=true;

j:=StringGrid1.Row;

StringGrid1.Hint:=StringGrid1.Cells[1,j];

for i:=2 to StringGrid1.ColCount-1 do

  StringGrid1.Hint:=StringGrid1.Hint+' - '+StringGrid1.Cells[i,j];

end;

end.

52