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

procedure TGlavnaya_.Button1Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=false;// активацияполяввода

DBEdit2.ReadOnly:=false;// активацияполяввода

DBEdit3.ReadOnly:=false; // активацияполяввода

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

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

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

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

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

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

DBEdit1.SetFocus; // Установкакурсора

DataModule1.Klient_Table1.Insert; //Добавлениезаписи

end;

2. procedure TGlavnaya_.Button3Click – процедура сохранения данных;

procedure TGlavnaya_.Button3Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or (DBEdit3.Text='')

then

begin

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

DBEdit1.SetFocus;// установкакурсора

end

else

begin

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

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

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

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