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

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

DataModule1.Klient_Table1.Post; // Сохранениезаписи

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

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

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

end;

end;

3. procedure TGlavnaya_.Button4Click - процедура нажатия кнопки "Отмена";

procedure TGlavnaya_.Button4Click(Sender: TObject);

begin

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

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

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

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

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

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

DataModule1.Klient_Table1.Cancel; // отмена

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

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

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

end;

4. procedure TGlavnaya_.Button7Click – процедура перехода к предыдущей записи в таблице

procedure TGlavnaya_.Button7Click(Sender: TObject);

begin

DataModule1.Klient_Table1.Prior;// переходкпредыдущейзаписи

end;

5. procedureTGlavnaya_.Button9Click – процедура создания отчета

procedure TGlavnaya_.Button9Click(Sender: TObject);

begin