ТМС:Сводник — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (→Передача параметра в справочник) |
Lander (обсуждение | вклад) (→Управление элементами в панели управления) |
||
(не показаны 2 промежуточные версии этого же участника) | |||
Строка 24: | Строка 24: | ||
end; | end; | ||
</code> | </code> | ||
+ | |||
+ | === Управление элементами в панели управления === | ||
+ | |||
+ | var | ||
+ | pn: TAdvPanel; | ||
+ | begin | ||
+ | pn:=gsender.FindComponent('pnShow'); | ||
+ | '''//Скрыть элемент статистики ... ...''' | ||
+ | pn:=gsender.FindComponent('pnStat'); pn.Visible:=False; | ||
+ | '''//Скрыть поиск''' | ||
+ | pn:=gsender.FindComponent('ApnSearch');pn.Visible:=False; | ||
+ | '''//Скрыть фильтр''' | ||
+ | pn:=gsender.FindComponent('ApnFilter'); pn.Visible:=False; | ||
+ | pn:=gsender.FindComponent('AdvPanel1'); pn.Visible:=False; | ||
+ | pn:=gsender.FindComponent('AdvPanel3'); | ||
+ | '''//Скрыть элемент печать/экспорт''' | ||
+ | pn:=gsender.FindComponent('ApnExport'); pn.Visible:=False; | ||
+ | // | ||
+ | pn:=gsender.FindComponent('ApnChilds'); pn.Visible:=False; | ||
+ | pn:=gsender.FindComponent('pnTop'); | ||
+ | pn.height:=120; | ||
+ | end; |
Версия 15:53, 23 марта 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;
Управление элементами в панели управления
var pn: TAdvPanel; begin pn:=gsender.FindComponent('pnShow'); //Скрыть элемент статистики ... ... pn:=gsender.FindComponent('pnStat'); pn.Visible:=False; //Скрыть поиск pn:=gsender.FindComponent('ApnSearch');pn.Visible:=False; //Скрыть фильтр pn:=gsender.FindComponent('ApnFilter'); pn.Visible:=False; pn:=gsender.FindComponent('AdvPanel1'); pn.Visible:=False; pn:=gsender.FindComponent('AdvPanel3'); //Скрыть элемент печать/экспорт pn:=gsender.FindComponent('ApnExport'); pn.Visible:=False; // pn:=gsender.FindComponent('ApnChilds'); pn.Visible:=False; pn:=gsender.FindComponent('pnTop'); pn.height:=120; end;