|
Стандартный запрос на удаление записи в таблице
|
|
procedure
DelRec(inSet:TDataSet); begin if (NotEmptySet(inSet)) and
// если таблица пуста - незачем выводить
запрос (Application.MessageBox('Удалить
запись?','Внимание!!!', mb_YesNo+mb_Iconquestion)=idYes)
then inSet.Delete; end; | |
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
|
Просмотров: 1055
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|