авторВедь, насколько я понимаю, при нажатии на subnit формы имена контролов и их значения автоматически записываются в %request, даже если нет отдельного обработчика onsubmit. Так ли это?
Нет, не так. Посмотрите документацию:
http://localhost:?/csp/docbook/DocBook.UI.Page.cls?KEY=GZEN_forms#GZEN_C10462
Чтобы взять значение из %request нужно либо положить его в %response (см. пример ниже), либо передать его в параметрах строки подключения (...cls?login=...&password=...).
авторНо я не могу получить данные из %request. if ($D(%request.Data("login",1))&&$D(%request.Data("password",1))) - выдает 0 в %OnAfterCreatePage(). Как мне достать данные из %request?
Зачем так усложнять? Сделайте проще. Например так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page xmlns="http://www.intersystems.com/zen" title="">
<form id="LoginForm" name="LoginForm">
<text id="login" name="login" label="Логин:"/>
<text id="password" name="password" label="Пароль:"/>
<submit id="Submit" name="Submit" action="save" caption="Войти"/>
</form>
</page>
}
/// This callback is called when a form on this page is submitted.
/// <var>pSubmit</var> is a <class>%ZEN.Submit</class> object
/// containing details of the form submit.<br>
/// Subclasses override this method.
ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
if (pSubmit.%Action = "save")
{
set lgn=pSubmit.%GetValue("login")
set psw=pSubmit.%GetValue("password")
; Здесь будет проверка логина и пароля по БД
; Set %response.Context("login") = lgn
; Set %response.Context("password") = psw
if ((lgn="TST-001") && (psw="password00"))
{
set pSubmit.%NextPage=..Link("Dilers.ChangePassword.cls")
}
else
{
Do pSubmit.%SetError("LoginForm","В доступе отказано (Неверный Логин или Пароль)")
}
}
Quit $$$OK
}
/// This callback is called after the server-side page
/// object and all of its children are created.<br>
/// Subclasses can override this to add, remove, or modify
/// items within the page object model, or to provide values
/// for controls.
Method %OnAfterCreatePage() As %Status
{
Quit $$$OK
}
