ТМС:Сводник — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (Новая страница: « == Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами ==») |
Lander (обсуждение | вклад) (→Передача параметра в справочник) |
||
(не показано 6 промежуточных версии этого же участника) | |||
Строка 1: | Строка 1: | ||
== Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами == | == Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами == | ||
+ | |||
+ | === Передача параметра в справочник === | ||
+ | |||
+ | |||
+ | <code> | ||
+ | var | ||
+ | qParams: TibQuery; | ||
+ | begin | ||
+ | qParams := dm.TempQuery(nil); | ||
+ | try | ||
+ | qParams.sql.text := 'select * from rdb$database where 1=:tek_id'; | ||
+ | qParams.prepare; | ||
+ | // | ||
+ | //Определяем параметр | ||
+ | qParams.parambyname(''''Имя параметра'''').asstring := '''Значение параметра'''; | ||
+ | // | ||
+ | //Вызываем справочник | ||
+ | ShowWDict('''ID справочника''',''''''', qParams.params); | ||
+ | finally | ||
+ | qParams.Free; | ||
+ | end; | ||
+ | end; | ||
+ | </code> |
Версия 14:08, 20 марта 2020
Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами
Передача параметра в справочник
var qParams: TibQuery; begin qParams := dm.TempQuery(nil); try qParams.sql.text := 'select * from rdb$database where 1=:tek_id'; qParams.prepare; // //Определяем параметр qParams.parambyname('Имя параметра').asstring := Значение параметра; // //Вызываем справочник ShowWDict('ID справочника,'', qParams.params); finally qParams.Free; end; end;