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

begin

if Prodat11.Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;

end;

Prodat11.Enabled:=True;

begin

if Edit1.Text='' then

begin//Вывод соответствующего сообщения

ShowMessage('Пожалуйсто введите серийный номер');

end

else

begin

begin

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

if d>100 then

begin

Prodat11.Edit24.Text:='100';//Занесение информации в текстовое поле

end;

end;

Prodat11.GroupBox7.Enabled:=False;

Prodat11.Button2.Enabled:=False;

Prodat11.Button3.Enabled:=False;

Prodat11.Button4.Enabled:=False;

Prodat11.Button5.Enabled:=False;

Prodat11.Button6.Enabled:=False;

Prodat11.CheckBox2.Checked:=True;//Изменениезначениякомпонента

dm.ADOZacaz.Insert;//Добавление строки в таблицу ADOZacaz