Курсовая работа: Разработка информационной системы Отель

begin

DBEdit7.Clear;

DBEdit14.Clear;

DBEdit15.Clear;

DBEdit16.Clear;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table2.Insert;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if MessageDlg(‘Выдействительнохотитеудалитьзапись?', mtConfirmation,[mbYes,mbNo],0) = mrYes then

Table2.Delete;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

if MessageDlg(‘Выдействительнохотитеудалитьзапись?', mtConfirmation,[mbYes,mbNo],0) = mrYes then

Table3.Delete;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

if MessageDlg(‘Выдействительнохотитеудалитьзапись?', mtConfirmation,[mbYes,mbNo],0) = mrYes then

Table6.Delete;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

Form2.Show;

Edit6.Text:=FormatDateTime('dd.mm.yyyy',now());