ITS-OP/SRC/PLUGIN/05.DATABASE/IDB0140M/IDB0140MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSDbF.h"
#include "AppGlobalF.h"
#include "EncryptionF.h"
#include "ITSLangTransF.h"
#pragma hdrstop

#include "IDB0140MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalc"
#pragma link "cxCheckBox"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxSpinEdit"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"

TIDB0140M *IDB0140M = NULL;

//---------------------------------------------------------------------------
__fastcall TIDB0140M::TIDB0140M(TComponent* Owner)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FTitle = Caption;   //"홈페이지 관리자 관리";
    FDbUpdate = false;

    MyWebUserManager = new TWebUserManager();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::CommClose()
{
    try
    {
        if (MyWebUserManager)
        {
            delete MyWebUserManager;
            MyWebUserManager = NULL;
        }

        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::FormInit()
{
    m_pGDC = TvList->DataController;

    TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<현재 등록된 관리자 정보가 없습니다>";

    InitColumnProperties();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::InitColumnProperties()
{
    FInitCombo1 = "";
    FInitCombo2 = "";

    //그룹
    TcxComboBoxProperties *pcxColumn13 = (TcxComboBoxProperties *)Column13->Properties;
    pcxColumn13->Items->Clear();
    pcxColumn13->Items->Add("[N] Un Lock");
    pcxColumn13->Items->Add("[Y] Locked");
    FInitCombo2 = "[N] Un Lock";

#if 0
    FInitCombo1 = "";
    FInitCombo2 = "";

    String sQry;
    TADOQuery *pADO = NULL;

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();


            sQry = "SELECT GROP_ID, GROP_NM \r\n"
                   "  FROM TB_USERGROP_INFR \r\n"
                   " WHERE DEL_YN = 'N'     \r\n"
                   " ORDER BY GROP_ID       \r\n";
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
            pADO->Prepared = true;
			pADO->Open();

            //그룹
    		TcxComboBoxProperties *pcxColumn12 = (TcxComboBoxProperties *)Column12->Properties;
            pcxColumn12->Items->Clear();
            for( ; !pADO->Eof; pADO->Next())
            {
                String sCode = pADO->FieldByName("GROP_ID")->AsString;    //코드
                String sName = pADO->FieldByName("GROP_NM")->AsString;    //코드명

    			pcxColumn12->Items->Add("[" + sCode + "] " + sName);
                if (FInitCombo1 == "")
                {
                    FInitCombo1 = "[" + sCode + "] " + sName;
                }
            }

            //시스템
            sQry = "SELECT OPER_SYST_ID, OPER_SYST_NAME \r\n"
                   "  FROM TB_OPERSYST                  \r\n"
                   " ORDER BY OPER_SYST_ID              \r\n";
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
            pADO->Prepared = true;
			pADO->Open();

            //그룹
    		TcxComboBoxProperties *pcxColumn13 = (TcxComboBoxProperties *)Column13->Properties;
            pcxColumn13->Items->Clear();
            for( ; !pADO->Eof; pADO->Next())
            {
                String sCode = pADO->FieldByName("OPER_SYST_ID")->AsString;    //코드
                String sName = pADO->FieldByName("OPER_SYST_NAME")->AsString;    //코드명

    			pcxColumn13->Items->Add("[" + sCode + "] " + sName);
                if (FInitCombo2 == "")
                {
                    FInitCombo2 = "[" + sCode + "] " + sName;
                }
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
        catch(...)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            throw Exception(FrmLang->lblDbErr->Caption);//"알수없는 DB 오류가 발생하였습니다.");
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    BtnSearchClick((TObject*)BtnSearch);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

    RefreshData();
    CxList->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::RefreshData()
{
    MyWebUserManager->LoadFromDb();
    SelListData();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::SelListData()
{
    FUpdate = false;
    CMM_ClearGridTableView(TvList);

    try
    {
        TvList->BeginUpdate();

        FOR_STL(TWebUser*, pObj, MyWebUserManager->FLists)
        {
            pObj->EditMode = DB_INIT;   // 미리초기화해준다.(삭제된것)
            pObj->Completed = true;
            if (pObj->DEL_YN == "Y" || pObj->MEM_DEL == "Y") continue;

            AddObjectItem(pObj, "-");
        }
    }
    __finally
    {
        LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
        TvList->EndUpdate();
        TvList->DataController->GotoFirst();
        TvList->DataController->FocusedRecordIndex = 0;
        //CxList->SetFocus();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnExlSaveClick(TObject *Sender)
{
    TcxGrid          *pGrid = CxList;
    TcxGridTableView *pView = TvList;
    String            sTitle= "홈페이지 관리자 정보";

    CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnInsertClick(TObject *Sender)
{
    int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;

	String sEmail = InputBox(Label1->Caption, Label2->Caption, Label1->Caption);

    sEmail = sEmail.Trim();
	if (sEmail == Label1->Caption || sEmail == "")
	{
		return;
	}
	if (AnsiString(sEmail).Length() > 50)
	{
        Application->MessageBox(Label3->Caption.c_str(), FTitle.c_str(), nMsgType);
		return;
	}

    FOR_STL(TWebUser*, pDb, MyWebUserManager->FLists)
    {
        if (pDb->EMAIL == sEmail)
        {
            String sErr = FrmLang->lbIdErr->Caption + "[" + sEmail + "]";
            Application->MessageBox(sErr.c_str(),//("[" + sId + "]는 사용할 수 없는 관리자 ID 입니다.").c_str(),
                                    FTitle.c_str(), nMsgType);
            return;
        }
    }

    int nNewId;
    if (!MyWebUserManager->GetNextUserId(nNewId))
    {
        Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 관리자 정보를 생성할 수 없습니다.[메모리오류]",
                                FTitle.c_str(), nMsgType);
        return;
    }

    String sUserId = String(nNewId);

    try
    {
        TvList->BeginUpdate();

        TWebUser *pObj = new TWebUser();
        if (!pObj)
        {
            Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 관리자 정보를 생성할 수 없습니다.[메모리오류]",
                                    FTitle.c_str(), nMsgType);
            return;
        }
        //pObj->Clear();

        pObj->USER_ID           = sUserId;
        pObj->EMAIL             = sEmail;
        pObj->PWD               = "";
        pObj->NAME              = "";
        pObj->CONTACTNUM        = "";
        pObj->USERAUTH          = "";
        pObj->QUESTION          = "";
        pObj->ANSWER            = "";
        pObj->RGST_DT           = Now().FormatString("YYYYMMDDHHNNSS");
        pObj->LOGIN_FAIL_COUNT  = "0";
        pObj->IS_ACCOUNT_LOCK   = ITSUtil_GetCode(FInitCombo2);
        pObj->IP_ADDRESS        = "";

        pObj->DEL_YN       = "N";

        pObj->USERAUTH_NM = pObj->USERAUTH;

        if (pObj->IS_ACCOUNT_LOCK == "N")
        {
            pObj->IS_ACCOUNT_LOCK_NM = "[N] Un Lock";
        }
        else
        {
            pObj->IS_ACCOUNT_LOCK_NM = "[Y] Locked";
        }

        pObj->Completed    = false;
        pObj->EditMode     = DB_NEW;
        pObj->MEM_DEL      = "N";

        MyWebUserManager->FLists.Push(pObj->EMAIL, pObj);

        AddObjectItem(pObj, FrmLang->lblNew->Caption);//"신규");
    }
    __finally
    {
        LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
        TvList->EndUpdate();
        TvList->DataController->GotoFirst();
        TvList->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnDeleteClick(TObject *Sender)
{
    int nIdx = m_pGDC->FocusedRecordIndex;
    if (nIdx < 0) return;

    int nMemPtr = m_pGDC->Values[nIdx][Column99->Index];
    TWebUser *pObj = (TWebUser*)nMemPtr;
    pObj->EditMode = DB_DELETE;
    m_pGDC->Values[nIdx][Column00->Index] = FrmLang->lblDelete->Caption;//"삭제";
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    IDB0140M = NULL;
    Action = caFree;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnEditClick(TObject *Sender)
{
    TListFocus tvFocus(TvList);

    if (BtnEdit->Caption == FrmLang->lblCancel->Caption)//"취소")
    {
        CxList->SetFocus();
        Application->ProcessMessages();
        SaveData();
    }

    ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply);
    ChangeEditMode(BtnEdit->Down);

    RefreshData();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::ChangeEditMode(bool AEdit)
{
    bool bEditing = AEdit;

    try
    {
        TvList->BeginUpdate();

        Column00->Visible = bEditing;

        Column02->Options->Editing = bEditing;
        Column03->Options->Editing = bEditing;
        Column04->Options->Editing = bEditing;
        Column05->Options->Editing = bEditing;
        Column06->Options->Editing = bEditing;
        //Column07->Options->Editing = bEditing;
        Column08->Options->Editing = bEditing;
        Column09->Options->Editing = bEditing;
        Column10->Options->Editing = bEditing;
        Column11->Options->Editing = bEditing;
        Column12->Options->Editing = bEditing;
        Column13->Options->Editing = bEditing;
    }
    __finally
    {
        TvList->EndUpdate();
        if (bEditing)
        {
            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        else
        {
            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::TvListColumnPropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText, bool &Error)

{
    if (TvList->Controller->FocusedRow->IsFilterRow) return;

    int nRow = m_pGDC->FocusedRecordIndex;
    if (nRow < 0) return;

    int nMemPtr = TvList->DataController->Values[nRow][Column99->Index];
    TWebUser *pObj = (TWebUser*)nMemPtr;
    if (pObj->Completed == false)
    {
        //신규이거나 삭제인 경우 편집 내용에 따른 변화가 필요없다.
        return;
    }

    String PWD_TMP      = "";
    String PWD_ORG      = VarToStr(m_pGDC->Values[nRow][Column16->Index]);
    String PWD          = VarToStr(m_pGDC->Values[nRow][Column02->Index]);
    PWD_TMP = PWD_ORG;

    String USERNAME         = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
    String CONTACTNUM       = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
    String USERAUTH         = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
    String QUESTION         = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
    String ANSWER           = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
    String LOGIN_FAIL_COUNT = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
    String IS_ACCOUNT_LOCK  = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
    String IP_ADDRESS       = VarToStr(m_pGDC->Values[nRow][Column06->Index]);

    TcxGridColumn *pColumn = TvList->Controller->FocusedColumn;
    if      (pColumn == Column02)
    {
        PWD = DisplayValue;
        PWD_TMP = GetPassword(PWD);
    }
    else if (pColumn == Column03) USERNAME         = DisplayValue;
    else if (pColumn == Column04) CONTACTNUM       = DisplayValue;
    else if (pColumn == Column12) USERAUTH         = DisplayValue;
    else if (pColumn == Column10) QUESTION         = DisplayValue;
    else if (pColumn == Column11) ANSWER           = DisplayValue;
    else if (pColumn == Column05) LOGIN_FAIL_COUNT = DisplayValue;
    else if (pColumn == Column13) IS_ACCOUNT_LOCK  = DisplayValue;
    else if (pColumn == Column06) IP_ADDRESS       = DisplayValue;

    USERAUTH = ITSUtil_GetCode(USERAUTH);
    IS_ACCOUNT_LOCK = ITSUtil_GetCode(IS_ACCOUNT_LOCK);

    if (PWD_ORG                != PWD_TMP          ||
        pObj->NAME             != USERNAME         ||
        pObj->CONTACTNUM       != CONTACTNUM       ||
        pObj->USERAUTH         != USERAUTH         ||
        pObj->QUESTION         != QUESTION         ||
        pObj->ANSWER           != ANSWER           ||
        pObj->LOGIN_FAIL_COUNT != LOGIN_FAIL_COUNT ||
        pObj->IS_ACCOUNT_LOCK  != IS_ACCOUNT_LOCK  ||
        pObj->IP_ADDRESS       != IP_ADDRESS )
    {
        m_pGDC->Values[nRow][Column00->Index] = FrmLang->lblModify->Caption;//"수정";
        pObj->EditMode = DB_UPDATE;
    }
    else
    {
        TvList->DataController->Values[nRow][Column00->Index] = "-";
        pObj->EditMode = DB_INIT;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnBestFitClick(TObject *Sender)
{
    try
    {
        TvList->BeginUpdate();
		TvList->ApplyBestFit(NULL, false, false);
	}
	__finally
	{
        TvList->EndUpdate();
	}
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::ChkAutoWidthPropertiesChange(TObject *Sender)
{
    try
    {
        TvList->BeginUpdate();
		TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
        BtnBestFit->Visible = !ChkAutoWidth->Checked;
	}
	__finally
	{
        TvList->EndUpdate();
	}
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::MnuDeleteCancelClick(TObject *Sender)
{
    //
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::BtnApplyClick(TObject *Sender)
{
    FUpdate = true;
    BtnEdit->Down = false;
    BtnEdit->Click();
}
//---------------------------------------------------------------------------

bool __fastcall TIDB0140M::AddObjectItem(TWebUser *pObj, String AMode)
{
    int nRow;
    try
    {
        nRow = m_pGDC->AppendRecord();
        pObj->GridIndex = nRow;

        m_pGDC->Values[nRow][Column00->Index] = AMode;

        m_pGDC->Values[nRow][Column07->Index] = pObj->USER_ID;
        m_pGDC->Values[nRow][Column01->Index] = pObj->EMAIL;
        m_pGDC->Values[nRow][Column02->Index] = "";   //pObj->PASSWORD;
        m_pGDC->Values[nRow][Column16->Index] = pObj->PWD;
        m_pGDC->Values[nRow][Column03->Index] = pObj->NAME;
        m_pGDC->Values[nRow][Column04->Index] = pObj->CONTACTNUM;
        m_pGDC->Values[nRow][Column12->Index] = pObj->USERAUTH;
        m_pGDC->Values[nRow][Column10->Index] = pObj->QUESTION;
        m_pGDC->Values[nRow][Column11->Index] = pObj->ANSWER;
        m_pGDC->Values[nRow][Column05->Index] = pObj->LOGIN_FAIL_COUNT.ToIntDef(0);
        m_pGDC->Values[nRow][Column13->Index] = pObj->IS_ACCOUNT_LOCK_NM;
        m_pGDC->Values[nRow][Column06->Index] = pObj->IP_ADDRESS;

        if (!pObj->RGST_DT.IsEmpty())
        {
            m_pGDC->Values[nRow][Column14->Index] = ITSUtil_StrToTime(pObj->RGST_DT);
        }

        m_pGDC->Values[nRow][Column88->Index] = pObj->DEL_YN;

        m_pGDC->Values[nRow][Column99->Index] = (int)pObj;

        return true;
    }
    catch(...)
    {
    }
    return false;
}
//---------------------------------------------------------------------------

bool __fastcall TIDB0140M::IsUpdate()
{
    FOR_STL(TWebUser*, pObj, MyWebUserManager->FLists)
    {
        if (pObj->Completed && pObj->EditMode != DB_INIT)
            return true;

        if (!pObj->Completed && pObj->EditMode == DB_NEW)
            return true;
    }
    return false;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::SaveData()
{
    if (!IsUpdate()) return;

    if (!FUpdate)
    {
        if (Application->MessageBox(FrmLang->lblEidtConfirm->Caption.c_str(),//L"변경된 정보가 있습니다.\r\n변경된 정보를 저장 하시겠습니까?",
                                    FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
    }

    TADOQuery *pADOI = NULL;
    TADOQuery *pADOU = NULL;
    TADOQuery *pADOD = NULL;
	String sQryI;
	String sQryU;
	String sQryD;
    int    nEditMode;
    try
    {
    sQryI= "INSERT INTO TB_WEB_USER_INFR (  \r\n"
           "            USER_ID,            \r\n"
           "            EMAIL,              \r\n"
           "            NAME,               \r\n"
           "            PWD,                \r\n"
           "            CONTACTNUM,         \r\n"
           "            USERAUTH,           \r\n"
           "            QUESTION,           \r\n"
           "            ANSWER,             \r\n"
           "            RGST_DT,            \r\n"
           "            LOGIN_FAIL_COUNT,   \r\n"
           "            IS_ACCOUNT_LOCK,    \r\n"
           "            IP_ADDRESS,         \r\n"
           "            DEL_YN              \r\n"
           "   ) VALUES (                   \r\n"
           "           :p01,                \r\n"
           "           :p02,                \r\n"
           "           :p03,                \r\n"
           "           :p04,                \r\n"
           "           :p05,                \r\n"
           "           :p06,                \r\n"
           "           :p07,                \r\n"
           "           :p08,                \r\n"
           "           :p09,                \r\n"
           "           :p10,                \r\n"
           "           :p11,                \r\n"
           "           :p12,                \r\n"
           "           :p13 )               \r\n";

    sQryU= "MERGE INTO TB_WEB_USER_INFR L                           \r\n"
           "USING (SELECT :p01 AS USER_ID,                          \r\n"
           "              :p02 AS EMAIL,                            \r\n"
           "              :p03 AS NAME,                             \r\n"
           "              :p04 AS PWD,                              \r\n"
           "              :p05 AS CONTACTNUM,                       \r\n"
           "              :p06 AS USERAUTH,                         \r\n"
           "              :p07 AS QUESTION,                         \r\n"
           "              :p08 AS ANSWER,                           \r\n"
           "              :p09 AS RGST_DT,                          \r\n"
           "              :p10 AS LOGIN_FAIL_COUNT,                 \r\n"
           "              :p11 AS IS_ACCOUNT_LOCK,                  \r\n"
           "              :p12 AS IP_ADDRESS,                       \r\n"
           "              :p13 AS DEL_YN                            \r\n"
           "         FROM DUAL) M                                   \r\n"
           "        ON (L.USER_ID = M.USER_ID)                      \r\n"
           "WHEN MATCHED THEN                                       \r\n"
           "   UPDATE SET L.EMAIL            = M.EMAIL,             \r\n"
           "              L.NAME             = M.NAME,              \r\n"
           "              L.PWD              = M.PWD,               \r\n"
           "              L.CONTACTNUM       = M.CONTACTNUM,        \r\n"
           "              L.USERAUTH         = M.USERAUTH,          \r\n"
           "              L.QUESTION         = M.QUESTION,          \r\n"
           "              L.ANSWER           = M.ANSWER,            \r\n"
           "              L.RGST_DT          = M.RGST_DT,           \r\n"
           "              L.LOGIN_FAIL_COUNT = M.LOGIN_FAIL_COUNT,  \r\n"
           "              L.IS_ACCOUNT_LOCK  = M.IS_ACCOUNT_LOCK,   \r\n"
           "              L.IP_ADDRESS       = M.IP_ADDRESS,        \r\n"
           "              L.DEL_YN           = M.DEL_YN             \r\n"
           "WHEN NOT MATCHED THEN                                   \r\n"
           "   INSERT (USER_ID,                                     \r\n"
           "           EMAIL,                                       \r\n"
           "           NAME,                                        \r\n"
           "           PWD,                                         \r\n"
           "           CONTACTNUM,                                  \r\n"
           "           USERAUTH,                                    \r\n"
           "           QUESTION,                                    \r\n"
           "           ANSWER,                                      \r\n"
           "           RGST_DT,                                     \r\n"
           "           LOGIN_FAIL_COUNT,                            \r\n"
           "           IS_ACCOUNT_LOCK,                             \r\n"
           "           IP_ADDRESS,                                  \r\n"
           "           DEL_YN )                                     \r\n"
           "   VALUES (M.USER_ID,                                   \r\n"
           "           M.EMAIL,                                     \r\n"
           "           M.NAME,                                      \r\n"
           "           M.PWD,                                       \r\n"
           "           M.CONTACTNUM,                                \r\n"
           "           M.USERAUTH,                                  \r\n"
           "           M.QUESTION,                                  \r\n"
           "           M.ANSWER,                                    \r\n"
           "           M.RGST_DT,                                   \r\n"
           "           M.LOGIN_FAIL_COUNT,                          \r\n"
           "           M.IS_ACCOUNT_LOCK,                           \r\n"
           "           M.IP_ADDRESS,                                \r\n"
           "           M.DEL_YN )                                   \r\n";

        sQryI = sQryU;

        sQryD = "UPDATE TB_WEB_USER_INFR                                \r\n"
                "   SET RGST_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  \r\n"
                "       DEL_YN  = 'Y'                                   \r\n"
                " WHERE USER_ID = :p01                                  \r\n";

        int nRow;
        TvList->BeginUpdate();
        try
        {
            pADOI = new TADOQuery(NULL);
			pADOI->Close();
            pADOI->Connection = ITSDb_GetConnection();

            pADOU = new TADOQuery(NULL);
			pADOU->Close();
            pADOU->Connection = ITSDb_GetConnection();

            pADOD = new TADOQuery(NULL);
			pADOD->Close();
            pADOD->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADOI, sQryI);
            ITSDb_SQLText(pADOU, sQryU);
            ITSDb_SQLText(pADOD, sQryD);

            ITSDb_GetConnection()->BeginTrans();

            FOR_STL(TWebUser*, pObj, MyWebUserManager->FLists)
            {
                if (pObj->GridIndex < 0) continue;

                if (pObj->Completed && pObj->EditMode == DB_INIT)
                    continue;

                if (!pObj->Completed && pObj->EditMode != DB_NEW)
                    continue;

                nRow = pObj->GridIndex;

                String PWD_ORG      = VarToStr(m_pGDC->Values[nRow][Column16->Index]);
                String PWD          = VarToStr(m_pGDC->Values[nRow][Column02->Index]);
                if (PWD != "" || PWD != PWD_ORG)
                {
                    PWD = GetPassword(PWD);
                }
                else
                {
                    PWD = PWD_ORG;
                }

                //String USER_ID          = VarToStr(m_pGDC->Values[nRow][Column07->Index]);
                String USERNAME         = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
                String CONTACTNUM       = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
                String USERAUTH         = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
                String QUESTION         = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
                String ANSWER           = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
                String LOGIN_FAIL_COUNT = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
                String IS_ACCOUNT_LOCK  = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
                String IP_ADDRESS       = VarToStr(m_pGDC->Values[nRow][Column06->Index]);
                if (IS_ACCOUNT_LOCK == "")
                    IS_ACCOUNT_LOCK = "N";

                pObj->USERAUTH_NM        = USERAUTH;
                pObj->IS_ACCOUNT_LOCK_NM = IS_ACCOUNT_LOCK;

                USERAUTH = ITSUtil_GetCode(USERAUTH);
                IS_ACCOUNT_LOCK = ITSUtil_GetCode(IS_ACCOUNT_LOCK);

                //pObj->USER_ID          = USER_ID;
                pObj->PWD              = PWD;
                pObj->NAME             = USERNAME;
                pObj->CONTACTNUM       = CONTACTNUM;
                pObj->USERAUTH         = USERAUTH;
                pObj->QUESTION         = QUESTION;
                pObj->ANSWER           = ANSWER;
                pObj->LOGIN_FAIL_COUNT = LOGIN_FAIL_COUNT;
                pObj->IS_ACCOUNT_LOCK  = IS_ACCOUNT_LOCK;
                pObj->IP_ADDRESS       = IP_ADDRESS;

                pObj->RGST_DT          = Now().FormatString("YYYYMMDDHHNNSS");

                nEditMode = pObj->EditMode;
                if (pObj->Completed)
                {
                    if (pObj->EditMode == DB_DELETE)
                    {
                        //delete
                        ITSDb_SQLBind(pADOD, "p01", pObj->USER_ID);
                        ITSDb_SQLExec(pADOD);
                        pObj->DEL_YN  = "Y";
                        pObj->MEM_DEL = "Y";
                    }
                    else
                    if (pObj->EditMode == DB_UPDATE)
                    {

                        pADOU->Parameters->ParamByName("p01")->Value = pObj->USER_ID;
                        pADOU->Parameters->ParamByName("p02")->Value = pObj->EMAIL;
                        pADOU->Parameters->ParamByName("p03")->Value = pObj->NAME;
                        pADOU->Parameters->ParamByName("p04")->Value = pObj->PWD;
                        pADOU->Parameters->ParamByName("p05")->Value = pObj->CONTACTNUM;
                        pADOU->Parameters->ParamByName("p06")->Value = pObj->USERAUTH;
                        pADOU->Parameters->ParamByName("p07")->Value = pObj->QUESTION;
                        pADOU->Parameters->ParamByName("p08")->Value = pObj->ANSWER;
                        pADOU->Parameters->ParamByName("p09")->Value = pObj->RGST_DT;
                        pADOU->Parameters->ParamByName("p10")->Value = pObj->LOGIN_FAIL_COUNT;
                        pADOU->Parameters->ParamByName("p11")->Value = pObj->IS_ACCOUNT_LOCK;
                        pADOU->Parameters->ParamByName("p12")->Value = pObj->IP_ADDRESS;
                        pADOU->Parameters->ParamByName("p13")->Value = pObj->DEL_YN;

                        ITSDb_SQLExec(pADOU);
                        pObj->DEL_YN  = "N";
                        pObj->MEM_DEL = "N";
                    }
                }
                else
                {
                    if (pObj->EditMode == DB_NEW)
                    {
                        pADOI->Parameters->ParamByName("p01")->Value = pObj->USER_ID;
                        pADOI->Parameters->ParamByName("p02")->Value = pObj->EMAIL;
                        pADOI->Parameters->ParamByName("p03")->Value = pObj->NAME;
                        pADOI->Parameters->ParamByName("p04")->Value = pObj->PWD;
                        pADOI->Parameters->ParamByName("p05")->Value = pObj->CONTACTNUM;
                        pADOI->Parameters->ParamByName("p06")->Value = pObj->USERAUTH;
                        pADOI->Parameters->ParamByName("p07")->Value = pObj->QUESTION;
                        pADOI->Parameters->ParamByName("p08")->Value = pObj->ANSWER;
                        pADOI->Parameters->ParamByName("p09")->Value = pObj->RGST_DT;
                        pADOI->Parameters->ParamByName("p10")->Value = pObj->LOGIN_FAIL_COUNT;
                        pADOI->Parameters->ParamByName("p11")->Value = pObj->IS_ACCOUNT_LOCK;
                        pADOI->Parameters->ParamByName("p12")->Value = pObj->IP_ADDRESS;
                        pADOI->Parameters->ParamByName("p13")->Value = pObj->DEL_YN;

                        ITSDb_SQLExec(pADOI);
                        pObj->DEL_YN  = "N";
                        pObj->MEM_DEL = "N";
                    }
                }
                pObj->Completed = true;
            }
            ITSDb_GetConnection()->CommitTrans();
            Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"관리자정보를 저장 하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
            FDbUpdate = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            if (nEditMode == DB_DELETE)
                DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryD);
            else
            if (nEditMode == DB_UPDATE)
                DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryU);
            else
            if (nEditMode == DB_NEW)
                DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryI);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            if (nEditMode == DB_DELETE)
                DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryD);
            else
            if (nEditMode == DB_UPDATE)
                DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryU);
            else
            if (nEditMode == DB_NEW)
                DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryI);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADOI)
        {
            pADOI->Close();
            delete pADOI;
        }
        if (pADOU)
        {
            pADOU->Close();
            delete pADOU;
        }
        if (pADOD)
        {
            pADOD->Close();
            delete pADOD;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

String __fastcall TIDB0140M::GetPassword(String APswd)
{
    int    nRes;
    String sEncPswd = "";
    String sQry;

#if 0
    sQry = "SELECT SCP.HASH_B64('71', :p01) AS PWD FROM DUAL \r\n";

    TADOQuery *pADO = NULL;
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Connection = ITSDb_GetConnection();
            pADO->Close();
            pADO->SQL->Text = sQry;
            pADO->Parameters->ParamByName("p01")->Value = APswd;
            pADO->Prepared = true;
            pADO->Open();
            if (!pADO->Eof)
            {
                pADO->First();
                sEncPswd = pADO->FieldByName("PWD")->AsString;
            }
            pADO->Close();
        }
        catch(EDatabaseError &E)
        {
            throw Exception(String(E.ClassName())+E.Message);
        }
        catch (Exception &exception)
        {
            throw Exception(String(exception.ClassName())+exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
#else
    sEncPswd = String(ITSSHA256_Encrpyt(AnsiString(APswd)));
#endif

    return sEncPswd;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    SaveData();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::TvListKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if (Key == VK_DELETE)
	{
		if (BtnDelete->Enabled) BtnDeleteClick(Sender);
	}
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::TvListDataControllerFilterChanged(TObject *Sender)
{
    CMM_SetFilterLike(TvList);
    LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
}
//---------------------------------------------------------------------------

void __fastcall TIDB0140M::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    if (AViewInfo)
    {
        String sType = AViewInfo->GridRecord->DisplayTexts[Column00->Index];
        if (sType == FrmLang->lblModify->Caption)//"수정")
        {
            ACanvas->Brush->Color = clOlive;
        }
        else if (sType == FrmLang->lblDelete->Caption)//"삭제")
        {
            ACanvas->Brush->Color = clRed;
        }
        else if (sType == FrmLang->lblNew->Caption)//"신규")
        {
            ACanvas->Brush->Color = clLime;
            if (AViewInfo->Focused) ACanvas->Font->Color = clBlack;
        }
    }
}
//---------------------------------------------------------------------------