untchangepsw.pas

里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变

unit UntChangePsw;

interface

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

type
  TFrmChangePsw = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Name: TRzEdit;
    OldPsw: TRzEdit;
    NewPsw: TRzEdit;
    SubPsw: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmChangePsw: TFrmChangePsw;
  ExcPsw: TExcSQL;
implementation

uses UntMain, UntAppMDIConsts;

{$R *.dfm}

procedure TFrmChangePsw.FormCreate(Sender: TObject);
begin
 ExcPsw:=TExcSQL.Create;
end;

procedure TFrmChangePsw.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 ExcPsw.Free;
end;

procedure TFrmChangePsw.FormShow(Sender: TObject);
begin
 Name.Text:=FrmMain.AdminName;
end;

procedure TFrmChangePsw.RzBitBtn1Click(Sender: TObject);
begin
 If TestStr(OldPsw.Text) or TestStr(NewPsw.Text) or TestStr(SubPsw.Text) then
    begin
      MessageBox(Handle,'您填写的信息不完整，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
      Exit;
    end;
 ExcPsw.SQL:='Select * from Admins Where AdminId="'+FrmMain.AdminII +'"';
 ExcPsw.ExcSQL(ExcPsw.SQL,'Search');
 If PassFormat(ExcPsw.ADOQuery.FieldByName('AdminPsw').AsString,True)<>Trim(OldPsw.Text) then
    begin
      MessageBox(Handle,'您填写的旧密码不正确，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
      OldPsw.SetFocus;
      Exit;
    end;
 If Trim(NewPsw.Text)<>Trim(SubPsw.Text) then
    begin
      MessageBox(Handle,'您填写新密码和确认密码不一致，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
      NewPsw.SetFocus;
      Exit;
    end;
 ExcPsw.SQL:='Update Admins Set AdminPsw="'+PassFormat(Trim(NewPsw.Text),False)+'"'+ ' where AdminID="'+FrmMain.AdminII+'"';
 ExcPsw.ExcSQL(ExcPsw.SQL,'Mod');
 MessageBox(Handle,'密码修改成功！','系统提示',MB_OK+MB_ICONINFORMATION);
 close;
end;

procedure TFrmChangePsw.RzBitBtn2Click(Sender: TObject);
begin
 close;
end;

end.