changepasswordfrm.pas

房屋中介管理系统.支持多用户有不同的权限 采用MDI界面 由于没有打包

unit changepasswordfrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls,datamodulefrm;

type
  Tchangepasswordform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    StatusBar1: TStatusBar;
    procedure BitBtn1Click(Sender: TObject);
  private
  times:integer;
    { Private declarations }
  public
  ausername:string;

    { Public declarations }
  end;

var
  changepasswordform: Tchangepasswordform;

implementation

{$R *.DFM}

procedure Tchangepasswordform.BitBtn1Click(Sender: TObject);
var
   s1,s2,s3:string;
begin
times:=times+1;
s1:=edit2.Text;
s2:=edit3.text;
s3:=edit4.text;
with datamodule2 do
if times<=3 then
    begin
        if s2<>s3 then
         showmessage('请确认你所输入的新密码是否一样')
        else
          begin
           if   (changeusertable.FindKey([ausername])) and (changeusertable.fieldbyname('password').asstring=s1)
           then
           begin
           changeusertable.edit ;
           changeusertable.FieldByName('password').asstring:=s2;
           changeusertable.Post;
           modalresult:=mrok ;
           showmessage('更改密码成功！');
           end
           else
           begin
              showmessage('您输入了错误的密码');
              edit2.text:='';
              edit3.text:='';
              edit4.text:='';
           end;



          end;
    end
else

 close
end;
end.