unit ChangePasswordUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls;

type
  TfrmChangePassword = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePassword: TfrmChangePassword;

implementation

uses MainUnit, DataModuleUnit;

{$R *.dfm}

procedure TfrmChangePassword.BitBtn2Click(Sender: TObject);
begin
    close;
end;

procedure TfrmChangePassword.BitBtn1Click(Sender: TObject);
var
 pwd,OperatorID:string;
 changePWD:TADOQuery;
begin
//判斷用戶名
   pwd:=trim(Edit1.Text);
   OperatorID:=frmMain.OperatorInfo.OperatorID;
   changePWD:=TADOQuery.Create(nil);
   changePWD.Connection:=frmDataModule.Connection;
   
   if pwd='' then
   begin
      Application.MessageBox('你輸入的原密碼不能為空或空格!','出錯提示',mb_ok);
      Edit1.SetFocus;
      abort;
   end
   else
   if pwd<>frmMain.OperatorInfo.OperatorPWD then
   begin
      Application.MessageBox('你輸入的原密碼不正確!','出錯提示',mb_ok);
      Edit1.SetFocus;
      abort;
   end;
//判斷新密碼
   if (trim(edit2.Text)<>trim(edit3.Text)) then  //兩次新密碼不一致
   begin
      Application.MessageBox('你輸入的新密碼不一致!','出錯提示',mb_ok);
      Edit1.SetFocus;
      abort;
   end
   else//保存新密碼
   begin
     with changePWD do
     begin
       Close;
       SQL.Clear;
       Parameters.Clear;
       Parameters.CreateParameter('@operatorID',ftstring,pdinput,8,OperatorID);
       Parameters.CreateParameter('pwd',ftstring,pdinput,8,edit2.Text);       
       SQL.Add('update Operators set pwd=:pwd where OperatorID=:OperatorID');
       try
         ExecSQL;
         Application.MessageBox('密碼修改成功!','提示',mb_ok);
       except
         Application.MessageBox('密碼修改失敗!','提示',mb_ok);
       end;
     end;
   end;
   close;
end;

end.