DO WHILE .T.
CLEAR
STORE SPACE(13) TO gcPassword
@ 8,29 SAY 'Password '
@ 8,39 GET gcPassword
READ
IF UPPER(gcPassword) = 'VISUAL FOXPRO'
@ 18,25 SAY 'Password correct'
ELSE
WAIT WINDOW 'Sorry! Password not accepted. Try "VISUAL FOXPRO"'
ENDDO
* gcPassword символьную строку 'VISUAL FOXPRO'. Если введенный пароль
* недействителен, программа прекращается по команде CANCEL.
Новое на сайте
-
Обновлен портфель программиста
Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский) -
Новые примеры программ
Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2) -
Обновленна справка
Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.