Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

Form2.Close;

Form1.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form3.showmodal;

end;

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm3 = class(TForm)

Button1: TButton;

tabl: TStringGrid;

Label1: TLabel;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form3: TForm3;