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