Описание модулей программы. В виду громоздкости программного кода проекта в данном разделе приведем описание одного модуля программы на примере модуля Unit1.pas. Этот модуль описывает работу формы ввода пароля.
Соответствующий листинг представлен в приложении.
Представленный исходный код модуля Delfi, написанный на объектно-ориентированном языке Object Pascal реализует интерфейс пользователя для ввода пароля.
В списке Uses данного модуля присутствуют ссылки на модули Unit2 и Unit 3. Благодаря этому данный модуль может вызывать во время выполнения программы вышеперечисленные модули обращаться к их элементам.
В разделе type перечислены визуальные компоненты, принадлежащие форме Form1, а также приведены объявления процедур, используемых в данном модуле. Процедура TForm1.Button1Click выполняется при нажатии кнопки ОК . Она нажимается тогда, когда пароль введен в поле MaskEdit1. Процедура проверяет, есть ли в записях базы данных операторы в поле password значение введенное в поле MaskEdit1. Если найдена хотя бы одна запись, имеющая в поле password значение, введенное в MaskEdit1, то программа продолжает работать.
Если значение введенное в MaskEdit1 не найдено приложение прекращает свою работу.
После проверки пароля проверяется статус человека, набравшего пароль.
Если в базе данных операторы в поле status стоит значение оператор, то кнопки на главной форме, доступные для администратора БД, делаются недоступными.
Если поле status содержит значение администратор, то все кнопки на главной форме становятся доступными. Значение полей Fam и Status присваивается меткам на главной форме.
В конце процедуры формы Form1 и Form2 делаются невидимыми.
Главная форма Form3 делается видимой.
Процедура TForm1.MaskEdit1KeyDown необходима для того, чтобы процедура TForm1.Button1Click запускалась не только при нажатии кнопки ОК , но и при нажатии клавиши Enter. Процедура TForm1.FormClose выполняется всегда, при закрытии формы Form1. Форма Form1 делается невидимой, а главная форма Form3 наоборот отображается на экране как модальная. 4.