mdfypwdname.pas

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

unit MdfyPWDname;

interface

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

type
  TMPWDnameForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    oldUserNameEdit: TEdit;
    PassWordEdit: TEdit;
    NewnameEdit: TEdit;
    submitEdit: TEdit;
    Btsubmit: TButton;
    BtCancel: TButton;
    procedure BtCancelClick(Sender: TObject);
    procedure BtsubmitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MPWDnameForm: TMPWDnameForm;

implementation
uses md;
{$R *.dfm}

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

procedure TMPWDnameForm.BtsubmitClick(Sender: TObject);
begin
  with datamd.ADOQuerymange do
  begin
   close;
   sql.Clear;
   sql.Add('select * from manage where 用户名='''+oldusernameedit.Text+''''+' and 密码='''+passwordedit.Text+'''');
   open;
   if eof then //当没有查询到该记录时,就说明当前为空
      showmessage('对不起,没有该用户')
   else
   begin //当没有到文件尾时就表明当前有此用户,进行相应的处理
       edit;
       fieldbyname('用户名').AsString:=newnameedit.Text;
       post;
       showmessage('修改成功!');
    end;
   end;
end;

end.