Лабораторная работа: База данных "Автосервис" в среде Borland Delphi 6.0.

implementation

uses Unit1, Unit4, Unit5, Unit3, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form4.Show;

Form4.Table1.Insert;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm2.Button7Click(Sender: TObject);