Страница 1 из 4
kok80-поиск ссылок
Добавлено: 25 май 2021, 13:48
kok80
Поиск ссылок на форму по всем объектам базы из контекстного меню grid формы и запроса.
Поддерживает рекурсию (поиск ссылок в найденных формах).
возможность выбора нескольких значений для поиска ссылок
замена во всех найденных ссылках значений на другое
добавлена поддержка расширений kok80-ExportToExcel (выгрузка найденных ссылок в xls) и kok80-poisk (при выборе значения для замены)
Пароль в примере - 1
kok80-поиск ссылок
Добавлено: 26 май 2021, 00:30
kok80
сразу баг-фикс: после первого рекурсивного поиска ссылок кнопка редактировать на панели формы выдавала ошибку
kok80-поиск ссылок
Добавлено: 28 май 2021, 22:44
admin
Вот такая ошибка, когда нажимаю поиск ссылок.
kok80-поиск ссылок
Добавлено: 02 июн 2021, 00:28
Mari
Я не совсем поняла, как им пользоваться…. Видимо глупая.
Подскажите, как им пользоваться?
kok80-поиск ссылок
Добавлено: 22 окт 2021, 15:26
kok80
исправил ошибку. На любой форме в режиме видимой таблицы правой кнопкой - в контекстном меню "поиск ссылок".
kok80-поиск ссылок
Добавлено: 04 ноя 2021, 10:38
kok80
ver 1.10
добавлен поиск ссылок в запросе
интерфейс переделан на KGrid (по совету Владимира Мудрейшего)
исправление ошибок
kok80-поиск ссылок
Добавлено: 04 ноя 2021, 18:09
vadr
- 2021-11-04_181212.png (19.6 КБ) 2083 просмотра
Выдает ошибку.Видимо конфликт с каким то расширением?
kok80-поиск ссылок
Добавлено: 07 ноя 2021, 09:26
kok80
без базы не разобраться, написал в личку
kok80-поиск ссылок
Добавлено: 23 дек 2021, 09:48
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-поиск ссылок
Добавлено: 03 дек 2023, 21:47
kok80
Верия 2.00 - добавил поиск в подчиннных формах (таблицах)