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

procedure TForm1.Button14Click(Sender: TObject);

begin

Table1.Edit;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

RvProject3.Execute;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

Table3.Prior;

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

Table3.Next;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

Table3.Edit;

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

Table3.Post;

end;

end.