unit2.~pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit2;
//main
interface

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

type
  Tfrm_main = 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;
    N16: TMenuItem;
    StatusBar1: TStatusBar;
    Image1: TImage;
    ImageList1: TImageList;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N15: TMenuItem;
    Timer1: TTimer;
    N22: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton14: TToolButton;
    ToolButton13: TToolButton;
    ToolButton12: TToolButton;
    ToolButton15: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,
  Unit12, Unit14, Unit15, Unit16;

{$R *.dfm}

procedure Tfrm_main.N2Click(Sender: TObject);
begin
application.CreateForm(Tfrm_lfdj,frm_lfdj);
frm_lfdj.ShowModal;
frm_lfdj.Free;
end;

procedure Tfrm_main.N3Click(Sender: TObject);
begin
application.CreateForm(Tfrm_yggl,frm_yggl);
frm_yggl.ShowModal;
frm_yggl.Free;
end;

procedure Tfrm_main.N4Click(Sender: TObject);
begin
application.CreateForm(Tfrm_manager,frm_manager);
frm_manager.ShowModal;
frm_manager.Free;
end;

procedure Tfrm_main.N17Click(Sender: TObject);
begin
  if messagebox(self.Handle,'真的要退出系统吗？','海软大学生宿舍管理系统',mb_yesno+mb_iconquestion)=idyes then
    application.Terminate;
end;

procedure Tfrm_main.ToolButton12Click(Sender: TObject);
begin
  if messagebox(self.Handle,'真的要退出系统吗？','海软大学生宿舍管理系统',mb_yesno+mb_iconquestion)=idyes then
    application.Terminate;
end;

procedure Tfrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagebox(self.Handle,'真的要退出系统吗？','海软大学生宿舍管理系统',mb_yesno+mb_iconquestion)=idyes then
    application.Terminate;
end;

procedure Tfrm_main.N18Click(Sender: TObject);
begin
application.CreateForm(Tfrm_ssxx,frm_ssxx);
frm_ssxx.ShowModal;
frm_ssxx.Free;
end;

procedure Tfrm_main.N19Click(Sender: TObject);
begin
application.CreateForm(Tfrm_mrqk,frm_mrqk);
frm_mrqk.ShowModal;
frm_mrqk.Free;
end;

procedure Tfrm_main.N21Click(Sender: TObject);
begin
application.CreateForm(Tfrm_yxss,frm_yxss);
frm_yxss.ShowModal;
frm_yxss.Free;
end;

procedure Tfrm_main.N6Click(Sender: TObject);
begin
application.CreateForm(Tfrm_jbxxlr,frm_jbxxlr);
frm_jbxxlr.ShowModal;
frm_jbxxlr.Free;
end;

procedure Tfrm_main.N7Click(Sender: TObject);
begin
application.CreateForm(Tfrm_lixiao,frm_lixiao);
frm_lixiao.ShowModal;
frm_lixiao.Free;
end;

procedure Tfrm_main.N9Click(Sender: TObject);
begin
application.CreateForm(Tfrm_cldj,frm_cldj);
frm_cldj.ShowModal;
frm_cldj.Free;
end;

procedure Tfrm_main.N10Click(Sender: TObject);
begin
application.CreateForm(Tfrm_rldj,frm_rldj);
frm_rldj.ShowModal;
frm_rldj.Free;
end;

procedure Tfrm_main.FormShow(Sender: TObject);
begin
toolbar1.SetFocus;
application.CreateForm(Tfrm_login,frm_login);
frm_login.ShowModal;
frm_login.free;
end;

procedure Tfrm_main.N15Click(Sender: TObject);
begin
application.CreateForm(Tfrm_lfjs,frm_lfjs);
frm_lfjs.ShowModal;
frm_lfjs.Free;
end;
//--------------时间显示-----------//
procedure Tfrm_main.Timer1Timer(Sender: TObject);
begin
frm_main.StatusBar1.Panels[5].Text := timetostr(time());    //时间
end;

procedure Tfrm_main.N22Click(Sender: TObject);
begin
application.CreateForm(Tfrm_c_yg,frm_c_yg);
frm_c_yg.ShowModal;
frm_c_yg.Free;
end;

procedure Tfrm_main.ToolButton1Click(Sender: TObject);
begin
  N6.Click;
end;

procedure Tfrm_main.ToolButton6Click(Sender: TObject);
begin
  N10.Click;
end;

procedure Tfrm_main.ToolButton8Click(Sender: TObject);
begin
  N15.Click;
end;

procedure Tfrm_main.ToolButton14Click(Sender: TObject);
begin
  N19.Click;
end;

procedure Tfrm_main.N13Click(Sender: TObject);
begin
application.CreateForm(Tfrm_c_ss,frm_c_ss);
frm_c_ss.ShowModal;
frm_c_ss.Free;
end;

end.