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

begin

if (DBEdit7.Text='') or (Edit1.Text='') or (DBEdit11.Text='')

or(Edit2.Text='')

then

ShowMessage('Заполните все поля') // Вывод сообщения

Else

begin

DBText1.Caption:=Edit1.Text; // переносзначения

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

Edit1.Text:='0';

Edit3.Text:=IntToStr(((strtoint(DBEdit11.Text))* (strtoint(Edit2.Text))) div (strtoint('100')) );

DBEdit9.Text:=IntToStr((strtoint(Edit3.Text))+(strtoint(DBEdit11.Text)));

DataModule1.Uslugi_Table2.Post;

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

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

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

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

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

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

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

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

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

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

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

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

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

end;

end;

8. procedureTGlavnaya_.Button8Click – процедура выбора услуг из списка