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

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Append;;

Table2.Append;

Table3.Append;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Refresh;

Table2.Refresh;

Table3.Refresh;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table2.Delete;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Table3.Delete;

end;

procedure TForm1.Button6Click(Sender: TObject);