IDB0140MF.cpp 36 KB

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