kok80-поиск ссылок

[kok80]

Поиск ссылок на форму по всем объектам базы из контекстного меню grid формы и запроса.
Поддерживает рекурсию (поиск ссылок в найденных формах).
возможность выбора нескольких значений для поиска ссылок
замена во всех найденных ссылках значений на другое
добавлена поддержка расширений kok80-ExportToExcel (выгрузка найденных ссылок в xls) и kok80-poisk (при выборе значения для замены)

Пароль в примере - 1

[kok80]

сразу баг-фикс: после первого рекурсивного поиска ссылок кнопка редактировать на панели формы выдавала ошибку

[admin]

Вот такая ошибка, когда нажимаю поиск ссылок.

[Mari]

Я не совсем поняла, как им пользоваться…. Видимо глупая.

Подскажите, как им пользоваться?

[kok80]

исправил ошибку. На любой форме в режиме видимой таблицы правой кнопкой - в контекстном меню "поиск ссылок".

[kok80]

ver 1.10
добавлен поиск ссылок в запросе
интерфейс переделан на KGrid (по совету Владимира Мудрейшего)
исправление ошибок

[vadr]

2021-11-04_181212.png (19.6 КБ) 1799 просмотров

Выдает ошибку.Видимо конфликт с каким то расширением?

[kok80]

без базы не разобраться, написал в личку

[Megabyte]

Ошибка возникает, если в скрипте формы при создании обнуляется меню.
Немного поправил расширение, вроде работает. В функциях создания меню добавил проверку на обнуленное меню формы(запроса).

Код: Выделить всё

function AddMenuItem(menu:TPopupMenu; vCaption:string; tag:integer; Event:TNotifyEvent; owner:TComponent):TMenuItem;
begin
  if TdxGrid(owner).PopupMenu = nil then exit; //проверка на обнуленное меню
  result:=TMenuItem.create(owner);
  with result do
    begin
      caption:=vCaption;
      OnClick:=event;
      tag:=tag;
    end;
  menu.Items.Add(result);
end;
...

// Добавляет в контестное меню запроса "поиск ссылок"
function AddDuplicateToTdxQueryGridPopupMenu(qg:TdxQueryGrid):TMenuItem;
//var stream:TStringStream;
begin
  if qg.PopupMenu = nil then exit;  //проверка на обнуленное меню

  result:=TMenuItem.create(qg);
  with result do
    begin
      caption:='поиск ссылок';
      OnClick:=@FindLinks;
    end;
  qg.popupmenu.items.add(result);
end;



[kok80]

Верия 2.00 - добавил поиск в подчиннных формах (таблицах)