frmchangepassword.pas

一个简单的同学录软件

unit FrmChangePassword;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,rcdstud,xutils, TFlatButtonUnit, TFlatEditUnit;

type
  TFmCP = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    strOname: TFlatEdit;
    strOpsw: TFlatEdit;
    strNname: TFlatEdit;
    strNpsw1: TFlatEdit;
    strNpsw2: TFlatEdit;
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure doexit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmCP: TFmCP;

implementation

uses frmMain;

{$R *.DFM}

procedure TFmCP.BitBtn1Click(Sender: TObject);
var
pswfile:string;
temusr:PloginUser;
usrfile:file of PloginUser;
begin
pswfile:='user.log';
assignfile(usrfile,pswfile);
reset(usrfile);
read(usrfile,temusr);
closefile(usrfile);
//进行条件判断
 if (strOname.text=temusr.name) and (strOpsw.Text =temusr.password) then
  begin
   if (strNname.text<>'') and (strNpsw1.Text =strNpsw2.Text) then
   begin
   temusr.name :=strNname.Text ;
   temusr.password :=strNpsw1.Text ;
   rewrite (usrfile);
   reset(usrfile);
   write(usrfile,temusr);
   closefile(usrfile);
   msgbox('修改成功！');
   doexit;
   end
   else
   begin
   msgbox('请检查两次输入的密码是否一至及新用户名是否为空');
   end;
  end
  else
  begin
  msgbox('原用户名和密码错误，请重试！');
  end;
end;


procedure TFmCP.BitBtn2Click(Sender: TObject);
begin
doexit;
end;


procedure TFmCP.doexit;
begin
fmcp.strOname.text:='';
fmcp.strOpsw.text:='';
fmcp.strNname.Text:='';
fmcp.strNpsw1.text:='';
fmcp.strnpsw2.text:='';
fmmain.Enabled :=true;
fmcp.Visible:=false;
fmmain.Visible :=true;
end;

end.