Разработка автоматизированной системы "Склад"

4.6 Структура программы

Для работы с базой данных прямого был определен пользовательский тип-запись Datap с полями:

ID - код товара, тип Integer;

Name - название, тип String;

Kol - количество на складе, тип Integer;

Strana - страна производитель, тип String;

DataV - дата выработки, тип String;

SrokG - срок годности, тип Integer.

Таблица 3. Подпрограммы

Имя процедуры	Вызывает процедуры	Описание
Общие подпрограммы
ReRead	-	обновление сведений о файле данных
ShowRecords	-	показать 10 записей
MakeRecord	ReRead	сохранение записи в файле
Sli	-	слияние частей массива
Bose	Sli	сортировка слиянием
Событийные подпрограммы
cmQuit_Click	-	выход из программы
cmdHelp_Click	-	вывод справки о программе
Form_Load	ReRead	инициализация программы
VScroll1_Change	ShowRecords	изменение положения линейки прокрутки
Text1_GotFocus	MakeRecord	приобретение фокуса элементом Text1
Text2_GotFocus	MakeRecord	приобретение фокуса элементом Text2
Text3_GotFocus	MakeRecord	приобретение фокуса элементом Text3
Text5_GotFocus	MakeRecord	приобретение фокуса элементом Text5
Text6_GotFocus	MakeRecord	приобретение фокуса элементом Text6
Text7_GotFocus	MakeRecord	приобретение фокуса элементом Text7
Command1_Click	ReRead	удаление текущей записи
Text1_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text1
Text2_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text2
Text3_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text3
Text5_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text5
Text6_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text6
Text7_KeyDown	MakeRecord	обработка нажатия клавиш на элементе Text7
cmdPrintAll_Click	-	вывод полной таблицы с базой данных
cmdSort_Click	Bose	сортировка по количеству и вывод базы данных

Таблица 4. Переменные программы

Назначение	Имя	Тип	Характеристика
Набор данных по единице товара	Stroka	Datap	входная
Номер первой строки области вывода	BeginStroka	Long	служебная
Номер последней строки области вывода	LastStroka	Long	служебная
Номер предыдущей активной записи	OldIndex	Long	служебная
Номер записи для использования в подпрограммах	IndexForSub	Long	служебная
Номер строки в которой расположена найденная запись	X	Long	служебная
Счетчик записей	Z	Integer	служебная
Имя файла базы данных	BDFile	String	служебная

Содержание