Файл: ...\Samples\Solution\Forms\Logform.scx

Этот образец показывает возврат значения из формы регистрации входа. Запуск формы (Logform.scx) использует команду DO FORM для запуска формы регистрации входа и сохраняет возвращаемое значение в переменную (cUser).

	Скопировать код
DO FORM Login TO cUser

Замечание
Для возврата значения из формы, ее свойство WindowType должно быть установлено в 1 - Modal.

The logon form (Login.scx) makes it possible for a user to enter a user name and a password. Code associated with the Click event of cmdOK checks to make sure that the correct password was entered.

	Скопировать код
LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value)) IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value) THISFORM.cUser = ALLTRIM(login.userid) THISFORM.Release ELSE #DEFINE MISMATCH_LOC "Имя пользователя или пароль некорректны. Пожалуйста, попробуйте еще раз." WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5 THISFORM.txtUserName.Value = "" THISFORM.txtPassword.Value = "" THISFORM.txtUserName.SetFocus ENDIF

Скопировать код

LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value))

IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value)
   THISFORM.cUser = ALLTRIM(login.userid)
   THISFORM.Release
ELSE
   #DEFINE MISMATCH_LOC "Имя пользователя или пароль некорректны. Пожалуйста, попробуйте еще раз."
   WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5
   THISFORM.txtUserName.Value = ""
   THISFORM.txtPassword.Value = ""
   THISFORM.txtUserName.SetFocus
ENDIF

Программный код, ассоциированный с событием Unload формы возвращает имя пользователя, если пользователь ввел корректный пароль, или, в противном случае, пустую строку.

	Скопировать код
RETURN THIS.cUser

Смотрите также

Смотрите также

Задачи

Справочное руководство

Прочие ресурсы