main.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

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;
    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}

// 设置楼房具体情况
procedure Tmainform.RoomSetitemClick(Sender: TObject);
begin
application.CreateForm(Tsetroomform,setroomform);
setroomform.ShowModal;
setroomform.Free;
end;
//设置楼房基本信息
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;
//程序关闭
procedure Tmainform.ExitSitemClick(Sender: TObject);
begin
Application.Terminate;
end;
//查询情况开始
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;
//查询情况菜单项
procedure Tmainform.FHItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.Query.ActivePageIndex:=FHItem.Tag;
QueryForm.ShowModal;
QueryForm.Free;
end;
//录入学生基本情况菜单项
procedure Tmainform.JpMenuItemClick(Sender: TObject);
begin
application.CreateForm(TinputForm,inputform);
inputform.ShowModal;
inputform.Free;
end;
//注册菜单项
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;
//货物出楼菜单项
procedure Tmainform.CCMenuItemClick(Sender: TObject);
begin
Application.CreateForm(TPLForm,PLForm);
PLForm.ShowModal;
PlForm.Free;
end;
//亲人来访菜单项
procedure Tmainform.RWMenuItemClick(Sender: TObject);
begin
application.CreateForm(TVisitForm,Visitform);
Visitform.ShowModal;
visitform.Free;
end;
//关于对话框
procedure Tmainform.AboutClick(Sender: TObject);
begin
application.CreateForm(TAboutform,aboutform);
aboutform.ShowModal;
aboutform.Free;
end;
//关闭系统
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;
//toolbutton1 学生情况录入
procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
application.CreateForm(TinputForm,inputform);
inputform.ShowModal;
inputform.Free;
end;
//toolbutton2查询学生情况
procedure Tmainform.ToolButton2Click(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.ShowModal;
QueryForm.Free;
end;
//来访登记
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;
//快捷按钮,学生离校修改
procedure Tmainform.ToolButton5Click(Sender: TObject);
begin
application.CreateForm(TRegform,RegForm);
regform.ShowModal;
ReGform.Free;
end;
//快捷按钮,学生离校修改
procedure Tmainform.ToolButton6Click(Sender: TObject);
begin
application.CreateForm(TEnrolForm,EnrolForm);
EnrolForm.ShowModal;
Enrolform.Free;
end;
//在主界面中显示时间
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[5].Text:=timetostr(time);
end;
//showmitem根据修改资料菜单项去激活修改表单中的相应选项
procedure showMitem(i:integer);
begin
application.CreateForm(TModifyForm,ModifyForm);
ModifyForm.PageControl1.ActivePageIndex:=i;
ModifyForm.ShowModal;
ModifyForm.Free;
end;
//修改学生的基本资料菜单选项
procedure Tmainform.SBItemClick(Sender: TObject);
begin
showMitem(0);
end;
//修改个人财物菜单选项
procedure Tmainform.PSItemClick(Sender: TObject);
begin
showMitem(1);
end;
//学生注册修改
procedure Tmainform.SRitemClick(Sender: TObject);
begin
showMitem(4);
end;
//来访登记修改
procedure Tmainform.EVItemClick(Sender: TObject);
begin
showMitem(3);
end;
//财物出楼修改
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.