unit1.pas

是用delphi与sql一块作的

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,mmsystem, Menus,shellapi, jpeg, ExtCtrls, ComCtrls, ToolWin,
  ImgList, StdCtrls, Buttons, DB, ADODB, Mask, DBCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    t1: TMenuItem;
    g1: TMenuItem;
    g2: TMenuItem;
    b1: TMenuItem;
    Image1: TImage;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    N5: TMenuItem;
    N6: TMenuItem;
    ADOQuery1: TADOQuery;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    Panel1: TPanel;
    i1: TImage;
    i2: TImage;
    i3: TImage;
    i4: TImage;
    i5: TImage;
    i6: TImage;
    i7: TImage;
    i8: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    N7: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure g2Click(Sender: TObject);
    procedure b1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N7Click(Sender: TObject);

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

var
  Form1: TForm1;
  xg:string;
implementation

uses Unit2, Unit3, Unit6, Unit7, Unit9;


{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
yh.show;
sndplaysound('E:\帮助\溪流.WAV',snd_async or snd_loop);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
czy.show;
end;

procedure TForm1.t1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.g2Click(Sender: TObject);
begin
gy.ShowModal;
end;

procedure TForm1.b1Click(Sender: TObject);
var  HWndHelp:Hwnd;
     i:integer;
begin
 //检查帮助窗口是否已经存在

   HWndHelp:=FindWindow(nil,'E:\帮助\人力资源系统帮助.chm');

   if HwndHelp<>0 then  // 如存在则关闭

        SendMessage(HwndHelp,WM_CLOSE,0,0);

   i:=ShellExecute(handle, 'open','E:\帮助\人力资源系统帮助.chm',nil, nil, sw_ShowNormal);

   if i<>42 then

      Showmessage(' help.chm 帮助文件损坏！');

end;

procedure TForm1.N6Click(Sender: TObject);
begin
xg:=inputbox('进入修改','你的账号为:','');
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 用户信息 where 系统用户名='+xg);
adoquery1.Open;
dbedit1.DataField:='登录口令';

if adoquery1.RecordCount<>0 then
begin
xgb.show;
end
else
begin
showmessage('无此员工!!');
xgb.close;
end;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
sleep(1);
i2.Visible:=true;
timer2.Enabled:=true;
timer1.Enabled:=false;
i1.Visible:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sleep(1);
i3.Visible:=true;
timer3.Enabled:=true;
timer2.Enabled:=false;
i2.Visible:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
sleep(1);
i4.Visible:=true;
timer4.Enabled:=true;
timer3.Enabled:=false;
i3.Visible:=false;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
sleep(1);
i5.Visible:=true;
timer5.Enabled:=true;
timer4.Enabled:=false;
i4.Visible:=false;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
sleep(1);
i6.Visible:=true;
timer6.Enabled:=true;
timer5.Enabled:=false;
i5.Visible:=false;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
sleep(1);
i7.Visible:=true;
timer7.Enabled:=true;
timer6.Enabled:=false;
i6.Visible:=false;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
sleep(1);
i8.Visible:=true;
timer8.Enabled:=true;
timer7.Enabled:=false;
i7.Visible:=false;
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
sleep(1);
i1.Visible:=true;
timer1.Enabled:=true;
timer8.Enabled:=false;
i8.Visible:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
timer6.Enabled:=false;
timer7.Enabled:=false;
timer8.Enabled:=false;
 i1.Visible:=true;
 i2.Visible:=false;
  i3.Visible:=false;
   i4.Visible:=false;
    i5.Visible:=false;
     i6.Visible:=false;
      i7.Visible:=false;
       i8.Visible:=false;
end;


procedure TForm1.N7Click(Sender: TObject);
begin
form9.show;
end;

end.