unit1.pas

作者针对当前酒店客房管理的现状

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    StatusBar1: TStatusBar;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses   Unit2,Unit3,Unit4,Unit5, Unit6,Unit8,Unit10,Unit11,Unit12,Unit13,Unit14;
{$R *.dfm}

procedure TForm1.N11Click(Sender: TObject);
begin

   Application.CreateForm(TForm2,Form2);
   Form2.ShowModal;
   Form2.Free;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
   Application.CreateForm(TForm3,Form3);
   Form3.ShowModal;
   Form3.Free;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
Application.CreateForm(TForm4,Form4);
   Form4.ShowModal;
   Form4.Free;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
  Application.CreateForm(TForm5,Form5);
   Form5.ShowModal;
   Form5.Free;
end;

procedure TForm1.N41Click(Sender: TObject);
begin
   Application.CreateForm(TForm6,Form6);
   Form6.ShowModal;
   Form6.Free;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
  Application.CreateForm(TForm8,Form8);
   Form8.ShowModal;
   Form8.Free;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   Application.CreateForm(TForm2,Form2);
   Form2.ShowModal;
   Form2.Free;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Form1.close;
  Form1.Show;
  Form1.SpeedButton1.Enabled:=True;
  form1.N11.Enabled:=True;
      Form1.StatusBar1.Panels[3].Text:='';
         Form1.StatusBar1.Panels[5].Text:='';
           Form1.StatusBar1.Panels[7].Text:='';
end;

procedure TForm1.N51Click(Sender: TObject);
begin
     Application.CreateForm(TForm10,Form10);
   Form10.ShowModal;
   Form10.Free;
end;

procedure TForm1.N52Click(Sender: TObject);
begin
    Application.CreateForm(TForm11,Form11);
   Form11.ShowModal;
   Form11.Free;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
   Application.CreateForm(TForm12,Form12);
   Form12.ShowModal;
   Form12.Free;
end;

procedure TForm1.N42Click(Sender: TObject);
begin
     Application.CreateForm(TForm13,Form13);
   Form13.ShowModal;
   Form13.Free;
end;

procedure TForm1.N61Click(Sender: TObject);
begin
  Application.CreateForm(TForm14,Form14);
   Form14.ShowModal;
   Form14.Free;
end;

end.