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 = "홈페이지 관리자 관리";
    FDbUpdate = false;

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

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TIDB0140M::CommClose()
{
    try
    {
        if (MyWebUserManager)
        {
            delete MyWebUserManager;
            MyWebUserManager = NULL;
        }

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

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
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->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->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
}
//---------------------------------------------------------------------------

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    BtnSearchClick((TObject*)BtnSearch);
}
//---------------------------------------------------------------------------

/*
 * Search 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

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

/*
 * Refresh Data Event Function
 *  arguments
 *
 *  return
 *      void
 */
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();
    }
}
//---------------------------------------------------------------------------

/*
 * Close 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

/*
 * 저장 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::BtnExlSaveClick(TObject *Sender)
{
    TcxGrid          *pGrid = CxList;
    TcxGridTableView *pView = TvList;
    String            sTitle= "홈페이지 관리자 정보";

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

/*
 * 등록 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TIDB0140M::BtnInsertClick(TObject *Sender)
{
    int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;

	String sId = InputBox("관리자 ID", "신규 관리자 ID를 입력하세요.", "관리자 ID" );

    sId = sId.Trim();
	if (sId == "관리자 ID" || sId == "")
	{
		return;
	}
	if (AnsiString(sId).Length() > 50)
	{
        Application->MessageBox(L"관리자 ID는 50Byte를 초과할 수 없습니다.", FTitle.c_str(), nMsgType);
		return;
	}

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

    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->EMAIL             = sId;
        pObj->PASSWORD          = "";
        pObj->USERNAME          = "";
        pObj->CONTACTNUM        = "";
        pObj->USERAUTH          = "";
        pObj->QUESTION          = "";
        pObj->ANSWER            = "";
        pObj->REGDATE           = 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;
    }
}
//---------------------------------------------------------------------------

/*
 * 삭제 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
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->USERNAME         != 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][Column01->Index] = pObj->EMAIL;
        m_pGDC->Values[nRow][Column02->Index] = "";   //pObj->PASSWORD;
        m_pGDC->Values[nRow][Column16->Index] = pObj->PASSWORD;
        m_pGDC->Values[nRow][Column03->Index] = pObj->USERNAME;
        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->REGDATE.IsEmpty())
        m_pGDC->Values[nRow][Column14->Index] = ITSUtil_StrToTime(pObj->REGDATE);

        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;
    try
    {
        sQryI = "INSERT INTO TB_MS_WEB_MEMBER (                               \r\n"
                "           EMAIL, USERNAME, PASSWORD, CONTACTNUM, USERAUTH,  \r\n"
                "           QUESTION, ANSWER,                                 \r\n"
                "           REGDATE,                                          \r\n"
                "           LOGIN_FAIL_COUNT, IS_ACCOUNT_LOCK, IP_ADDRESS,    \r\n"
                "           DEL_YN                                            \r\n"
                "          )                                                  \r\n"
                "   VALUES (                                                  \r\n"
                "           :p01, :p02, :p03, :p04, :p05,                     \r\n"
                "           :p06, :p07,                                       \r\n"
                "           SYSDATE,                                          \r\n"
                "           :p08, :p09, :p10,                                 \r\n"
                "           'N'   )                                           \r\n";

        sQryU = "UPDATE TB_MS_WEB_MEMBER             \r\n"
                "   SET USERNAME         = :p02,     \r\n"
                "       PASSWORD         = :p03,     \r\n"
                "       CONTACTNUM       = :p04,     \r\n"
                "       USERAUTH         = :p05,     \r\n"
                "       QUESTION         = :p06,     \r\n"
                "       ANSWER           = :p07,     \r\n"
                "       REGDATE          = SYSDATE,  \r\n"
                "       LOGIN_FAIL_COUNT = :p08,     \r\n"
                "       IS_ACCOUNT_LOCK  = :p09,     \r\n"
                "       IP_ADDRESS       = :p10      \r\n"
                " WHERE EMAIL            = :p01      \r\n";

        sQryD = "UPDATE TB_MS_WEB_MEMBER    \r\n"
                "   SET REGDATE = SYSDATE,  \r\n"
                "       DEL_YN  = 'Y'       \r\n"
                " WHERE EMAIL   = :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 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->PASSWORD         = PWD;
                pObj->USERNAME         = 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->REGDATE          = Now().FormatString("YYYYMMDDHHNNSS");

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

                        ITSDb_SQLBind(pADOU, "p01", pObj->EMAIL);
                        ITSDb_SQLBind(pADOU, "p02", pObj->USERNAME);
                        ITSDb_SQLBind(pADOU, "p03", pObj->PASSWORD);
                        ITSDb_SQLBind(pADOU, "p04", pObj->CONTACTNUM);
                        ITSDb_SQLBind(pADOU, "p05", pObj->USERAUTH);
                        ITSDb_SQLBind(pADOU, "p06", pObj->QUESTION);
                        ITSDb_SQLBind(pADOU, "p07", pObj->ANSWER);
                        ITSDb_SQLBind(pADOU, "p08", pObj->LOGIN_FAIL_COUNT);
                        ITSDb_SQLBind(pADOU, "p09", pObj->IS_ACCOUNT_LOCK);
                        ITSDb_SQLBind(pADOU, "p10", pObj->IP_ADDRESS);
                        ITSDb_SQLExec(pADOU);
                        pObj->DEL_YN  = "N";
                        pObj->MEM_DEL = "N";
                    }
                }
                else
                {
                    if (pObj->EditMode == DB_NEW)
                    {
                        ITSDb_SQLBind(pADOI, "p01", pObj->EMAIL);
                        ITSDb_SQLBind(pADOI, "p02", pObj->USERNAME);
                        ITSDb_SQLBind(pADOI, "p03", pObj->PASSWORD);
                        ITSDb_SQLBind(pADOI, "p04", pObj->CONTACTNUM);
                        ITSDb_SQLBind(pADOI, "p05", pObj->USERAUTH);
                        ITSDb_SQLBind(pADOI, "p06", pObj->QUESTION);
                        ITSDb_SQLBind(pADOI, "p07", pObj->ANSWER);
                        ITSDb_SQLBind(pADOI, "p08", pObj->LOGIN_FAIL_COUNT);
                        ITSDb_SQLBind(pADOI, "p09", pObj->IS_ACCOUNT_LOCK);
                        ITSDb_SQLBind(pADOI, "p10", pObj->IP_ADDRESS);
                        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();
            ShowMessage(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ShowMessage(String(exception.ClassName()) + exception.Message);
        }
        catch(...)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ShowMessage(FrmLang->lblDbDelErr->Caption);//"데이터 삭제 중에 알수없는 DB 오류가 발생하였습니다.");
        }
    }
    __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 *adoQry = NULL;
    try
    {
        try
        {
            adoQry = new TADOQuery(NULL);
            adoQry->Connection = ITSDb_GetConnection();
            adoQry->Close();
            adoQry->SQL->Text = sQry;
            adoQry->Parameters->ParamByName("p01")->Value = APswd;
            adoQry->Open();
            if (!adoQry->Eof)
            {
                adoQry->First();
                sEncPswd = adoQry->FieldByName("PWD")->AsString;
            }
            adoQry->Close();
        }
        catch(EDatabaseError &E)
        {
            throw Exception(String(E.ClassName())+E.Message);
        }
        catch (Exception &exception)
        {
            throw Exception(String(exception.ClassName())+exception.Message);
        }
    }
    __finally
    {
        if (adoQry)
        {
            adoQry->Close();
            delete adoQry;
        }
    }
#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;
        }
    }
}
//---------------------------------------------------------------------------