f_main.pas

本系统用于大学学生宿舍管理

unit f_main;

interface

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

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    j1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure j1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1, f_xgmm, f_yhgl, Unit6, Unit5, Unit7, Unit8, Unit10, Unit9,
  data_2;

{$R *.dfm}
function whatweek:string;
var
i_week:integer;

begin
i_week:=dayofweek(date());
 case i_week of
  1:result:=' 星期日';
  2:result:='星期一';
  3:result:='星期二';
  4:result:='星期三';
  5:result:='星期四';
  6:result:='星期五';
  7:result:='星期六';
  end;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
var
  s_date,strl,str2:string;
begin
  strl:= formatdatetime('yyyy/mm/dd ',date());
  str2:='  今天是  '+copy(strl,1,4)+ '年' +copy(strl,6,2)+ '月' +copy(strl,9,2)+ '日' ;
  s_date:='    '+str2+'     '+whatweek();
  StatusBar1.Panels[0].Text:=s_date;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if application.MessageBox('确认要退出程序吗？','提示',mb_okcancel)=idok then
begin
action:=cafree;
application.Terminate;
end
else
action:=caNone;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm3.N3Click(Sender: TObject);
begin
f_xgmima.show;
end;

procedure TForm3.N2Click(Sender: TObject);
begin
form4.Show;
end;
procedure TForm3.N8Click(Sender: TObject);
begin

f_wsqk.show;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
f_cxqs:=tf_cxqs.Create(self);
f_cxqs.show;
end;

procedure TForm3.N15Click(Sender: TObject);
begin

f_login.ShowModal;
end;

procedure TForm3.N12Click(Sender: TObject);
begin
f_cxws.Show;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
form10.Show;
end;

procedure TForm3.ToolButton1Click(Sender: TObject);
begin
f_cxqs:=tf_cxqs.Create(self);
f_cxqs.show;
end;

procedure TForm3.ToolButton2Click(Sender: TObject);
begin
f_cxws.Show;
end;

procedure TForm3.N11Click(Sender: TObject);
begin
data4.frreport1.showreport;
end;

procedure TForm3.ToolButton3Click(Sender: TObject);
begin
data4.frreport1.showreport;
end;

procedure TForm3.N13Click(Sender: TObject);
begin
data4.frreport2.showreport;
end;

procedure TForm3.ToolButton4Click(Sender: TObject);
begin
data4.frreport2.showreport;
end;

procedure TForm3.N17Click(Sender: TObject);

begin
winexec('rundll32.exe  shell32.dll,Control_RunDLL  timedate.cpl',9);
end;

procedure TForm3.N18Click(Sender: TObject);
begin
f_bz.show;
end;

procedure TForm3.j1Click(Sender: TObject);
begin
winexec('calc.exe',1);
end;

end.