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

Prodat11.Button16.Click;//Нажатиекнопки

end;

Prodat11.Button16.Click;//Нажатиекнопки

end;

7. procedureTSerNom.FormShow – Процедура слежения за количеством товара на складе, и количеством выбранного товара

procedure TSerNom.FormShow(Sender: TObject);

var ng,mk:integer;

begin

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

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

Prodat11.Enabled:=False;//Фомаактивна

sernom1.Edit1.Text:='';//Выводтекста

sernom1.Edit2.Text:='1';//Выводтекста

sernom1.Label2.Caption:='Введите количество товара:';

Prodat11.colpoc:=2;//задание значения переменной

Label3.Caption:='Общее количество товара = '+Prodat11.DBEdit8.Text;//Задание надписи

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

begin

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

begin

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

begin

mk:=mk+1;//Увеличение счётчика переменной

end;

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

end;

kj:=StrToInt(Prodat11.DBEdit8.Text)-mk;//Задание значения переменной

Label4.Caption:='Количество уже выбранного товара = '+IntToStr(mk)+', доступно = '+ IntToStr(kj);//Занесение текста в надпись

end;