Лабораторная работа №7. Освоение навыков формирования отчетности с использованием стандартных офисных приложений

• Название: Освоение навыков формирования отчетности с использованием стандартных офисных приложений
• Дата: 27.01.2023
• Размер: 0.51 Mb.
• Имя файла: Лабораторная работа №7.docx
• Тип: Лабораторная работа; #908119

Лабораторная работа №7

Тема: Освоение навыков формирования отчетности с использованием стандартных офисных приложений.

Цель:

1. Освоить навыки формирования результатной информации с использованием стандартного приложения Microsoft Excel.

2. Закрепить навыки отбора, компоновки и локализации информации в соответствии с задаваемыми критериями.

1. Постановка задачи

Программа обработки данных и реализации оных в структурированную таблицу в MS Excel предполагает реализацию двух задач:

1. Выполнение автоматической сортировки данных в соответствии с условиями заданной работы;

2. Формирование таблицы с уже имеющимися у нас данными.

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



Рисунок 1 – рабочая программа со всеми её элементами
Работа с базой данных воспроизводится с помощью кнопки «Сформировать отчёт». Сперва она обрабатывает данные в течении нескольких секунд, а затем выводит их в заранее созданную таблицу MS Excel в отсортированном виде. На рисунке 2 отображён результат работы программы



Рисунок 2 – собранная и отсортированная база данных в MS Excel

2. Листинг программы

2.1 Общая процедура работы программы

var

ex_otchet:Variant;

nat:Integer;

begin

ex_otchet:= Createoleobject ('Excel.application');

ex_otchet.Workbooks.Open (ExtractFilePath(ParamStr(0))+'Список студентов.xlsx');

ADOTable1.First;

nat:=4;

repeat

if ADOTable1.FieldByName('iz_jaz').AsString = 'немецкий' then
begin

ex_otchet.cells[nat,1]:=ADOTable1.FieldByName('kd_spec').AsString;

ex_otchet.cells[nat,2]:=ADOTable1.FieldByName('gr').AsString;

ex_otchet.cells[nat,3]:=ADOTable1.FieldByName('fam').AsString + ' '+

Copy (ADOTable1.FieldByName('im').AsString,1,1) + '.' +

Copy (ADOTable1.FieldByName('otch').AsString,1,1)+'.';

ex_otchet.cells[nat,4]:=ADOTable1.FieldByName('pol').AsString;

Inc (nat);

end;

ADOTable1.Next;

until ADOTable1.Eof;

ex_otchet.visible:=True;

end;

end.