powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DBNavigator+своя хранимка на удаление
9 сообщений из 9, страница 1 из 1
DBNavigator+своя хранимка на удаление
    #37187086
есть дб-нафигатор
нужно удалять хранимкой.
а эта сволочь удаляет напрямую.
как повесить на него хранимку, а стандартный query.delete отключить?

заранее говорю, варианты: писать свой нафигатор, или городить массу кнопочек на панели - желательно обойтись без этих вариантов.
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187118
использовать триггер, не? %)
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187125
вообщем, справился. может быть кому-то и пригодица
идея такая:
на BeforeAction нафигатора повесить такой код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
 procedure  BeforeAction(бла-бла-бла...)
 begin 
   case  Button  of 
     // ... код для вставки и других действий 
    nbDelete:  begin 
      вызов_хранимки_на_удаление();
      Abort;  // а вот эта штуковина отменит функционал грида 
     end ;
   end ;
 end ;

код onClick не обрабатывать.

да и кстати. если не хотите чтобы нафигатор выдавал сообщение
Код: plaintext
"delete record, Y/N"
- то отключите у него свойство ConfirmDelete

триггер не нужен, из-за такой фигни писать триггер, вы чево?)
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187126
Tactical Nuclear Penguin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дельфист-экстремалесть дб-нафигатор
нужно удалять хранимкой.
а эта сволочь удаляет напрямую.
как повесить на него хранимку, а стандартный query.delete отключить?

заранее говорю, варианты: писать свой нафигатор, или городить массу кнопочек на панели - желательно обойтись без этих вариантов.

например так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
 procedure  TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
 begin 
   if  Button = nbDelete  then 
   begin 
    ShowMessage('Нееее, удалять будем через процедуру!');
     //тут удаляем через процедуру 
    Abort;
   end ;
 end ;
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187138
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дельфист-экстремал,

У многих комонент есть свойство SQLDelete куда можно прописать свой код на удаление
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187143
Фотография roschinspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дельфист-экстремалесть дб-нафигатор
нужно удалять хранимкой.
а эта сволочь удаляет напрямую.
как повесить на него хранимку, а стандартный query.delete отключить?

заранее говорю, варианты: писать свой нафигатор, или городить массу кнопочек на панели - желательно обойтись без этих вариантов. Потомучто не надо на навигатор ни чего вешать.
Есть компонент TUpdateSQL, у него есть 3 свойства в которых задаёте запросы на удаление, вставку, изменение. Другой вариант: повесить обработчик на событие onBeforeDelete или onAfterDelete.
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187155
Фотография roschinspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дельфист-экстремалвообщем, справился. может быть кому-то и пригодица
идея такая: ...
Здесь будет более уместно
...
Рейтинг: 0 / 0
DBNavigator+своя хранимка на удаление
    #37187159
SQLap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
но лучше всего все-таки использовать триггер.
Нет гарантий, что какой-нибудь чел не попробует давить кнопку в дб-нафигаторе какой-нибудь сторонней (а не твоей) программы.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
DBNavigator+своя хранимка на удаление
    #39826842
Elmurod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
procedure TDM.ClientDataSet1AfterDelete(DataSet: TDataSet);
begin
ClientDataSet1.CancelUpdates;
end;

procedure TDM.ClientDataSet1BeforeDelete(DataSet: TDataSet);
begin
ClientDataSet1.CancelUpdates;
end;

ВОТ решения!!!!
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DBNavigator+своя хранимка на удаление
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]