dl.pas

一个用vb mysql实现的人事管理信息系统希望对大家有用。

unit dl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Db, DBTables, ADODB;

type
  TFrm_dl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Image1: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    AdoQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  err_cou :integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_dl: TFrm_dl;
  dluser: string;
implementation

uses main,dm;

{$R *.DFM}

procedure TFrm_dl.Button2Click(Sender: TObject);
begin
   Frm_main.close;
end;

procedure TFrm_dl.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
button1.Enabled:=true;
if key=#13 then begin
    Button1Click(Sender);
   end;
end;

procedure TFrm_dl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (edit1.text<>'') AND (key=#13) then
edit2.setfocus;
end;

procedure TFrm_dl.Button1Click(Sender: TObject);
begin
 if edit2.text='' then
 begin
    Application.MessageBox('密码不能为空，请重新输入！','系统提示',mb_IconInformation+mb_OK);
    Edit2.SetFocus;
    Exit;
 end;
 ADOQuery1.sql.clear;
 ADOQuery1.sql.add('select pswd from yhklb where dlyh='+''''+trim(edit1.text)+'''');
 if ADOQuery1.Active then
 ADOQuery1.close;
 ADOQuery1.open;
   if edit2.text<>ADOQuery1.fieldbyname('pswd').asstring
    then
     begin
       if err_cou=2 then
          begin
          application.messagebox('三次登录的用户名或密码错误',' 系统退出',mb_IconInformation+mb_OK);
          Frm_main.close;
          end;
        Application.MessageBox('密码或工号不正确','请重新输入！',mb_IconInformation+mb_OK);
        Edit2.SetFocus;
        err_cou:=err_cou+1;
        exit;
     end;
     dluser:=edit1.text;
     Frm_main.StatusBar1.Panels[2].Text:='操作员：'+edit1.text;
     Close;
end;

procedure TFrm_dl.FormShow(Sender: TObject);
begin
err_cou:=0;
end;

procedure TFrm_dl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree;
end;

end.