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

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

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

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
//Здесь я подсчитываю количество шерсти,в выбранном цехе
ADOQuery3.SQL.Text:='select sum(kol_kip) as kol_vo from prinat where id_sklad='+IntToStr(DBLookupComboBox1.KeyValue);
ADOQuery3.Open;
if  "вот здесь надо написать условие"   then
begin
  MessageBox(Handle,'В данном складе нет места!!!','Сообщение',MB_OK or MB_ICONWARNING);
  Exit;
end;

[xrenomx]

Сообщение от Игорь Обухов

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

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
//Здесь я подсчитываю количество шерсти,в выбранном цехе
ADOQuery3.SQL.Text:='select sum(kol_kip) as kol_vo from prinat where id_sklad='+IntToStr(DBLookupComboBox1.KeyValue);
ADOQuery3.Open;
if  "вот здесь надо написать условие"   then
begin
  MessageBox(Handle,'В данном складе нет места!!!','Сообщение',MB_OK or MB_ICONWARNING);
  Exit;
end;

select sum(kol_kip) as kol_vo

Если высчитываешь кол-во,то в sql используется Count,хотя может ты просто по "удобству" назвал kol_vo

Что касается темы,самому интересно каково решение,что-то не смог придумать))

[Karabash]

if ADOQuery3.FieldValues['kol_vo'] >= MaxKol_vo then
begin
  ShowMessage('В данном складе нет места!!!');
  ADOQuery3.Close;
  Exit;
end;

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

А переменной maxkol_vo нужно приписать значение свободного места???

[Karabash]

Сообщение от Игорь Обухов

А переменной maxkol_vo нужно приписать значение свободного места???

Разумеется. С каким-то значением мы должны сравнивать то что вернул запрос.

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

вот написал,но не работает.

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Maxkol_vo:=Form3.ADOQuery2free.AsInteger;
ADOQuery3.SQL.Text:='select sum(kol_kip) as kol_vo from prinat where id_sklad='+IntToStr(DBLookupComboBox1.KeyValue);
ADOQuery3.Open;
if ADOQuery3.FieldValues['kol_vo'] >=maxkol_vo then
begin
  MessageBox(Handle,'В данном складе нет места!!!','Сообщение',MB_OK or MB_ICONWARNING);
  Exit;

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

понял ошибку.значение переменной,которая показывает количество свободного места(т.е.Free),надо в select выбрать...но как его там выбрать??если это значение не находится в базе,оно рассчитывается на другой форме в CalcFields..

[Karabash]

количество свободного места(т.е.Free),надо в select выбрать...

Нет, наверное. Количество ЗАНЯТОГО места и количество СВОБОДНОГО места взаимозависимы. Т.е., достаточно подсчитать количество занятого места, как сразу станет ясно сколько есть свободного места. Исходя из того условия, сколько мест для кип шерсти на складе есть вообще. Вот это "вообще" и надо знать независимо от того сколько кип приплыло, сколько уплыло.

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

ну вот я еще подправил

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
ADOQuery3.SQL.Text:='select sum(kol_kip) as kol_vo,"Вот здесь еще наверно надо написать это расчетное поле а как его тут описать,если его в базе то нету" from prinat where id_sklad='+IntToStr(DBLookupComboBox1.KeyValue);
ADOQuery3.Open;
Maxkol_vo:=ADOQuery3.FieldValues('').AsInteger;//а вот здесь я получается должен присвоить это значение переменной maxkol_vo
if ADOQuery3.FieldValues['kol_vo'] >=maxkol_vo then
begin
  MessageBox(Handle,'В данном складе нет места!!!','Сообщение',MB_OK or MB_ICONWARNING);
  Exit;
end;

[Karabash]

Вот здесь еще наверно надо написать это расчетное поле...

А можно осведомиться зачем?
Насколько было понятно из вопроса, надо было вынуть из БД занятые места, в чем запрос вида: "select sum(kol_kip) as kol_vo..." вполне преуспел.
Чего надо еще то?

а вот здесь я получается должен присвоить это значение переменной maxkol_vo

Нутес - это значение вы должны знать заранее. Зачем же его тягать из БД. Разве только есть таблица, которая хранит общее количество мест в складах.