uchangepwd.pas

这个程序软件很不错很不错的

unit uchangepwd;

interface

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

type
  Tfrmchangepwd = class(TfrmBase)
    Label1: TLabel;
    labeluser: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnok: TButton;
    btncancel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btncancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangepwd: Tfrmchangepwd;

implementation

uses Global, Data;

{$R *.dfm}

procedure Tfrmchangepwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmchangepwd:=nil;
end;

procedure Tfrmchangepwd.btncancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmchangepwd.FormCreate(Sender: TObject);
begin
  inherited;
  labeluser.Caption:=gs_username;
end;

procedure Tfrmchangepwd.btnokClick(Sender: TObject);
begin
  inherited;
if edit1.Text<>gs_password then
   begin
   showmessage('原始密码不正确 ! ');
   edit1.Text:='';
   edit1.SetFocus;
   exit;
   end;
if UpperCase(edit2.Text)<>UpperCase(edit2.Text) then
   begin
   showmessage('确认密码与新密码不相符 !');
   edit2.Text:='';
   edit3.Text:='';
   edit2.SetFocus;
   exit;
   end;
     with dataM.adoQlogin do
     begin
        try
           close;
           sql.Clear;
           sql.Text:='update tuser set fpwd='+vartosql(edit3.Text)+
                                    ' where fcode='+vartosql(gs_usercode);
           ExecSql;
        except
        on E:Exception do
           Raise Exception.Create('修改密码不成功 ! '+#13#10+E.Message);
        end;
      end;
   MessageDlg('密码修改成功，请记住新密码 ! ',mtInformation,[mbOk],0);
   close;
end;

end.