unit1.pas

sheji

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Label1: TLabel;
    Image1: TImage;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Label6: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11;

{$R *.dfm}

procedure TmainForm.N2Click(Sender: TObject);
begin
daForm.Show;
end;

procedure TmainForm.N4Click(Sender: TObject);
begin
guestForm.Show;
end;

procedure TmainForm.N5Click(Sender: TObject);
begin
roomForm.Show;
end;

procedure TmainForm.N6Click(Sender: TObject);
begin
lyForm.Show;
end;

procedure TmainForm.N8Click(Sender: TObject);
begin
gzForm.Show;
end;

procedure TmainForm.N10Click(Sender: TObject);
begin
wzForm.Show;
end;

procedure TmainForm.N12Click(Sender: TObject);
begin
cwForm.Show;
end;

procedure TmainForm.N14Click(Sender: TObject);
begin
dcForm.Show;
end;

procedure TmainForm.N16Click(Sender: TObject);
begin
phoneForm.Show;
end;

procedure TmainForm.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TmainForm.Button2Click(Sender: TObject);
begin
ourForm.Show;
end;

end.