Проверка значения в дэлфи

[Игорь Обухов]

Да.есть таблица "Склад",в ней есть атрибут Vmest,он показывает вообще вместительность склада,и есть два расчетных поля Занятые места и соответственно свободные места.вопрос был в том,как сделать так,чтобы шерсть не заносилась в склад,где количество свободных мест меньше количества заносимой шерсти.я просто само условие правильно записать не могу.

[Karabash]

Да не сложно же сформировать запрос, который вернет объем склада:

ADOQuery4.SQL.Text:='select Vmest from <Склад> where id_sklad = ' + IntToStr(DBLookupComboBox1.KeyValue);
ADOQuery4.Open;
if not ADOQuery4.Eof then
  MaxKol_vo := ADOQuery4.FielsValues['VMest'];
ADOQuery4.Close;

[Игорь Обухов]

Посмотрите пожалуйста строку,где нужно поставить кавычки или убрать?
AdoQuery3.SQL.Text:='update sklad set vmest=vmest-StrToInt(LabeledEdit2.Text) where id_sklad='+trim(DBLookupCombobox1.K eyValue);

[Karabash]

В модифицирующем запросе применять значения из обновляемой таблицы нельзя.
Вначале выборку значения из поля vmest сделать (SELECT), запомнить, затем применить это значение в запросе UPDATE.

[Игорь Обухов]

Выборку такую?
ADOQuery4.SQL.Text:='select vmest as vmest from sklad';
ADOQuery4.Open;
kol:=ADOQuery4.FieldByName('vmest') .AsInteger;

[Karabash]

Да, только условие где? Если склад не один.
Пост #12

[Игорь Обухов]

Вот вроде правильно.
ADOQuery4.SQL.Text:='Select * from sklad where id_sklad='+trim(DBLookupCombobox1.K eyValue);
ADOQuery4.Open;
kol:=ADOQuery4.FieldByName('vmest') .AsInteger;

Вот второе число
a:=StrToInt(LabeledEdit2.Text);

Теперь как в Update применить?
AdoQuery3.SQL.Text:='update sklad set vmest=...... where id_sklad='+trim(DBLookupCombobox1.K eyValue);

[Karabash]

Наверное, так:

AdoQuery3.SQL.Text:='update sklad set vmest='+IntToStr(kol-a)+' where id_sklad='+trim(DBLookupCombobox1.K eyValue);

Только что этот запрос делает... Уменьшает максимальное количество мест на складе? Странно. Теряем информацию.

[Игорь Обухов]

Честно,сам не пойму зачем так..сказали что нужно так.чтоб вместительность уменьшалась,и когда она достигнет нуля,чтобы склад не отображался более.За помощь большое спасибо.Если б не вы,фиг бы че сделал...

[Игорь Обухов]

Подскажите пожалуйста где ошибка
AdoQuery3.SQL.Text:='update sklad set vmest='+IntToStr(kol+a)+' where id_sklad="'+Edit1.Text;