ТМС:Сводник — различия между версиями

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(Передача параметра в справочник)
(Управление элементами в панели управления)
 
(не показаны 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;