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

Prodat11.SpeedButton4.Visible:=true;//Появлениекнопки

Prodat11.GroupBox6.Visible:=True;//Появлениекомпонента

Prodat11.DBGrid12.Visible:=True;//Появлениекомпонента

Prodat11.DBGrid13.Visible:=True;//Появлениекомпонента

Prodat11.GroupBox8.Visible:=True;//Появлениекомпонента

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

Prodat11.Panel6.Visible:=True;//Появлениепанели

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

sernom1.Label2.Caption:='Введите Серийный номер '+ IntToStr(Prodat11.colpoc);//Задание надписи

end;

end;

begin

if Prodat11.colvtov<>0 then

begin

sernom1.Edit1.Clear;//Очисткатекстовогополя

sernom1.Edit1.SetFocus;//перемещениекурсоравтекстовоеполе

BitBtn3.Visible:=False;//Появлениекнопки

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

end

else

begin

sernom1.Hide;//Закрытиеформы sernom1

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

Prodat11.Panel6.Visible:=True;//Появлениепанели

Prodat11.GroupBox8.Visible:=True;//Появлениекомпонента

Prodat11.BitBtn9.Visible:=true;//Появлениекнопки

Prodat11.BitBtn7.Visible:=true;//Появлениекнопки

Prodat11.Panel6.Visible:=True;//Появлениепанели

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