Код:
DataModule4.ADOTable2.Locate('Nazvanie', Form10.Edit2.text, []);
DataModule4.ADOTable2.Edit;
if (DataModule4.ADOTable2.FieldByName('Nazvanie').value <> StrToInt(Form10.Edit2.Text))
then
ShowMessage ('Нет лекарства')
else begin
DataModule4.ADOTable2.FieldByName('Kolichestvo').Value:=DataModule4.ADOTable2.FieldByName('Kolichestvo').Value-StrToInt(Form10.Edit3.Text);
end;
Form10.Close;
Form9.Show;
end;
end.
Вроде как по решению второй проблемы, работает, но в режиме работы когда вводу данные для рецепта и на кнопку сохранить вылетает такая лабуда "Название лекарства" Is not a valid integer value и формы не закрываются и не всплывают, что делать? Тип данных в базе данных сменить с текстового на числовой или можно как то по другому?