modifypassword_unit.pas

学校班级教学管理系统 DELPHI7下的

unit ModifyPassword_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Unit, StdCtrls, Buttons, Menus, StdActns, ActnList;

type
  TfrmModifyPassword = class(TfrmBase)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtOldPassword: TEdit;
    edtNewPassword: TEdit;
    edtPasswordAgain: TEdit;
    lblUser: TLabel;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmModifyPassword: TfrmModifyPassword;

implementation

uses
  Common_Unit, DM_Unit;
  
{$R *.dfm}

procedure TfrmModifyPassword.FormShow(Sender: TObject);
begin
  inherited;
  lblUser.Caption := LoginUser;
end;

procedure TfrmModifyPassword.btnOKClick(Sender: TObject);
var
  SQL, SQLModify: string;
begin
  inherited;
  SQL := 'Select * From [User] where UserID=' + Quotedstr(lblUser.Caption);
  if edtOldPassword.Text <> SQLDataSet(SQL,DM.ADOConn).FieldByName('UserPassword').AsString then
  begin
    Application.MessageBox('原始密码错误,请重新输入!','错误',16);
    edtOldPassword.SetFocus;
    Exit;
  end;
  if edtNewPassword.Text <> edtPasswordAgain.Text then
  begin
    Application.MessageBox('输入的新密码不一致,请重新输入!','错误',16);
    edtNewPassword.Text := '';
    edtPasswordAgain.Text := '';
    edtNewPassword.SetFocus;
    Exit;
  end;
  SQLModify := 'Update [User] Set UserPassword=' + Quotedstr(edtNewPassword.Text);
  SQLExecute(SQLModify,DM.ADOConn);
  Application.MessageBox('密码修改成功!','提示',64) ;
  Close;
end;

procedure TfrmModifyPassword.btnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.