Файл: Освоение навыков формирования отчетности с использованием стандартных офисных приложений.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 26.04.2024
Просмотров: 6
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Лабораторная работа №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.
