|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Значение меньше нуля
Код:
AdoQuery1.SQL.Text:='UPDATE Zakaz SET Qty=Qty-:Param2 WHERE Narad=:Param1'; AdoQuery1.Parameters.ParamByName('Param1').Value := FormNar.Text; AdoQuery1.Parameters.ParamByName('Param2').Value := FormQty.Text; AdoQuery1.ExecSQL; AdoQuery1.Close; AdoTable1.Active := false; AdoTable1.Active := true; Как можно добиться извещения о том, что значение при вычитании становится меньше нуля и прекратить выполнение программы? |