Создание форм. 
Анализ принципов автоматизации делопроизводства и проектирование программного обеспечения на примере предприятия

Основным элементом данного приложения является форма — контейнер, в котором размещаются другие визуальные и невизуальные компоненты. С точки зрения пользователя форма — это окно, в котором он работает с приложением. Каждой новой форме, вводимой в приложение, соответствует свой модуль, описывающий эту форму как класс и включающий константы, переменные, функции и процедуры.

По-умолчанию все формы создаются автоматически при запуске приложения, и первая из введенных форм является главной. Главная форма отличается от прочих рядом свойств. Во-первых, именно этой форме передается управление в начале выполнения приложения. Во-вторых, закрытие пользователем главной формы означает завершение выполнения приложения. В-третьих, главная форма так же, как и любая другая, может быть спроектирована невидимой, но если все остальные формы закрыты, то главная форма становится в любом случае видимой (иначе пользователь не смог бы продолжать работать с приложением и даже не смог бы его завершить).

Изменить принятые по умолчанию условия относительно форм можно в окне опций проекта. В данном случае (рисунок 12) все формы проекта созданы автоматически, а главной является News.

Рисунок 12. Страница Forms окна опций проекта.

Модальные формы.

Модальные формы используются в большинстве диалоговых окон. Модальная форма приостанавливает выполнение вызвавшей ее процедуры до тех пор, пока пользователь не закроет эту форму. Она так же не позволяет пользователю переключить фокус курсором мыши на другие формы данного приложения, пока форма не будет закрыта. Следовательно, пользователь должен выполнить предложенные ему действия прежде, чем продолжить работу.

В данном проекте были созданы несколько модальных форм такие как «Личная карточка» (рисунок 13), «Данные о приеме на работу», «Данные об увольнении», которые предлагают пользователю выполнить распечатку отчетов, прежде чем закончить работу с формой, либо ждут закрытия формы полностью.

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

При использовании кнопок можно обойтись и без подобных обработчиков. В приложении «Кадровый учет» для создания модальных форм были использованы кнопки типа TBitBtn, которые имеют свойство ModalResult, по умолчанию равное mrNone (рисунок 14).

Рисунок 14. Фрагмент инспектора объектов.

Обработка информации.

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

Для подготовки и печати отчетов использовались компоненты Delphi системы QuickReport.

QuickReport — это система, позволяющая визуально проектировать отчеты и связывать их с кодом приложения. Основным компонентом, на котором строится весь отчет, является QuickRep.

QuickRep имеет два основных метода: Preview — предварительный просмотр, и Print — печать.

На примере фрагмента листинга формы UnPrintPriem можно увидеть, что для построения «приказа о приеме на работу» были использованы компоненты QuickRep.

…

QuickRep1: TQuickRep; //введение в приложение средств печати.

отчетов QuickReport.

…

QRLabel1: TQRLabel; // размещение текста в отчете.

QRNum: TQRLabel; // размещение на приказе номера документа.

QRLabel3: TQRLabel;

QRDate: TQRLabel; // размещение на приказе даты.

…

QRDBText1: TQRDBText; // размещение текста из базы данных.

…

QRBand1: TQRBand; // размещает на приказе полосу.

…

Далее приведен фрагмент листинга программы формирования отчета и его просмотр:

…

var.

FmPriem: TFmPriem;

implementation.

uses dmData, UnPrintPriem;

{$R *.dfm}.

procedure TFmPriem. BitBtn1Click (Sender: TObject);

begin.

FmPrintPriem.QRNum.Caption := EditNum. Text;

FmPrintPriem.QRCond.Caption := EditCond. Text;

FmPrintPriem.QRDate.Caption := DateToStr (DateTimePicker1.Date);

FmPrintPriem.QRDate2.Caption := DateToStr (DateTimePicker2.Date);

FmPrintPriem.QRTab.Caption := EditTab. Text; //Таб номер

FmPrintPriem.QROklad.Caption := Edit1. Text;//Оклад.

FmPrintPriem.QRNadb.Caption := EditNadb. Text;

FmPrintPriem.QRSrok.Caption := EditSrok. Text;

FmPrintPriem.QRDogN.Caption := EditDog. Text;

FmPrintPriem.QRDolghn.Caption := EditRuk. Text;

FmPrintPriem.QRCript.Caption := EditRukD. Text;

FmPrintPriem.QRDDate.Caption := DateToStr (DateTimePicker3.Date);

FmPrintPriem.QuickRep1.Preview;

end;

…

После запуска на выполнение можно увидеть окно предварительного просмотра отчета перед печатью, показанное на рисунке 15.