Организация обработки информации на ЭВМ по формированию плана поставок готовой продукции

В программе используются четыре формы:

· Form 1 : Главная форма (форма приложения);

· Form 2 : Форма для добавления товара на склад;

· Form 3 : Форма для создания заказа;

· AboutBox : Форма информации о программе.

Основные процедуры программы

UNIT1

procedure TForm1.FormCreate(Sender: TObject);

Определяет свойства объектов SG (StringGrid): количество строк, столбцов, их размеры и др.

procedure TForm1.Button1Click(Sender: TObject);

Вызывается нажатием кнопки Поставка на вкладке Хранилище . Вызывает форму для добавления товара.

procedure TForm1.Button2Click(Sender: TObject);

Вызывается нажатием кнопки Продажа . Вызывает форму для создания заказа товара.

procedure SaveFile(s:string);

Производит текущее сохранение состояния таблиц SG 1.. SG 4 в файл. При сохранении используются типы r 1, r 2, r 3, r 4 . Каждый тип – строка каждой из четырёх таблиц. Параметр s – имя файла.

procedureReadFile(s:string);

Производит загрузку данных из файла в таблицы.

procedure DeleteItem(var mySG:TstringGrid; n:integer);

Производит удаление из таблицы строки с номером n . Все нижние строки сдвигаются вверх.

procedure TForm1.N8Click(Sender: TObject);

Вызывается выбиранием пункта главного меню Данные – Создать отчёт . Вызывает диалоговое окно для подтверждения создания отчёта. Затем происходит сохранение состояния всех таблиц в файле с указанием в его названии месяца и года, расширение cnd После сохранения происходит удаление из таблицы всех данных кроме товаров на складе. Если какого-либо товара не осталось (количество – 0), то он удаляется из списка.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

Вызывается закрытием главной формы. Появляется диалоговое окно, требующее подтверждения сохранить данные в файл.

procedure TForm1.SG1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Когда активный компонент – таблица, то при нажатии ENTER появляется форма создания заказа. ЕслиINS , тодобавленияновоготовара.

UNIT2

procedure FindItem(var mySG:TstringGrid; ItemToSend:string);

Находит на компоненте mySG строку товара ItemToSend и записывает в свойство Row номер строки. При отсутствии данного товара, устанавливает «указатель» в конец таблицы и увеличивает общее количество строк в ней.

procedure TForm2.Button1Click(Sender: TObject);

Выполняется нажатием кнопки ОК на форме добавления товара. Изменяет да