editpass.~pas

某疗养院动脉硬化管理系统

unit EditPass;

interface

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

type
  TFrmEditPass = class(TForm1)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtUser: TEdit;
    EdtOldPass: TEdit;
    EdtPass: TEdit;
    EdtPass2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEditPass: TFrmEditPass;

implementation

uses PubFunction, DataModule;

{$R *.dfm}

procedure TFrmEditPass.FormCreate(Sender: TObject);
begin
  inherited;
  EdtUser.Text:=UserID;
end;

procedure TFrmEditPass.BitBtn1Click(Sender: TObject);
var tmp:TADOQuery;
begin
  inherited;
  if Trim(EdtPass.Text)<>Trim(EdtPass2.Text) then
  begin
    application.MessageBox('两次输入的密码不一致！','提示',mb_ok+mb_iconinformation);
    EdtPass.Clear;
    EdtPass2.Clear;
    EdtPass.SetFocus;
    exit;
  end;
  tmp:=tadoquery.Create(nil);
  tmp.Connection:=DM.ADOCn;
  ShowRecord(tmp,'UserPass','UserManage','UserID');
  if Trim(tmp.FieldByName('UserPass').AsString)<>Trim(EdtOldPass.Text) then
  begin
    application.MessageBox('旧密码不正确，请重新输入！','提示',mb_ok+mb_iconinformation);
    EdtOldPass.Clear;
    EdtOldPass.SetFocus;
    tmp.Free;
    exit;
  end;
  DM.ADOCn.BeginTrans;
  try
    with tmp do
    begin
      sql.Clear;
      sql.Add('UPDATE UserManage Set UserPass=:v1 WHERE UserID=:v2');
      Parameters.ParamByName('v1').Value :=Trim(EdtPass.Text);
      Parameters.ParamByName('v2').Value :=Trim(EdtUser.Text);
      ExecSql;
    end;
    DM.ADOCn.CommitTrans;
    application.MessageBox('密码修改成功，请记住新密码！','提示',mb_ok+mb_iconinformation);
  except
    DM.ADOCn.RollbackTrans;
    raise;
    application.MessageBox('密码修改失败，请继续使用旧密码！','警告',mb_ok+mb_iconwarning);
  end;
  close;
end;

procedure TFrmEditPass.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close;
end;

end.