cpasswd.pas

来自「针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应」· PAS 代码 · 共 76 行

unit cpasswd;

interface

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

type
  Tfrmpasswd = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    Label4: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpasswd: Tfrmpasswd;

implementation
 uses MainD,UTIL;
{$R *.dfm}

procedure Tfrmpasswd.SpeedButton1Click(Sender: TObject);
begin
 if edit1.Text = '' then exit;
 if edit1.Text <> Userpass then
 begin
   showmessage('输入原始密码错误！');
   edit1.SelectAll;
   edit1.SetFocus;
   exit;
  end;

 if edit2.Text = '' then exit;
 if edit2.Text <> edit3.Text then
 begin
    ShowMessage('输入确认密码不正确！');
    exit;
 end ;
 if Length(edit2.Text)<4 then
 begin
    ShowMessage('输入确认密码不能少于4位！');
    exit;
 end ;

// edit2.Text := Encrypt(edit2.text,1357,2,1);
 MainDFrm.qutil.SQL.Clear;
 MainDFrm.qutil.SQL.Add('update Userinfo set');
 MainDFrm.qutil.SQL.Add('passwd =:passwd');
 MainDFrm.qutil.SQL.Add('where uID='''+UserID+'''');
 MainDFrm.qutil.ParamByName('passwd').AsString:=Encrypt(edit2.text,1357,2,1);
 MainDFrm.qutil.Close;
 MainDFrm.qutil.ExecSQL;
 close;
end;

procedure Tfrmpasswd.FormCreate(Sender: TObject);
begin
label4.Caption := '当前用户:'+UserID+'|'+UserName;
end;

end.