ulogin.~pas

本程序是人事管理系统.对数据进行的操作有数据更新数据查询数据删除.本程序利用DataModuleado操作数据库,通过ado+Sqlserver数据库达成人事系统的建立.

unit ULogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    i_server_add: TComboBox;
    i_user: TEdit;
    i_passwd: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses UModule,crypt;

{$R *.dfm}

procedure TfrmLogin.Button3Click(Sender: TObject);
begin
  showmessage(Encrypt(i_passwd.Text,123));
end;

procedure TfrmLogin.Button4Click(Sender: TObject);
begin
  showmessage(Decrypt(i_passwd.Text,123));
end;

procedure TfrmLogin.Button1Click(Sender: TObject);
var
  passwd, passwrd:String;
begin
  With DataModule1 do
  begin
    //Database.Connected:=False;
    //Database.Params.Values['SERVER NAME']:=i_server_add.Text;
    Database.Connected:=True;

    T_user.Filter:='ID='''+i_user.Text+'''';
    T_user.Filtered:=True;
    T_user.Open;

    if T_user.RecordCount=1 then
    begin
      passwd:=i_passwd.Text;
      //if length(passwd)>5 then
      begin
        //passwd:=Copy(passwd+passwd,1,10);//统一密码长度
        passwd:=Encrypt(passwd,123);//加密
      end;
      passwrd:=T_user['PASSWD'];
      if (passwrd=passwd) and (T_user['AUTHORITY']='3') then
        F_main.login:=True
      else
       Application.MessageBox('请重新输入密码。'+#13+'注意大小写！','密码错误',MB_OK);
    end
    else
      Application.MessageBox('请确认用户名大小写是否正确！','无此用户',MB_OK);
    T_user.Close;

  end;
  // F_main.login:=True ;
  if F_main.login then
  F_login.Close;
end;

end.