Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Стандартный запрос на удаление записи в таблице

Автор: Галимарзанов Фанис



procedure DelRec(inSet:TDataSet);
begin
  if (NotEmptySet(inSet)) and // если таблица пуста - незачем выводить запрос
    (Application.MessageBox('Удалить запись?','Внимание!!!',
    mb_YesNo+mb_Iconquestion)=idYes) then
    inSet.Delete;
end;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011