Альтернатива User Managment'a

[Anjei]

Добрый день!
Есть задача реализовать систему простого "паролирования".
Я ньюб и не понимаю, что куда писать, создать программу ли функцию, что биндить на кнопки в точности и т.п.

Я набросал её таким образом.
На СПК110 есть кнопка для открытия настроек.
При её нажатии должен выскочить нампад(нарисовал кастомный) с заголовком Введите пароль (Пароль при этом будет константой).
Вводим пароль, программа сравнивает его с константой, при верном вводе выводит визуализацию настроек,
при не верном делает видимой надпись: "Пароль не верен", автоматически очищает окно ввода, никуда не переносит.

Мне уже подсказывал модератор, но я все равно нихрена не понял((
25848

[Anjei]

Немного разобрался как кажется, написал такую штуку:
Как привязать кнопки к stPass ??


PROGRAM Password_check
VAR
stPass : STRING; // Сюда должны вводиться цифры с Numpad
pAlarm : BOOL:=FALSE; // Идентификатор видимости 'Пароль неверен'
Rght_pass:STRING:='7484'; // Пароль константный
END_VAR
__________________________________________________ ________________________________

Mondata.Password_main:=stPass; // Вывод на экранчик 'Введите пароль'
IF stPass=Rght_pass THEN
VisuElems.CurrentVisu:='Settings';
Mondata.Password_main:='';
stPass:='';
ELSE
pAlarm:=TRUE;
Mondata.Password_main:='';
stPass:='';
END_IF

[Евгений Кислов]

Сделал на коленке пример решения вашей задачи. Использовал 3.5 SP6.

[Anjei]

Благодарю!