unit1.pas

一个简单的旅游管理系统

unit Unit1;

interface

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

type
  TForm1 = 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;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    PopupMenu1: TPopupMenu;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    XPMenu1: TXPMenu;
    N34: TMenuItem;
    ImageList1: TImageList;
    N36: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    N35: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N46: TMenuItem;
    N48: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N49: TMenuItem;
    Image1: TImage;
    N42: TMenuItem;
    N43: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure formactivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
  Unit20, Unit21, Unit22, Unit23, Unit24, Unit25, Unit26, Unit27, Unit28,
  Unit29, Unit30, Unit31, Unit32, Unit33, Unit34, Unit35, Unit36, Unit37,
  Unit38, Unit41;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
form2:=Tform2.create(self);
form2.showmodal;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form3:=Tform3.create(self);
form3.showmodal;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form4:=Tform4.create(self);
form4.showmodal;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
form5:=Tform5.create(self);
form5.showmodal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form6:=Tform6.create(self);
form6.showmodal;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
form7:=Tform7.create(self);
form7.showmodal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
form8:=Tform8.create(self);
form8.showmodal;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
form9:=Tform9.create(self);
form9.showmodal;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
form10:=Tform10.create(self);
form10.showmodal;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
form11:=Tform11.create(self);
form11.showmodal;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
form12:=Tform12.create(self);
form12.showmodal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
form13:=Tform13.create(self);
form13.showmodal;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
form14:=Tform14.create(self);
form14.showmodal;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
form15:=Tform15.create(self);
form15.showmodal;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
form16:=Tform16.create(self);
form16.showmodal;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
form17:=Tform17.create(self);
form17.showmodal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
form18:=Tform18.create(self);
form18.showmodal;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
form19:=Tform19.create(self);
form19.showmodal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin
form20:=Tform20.create(self);
form20.showmodal;
end;

procedure TForm1.N28Click(Sender: TObject);
begin
form21:=Tform21.create(self);
form21.showmodal;
end;

procedure TForm1.N29Click(Sender: TObject);
begin
form37:=Tform37.create(self);
form37.showmodal;
end;

procedure TForm1.N30Click(Sender: TObject);
begin
form23:=Tform23.create(self);
form23.showmodal;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
form24:=Tform24.create(self);
form24.showmodal;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
form21:=Tform21.create(self);
form21.showmodal;
end;

procedure TForm1.N33Click(Sender: TObject);
begin
form2:=Tform2.create(self);
form2.showmodal;
end;

procedure TForm1.N34Click(Sender: TObject);
begin
if XPmenu1.active=true then
XPmenu1.active:=false
else
XPmenu1.active:=true;
end;

procedure TForm1.N36Click(Sender: TObject);
begin
if MainMenu1.Images=ImageList1 then
begin
MainMenu1.Images:=nil;
N36.Caption:='显示图标';
end
else
begin
MainMenu1.Images:=ImageList1;
N36.Caption:='取消图标';
end;
end;

procedure TForm1.formactivate(Sender: TObject);
begin
form3:=Tform3.create(self);
form3.showmodal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.statusbar1.panels[1].text:='当前日期:'+  datetostr(date());
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.statusbar1.panels[2].text:='当前时间:'+ formatdatetime('hh:mm:ss',now());
end;

procedure TForm1.ToolButton17Click(Sender: TObject);
begin
form2:=Tform2.create(self);
form2.showmodal;
end;



procedure TForm1.ToolButton15Click(Sender: TObject);
begin
form21:=Tform21.create(self);
form21.showmodal;
end;


procedure TForm1.N41Click(Sender: TObject);
begin
form27:=Tform27.create(self);
form27.showmodal;
end;

procedure TForm1.N38Click(Sender: TObject);
begin
form28:=Tform28.create(self);
form28.showmodal;
end;

procedure TForm1.N46Click(Sender: TObject);
begin
form29:=Tform29.create(self);
form29.showmodal;
end;

procedure TForm1.N35Click(Sender: TObject);
begin
form30:=Tform30.create(self);
form30.showmodal;
end;

procedure TForm1.N37Click(Sender: TObject);
begin
form31:=Tform31.create(self);
form31.showmodal;
end;

procedure TForm1.N49Click(Sender: TObject);
begin
form32:=Tform32.create(self);
form32.showmodal;
end;

procedure TForm1.N48Click(Sender: TObject);
begin
form33:=Tform33.create(self);
form33.showmodal;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
form30:=Tform30.create(self);
form30.showmodal;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
form31:=Tform31.create(self);
form31.showmodal;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
form32:=Tform32.create(self);
form32.showmodal;
end;

procedure TForm1.N40Click(Sender: TObject);
begin
form34:=Tform34.create(self);
form34.showmodal;
end;

procedure TForm1.N42Click(Sender: TObject);
begin
form3:=Tform3.create(self);
form3.showmodal;
end;

procedure TForm1.ToolButton13Click(Sender: TObject);
begin
form34:=Tform34.create(self);
form34.showmodal;
end;

procedure TForm1.N43Click(Sender: TObject);
begin
form35:=Tform35.create(self);
form35.showmodal;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
form36:=Tform36.create(self);
form36.showmodal;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
form38:=Tform38.create(self);
form38.showmodal;
end;

procedure TForm1.N39Click(Sender: TObject);
begin
form41:=Tform41.create(self);
form41.showmodal;
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
form41:=Tform41.create(self);
form41.showmodal;
end;

end.