Қосымша

Бағдарлама коды

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

Image1: TImage;

N22: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit_Nomer, Unit_Schet, Unit_Clienti, Unit_Food, Unit_Price,

Unit_Uslugi_Client, Unit_Uslugi;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form_Nomer.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form_Schet.show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form_Nomer.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form_Clienti.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form_Food.show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form_Price.show;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form_Uslugi_Client.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form_Uslugi.show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form_Price.show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form_Uslugi_Client.show;

end;

end.

36