GetNewParamWindow - История изменений

SYSDBA: /* Пример использования */

2022-08-30T09:58:43Z

‎Пример использования

SYSDBA: /* Присвоение транзакции управляющим элементам окна параметров */

2012-01-27T15:32:06Z

‎Присвоение транзакции управляющим элементам окна параметров

SYSDBA: /* Пример использования */

2012-01-27T15:31:36Z

‎Пример использования

SYSDBA в 11:57, 25 января 2012

2012-01-25T11:57:53Z

SYSDBA: /* Пример использования */

2011-12-22T11:18:36Z

‎Пример использования

Flake в 13:08, 3 ноября 2011

2011-11-03T13:08:49Z

Flake: /* Пример использования */

2009-10-07T07:52:52Z

‎Пример использования

SYSDBA: /* Пример использования */

2009-10-06T13:09:56Z

‎Пример использования

Flake в 11:00, 6 октября 2009

2009-10-06T11:00:48Z

Flake в 10:21, 6 октября 2009

2009-10-06T10:21:12Z

← Предыдущая		Версия 09:58, 30 августа 2022
Строка 133:		Строка 133:

	Запустить диалог с переданным списком параметров.		Запустить диалог с переданным списком параметров.
		+
		+	==Особенности работы с параметром Ссылка на множество==
		+
		+	Для параметра Ссылка на множество свои правила построения запроса. В запросе таблица получает алиас gg1.
		+
		+	Пример настройки:
		+
		+	Таблица: gd_contact
		+	Поля: id, name
		+	Условие: ID IN (тут любой запрос)
		+
		+	или
		+
		+	<source lang="sql">
		+	EXISTS( SELECT * FROM GD_CONTACT c......... WHERE c.ID = gg1.ID)
		+	</source>

	==Пример использования==		==Пример использования==

@@ Строка 197: / Строка 197: @@
    ParamList.Params(ParamIndex).Value = Array(650001)
    ParamList.Params(ParamIndex).Transaction = Transaction
    ...

@@ Строка 180: / Строка 180: @@
 end sub
 </source>
 [[Category:VBScript]]

@@ Строка 185: / Строка 185: @@
 [[Category:VBScript]]
 [[Category:Руководство разработчика]]
 __NOTOC__

← Предыдущая		Версия 11:18, 22 декабря 2011
Строка 184:		Строка 184:

	[[Category:VBScript]]		[[Category:VBScript]]
		+	[[Category:Руководство разработчика]]

	__NOTOC__		__NOTOC__

@@ Строка 54: / Строка 54: @@
 * prmNoQuery — параметр не отображается в диалоге
 ===AddLinkParam===
 <source lang="delphi">

@@ Строка 157: / Строка 157: @@
    ' Функции добавления параметров возвращают индекс параметра в массиве
    ParamIndex = ParamList.AddLinkParam("paramElement", _
-     "prmLinkElement", "gd_contact", "name", _
+     "prmLinkElement", "gd_contact", "id", "name", _
-     "id", "", "", "paramElement")
+     "", "", "paramElement")
    ParamList.Params(ParamIndex).Required = True
    ParamList.Params(ParamIndex).Value = Array(650001)

← Предыдущая		Версия 13:09, 6 октября 2009
Строка 178:		Строка 178:

	[[Category:VBScript]]		[[Category:VBScript]]
		+
		+	__NOTOC__

← Предыдущая		Версия 11:00, 6 октября 2009
Строка 127:		Строка 127:

	Запустить диалог с переданным списком параметров.		Запустить диалог с переданным списком параметров.
		+
		+	==Пример использования==
		+
		+	<source lang="vbnet">
		+
		+	option explicit
		+	sub MacrosParamWindow
		+	dim ParamList, ParamWindow, ParamIndex, Result
		+
		+	' Создание диалога
		+	set ParamWindow = System.GetNewParamWindow(0)
		+	' Добавление параметра через объект-диалог
		+	call ParamWindow.AddParam("paramInteger", "prmInteger", "paramInteger")
		+	ParamWindow.ParamList.Params(0).Required = True
		+
		+	call ParamWindow.AddLinkParam("paramSet", "prmLinkSet", "gd_contact", "id", "name", "", "", "paramSet")
		+	ParamWindow.ParamList.Params(1).Required = True
		+	ParamWindow.ParamList.Params(1).Value = Array(650001)
		+
		+	' Присвоим список параметров отдельной переменной
		+	set ParamList = ParamWindow.ParamList
		+
		+	call ParamList.AddParam("paramString", "prmString", "paramString")
		+	ParamList.Params(2).Required = True
		+	ParamList.Params(2).Value = Date
		+
		+	call ParamList.AddParam("paramDate", "prmDate", "paramDate")
		+
		+	' Функции добавления параметров возвращают индекс параметра в массиве
		+	ParamIndex = ParamList.AddLinkParam("paramElement", _
		+	"prmLinkElement", "gd_contact", "name", _
		+	"id", "", "", "paramElement")
		+	ParamList.Params(ParamIndex).Required = True
		+	ParamList.Params(ParamIndex).Value = Array(650001)
		+
		+	' Отображение диалога и получение результата
		+	Result = ParamWindow.ExecuteWithParamList(ParamList)
		+
		+	if not IsEmpty(Result) then
		+	call MsgBox("paramInteger = " & CStr(Result(0)))
		+	call MsgBox("paramSet (first element) = " & CStr(Result(1)(0)))
		+	call MsgBox("paramString = " & Result(2))
		+	call MsgBox("paramDate = " & CStr(Result(3)))
		+	call MsgBox("paramElement = " & CStr(Result(4)(0)))
		+	end if
		+
		+	end sub
		+
		+	</source>

	[[Category:VBScript]]		[[Category:VBScript]]

@@ Строка 82: / Строка 82: @@
 </source>
-Запустить диалог с параметрами заполненными через методы AddParam, AddLinkParam или свойство ParamList. Функция возвращает массив Variant с введенными параметрами. Например,
+Запустить диалог с параметрами заполненными через методы AddParam, AddLinkParam или свойство ParamList. Функция возвращает массив Variant с введенными параметрами. Причем "простые" параметры возвращаются как простые элементы массива, а параметры типа prmLinkElement и prmLinkSet как массивы. Например,
 <source lang="vbnet">
@@ Строка 95: / Строка 95: @@
 [[Изображение:Paramwnd.jpg]]
-После нажатия "ОК" получим: в Result(0) — дата, в Result(1) — ID администратора. Если нажать "Отмена", Result будет Empty!
+После нажатия "ОК" получим: в Result(0) — дата, в Result(1)(0) — ID администратора. Если нажать "Отмена", Result будет Empty!
 ===ExecuteWithParam===