Вывод ошибки при условии....

[Arinka]

Здравствуйте!!!!
У меня имеются таблицы Продукция и Заказы. В продукции есть поле количество. Мне нужно чтобы при заполнение заказа в поле количество выдавалось сообщение об ошибке, если допустим пользователь ввел заказ на 100 штук, но в базе имеется только 90 штук данной продукции
Как это можно осуществить? Подскажите пожалуйста!!!!!!!!

[Kazik]

в каком виде храните данные...
какая база используется...
компоненты...

[Arinka]

Таблицы созданы в Database.
На форме у меня имеются 3 таблицы: Продукция, Клиенты и заказы.
Я выбираю определенную продукцию (таблица 1), клиента , который заказал (таблица2), потом выбираю дату заказа(компонент DateTimerPicker) и количество продукции(компонент DBEdit). Далее нажимаю на кнопку Оформить и данные переводятся в таблицу Заказы.

Процедура кнопки "Оформить":

procedure TForm8.BitBtn1Click(Sender: TObject);
var bool:boolean;
begin
bool:=false;
date:='';
prod:='';
client:='';
colvo:=0;
cost:=0;
price:=0;
str1:=''; str2:='';
if (DateToStr(DateTimePicker1.Date)='' ) or (ColvoEdit.Text='') then
ShowMessage('Все поля должны быть обязательно заполнены!')
else
begin
date:=DateToStr(DateTimePicker1.Dat e);

str1:=Table2.FieldValues['product'];

str2:=Table1.FieldValues['client'];

prod:=Table2.FieldValues['art'];

client:=Table1.FieldValues['CodeC'];

colvo:=StrToInt(ColvoEdit.Text);

price:=Table2.FieldValues['price'];

cost:=colvo*price;

bool:=false;
Form8.Table3.Active:=false;
Form8.Table3.Active:=true;
Form8.Table3.First;

{showmessage(SdelTable.FieldValues['art']);
showmessage(prod);

showmessage(SdelTable.FieldValues['codeC']);
showmessage(client);

showmessage(SdelTable.FieldValues['colvo']);
showmessage(IntToStr(colvo));

showmessage(SdelTable.FieldValues['date']);
showmessage(date); }

// ищем есть ли в таблице такая запись
while not Form8.Table3.Eof do
begin
if ((Table3.FieldValues['art']=prod) and (Table3.FieldValues['codeC']=client) and(Table3.FieldValues['colvo']=colvo) and (Table3.FieldValues['dataS']=date)) then
begin
bool:=true;
exit;
end
else Table3.Next;
end;

if bool=false then
begin
Table3.Append;
Table3.FieldValues['art']:=prod;
Table3.FieldValues['codeC']:=client;
Table3.FieldValues['dataS']:=date;
Table3.FieldValues['colvo']:=colvo;
Table3.FieldValues['cost']:=cost;
Table3.Post;
ColvoEdit.Text:='';
end;

if bool=true then
if (MessageDlg('Заказ покупателем '+ str2 +' на '+str1 + ' в количестве ' + ColvoEdit.Text + ' уже оформлен.' +#13+ 'Сохранить в любом случае?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
Table3.Append;
Table3.FieldValues['art']:=prod;
Table3.FieldValues['codeC']:=client;
Table3.FieldValues['dataS']:=date;
Table3.FieldValues['colvo']:=colvo;
Table3.FieldValues['cost']:=cost;
Table3.Post;
ColvoEdit.Text:='';
end
else ShowMessage('Сохранение отменено!'); end;


end;

procedure TForm8.FormCreate(Sender: TObject);
begin
Form8.Table2.Active:=true;
Form8.Table1.Active:=true;
colvo:=0;
ColvoEdit.Text:='';

end;

Проблема в том, что в DBEdit можно вводить любое значение.
А мне нужно, чтобы при оформление заказа, выдавалась ошибка, если пользователь ввел 20 штук, а в базе только 3!!!!!!!!!

Сама разобраться не смогу((((((((((((((((((((((

[Kazik]

просто пробуй переводить значения в числовые...и сравнивай

[Arinka]

А как это сделать и куда вписать???????? Я ничего не понимаю..........

[Arinka]

Предлагали такой вариант:

If Количество < Заказа Then
Begin
ShowMessage('Текст ошибки');
End;

Только я не знаю куда вписать. Куда не вставляешь, ошибку выдает(((((((((

[Kazik]

нужно вставлять в обработчике твоем...где типа ввели заказ...и типа короче жмут на кнопку...мол...вези...
короче типа этого:
if Table3.Заказ()<Table3.склад() then
ShowMessage('код ошибки');
типа этого

[Arinka]

Я поняла что на кнопку ОФормить, а в какое именно место?

[Arinka]

Можно на примере кода, который выше