unit ChangeMiMa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables, ADODB;

type
  TfrmChangeMiMa = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Btn_OK: TBitBtn;
    Btn_Undo: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Lab_User: TLabel;
    Edit_OMM: TEdit;
    Edit_Nmm: TEdit;
    Edit_RNmm: TEdit;
    Image1: TImage;
    QryComm: TADOQuery;
    procedure Btn_UndoClick(Sender: TObject);
    procedure Btn_OKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Edit_OMMKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_RNMMKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_NmmKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangeMiMa: TfrmChangeMiMa;

implementation

uses  uCommon, CDDM;


{$R *.DFM}

//取消
procedure TfrmChangeMiMa.Btn_UndoClick(Sender: TObject);
begin
  Close;
end;

//確定
procedure TfrmChangeMiMa.Btn_OKClick(Sender: TObject);
begin
  try
    //showmessage(UpperCase(Trim(Encode(Edit_OMM.Text))));
    //showmessage(UpperCase(gg_LoginMiMa));
    if  trim(Edit_OMM.Text)<>GG_LoginMiMa  then  begin
        Application.MessageBox('對不起,您的舊密碼不正確,無法更改！','錯誤',MB_ICONEXCLAMATION);
        Edit_OMM.SetFocus;
        Exit;
    end;
    if  Edit_NMM.Text<>Edit_RNMM.Text  then  begin
        Application.MessageBox('對不起,新密碼不一致,無法更改！','錯誤',MB_ICONEXCLAMATION);
        Edit_RNMM.SetFocus;
        Exit;
    end;
    with  QryComm  do  begin
       Close;
       SQL.Clear;
       SQL.Add('Update   借閱人表  Set  密碼=:p_password  Where  借閱人id=:p_staffid');
       Parameters.ParamByName('p_password').Value:=trim(Edit_NMM.Text);
       Parameters.ParamByName('p_staffid').Value:=GG_StaffID;
       ExecSQL;
    end;
    gg_LoginMiMa:=trim(Edit_NMM.Text);
    Application.MessageBox('密碼更改完畢！','提示',MB_ICONINFORMATION);
    Close;
  except
    Application.MessageBox('更改密碼失敗！','錯誤',MB_ICONEXCLAMATION);
  end;
end;

procedure TfrmChangeMiMa.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmChangeMiMa.FormActivate(Sender: TObject);
begin
  Edit_OMM.Text:='';
  Edit_NMM.Text:='';
  Edit_RNMM.Text:='';
  Lab_User.Caption:=GG_StaffName;
end;

procedure TfrmChangeMiMa.Edit_OMMKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmChangeMiMa.Edit_RNMMKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   Btn_OKClick(nil);
end;

procedure TfrmChangeMiMa.Edit_NmmKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   perform(WM_NEXTDLGCTL,0,0);
end;

end.