3. Лабораторное задание

В ходе выполнения лабораторной работы необходимо создать визуальное приложение в среде Delphi, позволяющее импортировать отчет в приложение MS Word.

Порядок выполнения работы

1. Получить задание у преподавателя.

2. Запустить программу Delphi.

3. Закрыть проект, открытый по умолчанию, выбрав команду «Close All» в меню «File».

4. Открыть результаты предыдущей лабораторной работы.

5. Добавить компонент WordApplication (вкладка Servers).

6. Выполнить полученное задание.

7. Сохранить результаты лабораторной работы.

4. Указания по оформлению отчета

Отчет должен содержать:

1. Наименование и цель лабораторной работы.

2. Исходные данные полученного варианта задания.

3. Ход лабораторной работы.

4. Выводы по проделанной работе.

Лабораторная работа № 8 Создание отчетов с помощью ms Excel

1. Общие указания по выполнению работы

1.1. Цель работы: изучение основ создания отчетов с помощью MS Excel в среде Delphi.

1.2. Содержание работы

Лабораторная работа состоит из домашнего и лабораторного заданий. Домашнее задание заключается в изучении основ построения отчетов с помощью MS Excel в среде Delphi. Лабораторное задание заключается в написании программы в среде Delphi согласно заданию.

2. Домашнее задание и методические указания по его выполнению

Работа с приложением Microsoft Excel

Компонент TExcelApplication - это сервер, с помощью которого осуществляется доступ к объекту Appication и запускается приложение Excel.

Основные свойства компонента TExcelApplication аналогичны свойствам компонента TWordApplication.

Для подключения к Excel и работы с ним нам понадобится переменная типа Variant:

Excel:Variant;

Далее создаем OLE объект:

OLE (англ. Object Linking and Embedding, произносится как oh-lay [олэй]) — технология связывания и внедрения объектов в другие документы и объекты, разработанные корпорацией Майкрософт. В 1996 году Microsoft переименовала технологию OLE 2.0 в ActiveX.

Excel:=CreateOleObject('Excel.Application');

Добавляем новую книгу:

Excel.Workbooks.Add;

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

Excel.Visible:=true;

С помощью объекта Range выделим диапазон

Excel.WorkBooks[1].WorkSheets[1].Range['A1:E13'].

HorizontalAlignment:=3;

(HorizontalAlignment:=3 – определяет отступ для набора текста в ячейке.)

Теперь до любой ячейки мы можем добраться следующим образом:

Excel.ActiveWorkBook.WorkSheets[1].Cells[1, 2]:='Текст ячейки (1,2)';

Определяем ширину колонок:

Excel.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=7;

Excel.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=10;

Excel.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=25;

Excel.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=25;

Excel.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=20;

Определяем заголовки для столбцов

Excel.WorkBooks[1].WorkSheets[1].Cells[3,1]:='Номер';

Excel.WorkBooks[1].WorkSheets[1].Cells[3,2]:='рег номер';

Excel.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Дата';

Excel.WorkBooks[1].WorkSheets[1].Cells[3,4]:='Фамилия имя отчество';

Excel.WorkBooks[1].WorkSheets[1].Cells[3,5]:='Паспортные данные';

Заполним первый столбец (и поместим таблицу в рамку толщиной = 3):

for i:=3 to 13 do begin

if i<13 then Excel.WorkBooks[1].WorkSheets[1].Cells[i+1,1]:=IntToStr(i-2);

Excel.WorkBooks[1].WorkSheets[1].Range['A'+intToStr(i)+':E'+IntToStr(i)].Borders.Weight:=3;

end;

Для установки шрифта и размера текста выделите нужный диапазон и установите свойство Name объекта-свойства Font объекта Selection и свойство Size для изменения размера: (для ячейки А4)

Excel.ActiveWorkBook.WorkSheets[1].Range['A4'].Select;

Excel.Selection.Font.Name:='Courier New';

Excel.Selection.Font.Size:=18;

Если Вы хотите установить жирный или, например, наклонный стиль написания текста установите соответствующие свойства:

Excel.ActiveWorkBook.WorkSheets[1].Range['G1'].Select;

Excel.Selection.Font.Bold:=true; // Для жирного текста

Excel.Selection.Font.Italic:=true; // Для наклонного текста

Для указания цвета текста измените свойство ColorIndex все того же объекта Font:

Excel.ActiveWorkBook.WorkSheets[1].Range['A1'].Select;

Excel.Selection.Font.ColorIndex:=3;

Вот несколько индексов цветов:

• Индекс - Цвет

• 0 - Авто

• 2 - Белый

• 3 - Красный

• 5 - Синий

• 6 - Желтый

• 10 - Зеленый

Для изменения цвета фона ячейки используйте объект Interior свойства Selection:

Excel.ActiveWorkBook.WorkSheets[1].Range['H1'].Select;

Excel.Selection.Interior.ColorIndex:=3; // Цвет

Представьте такую ситуацию: необходимо объединить несколько ячеек и выровнять текст в них по центру.

Выделяем ячейки с A1 по G1:

Excel.ActiveWorkBook.WorkSheets[1].Range['A1:G1'].Select;

Объединяем:

Excel.ActiveWorkBook.WorkSheets[1].Range['A1:G1'].Merge;