passwordunit.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit PasswordUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, ExtCtrls, RzEdit, StdCtrls, Mask, RzDBEdit;

type
  TFrmPassword = class(TForm)
    Label1: TLabel;
    RzDBEdit1: TRzDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    OldPas: TRzEdit;
    NewPas: TRzEdit;
    NewPass: TRzEdit;
    Bevel1: TBevel;
    SaveButton: TRzBitBtn;
    CancelButton: TRzBitBtn;
    Image1: TImage;
    procedure SaveButtonClick(Sender: TObject);
    procedure NewPassExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CancelButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPassword: TFrmPassword;

implementation

uses DMUnit;

{$R *.dfm}

procedure TFrmPassword.SaveButtonClick(Sender: TObject);
var
   Pin : String;
begin
//更改密码
  with DM.ADOQueryUserName do try
     Pin:=FieldByName('PassWord').AsString;
     if OldPas.Text<>Pin then begin
        Messagebox(Handle,'您输入的旧密码有误，请重新输入！','错误',MB_OK+MB_ICONWARNING);
        OldPas.SetFocus;
     end else begin
        Edit;
        FieldByName('PassWord').AsString:=NewPas.Text;
        Post;
        Messagebox(Handle,'密码修改成功！','信息',MB_OK+MB_ICONINFORMATION);
        FrmPassword.Close;
     end;
  except
     Messagebox(Handle,'修改密码出现意外错误！','错误',MB_OK+MB_ICONERROR);
  end;
end;

procedure TFrmPassword.NewPassExit(Sender: TObject);
begin
//检测两次输入的密码是否一致
if NewPas.Text<>NewPass.Text then begin
   messagebox(Handle,'您两次输入的新密码不一致，请重新输入！','错误',MB_OK+MB_ICONWARNING);
   Newpass.SetFocus;
end;
end;

procedure TFrmPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  OldPas.Clear;
  Newpas.Clear;
  NewPass.Clear;
end;

procedure TFrmPassword.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

end.