Новый вид панели Form Controls класса Ш Worker, сама панель станет значительно меньше. Исчезнут стандартные классы (Standard). Щелкните по пиктограмме класса. В нужном месте активной области формы при помощи левой кнопки мыши отведите место для класса Worker. После того, как вы отпустите левую кнопку мыши, класс появится в форме. Добавим справа от класса четыре кнопки и займемся написанием кода для обработки событий.
Товарный http://www.betonbbk.ru/, песок, щебень различных фракций и строительный раствор стоят на первом месте в современном строительстве.
Вторая страница формы Employee Код события Activate второй страницы формы Employee:
DO CASE
CASE IND=0 && Выбор не сделан
=MESSAGEBOX(’Ни один работник не выбран! ’,;
48,’ Внимание!’)
* Вернуться на первую страницу формы THISFORM.PAGEFRAME1.ACTIVEPAGE=1
CASE IND=1 && Выбор сделан
* Кнопка Стереть пароль доступна THISFORM.PAGEFRAME1.PAGE2.COMMAND2.ENABLED=.T.
* Надпись на кнопке 3 - Сохранить
THISFORM.PAGEFRAME1.PAGE2.COMMAND3.CAPTION=[Сохранить]
* Кнопка Удалить доступна
THISFORM.PAGEFRAME1.PAGE2.COMMAND4.ENABLED=.T.
* Создать переменные памяти SCATTER MEMVAR
CASE IND=2 && Занесение нового работника
* Кнопка Стереть пароль недоступна THISFORM.PAGEFRAME1.PAGE2.COMMAND2.ENABLED=.F.
* Надпись на кнопке 3 - Записать
THISFORM.PAGEFRAME1.PAGE2.COMMAND3.CAPTION=[Записать]
* Кнопка Удалить недоступна
THISFORM.PAGEFRAME1.PAGE2.COMMAND4.ENABLED=.F.
* Создать переменные памяти с пустыми значениями SCATTER MEMVAR BLANK
THISFORM.PAGEFRAME1.PAGE2.Worker1.TxtLastName.SETFOCUS
ENDCASE
Опубликовал vovan666
May 12 2013 06:39:48 ·
0 Комментариев ·
3550 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
