123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "ITSDbF.h"
- #include "AppGlobalF.h"
- #include "EncryptionF.h"
- #include "ITSLangTransF.h"
- #pragma hdrstop
- #include "IDB0090MF.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 "cxStyles"
- #pragma link "cxTextEdit"
- #pragma link "dxSkinBlack"
- #pragma link "dxSkinBlue"
- #pragma link "dxSkinsCore"
- #pragma link "dxSkinscxPCPainter"
- #pragma resource "*.dfm"
- TIDB0090M *IDB0090M = NULL;
- //---------------------------------------------------------------------------
- __fastcall TIDB0090M::TIDB0090M(TComponent* Owner)
- : TForm(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- ITSSkin_Load(this);
- CMM_LoadForm(g_sFormsDir, this);
- FTitle = Caption;//"운영자정보관리";
- FDbUpdate = false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::CommClose()
- {
- try
- {
- if (ItsUserManager)
- {
- delete ItsUserManager;
- ItsUserManager = NULL;
- }
- CMM_SaveForm(g_sFormsDir, this);
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::FormShow(TObject *Sender)
- {
- Refresh();
- FormInit();
- TmrShow->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::FormInit()
- {
- m_pGDC = TvList->DataController;
- TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<현재 등록된 운영자 정보가 없습니다>";
- if (!ItsUserManager)
- {
- ItsUserManager = new TItsUserManager();
- }
- InitColumnProperties();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::InitColumnProperties()
- {
- 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_USER_GROP_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)
- {
- ITSDb_GetConnection()->RollbackTrans();
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
- 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);
- DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::TmrShowTimer(TObject *Sender)
- {
- TmrShow->Enabled = false;
- BtnSearchClick((TObject*)BtnSearch);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::BtnSearchClick(TObject *Sender)
- {
- Application->ProcessMessages();
- TSqlCursor sqlCrs((TControl*)BtnSearch);
- RefreshData();
- CxList->SetFocus();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::RefreshData()
- {
- ItsUserManager->LoadFromDb();
- SelListData();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::SelListData()
- {
- FUpdate = false;
- CMM_ClearGridTableView(TvList);
- try
- {
- TvList->BeginUpdate();
- FOR_STL(TItsUser*, pObj, ItsUserManager->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 TIDB0090M::BtnCloseClick(TObject *Sender)
- {
- Close();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::BtnExlSaveClick(TObject *Sender)
- {
- TcxGrid *pGrid = CxList;
- TcxGridTableView *pView = TvList;
- String sTitle= Caption;//"운영자정보";
- CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::BtnInsertClick(TObject *Sender)
- {
- int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;
- String sId = InputBox(lblInput->Caption,//"운영자 ID",
- lblInQry->Caption,//"신규 운영자 ID를 입력하세요.",
- lblInput->Caption);//"최대20자리" );
- sId = sId.Trim();
- if (sId == lblInput->Caption //"운영자 ID"
- || sId == "")
- {
- return;
- }
- if (AnsiString(sId).Length() > 20)
- {
- Application->MessageBox(lblDigitErr->Caption.c_str(),//L"운영자 ID는 20Byte를 초과할 수 없습니다.",
- FTitle.c_str(),
- nMsgType);
- return;
- }
- TItsUser *pDb = (TItsUser *)ItsUserManager->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();
- TItsUser *pObj = new TItsUser();
- if (!pObj)
- {
- Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 운영자 정보를 생성할 수 없습니다.[메모리오류]",
- FTitle.c_str(), nMsgType);
- return;
- }
- //pObj->Clear();
- pObj->USER_ID = sId; //VARCHAR2(20) N 사용자ID
- pObj->PWD = ""; //VARCHAR2(64) Y 암호
- pObj->NAME = ""; //VARCHAR2(30) Y 성명
- pObj->COMP = ""; //VARCHAR2(50) Y 회사
- pObj->TEL = ""; //VARCHAR2(128) Y 전화번호
- pObj->ADDR = ""; //VARCHAR2(200) Y 주소
- pObj->RESD_NMBR = ""; //VARCHAR2(14) Y 주민번호
- pObj->MOBILE = ""; //VARCHAR2(128) Y 이동전화
- pObj->EMAL = ""; //VARCHAR2(128) Y 이메일
- pObj->DEL_YN = "N"; //CHAR(1) Y 'N' 삭제 여부
- pObj->RGSTYMD = Now().FormatString("YYYYMMDDHHNNSS"); //VARCHAR2(14) Y 등록일자
- pObj->CRCTYMD = Now().FormatString("YYYYMMDDHHNNSS"); //VARCHAR2(14) Y 수정일자
- pObj->HINT_QUES = ""; //VARCHAR2(7) Y 힌트질문
- pObj->HINT_ANS = ""; //VARCHAR2(100) Y 힌트질문답
- pObj->GROP_ID = ITSUtil_GetCode(FInitCombo1); //VARCHAR2(30) Y 그룹ID
- pObj->OPER_SYST_ID = ITSUtil_GetCode(FInitCombo2); //VARCHAR2(30) Y 운영시스템ID
- pObj->GROP_NM = FInitCombo1;
- pObj->OPER_SYST_NM = FInitCombo2;
- pObj->Completed = false;
- pObj->EditMode = DB_NEW;
- pObj->MEM_DEL = "N";
- ItsUserManager->FLists.Push(pObj->USER_ID, 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 TIDB0090M::BtnDeleteClick(TObject *Sender)
- {
- int nIdx = m_pGDC->FocusedRecordIndex;
- if (nIdx < 0) return;
- int nMemPtr = m_pGDC->Values[nIdx][Column99->Index];
- TItsUser *pObj = (TItsUser*)nMemPtr;
- pObj->EditMode = DB_DELETE;
- m_pGDC->Values[nIdx][Column00->Index] = FrmLang->lblDelete->Caption;//"삭제";
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::FormClose(TObject *Sender, TCloseAction &Action)
- {
- CommClose();
- IDB0090M = NULL;
- Action = caFree;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::BtnEditClick(TObject *Sender)
- {
- TListFocus tvFocus(TvList);
- if (BtnEdit->Caption == FrmLang->lblCancel->Caption)//"취소")
- {
- CxList->SetFocus();
- Application->ProcessMessages();
- SaveData();
- }
- FrmLang->ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply);
- ChangeEditMode(BtnEdit->Down);
- RefreshData();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::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 TIDB0090M::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];
- TItsUser *pObj = (TItsUser*)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 NAME = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
- String COMP = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
- String TEL = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
- String ADDR = VarToStr(m_pGDC->Values[nRow][Column06->Index]);
- String RESD_NMBR = "";//VarToStr(m_pGDC->Values[nRow][Column07->Index]);
- String MOBILE = VarToStr(m_pGDC->Values[nRow][Column08->Index]);
- String EMAL = VarToStr(m_pGDC->Values[nRow][Column09->Index]);
- String HINT_QUES = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
- String HINT_ANS = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
- String GROP_ID = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
- String OPER_SYST_ID = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
- TcxGridColumn *pColumn = TvList->Controller->FocusedColumn;
- if (pColumn == Column02)
- {
- PWD = DisplayValue;
- PWD_TMP = String(ITSSHA256_Encrpyt(PWD));
- }
- else if (pColumn == Column03) NAME = DisplayValue;
- else if (pColumn == Column04) COMP = DisplayValue;
- else if (pColumn == Column05) TEL = DisplayValue;
- else if (pColumn == Column06) ADDR = DisplayValue;
- //else if (pColumn == Column07) RESD_NMBR = DisplayValue;
- else if (pColumn == Column08) MOBILE = DisplayValue;
- else if (pColumn == Column09) EMAL = DisplayValue;
- else if (pColumn == Column10) HINT_QUES = DisplayValue;
- else if (pColumn == Column11) HINT_ANS = DisplayValue;
- else if (pColumn == Column12) GROP_ID = DisplayValue;
- else if (pColumn == Column13) OPER_SYST_ID = DisplayValue;
- GROP_ID = ITSUtil_GetCode(GROP_ID);
- OPER_SYST_ID = ITSUtil_GetCode(OPER_SYST_ID);
- if (PWD_ORG != PWD_TMP ||
- pObj->NAME != NAME ||
- pObj->COMP != COMP ||
- pObj->TEL != TEL ||
- pObj->ADDR != ADDR ||
- //pObj->RESD_NMBR != RESD_NMBR ||
- pObj->MOBILE != MOBILE ||
- pObj->EMAL != EMAL ||
- pObj->HINT_QUES != HINT_QUES ||
- pObj->HINT_ANS != HINT_ANS ||
- pObj->GROP_ID != GROP_ID ||
- pObj->OPER_SYST_ID != OPER_SYST_ID )
- {
- 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 TIDB0090M::BtnBestFitClick(TObject *Sender)
- {
- try
- {
- TvList->BeginUpdate();
- TvList->ApplyBestFit(NULL, false, false);
- }
- __finally
- {
- TvList->EndUpdate();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::ChkAutoWidthPropertiesChange(TObject *Sender)
- {
- try
- {
- TvList->BeginUpdate();
- TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
- BtnBestFit->Visible = !ChkAutoWidth->Checked;
- }
- __finally
- {
- TvList->EndUpdate();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::MnuDeleteCancelClick(TObject *Sender)
- {
- //
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::BtnApplyClick(TObject *Sender)
- {
- FUpdate = true;
- BtnEdit->Down = false;
- BtnEdit->Click();
- }
- //---------------------------------------------------------------------------
- bool __fastcall TIDB0090M::AddObjectItem(TItsUser *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->USER_ID;
- m_pGDC->Values[nRow][Column02->Index] = ""; //pObj->PWD;
- m_pGDC->Values[nRow][Column16->Index] = pObj->PWD;
- m_pGDC->Values[nRow][Column03->Index] = pObj->NAME;
- m_pGDC->Values[nRow][Column04->Index] = pObj->COMP;
- m_pGDC->Values[nRow][Column05->Index] = pObj->TEL;
- m_pGDC->Values[nRow][Column06->Index] = pObj->ADDR;
- m_pGDC->Values[nRow][Column07->Index] = pObj->RESD_NMBR;
- m_pGDC->Values[nRow][Column08->Index] = pObj->MOBILE;
- m_pGDC->Values[nRow][Column09->Index] = pObj->EMAL;
- m_pGDC->Values[nRow][Column10->Index] = pObj->HINT_QUES;
- m_pGDC->Values[nRow][Column11->Index] = pObj->HINT_ANS;
- m_pGDC->Values[nRow][Column12->Index] = pObj->GROP_NM;
- m_pGDC->Values[nRow][Column13->Index] = pObj->OPER_SYST_NM;
- if (!pObj->RGSTYMD.IsEmpty())
- m_pGDC->Values[nRow][Column14->Index] = ITSUtil_StrToTime(pObj->RGSTYMD);
- if (!pObj->CRCTYMD.IsEmpty())
- m_pGDC->Values[nRow][Column15->Index] = ITSUtil_StrToTime(pObj->CRCTYMD);
- m_pGDC->Values[nRow][Column88->Index] = pObj->DEL_YN;
- m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
- return true;
- }
- catch(...)
- {
- }
- return false;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TIDB0090M::IsUpdate()
- {
- FOR_STL(TItsUser*, pObj, ItsUserManager->FLists)
- {
- if (pObj->Completed && pObj->EditMode != DB_INIT)
- return true;
- if (!pObj->Completed && pObj->EditMode == DB_NEW)
- return true;
- }
- return false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::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_USER_INFR ( \r\n"
- " USER_ID, PWD, NAME, COMP, TEL, ADDR, \r\n"
- " MOBILE, EMAL, \r\n"
- " DEL_YN, \r\n"
- " RGSTYMD, \r\n"
- " CRCTYMD, \r\n"
- " HINT_QUES, HINT_ANS, GROP_ID, OPER_SYST_ID) \r\n"
- " VALUES ( \r\n"
- " :p01, :p02, :p03, :p04, :p05, :p06, \r\n"
- " :p08, :p09, \r\n"
- " 'N', \r\n"
- " TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
- " TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
- " :p13, :p14, :p15, :p16 ) \r\n";
- sQryU = "UPDATE TB_USER_INFR \r\n"
- " SET PWD = :p02, \r\n"
- " NAME = :p03, \r\n"
- " COMP = :p04, \r\n"
- " TEL = :p05, \r\n"
- " ADDR = :p06, \r\n"
- " MOBILE = :p08, \r\n"
- " EMAL = :p09, \r\n"
- " CRCTYMD = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
- " HINT_QUES = :p13, \r\n"
- " HINT_ANS = :p14, \r\n"
- " GROP_ID = :p15, \r\n"
- " OPER_SYST_ID = :p16 \r\n"
- " WHERE USER_ID = :p01 \r\n";
- sQryD = "UPDATE TB_USER_INFR \r\n"
- " SET CRCTYMD = 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(TItsUser*, pObj, ItsUserManager->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 = String(ITSSHA256_Encrpyt(PWD));
- }
- else
- {
- PWD = PWD_ORG;
- }
- //if (pObj->PWD != PWD)
- //{
- // PWD = GetPassword(PWD);
- //}
- String NAME = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
- String COMP = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
- String TEL = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
- String ADDR = VarToStr(m_pGDC->Values[nRow][Column06->Index]);
- String RESD_NMBR = "";//VarToStr(m_pGDC->Values[nRow][Column07->Index]);
- String MOBILE = VarToStr(m_pGDC->Values[nRow][Column08->Index]);
- String EMAL = VarToStr(m_pGDC->Values[nRow][Column09->Index]);
- String HINT_QUES = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
- String HINT_ANS = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
- String GROP_ID = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
- String OPER_SYST_ID = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
- GROP_ID = ITSUtil_GetCode(GROP_ID);
- OPER_SYST_ID = ITSUtil_GetCode(OPER_SYST_ID);
- //pObj->USER_ID = pObj->USER_ID;
- pObj->PWD = PWD;
- pObj->NAME = NAME;
- pObj->COMP = COMP;
- pObj->TEL = TEL;
- pObj->ADDR = ADDR;
- pObj->RESD_NMBR = RESD_NMBR;
- pObj->MOBILE = MOBILE;
- pObj->EMAL = EMAL;
- //pObj->DEL_YN = pObj->DEL_YN; //CHAR(1) Y 'N' 삭제 여부
- pObj->RGSTYMD = Now().FormatString("YYYYMMDDHHNNSS");
- pObj->CRCTYMD = Now().FormatString("YYYYMMDDHHNNSS");
- pObj->HINT_QUES = HINT_QUES;
- pObj->HINT_ANS = HINT_ANS;
- pObj->GROP_ID = GROP_ID;
- pObj->OPER_SYST_ID = OPER_SYST_ID;
- 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)
- {
- ITSDb_SQLBind(pADOU, "p01", pObj->USER_ID);
- ITSDb_SQLBind(pADOU, "p02", pObj->PWD);
- ITSDb_SQLBind(pADOU, "p03", pObj->NAME);
- ITSDb_SQLBind(pADOU, "p04", pObj->COMP);
- ITSDb_SQLBind(pADOU, "p05", pObj->TEL);
- ITSDb_SQLBind(pADOU, "p06", pObj->ADDR);
- //ITSDb_SQLBind(pADOU, "p07", pObj->RESD_NMBR);
- ITSDb_SQLBind(pADOU, "p08", pObj->MOBILE);
- ITSDb_SQLBind(pADOU, "p09", pObj->EMAL);
- //ITSDb_SQLBind(pADOU, "p10", pObj->DEL_YN);
- //ITSDb_SQLBind(pADOU, "p11", pObj->RGSTYMD);
- //ITSDb_SQLBind(pADOU, "p12", pObj->CRCTYMD);
- ITSDb_SQLBind(pADOU, "p13", pObj->HINT_QUES);
- ITSDb_SQLBind(pADOU, "p14", pObj->HINT_ANS);
- ITSDb_SQLBind(pADOU, "p15", pObj->GROP_ID);
- ITSDb_SQLBind(pADOU, "p16", pObj->OPER_SYST_ID);
- ITSDb_SQLExec(pADOU);
- pObj->DEL_YN = "N";
- pObj->MEM_DEL = "N";
- }
- }
- else
- {
- if (pObj->EditMode == DB_NEW)
- {
- ITSDb_SQLBind(pADOI, "p01", pObj->USER_ID);
- ITSDb_SQLBind(pADOI, "p02", pObj->PWD);
- ITSDb_SQLBind(pADOI, "p03", pObj->NAME);
- ITSDb_SQLBind(pADOI, "p04", pObj->COMP);
- ITSDb_SQLBind(pADOI, "p05", pObj->TEL);
- ITSDb_SQLBind(pADOI, "p06", pObj->ADDR);
- //ITSDb_SQLBind(pADOI, "p07", pObj->RESD_NMBR);
- ITSDb_SQLBind(pADOI, "p08", pObj->MOBILE);
- ITSDb_SQLBind(pADOI, "p09", pObj->EMAL);
- //ITSDb_SQLBind(pADOI, "p10", pObj->DEL_YN);
- //ITSDb_SQLBind(pADOI, "p11", pObj->RGSTYMD);
- //ITSDb_SQLBind(pADOI, "p12", pObj->CRCTYMD);
- ITSDb_SQLBind(pADOI, "p13", pObj->HINT_QUES);
- ITSDb_SQLBind(pADOI, "p14", pObj->HINT_ANS);
- ITSDb_SQLBind(pADOI, "p15", pObj->GROP_ID);
- ITSDb_SQLBind(pADOI, "p16", pObj->OPER_SYST_ID);
- 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 TIDB0090M::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 = APswd;
- #endif
- return sEncPswd;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::FormCloseQuery(TObject *Sender, bool &CanClose)
- {
- SaveData();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::TvListKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
- {
- if (Key == VK_DELETE)
- {
- if (BtnDelete->Enabled) BtnDeleteClick(Sender);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::TvListDataControllerFilterChanged(TObject *Sender)
- {
- CMM_SetFilterLike(TvList);
- LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0090M::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;
- }
- }
- }
- //---------------------------------------------------------------------------
|