unit main;

interface

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

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    GLXTMenuItem: TMenuItem;
    SQmenuitem: TMenuItem;
    SMMenuItem: TMenuItem;
    About: TMenuItem;
    RoomSetitem: TMenuItem;
    RoomManageitem: TMenuItem;
    AddUitem: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ExitSitem: TMenuItem;
    XHZXItem: TMenuItem;
    NameItem: TMenuItem;
    AddressItem: TMenuItem;
    N14: TMenuItem;
    ClassItem: TMenuItem;
    JpMenuItem: TMenuItem;
    XSLXMenuItem: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Edwitem: TMenuItem;
    N19: TMenuItem;
    XPJCMenuItem: TMenuItem;
    PYDJMenuItem: TMenuItem;
    RWMenuItem: TMenuItem;
    CCMenuItem: TMenuItem;
    N29: TMenuItem;
    GRCWPLMenuItem: TMenuItem;
    N1: TMenuItem;
    FHItem: TMenuItem;
    ImageList1: TImageList;
    Timer1: TTimer;
    ModifyItem: TMenuItem;
    ToolButton7: TToolButton;
    Studentitem: TMenuItem;
    SBItem: TMenuItem;
    PSItem: TMenuItem;
    EnrolItem: TMenuItem;
    EVItem: TMenuItem;
    EEitem: TMenuItem;
    EPItem: TMenuItem;
    EBItem: TMenuItem;
    EPMitem: TMenuItem;
    SRitem: TMenuItem;
    XPMenu1: TXPMenu;
    Mdfyitem: TMenuItem;
    procedure RoomSetitemClick(Sender: TObject);
    procedure RoomManageitemClick(Sender: TObject);
    procedure EdwitemClick(Sender: TObject);
    procedure AddUitemClick(Sender: TObject);
    procedure ExitSitemClick(Sender: TObject);
    procedure XHZXItemClick(Sender: TObject);
    procedure NameItemClick(Sender: TObject);
    procedure AddressItemClick(Sender: TObject);
    procedure ClassItemClick(Sender: TObject);
    procedure FHItemClick(Sender: TObject);
    procedure JpMenuItemClick(Sender: TObject);
    procedure XPJCMenuItemClick(Sender: TObject);
    procedure GRCWPLMenuItemClick(Sender: TObject);
    procedure XSLXMenuItemClick(Sender: TObject);
    procedure CCMenuItemClick(Sender: TObject);
    procedure RWMenuItemClick(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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 Timer1Timer(Sender: TObject);
    procedure SBItemClick(Sender: TObject);
    procedure PSItemClick(Sender: TObject);
    procedure SRitemClick(Sender: TObject);
    procedure EVItemClick(Sender: TObject);
    procedure EEitemClick(Sender: TObject);
    procedure EBItemClick(Sender: TObject);
    procedure MdfyitemClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation
uses login,setroom,houstform,Empleer,AddUser,Query,INput,Registe,GRZZ,Enrol,checkin,
visit,about,modify,mdfypwd;

{$R *.dfm}

// 設(shè)置樓房具體情況
procedure Tmainform.RoomSetitemClick(Sender: TObject);
begin
application.CreateForm(Tsetroomform,setroomform);
setroomform.ShowModal;
setroomform.Free;
end;
//設(shè)置樓房基本信息
procedure Tmainform.RoomManageitemClick(Sender: TObject);
begin
Application.CreateForm(Tsethouse,sethouse);
SetHouse.ShowModal;
SetHouse.Free;
end;
//錄入員工信息
procedure Tmainform.EdwitemClick(Sender: TObject);
begin
Application.CreateForm(TEmpleerForm,EmpleerForm);
EmpleerForm.ShowModal;
EmpleerForm.Free;
end;
//增加用戶
procedure Tmainform.AddUitemClick(Sender: TObject);
begin
Application.CreateForm(TAddUserForm,AddUserForm);
AddUserForm.ShowModal;
AddUserForm.Free;
end;
//程序關(guān)閉
procedure Tmainform.ExitSitemClick(Sender: TObject);
begin
Application.Terminate;
end;
//查詢情況開(kāi)始
procedure Tmainform.XHZXItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=XhZXItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;

procedure Tmainform.NameItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=NameItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;

procedure Tmainform.AddressItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=AddressItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;

procedure Tmainform.ClassItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=ClassItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;
//查詢情況菜單項(xiàng)
procedure Tmainform.FHItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=FHItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;
//錄入學(xué)生基本情況菜單項(xiàng)
procedure Tmainform.JpMenuItemClick(Sender: TObject);
begin
application.CreateForm(TinputForm,inputform);
inputform.ShowModal;
inputform.Free;
end;
//注冊(cè)菜單項(xiàng)
procedure Tmainform.XPJCMenuItemClick(Sender: TObject);
begin
application.CreateForm(TRegform,RegForm);
regform.ShowModal;
ReGform.Free;
end;
//人員登記
procedure Tmainform.GRCWPLMenuItemClick(Sender: TObject);
begin
application.CreateForm(TGRZZForm,GRZZForm);
GRZZform.ShowModal;
GRZZform.Free;
end;
//出樓登記
procedure Tmainform.XSLXMenuItemClick(Sender: TObject);
begin
application.CreateForm(TEnrolForm,EnrolForm);
EnrolForm.ShowModal;
Enrolform.Free;
end;
//貨物出樓菜單項(xiàng)
procedure Tmainform.CCMenuItemClick(Sender: TObject);
begin
Application.CreateForm(TPLForm,PLForm);
PLForm.ShowModal;
PlForm.Free;
end;
//親人來(lái)訪菜單項(xiàng)
procedure Tmainform.RWMenuItemClick(Sender: TObject);
begin
application.CreateForm(TVisitForm,Visitform);
Visitform.ShowModal;
visitform.Free;
end;
//關(guān)于對(duì)話框
procedure Tmainform.AboutClick(Sender: TObject);
begin
application.CreateForm(TAboutform,aboutform);
aboutform.ShowModal;
aboutform.Free;
end;
//關(guān)閉系統(tǒng)
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;
//toolbutton1 學(xué)生情況錄入
procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
application.CreateForm(TinputForm,inputform);
inputform.ShowModal;
inputform.Free;
end;
//toolbutton2查詢學(xué)生情況
procedure Tmainform.ToolButton2Click(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.ShowModal;
QueryForm.Free;
end;
//來(lái)訪登記
procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
application.CreateForm(TVisitForm,Visitform);
Visitform.ShowModal;
visitform.Free;
end;
//按鈕,出樓登記
procedure Tmainform.ToolButton4Click(Sender: TObject);
begin
Application.CreateForm(TPLForm,PLForm);
PLForm.ShowModal;
PlForm.Free;
end;
//快捷按鈕,學(xué)生離校修改
procedure Tmainform.ToolButton5Click(Sender: TObject);
begin
application.CreateForm(TRegform,RegForm);
regform.ShowModal;
ReGform.Free;
end;
//快捷按鈕,學(xué)生離校修改
procedure Tmainform.ToolButton6Click(Sender: TObject);
begin
application.CreateForm(TEnrolForm,EnrolForm);
EnrolForm.ShowModal;
Enrolform.Free;
end;
//在主界面中顯示時(shí)間
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[5].Text:=timetostr(time);
end;
//showmitem根據(jù)修改資料菜單項(xiàng)去激活修改表單中的相應(yīng)選項(xiàng)
procedure showMitem(i:integer);
begin
application.CreateForm(TModifyForm,ModifyForm);
ModifyForm.PageControl1.ActivePageIndex:=i;
ModifyForm.ShowModal;
ModifyForm.Free;
end;
//修改學(xué)生的基本資料菜單選項(xiàng)
procedure Tmainform.SBItemClick(Sender: TObject);
begin
showMitem(0);
end;
//修改個(gè)人財(cái)物菜單選項(xiàng)
procedure Tmainform.PSItemClick(Sender: TObject);
begin
showMitem(1);
end;
//學(xué)生注冊(cè)修改
procedure Tmainform.SRitemClick(Sender: TObject);
begin
showMitem(4);
end;
//來(lái)訪登記修改
procedure Tmainform.EVItemClick(Sender: TObject);
begin
showMitem(3);
end;
//財(cái)物出樓修改
procedure Tmainform.EEitemClick(Sender: TObject);
begin
showMitem(2);
end;
//員工資料的修改
procedure Tmainform.EBItemClick(Sender: TObject);
begin
showMitem(5);
end;
//修改密碼
procedure Tmainform.MdfyitemClick(Sender: TObject);
begin
application.CreateForm(TMPWDForm,MPWDForm);
MPWDForm.ShowModal;
Mpwdform.Free;
end;
//基本資料的修改
procedure Tmainform.ToolButton7Click(Sender: TObject);
begin
application.CreateForm(Tmodifyform,modifyform);
modifyform.ShowModal;
modifyform.Free;
end;

end.