unit MdfyPWD;

interface

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

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.ADOManage 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.