unit4.pas

宿舍管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit1,Unit3, Menus,Unit5,Unit7,Unit8,Unit9,Unit10,Unit11,Unit12,Unit13,
  Unit14,Unit15, ImgList, ComCtrls, jpeg, ExtCtrls, ToolWin, StdCtrls,Unit16,
  Unit17,Unit18,Unit19,Unit21,Unit22,  Buttons, XPMenu;

type
  TMainFrm = 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;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N33: TMenuItem;
    XPMenu1: TXPMenu;
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    
    procedure N14Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

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

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

procedure TMainFrm.N7Click(Sender: TObject);
begin
Application.CreateForm(TForm7,Form7);
Form7.ShowModal;
Form7.Free ;
end;

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

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

procedure TMainFrm.N4Click(Sender: TObject);
begin
Close;
end;



procedure TMainFrm.N14Click(Sender: TObject);
begin
Application.CreateForm(Tform9,form9);
Form9.ShowModal;
Form9.Free ;
end;

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

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

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

procedure TMainFrm.N20Click(Sender: TObject);
begin
Application.CreateForm(TForm15,Form15);
Form15.ShowModal;
Form15.Free ;
end;

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

procedure TMainFrm.N26Click(Sender: TObject);
begin
Application.CreateForm(TForm16,Form16);
Form16.ShowModal;
Form16.Free ;
end;

procedure TMainFrm.N27Click(Sender: TObject);
begin
Application.CreateForm(TForm17,Form17);
Form17.ShowModal;
Form17.Free ;
end;

procedure TMainFrm.N22Click(Sender: TObject);
begin
Application.CreateForm(TForm18,Form18);
Form18.ShowModal;
Form18.Free ;
end;

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

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

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

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

procedure TMainFrm.ToolButton5Click(Sender: TObject);
begin
Application.CreateForm(TForm7,Form7);
Form7.ShowModal;
Form7.Free ;
end;

procedure TMainFrm.ToolButton6Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
Form9.ShowModal;
Form9.Free ;
end;

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

procedure TMainFrm.N23Click(Sender: TObject);
begin
Application.CreateForm(TForm19,Form19);
Form19.ShowModal;
Form19.Free ;
end;

procedure TMainFrm.N29Click(Sender: TObject);
begin
Application.CreateForm(TForm21,Form21);
Form21.ShowModal;
Form21.Free ;
end;

procedure TMainFrm.N30Click(Sender: TObject);
begin
Application.CreateForm(TForm22,Form22);
Form22.ShowModal();
Form22.Free ;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
Application.CreateForm(TForm1,Form1);
Form1.ShowModal;
Form1.Free ;
end;

end.