editpassword.pas

一个图书批发商的通用软件

unit EditPassword;

interface

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

type
  TfrmEditPassword = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtUserId: TEdit;
    edtOldPassword: TEdit;
    edtNewPassword: TEdit;
    EdtEnterPassword: TEdit;
    bbtnOk: TBitBtn;
    bbtnclose: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure bbtnOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEditPassword: TfrmEditPassword;
  procedure frmEditPasswordshow;
implementation

uses unSystPublic, Data;

{$R *.dfm}

procedure TfrmEditPassword.FormShow(Sender: TObject);
begin
  edtUserId.Text :=CurrentUserId;
  edtOldPassword.SetFocus;
  with dmdata.qryUserPass do
  begin
    Close;
    SQL.Text :='Select * from tbUsers';
    Open;
    if not Locate('UserId',CurrentUserId,[loCaseInsensitive]) then
    begin
      Application.MessageBox('数据库错误',Title,MB_ICONWARNING);
      Abort;
    end;
  end;  
end;

procedure TfrmEditPassword.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key :=#0;
    selectnext(activecontrol,true,true);
  end;
end;
procedure frmEditPasswordshow;
begin
  frmEditPassword :=TfrmEditPassword.Create(application);
  with frmEditPassword do
  try
    ShowModal;
  finally
    free;
  end;
end;
procedure TfrmEditPassword.bbtnOkClick(Sender: TObject);
var Password:string;
begin
  with dmdata.qryUserPass do
  begin
    Password :=FieldByName('UserPassword').AsString;
    if edtOldPassword.Text<>Password then
    begin
      Application.MessageBox('旧口令错误',Title,MB_ICONWARNING);
      Abort;
    end;
    if EdtEnterPassword.Text<>edtNewPassword.Text then
    begin
      Application.MessageBox('新口令和旧口令不一致',Title,MB_ICONWARNING);
      Abort;
    end;
    Edit;
    FieldByName('UserPassword').AsString :=edtNewPassword.Text;
    Post;
  end;
  Close;
end;

procedure TfrmEditPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dmdata.qryUserPass.Close;
end;

end.