【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了ModifyPassword_Unit.pas相关资料,希望对各位网友有所帮助!
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 edtOldPass
word.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.