unitalterpwd.pas

自己设计的一个简易的考勤管理系统

unit UnitAlterPwd;

interface

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

type
  TfrmAlterPwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    editNew: TEdit;
    editConfirm: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    editID: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAlterPwd: TfrmAlterPwd;

implementation

uses UnitDataModule;

{$R *.dfm}

procedure TfrmAlterPwd.Button2Click(Sender: TObject);
begin
    editNew.Clear;
    editConfirm.Clear;
    editNew.SetFocus;
end;

procedure TfrmAlterPwd.Button1Click(Sender: TObject);
var
uid,pwd:string; 
begin
    uid := trim(editID.Text);
    pwd := trim(editNew.Text);
    if dModule.ADOQU.Locate('id',uid,[]) then
    begin
        if pwd = trim(editConfirm.text) then
        begin
            dModule.ADOQU.edit;
            dModule.ADOQU.fieldbyname('password').AsString := pwd;
            dModule.ADOQU.post;
            messagebox(0,'密码修改成功!','提示',0);
            editNew.Clear;
            editConfirm.Clear;
            close; //退出密码修改窗口
        end
        else
        begin
            messagebox(0,'两次输入密码不一致,请重新输入!','提示',0);
            editNew.Clear;
            editConfirm.Clear;
            editNew.SetFocus;
        end;
    end
    else
       begin
         messagebox(0,'该用户不存在!','提示',0);
         editID.SetFocus;
       end;
end;

procedure TfrmAlterPwd.FormShow(Sender: TObject);
begin
    editID.Text := gUserID;
end;

procedure TfrmAlterPwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    action := cafree;
end;

end.