Форма управления БД

unit admin;

interface

uses

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

Dialogs, Menus;

type

TUpravlenie = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

procedure N9Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Upravlenie: TUpravlenie;

implementation

uses edit, klient, prodan, avto, zak2, skld, otchet;

{$R *.dfm}

procedure TUpravlenie.N9Click(Sender: TObject);

begin

Upravlenie.Close;

end;

procedure TUpravlenie.N1Click(Sender: TObject);

begin

EditBD.Show;

end;

procedure TUpravlenie.N4Click(Sender: TObject);

begin

PoiskKlienta.Show;

end;

procedure TUpravlenie.N5Click(Sender: TObject);

begin

Prodano.Show;

end;

procedure TUpravlenie.N6Click(Sender: TObject);

begin

Form_Avto.Show;

end;

procedure TUpravlenie.N7Click(Sender: TObject);

begin

Zakazi.Show;

end;

procedure TUpravlenie.N10Click(Sender: TObject);

begin

Sklad.Show;

end;

procedure TUpravlenie.N8Click(Sender: TObject);

begin

Otchet_za_mec.Show;

end;

end.