Курсовая работа: Информационная система менеджера по работе с клиентами

Otch_Nakladnaya_.QRLabel26.Caption:=DBEdit1.Text; // присвоение полю значения

Otch_Nakladnaya_.QRLabel27.Caption:=DBEdit1.Text;// присвоение полю значения

Otch_Nakladnaya_.QuickRep1.Preview;// просмотр отчета

end;

6. procedureTGlavnaya_.Button21Click – Процедура сохранения поступившего товара

procedure TGlavnaya_.Button21Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit1.Text='0')

then

ShowMessage('Введите колличество принятого товара')

Else

begin

DBText1.Caption:=IntToStr((strtoint(Edit1.Text))+(strtoint(DBText1.Caption)));

DataModule1.Uslugi_Table2.FieldByName('К-во').AsString:=DBText1.Caption;;

Edit1.Text:='0';

DataModule1.Uslugi_Table2.Post; // сохранениеданных

Button13.Enabled:=true; // активациякнопки

Button14.Enabled:=true; // активациякнопки

Button10.Enabled:=true; // активациякнопки

Button15.Enabled:=true; // активациякнопки

Button21.Visible:=false; // скрытиекнопки

Button21.Enabled:=false; // деактивациякнопки

Button11.Visible:=true; // отображениекнопки

Button11.Enabled:=false; // деактивациякнопки

Button12.Enabled:=false; // деактивациякнопки

Edit1.ReadOnly:=true; // деактивацияполяввода

end;

end;

7. procedure TGlavnaya_.Button11Click – Процедура расчета цены продажи товара