Интерфейс проекта
Вид формы Form1 приведен на рисунке 5.
Рисунок 5 – Окно Form1
На форму помещено три визуальных компонента:
1. Компонент MainMenu1 с пятью командами:
N1 – Ввод исходных данных;
N2 – Сортировка;
N3 – Обработка;
N4 – Об авторе;
N5 – Выход.
2. Один компонент Image, содержащий фоновый рисунок.
3. Компонент Label1, в свойстве Caption которого установлено значение Поставка товара.
Значения свойств всех компонент (кроме перечисленных выше) оставлены по умолчанию.
На форме Form2 помещено четыре визуальных компонента:
1. Компонент Label1, в свойстве Caption которого установлено значение Данные о поставки товаров.
2. Таблица строк strngrd1 со следующими значениями свойств:
ColCount – 5;
RowCount – 30;
FixedCols – 0;
FixedRows – 1;
goEditing – False.
3. Командная кнопка Button1, свойство Caption которой имеет значение В главное меню.
4. Компонент Image1, содержащий фоновый рисунок.
Вид формы Form2 приведен на рисунке 6.
Рисунок 6 – Окно Form2
На форме Form3 помещено четыре визуальных компонента:
1. Компонент Label1, в свойстве Caption которого установлено значение Сортировка данных по наименованию товара.
2. Таблица строк strngrd11 со следующими значениями свойств:
ColCount – 5;
RowCount – 30;
FixedCols – 0;
FixedRows – 1;
goEditing – False.
3. Командная кнопка Button1, свойство Caption которой имеет значение В главное меню.
4. Компонент Image1, содержащий фоновый рисунок.
Вид формы Form3 приведен на рисунке 7.
Рисунок 7 – Окно Form3
Вид формы Form4 приведен на рисунке 8.
Рисунок 8 – Окно Form4
На форме Form4 помещено пять визуальных компонентов:
1. Компонент Label1, в свойстве Caption которого установлено значение Стоимость товаров.
2. Таблица строк strngrd1 со следующими значениями свойств:
ColCount – 2;
RowCount – 30;
FixedCols – 0;
FixedRows – 1;
goEditing – False.
3. Командная кнопка BitBtn1, свойство Caption которой имеет значение В главное меню.
4. Компонент MainMenu1 с тремя компанентами :
N1 – Запись результатов;
N2 – В главное меню;
N2 – Выберите действие.
5. Один компонент Image, содержащий фоновый рисунок.
Вид формы Form5 приведен на рисунке 9.
Рисунок 9 – Окно Form5
На форме Form5 помещено четыре визуальных компонента:
1. Компонент Label1 и Label2, в свойстве Caption которого установлено значение Бессмертная Анастасия Витальевна и Группа Сс-31,з.
2. Командная кнопка Button1, свойство Caption которой имеет значение В главное меню.
3. Один компонент Image, содержащий фоновый рисунок.
Описания алгоритмов и тексты процедур
Модуль Unit1
Фрагмент интерфейсной части модуля Unit1 и описание связи с другими модулями приведено на рисунке 10.
Рисунок 10 – Фрагмент интерфейсной части модуля Unit1
Как видно из рисунка 10 в качестве глобальных используются пять массивов. Три из них (naim, data, edniz) имеют строковый тип и предназначены для хранения наименований товаров, дат поставки и единиц измерения, вводимых из заданного текстового файла. Цены и количество поставленных товаров будут храниться в двух вещественных массивах (cena, kol). Элементы всех массивов получают значения в модуле Unit2 и используются в модулях Unit3 и Unit4.
Кроме указанных массивов глобальными объявлены следующие переменные:
целая переменная n – число строк в исходном файле (без учета первой строки с заголовками граф), получает значение в модуле Unit2 и используется в модулях Unit3 и Unit4;
логическая переменная W1 – в модуле Unit1 получает начальное значение False, в модуле Unit2 получает значение True после успешного выполнения команды Ввод исходных данных, используется в модулях Unit3 и Unit4;
логическая переменная W2 – в модуле Unit1 получает начальное значение False, в модуле Unit3 получает значение True после успешного выполнения команды Сортировка, используется в модуле Unit4;
логическая переменная W3 – в модуле Unit1 получает начальное значение False, в модуле Unit4 получает значение True после успешного выполнения команды Запись результатов в файл, используется в модуле Unit1;
файловая переменная fv2 получает значение в модуле Unit1 и используется в модулях Unit1 и Unit4.
Модуль
Unit1
содержит инициализирующую часть, которая
приведена на рисунке 11.
Рисунок 11 – Инициализирующая часть модуля Unit1
В инициализирующей части логические переменные W1, W2 и W3 получают начальные значения False как признаки того, что еще не выполнялись команды меню. Кроме того, в рассматриваемой части модуля уничтожается старая версия файла Отчет.txt, если она существовала.
Исполняемая часть модуля Unit1 содержит описания пяти процедур, которые обрабатывают соответствующие команды меню. Их тексты приведены на рисунке 12.
Рисунок 12 – Исполняемая часть модуля Unit1
Первые четыре процедуры содержат по одному оператору, который вызывает соответствующую форму.
Пятая процедура выполняется при выборе пользователем команды Выход. Эта процедура осуществляет окончание работы проекта только, если пользователь ранее (при работе с окном приложения Form4) записал в файл результаты расчета.