password.pas

本系统为演示Delphi的功能而开发设计

unit PassWord;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TPassWordForm = class(TForm)
    Label2: TLabel;
    EditNewPass: TEdit;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    Label3: TLabel;
    EditReNewPass: TEdit;
    Label1: TLabel;
    EditOldPass: TEdit;
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure EditOldPassExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PassWordForm: TPassWordForm;

implementation

uses LoginData, login;

{$R *.DFM}

procedure TPassWordForm.ButtonOkClick(Sender: TObject);
begin
Try
If EditNewPass.Text=EditReNewPass.Text Then
   With SystemData.QueryUser Do
   Begin
     Close;
     Unprepare;
     RequestLive:=False;
     With Sql Do
     Begin
     Clear;
     Add('Update system_user_info Set password=:NewPassword Where login_name=:IdLoginName');
     End;
     ParamByName('NewPassword').AsString:=EditReNewPass.Text;
     ParamByName('IdLoginName').AsString:=LoginForm.EditLoginName.Text;
     ExecSql;
     Close;
  End
Else
  If MessageDlg('两次输入口令不一致,重新输入吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
     ActiveControl:=EditNewPass
  Else
     Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
     
end;

procedure TPassWordForm.ButtonCancelClick(Sender: TObject);
begin
Close;
end;

procedure TPassWordForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 End;
end;

procedure TPassWordForm.EditOldPassExit(Sender: TObject);
begin
If EditOldPAss.Text<>LoginForm.EditPassWord.Text Then
   If MessageDlg('原有口令输入错误,重新输入吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      ActiveControl:=EditOldPass
   Else
      ActiveControl:=ButtonCancel;
end;

procedure TPassWordForm.FormActivate(Sender: TObject);
begin
 EditOldPass.Text:='';
 EditNewPass.Text:='';
 EditReNewPass.Text:='';
end;

end.