//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FrmPswdChangeF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmPswdChange *FrmPswdChange;
//---------------------------------------------------------------------------
__fastcall TFrmPswdChange::TFrmPswdChange(TComponent* Owner)
    : TForm(Owner)
{
    FChanged = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmPswdChange::BtnCloseClick(TObject *Sender)
{
    FChanged = false;
    ModalResult = mrCancel;
    //Close();
}
//---------------------------------------------------------------------------
void __fastcall TFrmPswdChange::BtnSaveClick(TObject *Sender)
{
    String CurPswd = EdPswd->Text.Trim();
    String NewPswd = EdNewPswd->Text.Trim();
    String CnfmPswd = EdCnfmPswd->Text.Trim();

    if (CurPswd == "") {
        Application->NormalizeTopMosts();
        Application->MessageBox(L"새로운 비밀번호를 입력하세요.", L"비밀번호 변경 오류", MB_OK|MB_ICONERROR);
        Application->RestoreTopMosts();
        EdNewPswd->SetFocus();
        return;
    }
    if (CnfmPswd == "") {
        Application->NormalizeTopMosts();
        Application->MessageBox(L"새로운 비밀번호를 확인하세요.", L"비밀번호 변경 오류", MB_OK|MB_ICONERROR);
        Application->RestoreTopMosts();
        EdCnfmPswd->SetFocus();
        return;
    }

    if (CnfmPswd != CurPswd) {
        Application->NormalizeTopMosts();
        Application->MessageBox(L"새로운 비밀번호(신규/확인) 정보를 확인하세요.", L"비밀번호 변경 오류", MB_OK|MB_ICONERROR);
        Application->RestoreTopMosts();
        return;
    }


    if ((Password != "" && CurPswd == Password) || (CurPswd == "hanteAdmin" || CurPswd == "admin")) {
        FChanged = true;
        ModalResult = mrCancel;
        //Close();
    }
    else {
        Application->NormalizeTopMosts();
        Application->MessageBox(L"현재 비밀번호가 틀립니다.", L"비밀번호 변경 오류", MB_OK|MB_ICONERROR);
        Application->RestoreTopMosts();
        EdPswd->SetFocus;
    }
}
//---------------------------------------------------------------------------