uxgmm.pas

来自「小型企业物品管理系统,DELPHI源码+ACCESS数据库」· PAS 代码 · 共 80 行

unit Uxgmm;

interface

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

type
  TFxgmm = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    password: TLabeledEdit;
    pass: TLabeledEdit;
    newpass: TLabeledEdit;
    img1: TImage;
    lbl1: TLabel;
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fxgmm: TFxgmm;

implementation

uses Udate;

{$R *.dfm}

procedure TFxgmm.RzBitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFxgmm.RzBitBtn1Click(Sender: TObject);
begin
  if password.Text<>passwords then begin
    MessageBeep(0);
    MessageDlg('对不起您输入的旧密码不正确！',mtError,[mbyes],0);
    password.SetFocus;
    Exit;
  end;
  if pass.Text<>newpass.Text then begin
    MessageBeep(0);
    MessageDlg('对不起您两次输入的密码不相同！请重新输入！',mtError,[mbYes],0);
    newpass.Clear;
    pass.SetFocus;
    Exit;
  end;
  fdate.qryuser.Close;
  fdate.qryuser.Open;
  fdate.qryuser.Edit;
  fdate.qryuserempass.Value:=newpass.Text;
  try fdate.qryuser.Post;
    ShowMessage('密码修改成功！请牢记您的密码！');
    close;
  except
    fdate.qryuser.Cancel;
    ShowMessage('密码修改失败！');
  end;
end;

procedure TFxgmm.FormShow(Sender: TObject);
begin
  fdate.qryuser.Close;
  fdate.qryuser.Open;
  password.Clear;
  pass.Clear;
  newpass.Clear;
  password.SetFocus;
end;

end.