Изменение значения поля

[Marla14]

Подскажите как при нажатии на кнопку изменить значение числового поля Кол-во, а именно прибавить единицу то есть что то вроде этого

DataModule2.BookDS.Edit;
DataModule2.BookDS.FieldValues['На руках']:=DataModule2.BookDSDSDesigner7+1;

[xxbesoxx]

как при нажатии на кнопку изменить значение числового поля Кол-во, а именно прибавить единицу

procedure TForm1.Button1Click(Sender: TObject);
 var
  i : Integer;
begin
 i := 1;
   with ADOQuery1 do
   begin
     Edit;
     FieldByName('Kolvo').AsCurrency := FieldByName('Kolvo').AsCurrency +i;
     Post;
   end;
end;

end.

[Marla14]

Спасибо большое, работает, а возможно ли вставить условие сюда, что бы при нажатии кнопки если количество равно столбцу Всего добавление не происходило, а появлялось сообщение, типа нет в наличии

[xxbesoxx]

что бы при нажатии кнопки если количество равно столбцу Всего добавление не происходило, а появлялось сообщение, типа нет в наличии

procedure TForm1.Button1Click(Sender: TObject);

 var
  i: Integer;
begin
 i := 1;
 if ADOQuery1.FieldByName('Kolvo').AsInteger > i then
  begin
   with ADOQuery1 do
   begin
     Edit;
     FieldByName('Kolvo').AsCurrency := FieldByName('Kolvo').AsCurrency +i;
     Post;
   end;
  end
  else
  ShowMessage('типа нет в наличии');
end;

end.

[Marla14]

Спасибо большое, все получилось