main.~pas

人事管理系统人事管理系统人事管理系统人事管理系统人事管理系统

unit Main;

interface

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

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses login,table,query,about,report;
{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.WindowState:=wsMaximized;
  statusbar1.Panels[0].Text:='作者:赵宾宾';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[1].Text:='当前日期:'+datetostr(date);
  statusbar1.Panels[2].Text:='当前时间:'+timetostr(time);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  form3.ShowModal;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (messagedlg('现在就要离开吗?',mtconfirmation,[mbok,mbcancel],0)=mrok)
  then
    canclose:=true
  else
    canclose:=false;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  if application.MessageBox('真的退出?','提示',mb_okcancel)=idok then
  application.Terminate;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  form4.ShowModal;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  form5.QuickRep1.Preview;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  showmessage('很抱歉,此项功能目前没有完成!');
end;
procedure URlink(URL:pchar);
begin
 shellexecute(0,nil,URL,nil,nil,sw_normal);
end;
procedure TForm1.N7Click(Sender: TObject);
begin
  URlink('Help.chm');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  form1.WindowState:=wsMaximized;
  image1.Visible:=true;
end;
procedure TForm1.N9Click(Sender: TObject);
var
  b:pchar;
  c,a:string;
begin
  a:='[e-mail]';
  c:=('MailTo:'+a);
  b:=pchar(c);
  shellexecute(handle,'',b,'','',sw_show);

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  loginform.ShowModal;
end;

end.