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

Table2.Prior;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Table2.Next;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Table2.Edit;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Table2.Post;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

RvProject2.Execute;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

Table1.Next;