2020-01-14
67
UNIT1
procedure TForm1.FormCreate(Sender: TObject);
Определяет свойства объектов SG (StringGrid): количество строк, столбцов, их размеры и др.
procedure TForm1.Button1Click(Sender: TObject);
Вызывается нажатием кнопки Поставка на вкладке Хранилище. Вызывает форму для добавления товара.
procedure TForm1.Button2Click(Sender: TObject);
Вызывается нажатием кнопки Продажа. Вызывает форму для создания заказа товара.
procedure SaveFile(s:string);
Производит текущее сохранение состояния таблиц SG1..SG4 в файл. При сохранении используются типы r1, r2, r3, r4. Каждый тип – строка каждой из четырёх таблиц. Параметр s – имя файла.
procedure ReadFile(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);
Выполняется нажатием кнопки ОК на форме добавления товара. Изменяет данные в таблице SG1 (Хранилище) и на таблице SG4 (Поступления).
UNIT3
procedure FindItem2(var mySG:TstringGrid; ItemToSend:string);
Находит товар в таблице аналогично процедуре FindItem. Отличается тем, что при отсутствии данного товара процедура выводит соответствующее сообщение.
procedure TForm3.Button1Click(Sender: TObject);
Вызывается нажатием кнопки ОК на форме создания заказа. Происходит изменение данных в трёх таблицах: уменьшение количества товара во вкладке Хранилище, добавление строки нового заказа во вкладку Заказы, увеличение количества проданных товаров во вкладке Продано.
Блок-схема
