chgpasswd.pas

来自「客户档案管理-delphi开发」· PAS 代码 · 共 66 行

unit chgpasswd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinBoxCtrls, bsSkinCtrls, StdCtrls, BusinessSkinForm, ADODB,
  DB;

type
  TFormChgPasswd = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButtonLogin: TbsSkinButton;
    bsSkinButtonClose: TbsSkinButton;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinPasswordEdit2: TbsSkinPasswordEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinPasswordEdit3: TbsSkinPasswordEdit;
    cdsChgPassword: TADOQuery;
    procedure bsSkinButtonCloseClick(Sender: TObject);
    procedure bsSkinButtonLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChgPasswd: TFormChgPasswd;

implementation

uses
  dm;
  
{$R *.dfm}

procedure TFormChgPasswd.bsSkinButtonCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFormChgPasswd.bsSkinButtonLoginClick(Sender: TObject);
begin
  if (bsSkinPasswordEdit2.Text <> bsSkinPasswordEdit3.Text) then
  begin
    dbs.ShowMsgDlgInf('输入的两个新密码不一致');
    Exit;
  end;

  if dbs.psPassword <> bsSkinPasswordEdit1.Text then
    dbs.ShowMsgDlgInf('输入的旧密码不正确')
  else
  begin
    cdsChgPassword.Parameters.ParamByName('password').Value := bsSkinPasswordEdit2.Text;
    cdsChgPassword.Parameters.ParamByName('name').Value := dbs.psYWY;
    cdsChgPassword.ExecSQL;
    dbs.ShowMsgDlgInf('密码修改成功，下次登录系统请使用新密码');
  end;
end;

end.