frmchangepassword.pas

物流供应链管理系统

unit frmChangePassword;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, DB, ADODB;

type
  TFormChangePassword = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    EdtUserId: TEdit;
    Label2: TLabel;
    EdtOldPassword: TEdit;
    Label3: TLabel;
    EdtNewPassword: TEdit;
    Label4: TLabel;
    EdtNewPassword2: TEdit;
    ADOQ: TADOQuery;
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetUserId(AId: string);//设置EdtUserId
  end;

var
  FormChangePassword: TFormChangePassword;

implementation
uses CommonFunc, untConfig;
{$R *.dfm}

procedure TFormChangePassword.SetUserId(AId: string);
begin
  EdtUserId.Text := AId;
end;

procedure TFormChangePassword.OKBtnClick(Sender: TObject);
var
  LId, LOldPws, LNewPws: string;
begin
  if not CheckInput(EdtOldPassword) then Exit;
  if not CheckInput(EdtNewPassword) then Exit;
  if not CheckInput(EdtNewPassword2) then Exit;
  LNewPws := Trim(EdtNewPassword.Text);
  if LNewPws <> Trim(EdtNewPassword2.Text) then
    LCShowMessage('新密码与确认密码不一致！');
  LId := Trim(EdtUserId.Text);
  LOldPws := Trim(EdtOldPassword.Text);

  ADOQ.Close;
  ADOQ.SQL.Clear;
  ADOQ.SQL.Add('select Password from t_SysOperator ');
  ADOQ.SQL.Add('where UserId=:UserId');
  ADOQ.Parameters.ParamByName('UserId').Value := LId;
  ADOQ.Open;
  if ADOQ.RecordCount > 0 then
  begin
    if ADOQ.FieldByName('Password').AsString = LOldPws then
    begin
      ADOQ.Close;
      ADOQ.SQL.Clear;
      ADOQ.SQL.Add('update t_SysOperator set Password=:Password ');
      ADOQ.SQL.Add('where UserId=:UserId');
      ADOQ.Parameters.ParamByName('Password').Value := LNewPws;
      ADOQ.Parameters.ParamByName('UserId').Value := LId;
      ADOQ.ExecSQL;
      LCShowMessage('更改成功!');
      Close;
    end
    else
      LCShowMessage('旧密码错误！');
  end
  else
    LCShowMessage('用户名不存在！');

  
end;

procedure TFormChangePassword.FormCreate(Sender: TObject);
begin
  ADOQ.ConnectionString := GetConnectionString;
end;

procedure TFormChangePassword.FormDestroy(Sender: TObject);
begin
  ADOQ.Close;
end;

end.