IDB0090MF.cpp 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "ITSDbF.h"
  6. #include "AppGlobalF.h"
  7. #include "EncryptionF.h"
  8. #include "ITSLangTransF.h"
  9. #include "ITS_OPLibF.h"
  10. #pragma hdrstop
  11. #include "IDB0090MF.h"
  12. //---------------------------------------------------------------------------
  13. #pragma package(smart_init)
  14. #pragma link "cxButtons"
  15. #pragma link "cxCalc"
  16. #pragma link "cxCheckBox"
  17. #pragma link "cxClasses"
  18. #pragma link "cxContainer"
  19. #pragma link "cxControls"
  20. #pragma link "cxCustomData"
  21. #pragma link "cxData"
  22. #pragma link "cxDataStorage"
  23. #pragma link "cxDropDownEdit"
  24. #pragma link "cxEdit"
  25. #pragma link "cxFilter"
  26. #pragma link "cxGraphics"
  27. #pragma link "cxGrid"
  28. #pragma link "cxGridCustomTableView"
  29. #pragma link "cxGridCustomView"
  30. #pragma link "cxGridLevel"
  31. #pragma link "cxGridTableView"
  32. #pragma link "cxLabel"
  33. #pragma link "cxLookAndFeelPainters"
  34. #pragma link "cxLookAndFeels"
  35. #pragma link "cxStyles"
  36. #pragma link "cxTextEdit"
  37. #pragma link "dxSkinBlack"
  38. #pragma link "dxSkinBlue"
  39. #pragma link "dxSkinsCore"
  40. #pragma link "dxSkinscxPCPainter"
  41. #pragma link "dxSkinMcSkin"
  42. #pragma resource "*.dfm"
  43. TIDB0090M *IDB0090M = NULL;
  44. //---------------------------------------------------------------------------
  45. __fastcall TIDB0090M::TIDB0090M(TComponent* Owner)
  46. : TForm(Owner)
  47. {
  48. LangTrans->Translate(this, ITSDb_GetConnection());
  49. ITSSkin_Load(this);
  50. CMM_LoadForm(g_sFormsDir, this);
  51. FTitle = Caption;//"운영자정보관리";
  52. FDbUpdate = false;
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TIDB0090M::CommClose()
  56. {
  57. try
  58. {
  59. if (ItsUserManager)
  60. {
  61. delete ItsUserManager;
  62. ItsUserManager = NULL;
  63. }
  64. CMM_SaveForm(g_sFormsDir, this);
  65. }
  66. catch(...)
  67. {
  68. }
  69. }
  70. //---------------------------------------------------------------------------
  71. void __fastcall TIDB0090M::FormShow(TObject *Sender)
  72. {
  73. Refresh();
  74. FormInit();
  75. TmrShow->Enabled = true;
  76. }
  77. //---------------------------------------------------------------------------
  78. void __fastcall TIDB0090M::FormInit()
  79. {
  80. m_pGDC = TvList->DataController;
  81. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<현재 등록된 운영자 정보가 없습니다>";
  82. if (!ItsUserManager)
  83. {
  84. ItsUserManager = new TItsUserManager();
  85. }
  86. InitColumnProperties();
  87. }
  88. //---------------------------------------------------------------------------
  89. void __fastcall TIDB0090M::InitColumnProperties()
  90. {
  91. FInitCombo1 = "";
  92. FInitCombo2 = "";
  93. String sQry;
  94. TADOQuery *pADO = NULL;
  95. try
  96. {
  97. try
  98. {
  99. pADO = new TADOQuery(NULL);
  100. pADO->Close();
  101. pADO->Connection = ITSDb_GetConnection();
  102. sQry = "SELECT GROP_ID, GROP_NM \r\n"
  103. " FROM TB_USER_GROP_INFR \r\n"
  104. " WHERE DEL_YN = 'N' \r\n"
  105. " ORDER BY GROP_ID \r\n";
  106. pADO->SQL->Clear();
  107. pADO->SQL->Text = sQry;
  108. pADO->Prepared = true;
  109. pADO->Open();
  110. //그룹
  111. TcxComboBoxProperties *pcxColumn12 = (TcxComboBoxProperties *)Column12->Properties;
  112. pcxColumn12->Items->Clear();
  113. for( ; !pADO->Eof; pADO->Next())
  114. {
  115. String sCode = pADO->FieldByName("GROP_ID")->AsString; //코드
  116. String sName = pADO->FieldByName("GROP_NM")->AsString; //코드명
  117. pcxColumn12->Items->Add("[" + sCode + "] " + sName);
  118. if (FInitCombo1 == "")
  119. {
  120. FInitCombo1 = "[" + sCode + "] " + sName;
  121. }
  122. }
  123. //시스템
  124. sQry = "SELECT OPER_SYST_ID, OPER_SYST_NAME \r\n"
  125. " FROM TB_OPERSYST \r\n"
  126. " ORDER BY OPER_SYST_ID \r\n";
  127. pADO->SQL->Clear();
  128. pADO->SQL->Text = sQry;
  129. pADO->Prepared = true;
  130. pADO->Open();
  131. //그룹
  132. TcxComboBoxProperties *pcxColumn13 = (TcxComboBoxProperties *)Column13->Properties;
  133. pcxColumn13->Items->Clear();
  134. for( ; !pADO->Eof; pADO->Next())
  135. {
  136. String sCode = pADO->FieldByName("OPER_SYST_ID")->AsString; //코드
  137. String sName = pADO->FieldByName("OPER_SYST_NAME")->AsString; //코드명
  138. pcxColumn13->Items->Add("[" + sCode + "] " + sName);
  139. if (FInitCombo2 == "")
  140. {
  141. FInitCombo2 = "[" + sCode + "] " + sName;
  142. }
  143. }
  144. }
  145. catch(EDatabaseError &E)
  146. {
  147. ITSDb_GetConnection()->RollbackTrans();
  148. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  149. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  150. throw Exception(String(E.ClassName()) + E.Message);
  151. }
  152. catch(Exception &e)
  153. {
  154. ITSDb_GetConnection()->RollbackTrans();
  155. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  156. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry);
  157. throw Exception(String(e.ClassName()) + e.Message);
  158. }
  159. }
  160. __finally
  161. {
  162. if (pADO)
  163. {
  164. pADO->Close();
  165. delete pADO;
  166. }
  167. }
  168. }
  169. //---------------------------------------------------------------------------
  170. void __fastcall TIDB0090M::TmrShowTimer(TObject *Sender)
  171. {
  172. TmrShow->Enabled = false;
  173. BtnSearchClick((TObject*)BtnSearch);
  174. }
  175. //---------------------------------------------------------------------------
  176. void __fastcall TIDB0090M::BtnSearchClick(TObject *Sender)
  177. {
  178. Application->ProcessMessages();
  179. TSqlCursor sqlCrs((TControl*)BtnSearch);
  180. RefreshData();
  181. CxList->SetFocus();
  182. }
  183. //---------------------------------------------------------------------------
  184. void __fastcall TIDB0090M::RefreshData()
  185. {
  186. ItsUserManager->LoadFromDb();
  187. SelListData();
  188. }
  189. //---------------------------------------------------------------------------
  190. void __fastcall TIDB0090M::SelListData()
  191. {
  192. FUpdate = false;
  193. CMM_ClearGridTableView(TvList);
  194. try
  195. {
  196. TvList->BeginUpdate();
  197. FOR_STL(TItsUser*, pObj, ItsUserManager->FLists)
  198. {
  199. pObj->EditMode = DB_INIT; // 미리초기화해준다.(삭제된것)
  200. pObj->Completed = true;
  201. if (pObj->DEL_YN == "Y" || pObj->MEM_DEL == "Y") continue;
  202. AddObjectItem(pObj, "-");
  203. }
  204. }
  205. __finally
  206. {
  207. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  208. TvList->EndUpdate();
  209. TvList->DataController->GotoFirst();
  210. TvList->DataController->FocusedRecordIndex = 0;
  211. //CxList->SetFocus();
  212. }
  213. }
  214. //---------------------------------------------------------------------------
  215. void __fastcall TIDB0090M::BtnCloseClick(TObject *Sender)
  216. {
  217. Close();
  218. }
  219. //---------------------------------------------------------------------------
  220. void __fastcall TIDB0090M::BtnExlSaveClick(TObject *Sender)
  221. {
  222. TcxGrid *pGrid = CxList;
  223. TcxGridTableView *pView = TvList;
  224. String sTitle= Caption;//"운영자정보";
  225. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  226. }
  227. //---------------------------------------------------------------------------
  228. void __fastcall TIDB0090M::BtnInsertClick(TObject *Sender)
  229. {
  230. int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;
  231. String sId = InputBox(lblInput->Caption,//"운영자 ID",
  232. lblInQry->Caption,//"신규 운영자 ID를 입력하세요.",
  233. lblInput->Caption);//"최대20자리" );
  234. sId = sId.Trim();
  235. if (sId == lblInput->Caption //"운영자 ID"
  236. || sId == "")
  237. {
  238. return;
  239. }
  240. if (AnsiString(sId).Length() > 20)
  241. {
  242. Application->MessageBox(lblDigitErr->Caption.c_str(),//L"운영자 ID는 20Byte를 초과할 수 없습니다.",
  243. FTitle.c_str(),
  244. nMsgType);
  245. return;
  246. }
  247. TItsUser *pDb = (TItsUser *)ItsUserManager->FLists.Find(sId);
  248. if (pDb)
  249. {
  250. String sErr = FrmLang->lbIdErr->Caption + "[" + sId + "]";
  251. Application->MessageBox(sErr.c_str(),//("[" + sId + "]는 사용할 수 없는 운영자 ID 입니다.").c_str(),
  252. FTitle.c_str(), nMsgType);
  253. return;
  254. }
  255. try
  256. {
  257. TvList->BeginUpdate();
  258. TItsUser *pObj = new TItsUser();
  259. if (!pObj)
  260. {
  261. Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 운영자 정보를 생성할 수 없습니다.[메모리오류]",
  262. FTitle.c_str(), nMsgType);
  263. return;
  264. }
  265. //pObj->Clear();
  266. pObj->USER_ID = sId; //VARCHAR2(20) N 사용자ID
  267. pObj->PWD = ""; //VARCHAR2(64) Y 암호
  268. pObj->NAME = ""; //VARCHAR2(30) Y 성명
  269. pObj->COMP = ""; //VARCHAR2(50) Y 회사
  270. pObj->TEL = ""; //VARCHAR2(128) Y 전화번호
  271. pObj->ADDR = ""; //VARCHAR2(200) Y 주소
  272. pObj->RESD_NMBR = ""; //VARCHAR2(14) Y 주민번호
  273. pObj->MOBILE = ""; //VARCHAR2(128) Y 이동전화
  274. pObj->EMAL = ""; //VARCHAR2(128) Y 이메일
  275. pObj->DEL_YN = "N"; //CHAR(1) Y 'N' 삭제 여부
  276. pObj->RGSTYMD = Now().FormatString("YYYYMMDDHHNNSS"); //VARCHAR2(14) Y 등록일자
  277. pObj->CRCTYMD = Now().FormatString("YYYYMMDDHHNNSS"); //VARCHAR2(14) Y 수정일자
  278. pObj->HINT_QUES = ""; //VARCHAR2(7) Y 힌트질문
  279. pObj->HINT_ANS = ""; //VARCHAR2(100) Y 힌트질문답
  280. pObj->GROP_ID = ITSUtil_GetCode(FInitCombo1); //VARCHAR2(30) Y 그룹ID
  281. pObj->OPER_SYST_ID = ITSUtil_GetCode(FInitCombo2); //VARCHAR2(30) Y 운영시스템ID
  282. pObj->GROP_NM = FInitCombo1;
  283. pObj->OPER_SYST_NM = FInitCombo2;
  284. pObj->Completed = false;
  285. pObj->EditMode = DB_NEW;
  286. pObj->MEM_DEL = "N";
  287. ItsUserManager->FLists.Push(pObj->USER_ID, pObj);
  288. AddObjectItem(pObj, FrmLang->lblNew->Caption);//"신규");
  289. }
  290. __finally
  291. {
  292. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  293. TvList->EndUpdate();
  294. TvList->DataController->GotoFirst();
  295. TvList->DataController->FocusedRecordIndex = 0;
  296. }
  297. }
  298. //---------------------------------------------------------------------------
  299. void __fastcall TIDB0090M::BtnDeleteClick(TObject *Sender)
  300. {
  301. int nIdx = m_pGDC->FocusedRecordIndex;
  302. if (nIdx < 0) return;
  303. int nMemPtr = m_pGDC->Values[nIdx][Column99->Index];
  304. TItsUser *pObj = (TItsUser*)nMemPtr;
  305. pObj->EditMode = DB_DELETE;
  306. m_pGDC->Values[nIdx][Column00->Index] = FrmLang->lblDelete->Caption;//"삭제";
  307. }
  308. //---------------------------------------------------------------------------
  309. void __fastcall TIDB0090M::FormClose(TObject *Sender, TCloseAction &Action)
  310. {
  311. CommClose();
  312. IDB0090M = NULL;
  313. Action = caFree;
  314. }
  315. //---------------------------------------------------------------------------
  316. void __fastcall TIDB0090M::BtnEditClick(TObject *Sender)
  317. {
  318. TListFocus tvFocus(TvList);
  319. if (BtnEdit->Caption == FrmLang->lblCancel->Caption)//"취소")
  320. {
  321. CxList->SetFocus();
  322. Application->ProcessMessages();
  323. SaveData();
  324. }
  325. FrmLang->ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply);
  326. ChangeEditMode(BtnEdit->Down);
  327. RefreshData();
  328. }
  329. //---------------------------------------------------------------------------
  330. void __fastcall TIDB0090M::ChangeEditMode(bool AEdit)
  331. {
  332. bool bEditing = AEdit;
  333. try
  334. {
  335. TvList->BeginUpdate();
  336. Column00->Visible = bEditing;
  337. Column02->Options->Editing = bEditing;
  338. Column03->Options->Editing = bEditing;
  339. Column04->Options->Editing = bEditing;
  340. Column05->Options->Editing = bEditing;
  341. Column06->Options->Editing = bEditing;
  342. Column07->Options->Editing = bEditing;
  343. Column08->Options->Editing = bEditing;
  344. Column09->Options->Editing = bEditing;
  345. Column10->Options->Editing = bEditing;
  346. Column11->Options->Editing = bEditing;
  347. Column12->Options->Editing = bEditing;
  348. Column13->Options->Editing = bEditing;
  349. }
  350. __finally
  351. {
  352. TvList->EndUpdate();
  353. if (bEditing)
  354. {
  355. BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
  356. BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소";
  357. }
  358. else
  359. {
  360. BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
  361. BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집";
  362. }
  363. }
  364. }
  365. //---------------------------------------------------------------------------
  366. void __fastcall TIDB0090M::TvListColumnPropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText, bool &Error)
  367. {
  368. if (TvList->Controller->FocusedRow->IsFilterRow) return;
  369. int nRow = m_pGDC->FocusedRecordIndex;
  370. if (nRow < 0) return;
  371. int nMemPtr = TvList->DataController->Values[nRow][Column99->Index];
  372. TItsUser *pObj = (TItsUser*)nMemPtr;
  373. if (pObj->Completed == false)
  374. {
  375. //신규이거나 삭제인 경우 편집 내용에 따른 변화가 필요없다.
  376. return;
  377. }
  378. String PWD_TMP = "";
  379. String PWD_ORG = VarToStr(m_pGDC->Values[nRow][Column16->Index]);
  380. String PWD = VarToStr(m_pGDC->Values[nRow][Column02->Index]);
  381. PWD_TMP = PWD_ORG;
  382. String NAME = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
  383. String COMP = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
  384. String TEL = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
  385. String ADDR = VarToStr(m_pGDC->Values[nRow][Column06->Index]);
  386. String RESD_NMBR = "";//VarToStr(m_pGDC->Values[nRow][Column07->Index]);
  387. String MOBILE = VarToStr(m_pGDC->Values[nRow][Column08->Index]);
  388. String EMAL = VarToStr(m_pGDC->Values[nRow][Column09->Index]);
  389. String HINT_QUES = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
  390. String HINT_ANS = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
  391. String GROP_ID = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
  392. String OPER_SYST_ID = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
  393. TcxGridColumn *pColumn = TvList->Controller->FocusedColumn;
  394. if (pColumn == Column02)
  395. {
  396. PWD = DisplayValue;
  397. PWD_TMP = String(ITSSHA256_Encrpyt(PWD));
  398. }
  399. else if (pColumn == Column03) NAME = DisplayValue;
  400. else if (pColumn == Column04) COMP = DisplayValue;
  401. else if (pColumn == Column05) TEL = DisplayValue;
  402. else if (pColumn == Column06) ADDR = DisplayValue;
  403. //else if (pColumn == Column07) RESD_NMBR = DisplayValue;
  404. else if (pColumn == Column08) MOBILE = DisplayValue;
  405. else if (pColumn == Column09) EMAL = DisplayValue;
  406. else if (pColumn == Column10) HINT_QUES = DisplayValue;
  407. else if (pColumn == Column11) HINT_ANS = DisplayValue;
  408. else if (pColumn == Column12) GROP_ID = DisplayValue;
  409. else if (pColumn == Column13) OPER_SYST_ID = DisplayValue;
  410. GROP_ID = ITSUtil_GetCode(GROP_ID);
  411. OPER_SYST_ID = ITSUtil_GetCode(OPER_SYST_ID);
  412. if (PWD_ORG != PWD_TMP ||
  413. pObj->NAME != NAME ||
  414. pObj->COMP != COMP ||
  415. pObj->TEL != TEL ||
  416. pObj->ADDR != ADDR ||
  417. //pObj->RESD_NMBR != RESD_NMBR ||
  418. pObj->MOBILE != MOBILE ||
  419. pObj->EMAL != EMAL ||
  420. pObj->HINT_QUES != HINT_QUES ||
  421. pObj->HINT_ANS != HINT_ANS ||
  422. pObj->GROP_ID != GROP_ID ||
  423. pObj->OPER_SYST_ID != OPER_SYST_ID )
  424. {
  425. m_pGDC->Values[nRow][Column00->Index] = FrmLang->lblModify->Caption;//"수정";
  426. pObj->EditMode = DB_UPDATE;
  427. }
  428. else
  429. {
  430. TvList->DataController->Values[nRow][Column00->Index] = "-";
  431. pObj->EditMode = DB_INIT;
  432. }
  433. }
  434. //---------------------------------------------------------------------------
  435. void __fastcall TIDB0090M::BtnBestFitClick(TObject *Sender)
  436. {
  437. try
  438. {
  439. TvList->BeginUpdate();
  440. TvList->ApplyBestFit(NULL, false, false);
  441. }
  442. __finally
  443. {
  444. TvList->EndUpdate();
  445. }
  446. }
  447. //---------------------------------------------------------------------------
  448. void __fastcall TIDB0090M::ChkAutoWidthPropertiesChange(TObject *Sender)
  449. {
  450. try
  451. {
  452. TvList->BeginUpdate();
  453. TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
  454. BtnBestFit->Visible = !ChkAutoWidth->Checked;
  455. }
  456. __finally
  457. {
  458. TvList->EndUpdate();
  459. }
  460. }
  461. //---------------------------------------------------------------------------
  462. void __fastcall TIDB0090M::MnuDeleteCancelClick(TObject *Sender)
  463. {
  464. //
  465. }
  466. //---------------------------------------------------------------------------
  467. void __fastcall TIDB0090M::BtnApplyClick(TObject *Sender)
  468. {
  469. FUpdate = true;
  470. BtnEdit->Down = false;
  471. BtnEdit->Click();
  472. }
  473. //---------------------------------------------------------------------------
  474. bool __fastcall TIDB0090M::AddObjectItem(TItsUser *pObj, String AMode)
  475. {
  476. int nRow;
  477. try
  478. {
  479. nRow = m_pGDC->AppendRecord();
  480. pObj->GridIndex = nRow;
  481. m_pGDC->Values[nRow][Column00->Index] = AMode;
  482. m_pGDC->Values[nRow][Column01->Index] = pObj->USER_ID;
  483. m_pGDC->Values[nRow][Column02->Index] = ""; //pObj->PWD;
  484. m_pGDC->Values[nRow][Column16->Index] = pObj->PWD;
  485. m_pGDC->Values[nRow][Column03->Index] = pObj->NAME;
  486. m_pGDC->Values[nRow][Column04->Index] = pObj->COMP;
  487. m_pGDC->Values[nRow][Column05->Index] = pObj->TEL;
  488. m_pGDC->Values[nRow][Column06->Index] = pObj->ADDR;
  489. m_pGDC->Values[nRow][Column07->Index] = pObj->RESD_NMBR;
  490. m_pGDC->Values[nRow][Column08->Index] = pObj->MOBILE;
  491. m_pGDC->Values[nRow][Column09->Index] = pObj->EMAL;
  492. m_pGDC->Values[nRow][Column10->Index] = pObj->HINT_QUES;
  493. m_pGDC->Values[nRow][Column11->Index] = pObj->HINT_ANS;
  494. m_pGDC->Values[nRow][Column12->Index] = pObj->GROP_NM;
  495. m_pGDC->Values[nRow][Column13->Index] = pObj->OPER_SYST_NM;
  496. if (!pObj->RGSTYMD.IsEmpty())
  497. m_pGDC->Values[nRow][Column14->Index] = ITSUtil_StrToTime(pObj->RGSTYMD);
  498. if (!pObj->CRCTYMD.IsEmpty())
  499. m_pGDC->Values[nRow][Column15->Index] = ITSUtil_StrToTime(pObj->CRCTYMD);
  500. m_pGDC->Values[nRow][Column88->Index] = pObj->DEL_YN;
  501. m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
  502. return true;
  503. }
  504. catch(...)
  505. {
  506. }
  507. return false;
  508. }
  509. //---------------------------------------------------------------------------
  510. bool __fastcall TIDB0090M::IsUpdate()
  511. {
  512. FOR_STL(TItsUser*, pObj, ItsUserManager->FLists)
  513. {
  514. if (pObj->Completed && pObj->EditMode != DB_INIT)
  515. return true;
  516. if (!pObj->Completed && pObj->EditMode == DB_NEW)
  517. return true;
  518. }
  519. return false;
  520. }
  521. //---------------------------------------------------------------------------
  522. void __fastcall TIDB0090M::SaveData()
  523. {
  524. if (!IsUpdate()) return;
  525. if (!FUpdate)
  526. {
  527. if (Application->MessageBox(FrmLang->lblEidtConfirm->Caption.c_str(),//L"변경된 정보가 있습니다.\r\n변경된 정보를 저장 하시겠습니까?",
  528. FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  529. }
  530. TADOQuery *pADOI = NULL;
  531. TADOQuery *pADOU = NULL;
  532. TADOQuery *pADOD = NULL;
  533. String sQryI;
  534. String sQryU;
  535. String sQryD;
  536. int nEditMode;
  537. try
  538. {
  539. sQryI = "INSERT INTO TB_USER_INFR ( \r\n"
  540. " USER_ID, PWD, NAME, COMP, TEL, ADDR, \r\n"
  541. " MOBILE, EMAL, \r\n"
  542. " DEL_YN, \r\n"
  543. " RGSTYMD, \r\n"
  544. " CRCTYMD, \r\n"
  545. " HINT_QUES, HINT_ANS, GROP_ID, OPER_SYST_ID) \r\n"
  546. " VALUES ( \r\n"
  547. " :p01, :p02, :p03, :p04, :p05, :p06, \r\n"
  548. " :p08, :p09, \r\n"
  549. " 'N', \r\n"
  550. " TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
  551. " TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
  552. " :p13, :p14, :p15, :p16 ) \r\n";
  553. sQryU = "UPDATE TB_USER_INFR \r\n"
  554. " SET PWD = :p02, \r\n"
  555. " NAME = :p03, \r\n"
  556. " COMP = :p04, \r\n"
  557. " TEL = :p05, \r\n"
  558. " ADDR = :p06, \r\n"
  559. " MOBILE = :p08, \r\n"
  560. " EMAL = :p09, \r\n"
  561. " CRCTYMD = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
  562. " HINT_QUES = :p13, \r\n"
  563. " HINT_ANS = :p14, \r\n"
  564. " GROP_ID = :p15, \r\n"
  565. " OPER_SYST_ID = :p16 \r\n"
  566. " WHERE USER_ID = :p01 \r\n";
  567. sQryD = "UPDATE TB_USER_INFR \r\n"
  568. " SET CRCTYMD = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n"
  569. " DEL_YN = 'Y' \r\n"
  570. " WHERE USER_ID = :p01 \r\n";
  571. int nRow;
  572. TvList->BeginUpdate();
  573. try
  574. {
  575. pADOI = new TADOQuery(NULL);
  576. pADOI->Close();
  577. pADOI->Connection = ITSDb_GetConnection();
  578. pADOU = new TADOQuery(NULL);
  579. pADOU->Close();
  580. pADOU->Connection = ITSDb_GetConnection();
  581. pADOD = new TADOQuery(NULL);
  582. pADOD->Close();
  583. pADOD->Connection = ITSDb_GetConnection();
  584. ITSDb_SQLText(pADOI, sQryI);
  585. ITSDb_SQLText(pADOU, sQryU);
  586. ITSDb_SQLText(pADOD, sQryD);
  587. ITSDb_GetConnection()->BeginTrans();
  588. FOR_STL(TItsUser*, pObj, ItsUserManager->FLists)
  589. {
  590. if (pObj->GridIndex < 0) continue;
  591. if (pObj->Completed && pObj->EditMode == DB_INIT)
  592. continue;
  593. if (!pObj->Completed && pObj->EditMode != DB_NEW)
  594. continue;
  595. nRow = pObj->GridIndex;
  596. String PWD_ORG = VarToStr(m_pGDC->Values[nRow][Column16->Index]);
  597. String PWD = VarToStr(m_pGDC->Values[nRow][Column02->Index]);
  598. if (PWD != "" || PWD != PWD_ORG)
  599. {
  600. PWD = GetPassword(PWD);
  601. }
  602. else
  603. {
  604. PWD = PWD_ORG;
  605. }
  606. String NAME = VarToStr(m_pGDC->Values[nRow][Column03->Index]);
  607. String COMP = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
  608. String TEL = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
  609. String ADDR = VarToStr(m_pGDC->Values[nRow][Column06->Index]);
  610. String RESD_NMBR = "";//VarToStr(m_pGDC->Values[nRow][Column07->Index]);
  611. String MOBILE = VarToStr(m_pGDC->Values[nRow][Column08->Index]);
  612. String EMAL = VarToStr(m_pGDC->Values[nRow][Column09->Index]);
  613. String HINT_QUES = VarToStr(m_pGDC->Values[nRow][Column10->Index]);
  614. String HINT_ANS = VarToStr(m_pGDC->Values[nRow][Column11->Index]);
  615. String GROP_ID = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
  616. String OPER_SYST_ID = VarToStr(m_pGDC->Values[nRow][Column13->Index]);
  617. GROP_ID = ITSUtil_GetCode(GROP_ID);
  618. OPER_SYST_ID = ITSUtil_GetCode(OPER_SYST_ID);
  619. //pObj->USER_ID = pObj->USER_ID;
  620. pObj->PWD = PWD;
  621. pObj->NAME = NAME;
  622. pObj->COMP = COMP;
  623. pObj->TEL = TEL;
  624. pObj->ADDR = ADDR;
  625. pObj->RESD_NMBR = RESD_NMBR;
  626. pObj->MOBILE = MOBILE;
  627. pObj->EMAL = EMAL;
  628. //pObj->DEL_YN = pObj->DEL_YN; //CHAR(1) Y 'N' 삭제 여부
  629. pObj->RGSTYMD = Now().FormatString("YYYYMMDDHHNNSS");
  630. pObj->CRCTYMD = Now().FormatString("YYYYMMDDHHNNSS");
  631. pObj->HINT_QUES = HINT_QUES;
  632. pObj->HINT_ANS = HINT_ANS;
  633. pObj->GROP_ID = GROP_ID;
  634. pObj->OPER_SYST_ID = OPER_SYST_ID;
  635. nEditMode = pObj->EditMode;
  636. if (pObj->Completed)
  637. {
  638. if (pObj->EditMode == DB_DELETE)
  639. {
  640. //delete
  641. ITSDb_SQLBind(pADOD, "p01", pObj->USER_ID);
  642. ITSDb_SQLExec(pADOD);
  643. pObj->DEL_YN = "Y";
  644. pObj->MEM_DEL = "Y";
  645. }
  646. else
  647. if (pObj->EditMode == DB_UPDATE)
  648. {
  649. ITSDb_SQLBind(pADOU, "p01", pObj->USER_ID);
  650. ITSDb_SQLBind(pADOU, "p02", pObj->PWD);
  651. ITSDb_SQLBind(pADOU, "p03", pObj->NAME);
  652. ITSDb_SQLBind(pADOU, "p04", pObj->COMP);
  653. ITSDb_SQLBind(pADOU, "p05", pObj->TEL);
  654. ITSDb_SQLBind(pADOU, "p06", pObj->ADDR);
  655. //ITSDb_SQLBind(pADOU, "p07", pObj->RESD_NMBR);
  656. ITSDb_SQLBind(pADOU, "p08", pObj->MOBILE);
  657. ITSDb_SQLBind(pADOU, "p09", pObj->EMAL);
  658. //ITSDb_SQLBind(pADOU, "p10", pObj->DEL_YN);
  659. //ITSDb_SQLBind(pADOU, "p11", pObj->RGSTYMD);
  660. //ITSDb_SQLBind(pADOU, "p12", pObj->CRCTYMD);
  661. ITSDb_SQLBind(pADOU, "p13", pObj->HINT_QUES);
  662. ITSDb_SQLBind(pADOU, "p14", pObj->HINT_ANS);
  663. ITSDb_SQLBind(pADOU, "p15", pObj->GROP_ID);
  664. ITSDb_SQLBind(pADOU, "p16", pObj->OPER_SYST_ID);
  665. ITSDb_SQLExec(pADOU);
  666. pObj->DEL_YN = "N";
  667. pObj->MEM_DEL = "N";
  668. }
  669. }
  670. else
  671. {
  672. if (pObj->EditMode == DB_NEW)
  673. {
  674. ITSDb_SQLBind(pADOI, "p01", pObj->USER_ID);
  675. ITSDb_SQLBind(pADOI, "p02", pObj->PWD);
  676. ITSDb_SQLBind(pADOI, "p03", pObj->NAME);
  677. ITSDb_SQLBind(pADOI, "p04", pObj->COMP);
  678. ITSDb_SQLBind(pADOI, "p05", pObj->TEL);
  679. ITSDb_SQLBind(pADOI, "p06", pObj->ADDR);
  680. //ITSDb_SQLBind(pADOI, "p07", pObj->RESD_NMBR);
  681. ITSDb_SQLBind(pADOI, "p08", pObj->MOBILE);
  682. ITSDb_SQLBind(pADOI, "p09", pObj->EMAL);
  683. //ITSDb_SQLBind(pADOI, "p10", pObj->DEL_YN);
  684. //ITSDb_SQLBind(pADOI, "p11", pObj->RGSTYMD);
  685. //ITSDb_SQLBind(pADOI, "p12", pObj->CRCTYMD);
  686. ITSDb_SQLBind(pADOI, "p13", pObj->HINT_QUES);
  687. ITSDb_SQLBind(pADOI, "p14", pObj->HINT_ANS);
  688. ITSDb_SQLBind(pADOI, "p15", pObj->GROP_ID);
  689. ITSDb_SQLBind(pADOI, "p16", pObj->OPER_SYST_ID);
  690. ITSDb_SQLExec(pADOI);
  691. pObj->DEL_YN = "N";
  692. pObj->MEM_DEL = "N";
  693. }
  694. }
  695. pObj->Completed = true;
  696. }
  697. ITSDb_GetConnection()->CommitTrans();
  698. Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"운영자정보를 저장 하였습니다.",
  699. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  700. FDbUpdate = true;
  701. }
  702. catch(EDatabaseError &E)
  703. {
  704. ITSDb_GetConnection()->RollbackTrans();
  705. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  706. if (nEditMode == DB_DELETE)
  707. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryD);
  708. else
  709. if (nEditMode == DB_UPDATE)
  710. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryU);
  711. else
  712. if (nEditMode == DB_NEW)
  713. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryI);
  714. throw Exception(String(E.ClassName()) + E.Message);
  715. }
  716. catch(Exception &e)
  717. {
  718. ITSDb_GetConnection()->RollbackTrans();
  719. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  720. if (nEditMode == DB_DELETE)
  721. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryD);
  722. else
  723. if (nEditMode == DB_UPDATE)
  724. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryU);
  725. else
  726. if (nEditMode == DB_NEW)
  727. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryI);
  728. throw Exception(String(e.ClassName()) + e.Message);
  729. }
  730. }
  731. __finally
  732. {
  733. if (pADOI)
  734. {
  735. pADOI->Close();
  736. delete pADOI;
  737. }
  738. if (pADOU)
  739. {
  740. pADOU->Close();
  741. delete pADOU;
  742. }
  743. if (pADOD)
  744. {
  745. pADOD->Close();
  746. delete pADOD;
  747. }
  748. TvList->EndUpdate();
  749. }
  750. }
  751. //---------------------------------------------------------------------------
  752. String __fastcall TIDB0090M::GetPassword(String APswd)
  753. {
  754. int nRes;
  755. String sEncPswd = "";
  756. String sQry;
  757. #if 1
  758. sQry = "SELECT SCP.HASH_B64('71', :p01) AS PWD FROM DUAL \r\n";
  759. TADOQuery *pADO = NULL;
  760. try
  761. {
  762. try
  763. {
  764. pADO = new TADOQuery(NULL);
  765. pADO->Connection = ITSDb_GetConnection();
  766. pADO->Close();
  767. pADO->SQL->Text = sQry;
  768. pADO->Parameters->ParamByName("p01")->Value = APswd;
  769. pADO->Prepared = true;
  770. pADO->Open();
  771. if (!pADO->Eof)
  772. {
  773. pADO->First();
  774. sEncPswd = pADO->FieldByName("PWD")->AsString;
  775. }
  776. pADO->Close();
  777. }
  778. catch(EDatabaseError &E)
  779. {
  780. throw Exception(String(E.ClassName())+E.Message);
  781. }
  782. catch (Exception &exception)
  783. {
  784. throw Exception(String(exception.ClassName())+exception.Message);
  785. }
  786. }
  787. __finally
  788. {
  789. if (pADO)
  790. {
  791. pADO->Close();
  792. delete pADO;
  793. }
  794. }
  795. #else
  796. sEncPswd = String(ITSSHA256_Encrpyt(AnsiString(APswd)));
  797. #endif
  798. return sEncPswd;
  799. }
  800. //---------------------------------------------------------------------------
  801. void __fastcall TIDB0090M::FormCloseQuery(TObject *Sender, bool &CanClose)
  802. {
  803. SaveData();
  804. }
  805. //---------------------------------------------------------------------------
  806. void __fastcall TIDB0090M::TvListKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
  807. {
  808. if (Key == VK_DELETE)
  809. {
  810. if (BtnDelete->Enabled) BtnDeleteClick(Sender);
  811. }
  812. }
  813. //---------------------------------------------------------------------------
  814. void __fastcall TIDB0090M::TvListDataControllerFilterChanged(TObject *Sender)
  815. {
  816. CMM_SetFilterLike(TvList);
  817. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  818. }
  819. //---------------------------------------------------------------------------
  820. void __fastcall TIDB0090M::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
  821. bool &ADone)
  822. {
  823. if (AViewInfo)
  824. {
  825. String sType = AViewInfo->GridRecord->DisplayTexts[Column00->Index];
  826. if (sType == FrmLang->lblModify->Caption)//"수정")
  827. {
  828. ACanvas->Brush->Color = clOlive;
  829. }
  830. else if (sType == FrmLang->lblDelete->Caption)//"삭제")
  831. {
  832. ACanvas->Brush->Color = clRed;
  833. }
  834. else if (sType == FrmLang->lblNew->Caption)//"신규")
  835. {
  836. ACanvas->Brush->Color = clLime;
  837. if (AViewInfo->Focused) ACanvas->Font->Color = clBlack;
  838. }
  839. }
  840. }
  841. //---------------------------------------------------------------------------