mdfypwd.pas

银行学生助学贷款管理系统 随着社会的进步

unit MdfyPWD;

interface

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

type
  TMPWDForm = class(TForm)
    Label1: TLabel;
    UserNameEdit: TEdit;
    Label2: TLabel;
    OldPassWordEdit: TEdit;
    Label3: TLabel;
    NewPasswordEdit: TEdit;
    Label4: TLabel;
    submitEdit: TEdit;
    Btsubmit: TButton;
    BtCancel: TButton;
    procedure BtsubmitClick(Sender: TObject);
    procedure BtCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MPWDForm: TMPWDForm;

implementation
uses md;

{$R *.dfm}

procedure TMPWDForm.BtsubmitClick(Sender: TObject);
begin
//判断两次输入的新密码是否相同
if trim(newpasswordedit.Text)<>trim(submitedit.Text) then
begin
   showmessage('请确认新密码,新密码有错!!!!');
   newpasswordedit.SetFocus;
end
else
begin
  with datamd.ADOQuerymange do
  begin
   close;
   sql.Clear;
   sql.Add('select * from manage where 用户名='''+usernameedit.Text+''''+' and 密码='''+oldpasswordedit.Text+'''');
   open;
   if eof then //当没有查询到该记录时,就说明当前为空
      showmessage('对不起,没有该用户')
   else
   begin //当没有到文件尾时就表明当前有此用户,进行相应的处理
       edit;
       fieldbyname('密码').AsString:=newpasswordedit.Text;
       post;
       showmessage('修改成功!');
    end;
   end;
end;
end;

procedure TMPWDForm.BtCancelClick(Sender: TObject);
begin
close;
end;

end.