changepwd.pas

教材管理系统

unit changepwd;

interface

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

type
  TFrmchangepwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edOldPwd: TEdit;
    bbOK: TBitBtn;
    edNewPwd: TEdit;
    edConfPwd: TEdit;
    bbCancel: TBitBtn;
    procedure bbOKClick(Sender: TObject);
    procedure bbCancelClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    oldname: String;
    OldPassWd: String;
    { Private declarations }
  public
    { Public declarations }
  end;
 procedure ChangPasswd(const oldname: String);
var
Frmchangepwd: TFrmchangepwd;

implementation
uses mycommon, udm;
{$R *.dfm}
procedure ChangPasswd(const oldname: String);
var
  Frmchangepwd: TFrmchangepwd;
begin
     Frmchangepwd:=TFrmchangepwd.Create(Application);
     try
        Frmchangepwd.oldname :=oldname;
        Frmchangepwd.ShowModal;
     finally
        Frmchangepwd.Free;
     end;
end;
procedure TFrmchangepwd.bbOKClick(Sender: TObject);
begin
with DM do
  begin
    user.close;
    user.parambyname('name').asstring:=oldname;
    user.parambyname('pwd').asstring:=Encrypt(edOldPwd.Text);
    user.open;
  end;
  if not DM.user.eof then
  begin
    if edNewPwd.Text=edConfPwd.Text then
    begin
      if edNewPwd.Text<>'' then
      begin
        with DM do
        begin
          if qrytemp.active=true then
            qrytemp.close;
          qrytemp.sql.clear;
          qrytemp.sql.Add('update operuser set password=:pwd where username=:name');
          qrytemp.parambyname('name').asstring:=oldname;
          qrytemp.parambyname('pwd').asstring:=Encrypt(edNewPwd.Text);
          qrytemp.execsql;
          Application.MessageBox('成功地改变密码!','信息',mb_ok or mb_iconInformation);
          Close;
        end;
      end
      else
      begin
        Application.MessageBox('新密码不能是空的!','错误',mb_ok or mb_iconError);
        edNewPwd.SetFocus;
      end
    end
    else
    begin
      Application.MessageBox('新密码不一致,请重新输入!','错误',mb_ok or mb_iconError);
      edNewPwd.SetFocus;
    end
  end
  else
    Application.MessageBox('旧密码错误,请重新输入!','错误',mb_ok or mb_iconError);
end;

procedure TFrmchangepwd.bbCancelClick(Sender: TObject);
begin
 Close;
end;

procedure TFrmchangepwd.FormDestroy(Sender: TObject);
begin
DM.User.Close;
end;

end.