u_login.pas

人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工

unit U_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, DB, ADODB;

type
  Tfrm_Login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure plogin;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frm_Login: Tfrm_Login;
  m:integer = 0;
  s:boolean = false;
  czy:string;
implementation

uses U_data, U_main;

{$R *.dfm}

procedure Tfrm_Login.SpeedButton2Click(Sender: TObject);
begin
if s=false then
application.Terminate
else
close;
end;

procedure Tfrm_Login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if s=false then
application.Terminate;
end;

procedure Tfrm_login.plogin;
begin
  with Data1.ADOlogin do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 操作员信息表 where 操作员名称 = :a and 操作员密码 = :b');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      open;
   end;
      if Data1.ADOlogin.RecordCount>0 then
         begin
            czy:=data1.ADOlogin.FieldByName('操作员名称').Value;
            s:=true;
            frm_main.StatusBar1.Panels[1].Text:=czy;
            frm_main.statusbar1.Panels[3].Text:=datetostr(date());
            frm_main.statusbar1.Panels[5].Text:=timetostr(time());
            close;
         end
      else
         if m<3 then
            begin
               application.MessageBox('用户名或密码错误，请重新输入！','提示',64);
               edit1.Clear;
               edit2.Clear;
               edit1.SetFocus;
            end
         else
            begin
            application.MessageBox('您无权使用本系统！','提示',64);
            Application.Terminate;
            end;
end;

procedure Tfrm_Login.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
    Edit2.SetFocus;
end;

procedure Tfrm_Login.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
    speedButton1Click(Sender)
  else
    Edit2.SetFocus;
  if Key = vk_Up then
    Edit1.SetFocus;
end;

procedure Tfrm_Login.SpeedButton1Click(Sender: TObject);
begin
m:=m+1;
if edit1.Text='' then
   application.MessageBox('请输入用户名','提示',64)
else
   if edit2.Text='' then
      application.MessageBox('请输入密码','提示',64)
   else
      plogin;
end;

end.