logindailog.pas

本系统是一个基于delphi7环境开发的人事管理系统

unit LoginDailog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MainMenu,DBConnection, jpeg, ExtCtrls;
// const key:array[1..15]of word=(45,87,97,110,104,64,88,117,101,95,98,105,110,104,44);

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    log_btn: TButton;
    exit1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Memo1: TMemo;
    procedure log_btnClick(Sender: TObject);
    procedure exit1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  namelist:Tstringlist;
  pwdlist:Tstringlist;
  AllDatalist:Tstringlist;
user_name:string;
worker_no:String;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses WelcomePicture;
{$R *.dfm}

{function eup(const s:string):string;
var
j,k,tmp:word;
tmpstr:string;
begin
k:=1;
for j:=1 to length(s)  do
  begin
    tmp:=ord(s[j]) xor key[k];
    tmpstr:=tmpstr+inttoHex(tmp,2);
    k:=k+1;
    if k>length(key) then
    k:=1;
  end;
  result:=tmpstr;
end;      }

procedure TForm2.log_btnClick(Sender: TObject);
var
safe_Name:String[5];
safe_Pwd:String[5];
begin
form1.ADOQuery1.SQL.Clear;
form1.ADOTable1.TableName:='users';
form1.ADOTable1.Active:=true;
self.worker_no:='';
safe_Name:=edit1.Text;
safe_Pwd:=edit2.Text;
if  form1.adotable1.Locate('用户名',safe_Name,[])  then
begin
    //if form1.adotable1.Locate('密码',edit2.Text,[]) then//eup(edit2.Text),[])   then   //这是错误的 xsm和别的密码匹配就可进入
    if form1.ADOTable1.FieldByName('密码').AsString=safe_Pwd then    //验证密码
          begin
          self.worker_no:=form1.ADOTable1.FieldByName('员工号').AsString;
        //  showmessage(worker_no);
              user_name:=safe_Name;
              form3.Show;
              form2.Hide;
              self.Edit1.Clear;
              self.Edit2.Clear;
          end
          else
          begin
          showmessage('密码错误！');
          self.Edit2.Clear;
         form1.ADOTable1.Active:=false;
          end
end
else
begin
showmessage('用户名错误！');
self.Edit1.Clear;
self.Edit2.Clear;
 form1.ADOTable1.Active:=false;
end

end;

procedure TForm2.exit1Click(Sender: TObject);
begin
 application.Terminate;
 form1.Close;
form2.Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
form1.Close;
//form2.Close;
end;

end.