GetNewParamWindow
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
Flake (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
Окно ввода параметров макроса или отчета создается с помощью метода GetNewParamWindow глобального объекта System. | Окно ввода параметров макроса или отчета создается с помощью метода GetNewParamWindow глобального объекта System. | ||
| − | + | <source lang="delphi"> | |
GetNewParamWindow(WindowKey: Integer): IgsParamWindow | GetNewParamWindow(WindowKey: Integer): IgsParamWindow | ||
| + | </source> | ||
где WindowKey — хэндл родительского окна. | где WindowKey — хэндл родительского окна. | ||
| Строка 7: | Строка 8: | ||
Пример: | Пример: | ||
| + | <source lang="vbnet"> | ||
dim Win | dim Win | ||
set Win = System.GetNewParamWindow(0) | set Win = System.GetNewParamWindow(0) | ||
| + | </source> | ||
Объект окна поддерживает интерфейс IgsParamWindow. | Объект окна поддерживает интерфейс IgsParamWindow. | ||
| Строка 14: | Строка 17: | ||
==Методы IgsParamWindow== | ==Методы IgsParamWindow== | ||
===AddParam=== | ===AddParam=== | ||
| + | <source lang="delphi"> | ||
procedure AddParam (ParamName: String; | procedure AddParam (ParamName: String; | ||
ParamType: String; | ParamType: String; | ||
Comment: String) | Comment: String) | ||
| + | |||
| + | </source> | ||
Добавляет в список параметров окна новый параметр. Например, | Добавляет в список параметров окна новый параметр. Например, | ||
| + | <source lang="vbnet"> | ||
Win.AddParam "Параметр 1", "PRMDate", "Parameter 1" | Win.AddParam "Параметр 1", "PRMDate", "Parameter 1" | ||
| + | |||
| + | </source> | ||
ParamType может иметь следующие значения: | ParamType может иметь следующие значения: | ||
| − | * | + | * prmInteger — целое число |
| − | * | + | * prmFloat — число с плавающей точкой |
| − | * | + | * prmDate — дата |
| − | * | + | * prmDateTime — дата и время |
| − | * | + | * prmTime — время |
| − | * | + | * prmString — строка |
| − | * | + | * prmBoolean — логическое значение |
| − | * | + | * prmNoQuery — параметр не отображается в диалоге |
===AddLinkParam=== | ===AddLinkParam=== | ||
| + | <source lang="delphi"> | ||
procedure AddLinkParam(ParamName: String; | procedure AddLinkParam(ParamName: String; | ||
ParamType: String; | ParamType: String; | ||
| Строка 41: | Строка 51: | ||
LinkLanguage: String; | LinkLanguage: String; | ||
Comment: String) | Comment: String) | ||
| + | |||
| + | </source> | ||
Добавляет в список параметров окна новый параметр типа ссылка. Константы типов: | Добавляет в список параметров окна новый параметр типа ссылка. Константы типов: | ||
| − | * | + | * prmLinkElement — ссылка на элемент |
| − | * | + | * prmLinkSet — множество элементов |
Например, | Например, | ||
| − | |||
| + | <source lang="vbnet"> | ||
| + | Win.AddLinkParam "Параметр 2", "PRMLinkElement", "GD_USER", "ID", "NAME", "", "", "" | ||
| + | </source> | ||
===Execute=== | ===Execute=== | ||
| + | <source lang="delphi"> | ||
function Execute: Variant | function Execute: Variant | ||
| + | |||
| + | </source> | ||
Возвращает массив Variant с введенными параметрами. Например, | Возвращает массив Variant с введенными параметрами. Например, | ||
| + | <source lang="vbnet"> | ||
Win.AddParam "Параметр 1", "PRMDate", "Parameter 1" | Win.AddParam "Параметр 1", "PRMDate", "Parameter 1" | ||
Win.AddLinkParam "Параметр 2", "PRMLinkElement", "GD_USER", "ID", "NAME", "", "", "" | Win.AddLinkParam "Параметр 2", "PRMLinkElement", "GD_USER", "ID", "NAME", "", "", "" | ||
Result = Win.Execute | Result = Win.Execute | ||
| + | |||
| + | </source> | ||
Получим окно следующего вида: | Получим окно следующего вида: | ||
| Строка 65: | Строка 85: | ||
===ExecuteWithParam=== | ===ExecuteWithParam=== | ||
| + | <source lang="delphi"> | ||
function ExecuteWithParam(ParamName: String; | function ExecuteWithParam(ParamName: String; | ||
ParamType: String; | ParamType: String; | ||
Comment: String): Variant | Comment: String): Variant | ||
| + | |||
| + | </source> | ||
Для единственного "простого" параметра — добавить его и вызвать окно. | Для единственного "простого" параметра — добавить его и вызвать окно. | ||
===ExecuteWithLinkParam=== | ===ExecuteWithLinkParam=== | ||
| + | <source lang="delphi"> | ||
function ExecuteWithLinkParam(ParamName: String; | function ExecuteWithLinkParam(ParamName: String; | ||
ParamType: String; | ParamType: String; | ||
| Строка 80: | Строка 104: | ||
LinkLanguage: String; | LinkLanguage: String; | ||
Comment: String): Variant | Comment: String): Variant | ||
| + | |||
| + | </source> | ||
То же самое для параметра-ссылки. | То же самое для параметра-ссылки. | ||
| + | [[Category:VBScript]] | ||
Версия 11:00, 6 октября 2009
Окно ввода параметров макроса или отчета создается с помощью метода GetNewParamWindow глобального объекта System.
GetNewParamWindow(WindowKey: Integer): IgsParamWindow
где WindowKey — хэндл родительского окна.
Пример:
dim Win set Win = System.GetNewParamWindow(0)
Объект окна поддерживает интерфейс IgsParamWindow.
Содержание |
Методы IgsParamWindow
AddParam
procedure AddParam (ParamName: String; ParamType: String; Comment: String)
Добавляет в список параметров окна новый параметр. Например,
Win.AddParam "Параметр 1", "PRMDate", "Parameter 1"
ParamType может иметь следующие значения:
- prmInteger — целое число
- prmFloat — число с плавающей точкой
- prmDate — дата
- prmDateTime — дата и время
- prmTime — время
- prmString — строка
- prmBoolean — логическое значение
- prmNoQuery — параметр не отображается в диалоге
AddLinkParam
procedure AddLinkParam(ParamName: String; ParamType: String; TableName: String; PrimaryName: String; DisplayName: String; LinkCondition: String; LinkLanguage: String; Comment: String)
Добавляет в список параметров окна новый параметр типа ссылка. Константы типов:
- prmLinkElement — ссылка на элемент
- prmLinkSet — множество элементов
Например,
Win.AddLinkParam "Параметр 2", "PRMLinkElement", "GD_USER", "ID", "NAME", "", "", ""
Execute
function Execute: Variant
Возвращает массив Variant с введенными параметрами. Например,
Win.AddParam "Параметр 1", "PRMDate", "Parameter 1" Win.AddLinkParam "Параметр 2", "PRMLinkElement", "GD_USER", "ID", "NAME", "", "", "" Result = Win.Execute
Получим окно следующего вида:
После нажатия "ОК" получим: в Result(0) — дата, в Result(1) — ID администратора. Если нажать "Отмена", Result будет Empty!
ExecuteWithParam
function ExecuteWithParam(ParamName: String; ParamType: String; Comment: String): Variant
Для единственного "простого" параметра — добавить его и вызвать окно.
ExecuteWithLinkParam
function ExecuteWithLinkParam(ParamName: String; ParamType: String; TableName: String; PrimaryName: String; DisplayName: String; LinkCondition: String; LinkLanguage: String; Comment: String): Variant
То же самое для параметра-ссылки.
