unteditpwd.pas

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· PAS 代码 · 共 88 行

unit untEditPWD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseDialog, StdCtrls, Buttons, ExtCtrls, DB, ADODB, untGlobalVar,
  LbButton, jpeg, fcButton, fcImgBtn;

type
  TfrmEditPWD = class(TfrmBaseDialog)
    lblOldPWD: TLabel;
    lblNewPWD: TLabel;
    lblConfirm: TLabel;
    edtOldPWD: TEdit;
    edtNewPWD: TEdit;
    edtConfirm: TEdit;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    function CheckData: Boolean;
    procedure SaveNewPWD;
  public
    { Public declarations }
    Conn: TADOConnection;
    LoginInfo: TUserRec;
  end;



implementation

uses untGlobalFun;

{$R *.dfm}

procedure TfrmEditPWD.btnOKClick(Sender: TObject);
begin
  inherited;
  if not CheckData then Exit;
  SaveNewPWD;
  MsgOK('您的密码已修改，请记住新密码！');
  ModalResult := mrOk;
end;

function TfrmEditPWD.CheckData: Boolean;
begin
  Result := false;
  if Trim(edtOldPWD.Text) = '' then
  begin
    MsgOK('原密码不能为空！');
    edtOldPWD.SetFocus;
    Exit;
  end;
  if Trim(edtNewPWD.Text) = '' then
  begin
    MsgOK('新密码不能为空！');
    edtNewPWD.SetFocus;
    Exit;
  end;
  if Trim(edtNewPWD.Text) <> Trim(edtConfirm.Text) then
  begin
    MsgOK('两次输入的新密码不一致,请重新输入！');
    edtNewPWD.SetFocus;
    Exit;
  end;
  if Trim(edtOldPWD.Text) <> LoginInfo.Password then
  begin
    MsgOK('原密码不正确，请重新输入！');
    edtOldPWD.SetFocus;
    Exit;
  end;
  Result := true;
end;

procedure TfrmEditPWD.SaveNewPWD;
begin
  LoginInfo.Password := Trim(edtNewPWD.Text);
  with TADOCommand.Create(Self) do begin
    Connection := conn;
    CommandText := 'update tDoctor set password = '+Quotedstr(LoginInfo.Password)
      +' where code= '+ QuotedStr(LoginInfo.Code);
    Execute;
  end;
end;

end.