Курсовая работа: Справочная система продавца–консультанта компьютерного салона

dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz

a1:=0;//Обнуление переменной

a2:=0;//Обнуление переменной

begin

for z1:=1 to DM.ADOZacaz.RecordCount do

begin

if dm.ADOZacaz.FieldByName('№ товара').AsString=Prodat11.DBEdit1.Text then

begin

end;

dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz

end;

end;

begin

a2:=StrToInt(Prodat11.DBEdit8.Text);//Присвоениезначенияпеременной

a2:=a2-a1;//Присвоение значения переменной

if a2=0 then

begin

ShowMessage('Тoвара на складе нет');//Вывод сообщения

end

else

begin

begin

sernom1.Show;//Открытиеформы sernom1

sernom1.Label1.Visible:=True;//Появлениенадписи

sernom1.Edit1.Visible:=True;//Появление текстового поля

sernom1.Label2.Visible:=False;//Скрытиенадписи

sernom1.Edit2.Visible:=False;//Скрытие текстового поля

sernom1.Edit1.SetFocus;//Курсор в текстовом поле

Prodat11.colvtov:=1;//Присвоение значения переменной