Лекция: Пример 10

Обычно при открытии БД вначале выводится специальная заставка. Это можно обеспечить командой Сервис|Параметры запуска, которая открывает диалоговое окно, содержащее поле для ввода имени формы-заставки.

Процедура обработки события Form_Timer установлена в модуле формы «Заставка». Заставка выводится кратковременно со сведениями о правах интеллектуальной собственности, эмблеме и т.п. Затем открывается форма Введение, содержащая более подробные сведения о приложении.

Закрытие формы Введение приводит к запуску формы, с которой и ведется основная работа (в рассматриваемом примере это форма Счет). Для этого необходимо свойству Закрытие формы Введение присвоить процедуру обработки события

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

Вывод формы Введение можно отменить и сразу перейти к форме Счет. Для этого на форме Введение следует установить флажок с подписью «Не отображать введение». Для запоминания состояния флажка служит таблица Заставка с одним полем «Отображать» логического типа.

Инструкция Set устанавливает переменную R на таблицу Заставка.

Внешняя инструкция If проверяет значение свойства формы TimerInterval (Интервал таймера). Если оно не равно нулю, выполняется внутренняя инструкция If. В ней проверяется состояние поля «Отображать» таблицы Заставка. Если в нем записано Нет (флажок «Не отображать введение» не установлен), то с помощью метода OpenForm открывается форма Введение. Если флажок установлен, открывается форма Счет.