12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "ITSDbF.h"
- #include "AppGlobalF.h"
- #include "ITSLangTransF.h"
- #pragma hdrstop
- #include "IDB0080MF.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 "cxGroupBox"
- #pragma link "cxLookAndFeelPainters"
- #pragma link "cxLookAndFeels"
- #pragma link "cxMaskEdit"
- #pragma link "cxSplitter"
- #pragma link "cxStyles"
- #pragma link "cxTextEdit"
- #pragma link "dxSkinBlack"
- #pragma link "dxSkinBlue"
- #pragma link "dxSkinsCore"
- #pragma link "dxSkinscxPCPainter"
- #pragma link "cxLabel"
- #pragma resource "*.dfm"
- TIDB0080M *IDB0080M = NULL;
- //---------------------------------------------------------------------------
- __fastcall TIDB0080M::TIDB0080M(TComponent* Owner)
- : TForm(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- ITSSkin_Load(this);
- CMM_LoadForm(g_sFormsDir, this);
- m_enJob1 = enJobNone;
- m_enJob2 = enJobNone;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::CommClose()
- {
- try
- {
- CMM_SaveForm(g_sFormsDir, this);
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::FormShow(TObject *Sender)
- {
- Refresh();
- FormInit();
- TmrShow->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::FormInit()
- {
- m_pGDC1 = TvList1->DataController;
- m_pGDC2 = TvList2->DataController;
- TvList1->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<대표코드 정보가 없습니다>";
- TvList2->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<세부코드 정보가 없습니다>";
- EdId1->Enabled = false;
- EdId2->Enabled = false;
- FormClear1();
- FormClear2();
- ChangeButtonType1(1);
- ChangeButtonType2(1);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::TmrShowTimer(TObject *Sender)
- {
- TmrShow->Enabled = false;
- BtnSearchClick((TObject*)BtnSearch);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnSearchClick(TObject *Sender)
- {
- Application->ProcessMessages();
- TSqlCursor sqlCrs((TControl*)BtnSearch);
- FormClear1();
- FormClear2();
- RefreshData();
- CxList1->SetFocus();
- ChangeButtonType1(1);
- ChangeButtonType2(1);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::RefreshData()
- {
- SelListData1();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::FormClear1()
- {
- m_enJob1 = enJobNone;
- EdId1->Clear();
- EdMsgCd->Clear();
- EdKName1->Clear();
- EdEName1->Clear();
- EdRemark1->Clear();
- EdSysCd->Clear();
- CbUseYn1->ItemIndex = 0;
- EdCmmnClsfCd->Clear();
- EdCmmnClsfCdNm->Clear();
-
- FCode = NULL;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::FormClear2()
- {
- m_enJob2 = enJobNone;
- EdId2->Clear();
- EdCdAbbr->Clear();
- EdKName2->Clear();
- EdEName2->Clear();
- EdRemark2->Clear();
- EdAtrb1->Clear();
- EdAtrb2->Clear();
- CbUseYn2->ItemIndex = 0;
-
- FSubCode = NULL;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::ChangeButtonType1(int nBtnType)
- {
- if (nBtnType == 1)
- {
- BtnSave1->Visible = false;
- BtnCancel1->Visible = false;
- BtnInsert1->Visible = true;
- if (TvList1->ViewData->RecordCount > 0)
- {
- BtnEdit1->Visible = true;
- BtnDelete1->Visible = true;
- }
- else
- {
- BtnEdit1->Visible = false;
- BtnDelete1->Visible = false;
- }
- BtnSearch->Enabled = true;
- CxList1->Enabled = true;
- cxGroupBox1->Enabled = false;
- }
- else
- {
- BtnSave1->Visible = true;
- BtnCancel1->Visible = true;
- BtnInsert1->Visible = false;
- BtnEdit1->Visible = false;
- BtnDelete1->Visible = false;
- BtnSearch->Enabled = false;
- CxList1->Enabled = false;
- cxGroupBox1->Enabled = true;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::ChangeButtonType2(int nBtnType)
- {
- if (nBtnType == 1)
- {
- BtnSave2->Visible = false;
- BtnCancel2->Visible = false;
- BtnInsert2->Visible = true;
- if (TvList2->ViewData->RecordCount > 0)
- {
- BtnEdit2->Visible = true;
- BtnDelete2->Visible = true;
- }
- else
- {
- BtnEdit2->Visible = false;
- BtnDelete2->Visible = false;
- }
- CxList2->Enabled = true;
- cxGroupBox2->Enabled = false;
- }
- else
- {
- BtnSave2->Visible = true;
- BtnCancel2->Visible = true;
- BtnInsert2->Visible = false;
- BtnEdit2->Visible = false;
- BtnDelete2->Visible = false;
- CxList2->Enabled = false;
- CxList2->Enabled = false;
- cxGroupBox2->Enabled = true;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::SelListData1()
- {
- CMM_ClearGridTableView(TvList1);
- CMM_ClearGridTableView(TvList2);
- int nRow = 0;
- try
- {
- TvList1->BeginUpdate();
- FOR_STL(TItsCode *, pCode, ItsCodeManager->FLists)
- {
- nRow = m_pGDC1->AppendRecord();
- m_pGDC1->Values[nRow][MColumn01->Index] = "-"; //편집모드
- m_pGDC1->Values[nRow][MColumn02->Index] = pCode->CMMN_CLSF_CD; //공통 분류 코드
- m_pGDC1->Values[nRow][MColumn03->Index] = pCode->MSG_TYPE_CD; //메시지 유형 코드
- m_pGDC1->Values[nRow][MColumn04->Index] = pCode->CMMN_CLSF_KOR_NM; //공통 분류 한글 명
- m_pGDC1->Values[nRow][MColumn05->Index] = pCode->CMMN_CLSF_ENGL_NM; //공통 분류 영문 명
- m_pGDC1->Values[nRow][MColumn06->Index] = pCode->USE_SYST_CD; //사용 시스템 코드
- m_pGDC1->Values[nRow][MColumn07->Index] = pCode->RMRK; //비고
- m_pGDC1->Values[nRow][MColumn08->Index] = pCode->USE_YN; //사용 여부
- m_pGDC1->Values[nRow][MColumn98->Index] = (int)pCode;
- }
- }
- __finally
- {
- TvList1->EndUpdate();
- TvList1->DataController->GotoFirst();
- TvList1->DataController->FocusedRecordIndex = 0;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::SelListData2()
- {
- CMM_ClearGridTableView(TvList2);
- if (TvList1->ViewData->RecordCount <= 0) return;
- int nIndex = m_pGDC1->FocusedRecordIndex;
- if (nIndex < 0) return;
- int nMemPtr = m_pGDC1->Values[nIndex][MColumn98->Index];
- if (nMemPtr == 0) return;
- TItsCode *pCode = (TItsCode *)nMemPtr;
- int nRow = 0;
- try
- {
- TvList2->BeginUpdate();
- FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
- {
- nRow = m_pGDC2->AppendRecord();
- m_pGDC2->Values[nRow][SColumn01->Index] = "-"; //편집모드
- m_pGDC2->Values[nRow][SColumn02->Index] = pSubCode->CMMN_CD;
- m_pGDC2->Values[nRow][SColumn03->Index] = pSubCode->CMMN_CD_KOR_NM;
- m_pGDC2->Values[nRow][SColumn04->Index] = pSubCode->CMMN_CD_ENGL_NM;
- m_pGDC2->Values[nRow][SColumn05->Index] = pSubCode->CMMN_CD_ABBR;
- m_pGDC2->Values[nRow][SColumn06->Index] = pSubCode->RMRK;
- m_pGDC2->Values[nRow][SColumn07->Index] = pSubCode->ATRB1;
- m_pGDC2->Values[nRow][SColumn08->Index] = pSubCode->ATRB2;
- m_pGDC2->Values[nRow][SColumn09->Index] = pSubCode->USE_YN;
- m_pGDC2->Values[nRow][SColumn98->Index] = (int)pSubCode;
- }
- }
- __finally
- {
- TvList2->EndUpdate();
- TvList2->DataController->GotoFirst();
- TvList2->DataController->FocusedRecordIndex = 0;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnCloseClick(TObject *Sender)
- {
- Close();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnSaveClick(TObject *Sender)
- {
- bool bMemDel = true;
- String sMsgTitle, sMsgString;
- TcxButton *pBtn = (TcxButton*)Sender;
- if (pBtn->Tag == 0)
- {
- TItsCode *pCode = new TItsCode();
- try
- {
- pCode->CMMN_CLSF_CD = EdId1->Text.Trim();
- pCode->MSG_TYPE_CD = EdMsgCd->Text.Trim();
- pCode->CMMN_CLSF_KOR_NM = EdKName1->Text.Trim();
- pCode->CMMN_CLSF_ENGL_NM = EdEName1->Text.Trim();
- pCode->USE_SYST_CD = EdSysCd->Text.Trim();
- pCode->RMRK = EdRemark1->Text.Trim();
- pCode->USE_YN = (CbUseYn1->ItemIndex == 0) ? "Y" : "N";
-
- if (m_enJob1 == enJobSave) sMsgTitle = cxLabel1->Caption;//"대표코드 정보 등록";
- else sMsgTitle = cxLabel2->Caption;//"대표코드 정보 수정";
- if (MergeCmmnClsfCd(pCode))
- {
- if (m_enJob1 == enJobSave)
- {
- ItsCodeManager->FLists.Push(pCode->CMMN_CLSF_CD, pCode);
- pCode->Completed = true;
- bMemDel = false;
- }
- else
- {
- //FCode->FCMMN_CLSF_CD = EdId1->Text.Trim();
- FCode->MSG_TYPE_CD = EdMsgCd->Text.Trim();
- FCode->CMMN_CLSF_KOR_NM = EdKName1->Text.Trim();
- FCode->CMMN_CLSF_ENGL_NM = EdEName1->Text.Trim();
- FCode->USE_SYST_CD = EdSysCd->Text.Trim();
- FCode->RMRK = EdRemark1->Text.Trim();
- FCode->USE_YN = (CbUseYn1->ItemIndex == 0) ? "Y" : "N";
- }
- RefreshData();
- CMM_SetGridFocusRow(CxList1, TvList1, pCode->CMMN_CLSF_CD, MColumn02->Index);
- DisplayListData1();
- ChangeButtonType1(1);
- Application->MessageBox(sMsgTitle.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- }
- }
- __finally
- {
- if (bMemDel)
- {
- if (pCode) delete pCode;
- }
- }
- }
- else
- if (pBtn->Tag == 1)
- {
- TItsSubCode *pSubCode = new TItsSubCode();
-
- try
- {
- pSubCode->CMMN_CD = EdId2->Text.Trim();
- pSubCode->CMMN_CLSF_CD = FCode->CMMN_CLSF_CD;
- pSubCode->CMMN_CD_KOR_NM = EdKName2->Text.Trim();
- pSubCode->CMMN_CD_ENGL_NM = EdEName2->Text.Trim();
- pSubCode->CMMN_CD_ABBR = EdCdAbbr->Text.Trim();
- pSubCode->RMRK = EdRemark2->Text.Trim();
- pSubCode->ATRB1 = EdAtrb1->Text.Trim();
- pSubCode->ATRB2 = EdAtrb2->Text.Trim();
- pSubCode->USE_YN = (CbUseYn2->ItemIndex == 0) ? "Y" : "N";
- if (m_enJob2 == enJobSave) sMsgTitle = cxLabel3->Caption;//"세부코드 정보 등록";
- else sMsgTitle = cxLabel4->Caption;//"세부코드 정보 수정";
- if (MergeCmmnCd(pSubCode))
- {
- if (m_enJob2 == enJobSave)
- {
- FCode->FSubLists.Push(pSubCode->CMMN_CD, pSubCode);
- pSubCode->Completed = true;
- bMemDel = false;
- }
- else
- {
- //FSubCode->CMMN_CD = EdId2->Text.Trim();
- //FSubCode->CMMN_CLSF_CD = FCode->CMMN_CLSF_CD;
- FSubCode->CMMN_CD_KOR_NM = EdKName2->Text.Trim();
- FSubCode->CMMN_CD_ENGL_NM = EdEName2->Text.Trim();
- FSubCode->CMMN_CD_ABBR = EdCdAbbr->Text.Trim();
- FSubCode->RMRK = EdRemark2->Text.Trim();
- FSubCode->ATRB1 = EdAtrb1->Text.Trim();
- FSubCode->ATRB2 = EdAtrb2->Text.Trim();
- FSubCode->USE_YN = (CbUseYn2->ItemIndex == 0) ? "Y" : "N";
- }
- SelListData2();
- CMM_SetGridFocusRow(CxList2, TvList2, pSubCode->CMMN_CD, SColumn02->Index);
- DisplayListData2();
- ChangeButtonType2(1);
- Application->MessageBox(sMsgTitle.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- }
- }
- __finally
- {
- if (bMemDel)
- {
- if (pSubCode) delete pSubCode;
- }
- }
- }
- }
- //---------------------------------------------------------------------------
- bool __fastcall TIDB0080M::MergeCmmnClsfCd(TItsCode *pCode)
- {
- bool bResult = false;
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "MERGE INTO TB_CMMN_CLSF_CD L \r\n"
- "USING (SELECT :p01 AS CMMN_CLSF_CD, \r\n"
- " :p02 AS MSG_TYPE_CD, \r\n"
- " :p03 AS CMMN_CLSF_KOR_NM, \r\n"
- " :p04 AS CMMN_CLSF_ENGL_NM, \r\n"
- " :p05 AS USE_SYST_CD, \r\n"
- " :p06 AS RMRK, \r\n"
- " :p07 AS USE_YN \r\n"
- " FROM DUAL \r\n"
- " ) M \r\n"
- "ON (L.CMMN_CLSF_CD = M.CMMN_CLSF_CD) \r\n"
- "WHEN MATCHED THEN \r\n"
- " UPDATE SET L.MSG_TYPE_CD = M.MSG_TYPE_CD, \r\n"
- " L.CMMN_CLSF_KOR_NM = M.CMMN_CLSF_KOR_NM, \r\n"
- " L.CMMN_CLSF_ENGL_NM = M.CMMN_CLSF_ENGL_NM, \r\n"
- " L.USE_SYST_CD = M.USE_SYST_CD, \r\n"
- " L.RMRK = M.RMRK, \r\n"
- " L.USE_YN = M.USE_YN \r\n"
- "WHEN NOT MATCHED THEN \r\n"
- " INSERT (L.CMMN_CLSF_CD, \r\n"
- " L.MSG_TYPE_CD, \r\n"
- " L.CMMN_CLSF_KOR_NM, \r\n"
- " L.CMMN_CLSF_ENGL_NM, \r\n"
- " L.USE_SYST_CD, \r\n"
- " L.RMRK, \r\n"
- " L.USE_YN) \r\n"
- " VALUES (M.CMMN_CLSF_CD, \r\n"
- " M.MSG_TYPE_CD, \r\n"
- " M.CMMN_CLSF_KOR_NM, \r\n"
- " M.CMMN_CLSF_ENGL_NM, \r\n"
- " M.USE_SYST_CD, \r\n"
- " M.RMRK, \r\n"
- " M.USE_YN) \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", pCode->CMMN_CLSF_CD);
- ITSDb_SQLBind(pADO, "p02", pCode->MSG_TYPE_CD);
- ITSDb_SQLBind(pADO, "p03", pCode->CMMN_CLSF_KOR_NM);
- ITSDb_SQLBind(pADO, "p04", pCode->CMMN_CLSF_ENGL_NM);
- ITSDb_SQLBind(pADO, "p05", pCode->USE_SYST_CD);
- ITSDb_SQLBind(pADO, "p06", pCode->RMRK);
- ITSDb_SQLBind(pADO, "p07", pCode->USE_YN);
- ITSDb_GetConnection()->BeginTrans();
- ITSDb_SQLExec(pADO);
- ITSDb_GetConnection()->CommitTrans();
- bResult = true;
- }
- 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;
- }
- }
- return bResult;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TIDB0080M::MergeCmmnCd(TItsSubCode *pSubCode)
- {
- bool bResult = false;
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "MERGE INTO TB_CMMN_CD L \r\n"
- "USING (SELECT :p01 AS CMMN_CD, \r\n"
- " :p02 AS CMMN_CLSF_CD, \r\n"
- " :p03 AS CMMN_CD_KOR_NM, \r\n"
- " :p04 AS CMMN_CD_ENGL_NM, \r\n"
- " :p05 AS CMMN_CD_ABBR, \r\n"
- " :p06 AS RMRK, \r\n"
- " :p07 AS ATRB1, \r\n"
- " :p08 AS ATRB2, \r\n"
- " :p09 AS USE_YN \r\n"
- " FROM DUAL \r\n"
- " ) M \r\n"
- "ON ( L.CMMN_CD = M.CMMN_CD \r\n"
- " AND L.CMMN_CLSF_CD = M.CMMN_CLSF_CD) \r\n"
- "WHEN MATCHED THEN \r\n"
- " UPDATE SET L.CMMN_CD_KOR_NM = M.CMMN_CD_KOR_NM, \r\n"
- " L.CMMN_CD_ENGL_NM = M.CMMN_CD_ENGL_NM, \r\n"
- " L.CMMN_CD_ABBR = M.CMMN_CD_ABBR, \r\n"
- " L.RMRK = M.RMRK, \r\n"
- " L.ATRB1 = M.ATRB1, \r\n"
- " L.ATRB2 = M.ATRB2, \r\n"
- " L.USE_YN = M.USE_YN \r\n"
- "WHEN NOT MATCHED THEN \r\n"
- " INSERT (L.CMMN_CD, \r\n"
- " L.CMMN_CLSF_CD, \r\n"
- " L.CMMN_CD_KOR_NM, \r\n"
- " L.CMMN_CD_ENGL_NM, \r\n"
- " L.CMMN_CD_ABBR, \r\n"
- " L.RMRK, \r\n"
- " L.ATRB1, \r\n"
- " L.ATRB2, \r\n"
- " L.USE_YN) \r\n"
- " VALUES (M.CMMN_CD, \r\n"
- " M.CMMN_CLSF_CD, \r\n"
- " M.CMMN_CD_KOR_NM, \r\n"
- " M.CMMN_CD_ENGL_NM, \r\n"
- " M.CMMN_CD_ABBR, \r\n"
- " M.RMRK, \r\n"
- " M.ATRB1, \r\n"
- " M.ATRB2, \r\n"
- " M.USE_YN) \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
-
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", pSubCode->CMMN_CD);
- ITSDb_SQLBind(pADO, "p02", pSubCode->CMMN_CLSF_CD);
- ITSDb_SQLBind(pADO, "p03", pSubCode->CMMN_CD_KOR_NM);
- ITSDb_SQLBind(pADO, "p04", pSubCode->CMMN_CD_ENGL_NM);
- ITSDb_SQLBind(pADO, "p05", pSubCode->CMMN_CD_ABBR);
- ITSDb_SQLBind(pADO, "p06", pSubCode->RMRK);
- ITSDb_SQLBind(pADO, "p07", pSubCode->ATRB1);
- ITSDb_SQLBind(pADO, "p08", pSubCode->ATRB2);
- ITSDb_SQLBind(pADO, "p09", pSubCode->USE_YN);
- ITSDb_GetConnection()->BeginTrans();
- ITSDb_SQLExec(pADO);
- ITSDb_GetConnection()->CommitTrans();
- bResult = true;
- }
- 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;
- }
- }
- return bResult;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnCancelClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- if (pBtn->Tag == 0)
- {
- ChangeButtonType1(1);
- m_enJob1 = enJobNone;
- DisplayListData1();
- }
- else
- if (pBtn->Tag == 1)
- {
- ChangeButtonType2(1);
- m_enJob2 = enJobNone;
- DisplayListData2();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnInsertClick(TObject *Sender)
- {
- String sErrMsg = "";
- String sId = "";
- TcxButton *pBtn = (TcxButton*)Sender;
- if (pBtn->Tag == 0)
- {
- sId = InputBox(cxLabel5->Caption,//"대표코드",
- cxLabel6->Caption,//"새로운 대표코드를 입력하세요.\r\n입력후에는 수정이 불가능합니다.",
- cxLabel7->Caption);//"최대5자리");
- sId.Trim();
- if (sId.IsEmpty() || AnsiString(sId).Length() > 5 || sId == cxLabel7->Caption)
- {
- Application->MessageBox(cxLabel8->Caption.c_str(),//L"5자리를 초과하였거나 값이 없습니다.",
- cxLabel9->Caption.c_str(),//L"대표코드 추가 오류",
- MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
-
- TItsCode *pCode = ItsCodeManager->FLists.Find(sId);
- if (pCode)
- {
- sErrMsg = cxLabel10->Caption + "[" + sId + "]";// 코드는 이미 사용 중인 코드입니다.\r\n다른 코드를 입력하세요.";
- Application->MessageBox(sErrMsg.c_str(),
- cxLabel9->Caption.c_str(),//L"대표코드 추가 오류",
- MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- ChangeButtonType1(2);
- FormClear1();
- FormClear2();
- EdId1->Text = sId;
- m_enJob1 = enJobSave;
- }
- else
- if (pBtn->Tag == 1)
- {
- if (m_pGDC1->FocusedRecordIndex < 0 || !FCode)
- {
- Application->MessageBox(cxLabel16->Caption.c_str(),//L"대표코드를 선택후 사용해주십시오.",
- cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
- MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- sId = InputBox(cxLabel11->Caption,//"세부코드"
- cxLabel12->Caption,//"새로운 세부코드를 입력하세요.\r\n입력후에는 수정이 불가능합니다.",
- cxLabel13->Caption);//"최대7자리");
- sId.Trim();
- if (sId.IsEmpty() || AnsiString(sId).Length() > 7 || sId == cxLabel13->Caption)
- {
- Application->MessageBox(cxLabel14->Caption.c_str(),//L"7자리를 초과하였거나 값이 없습니다.",
- cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
- MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
-
- TItsSubCode *pSubCode = FCode->FSubLists.Find(sId);
- if (pSubCode)
- {
- sErrMsg = cxLabel10->Caption + "[" + sId + "]";// 코드는 이미 사용 중인 코드입니다.\r\n다른 코드를 입력하세요.";
- Application->MessageBox(sErrMsg.c_str(),
- cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
- MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- ChangeButtonType2(2);
- FormClear2();
- EdId2->Text = sId;
- m_enJob2 = enJobSave;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnEditClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- if (pBtn->Tag == 0)
- {
- ChangeButtonType1(2);
- m_enJob1 = enJobEdit;
- }
- else
- if (pBtn->Tag == 1)
- {
- ChangeButtonType2(2);
- m_enJob2 = enJobEdit;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::BtnDeleteClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- if (pBtn->Tag == 0)
- {
- DeleteData1();
- }
- else
- if (pBtn->Tag == 1)
- {
- DeleteData2();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::DeleteData1()
- {
- TADOQuery *pADO = NULL;
- String sQry;
- String sMsgString;
- if (TvList1->ViewData->RecordCount <= 0) return;
- if (TvList1->DataController->FocusedRecordIndex < 0) return;
- if (!FCode)
- {
- return;
- }
- sMsgString = cxLabel18->Caption;//"대표코드 정보를 삭제 하시겠습니까?\r\n세부코드 정보도 함께 삭제 됩니다." ;
- if (Application->MessageBox(sMsgString.c_str(),
- cxLabel17->Caption.c_str(),//L"코드 정보 삭제",
- MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
- String sCode = FCode->CMMN_CLSF_CD;
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
-
- ITSDb_GetConnection()->BeginTrans();
- // 세부코드 삭제
- sQry = "DELETE FROM TB_CMMN_CD \r\n"
- " WHERE CMMN_CLSF_CD = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sCode);
- ITSDb_SQLExec(pADO);
- // 대분류 코드 삭제
- sQry = "DELETE FROM TB_CMMN_CLSF_CD \r\n"
- " WHERE CMMN_CLSF_CD = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sCode);
- ITSDb_SQLExec(pADO);
- ITSDb_GetConnection()->CommitTrans();
- ItsCodeManager->FLists.Remove(sCode);
- Application->MessageBox(cxLabel19->Caption.c_str(),//L"대표코드와 세부코드 정보를 삭제하였습니다.",
- cxLabel17->Caption.c_str(),//L"코드 정보 삭제",
- MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- }
- 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;
- }
- }
- BtnSearchClick(NULL);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::DeleteData2()
- {
- TADOQuery *pADO = NULL;
- String sQry;
- String sMsgString;
- if (TvList2->ViewData->RecordCount <= 0) return;
- if (TvList2->DataController->FocusedRecordIndex < 0) return;
- if (!FCode || !FSubCode)
- {
- return;
- }
- sMsgString = cxLabel21->Caption;//"세부코드 정보를 삭제 하시겠습니까?" ;
- if (Application->MessageBox(sMsgString.c_str(),
- cxLabel20->Caption.c_str(),//L"세부코드 정보 삭제",
- MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
- String sSubCode = FSubCode->CMMN_CD;
- String sCode = FSubCode->CMMN_CLSF_CD;
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
-
- // 세부코드 삭제
- sQry = "DELETE FROM TB_CMMN_CD \r\n"
- " WHERE CMMN_CD = :p01 \r\n"
- " AND CMMN_CLSF_CD = :p02 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sSubCode);
- ITSDb_SQLBind(pADO, "p02", sCode);
- ITSDb_SQLExec(pADO);
- ITSDb_GetConnection()->CommitTrans();
- ITSDb_GetConnection()->BeginTrans();
- FCode->FSubLists.Remove(sSubCode);
- Application->MessageBox(cxLabel22->Caption.c_str(),//L"세부코드 정보를 삭제하였습니다.",
- cxLabel20->Caption.c_str(),//L"세부코드 정보 삭제",
- MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- }
- 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;
- }
- }
- SelListData2();
- DisplayListData2();
- ChangeButtonType2(1);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::TvList1FocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
- TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
- {
- DisplayListData1();
- SelListData2();
- ChangeButtonType2(1);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::TvList2FocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
- TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
- {
- DisplayListData2();
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::DisplayListData1()
- {
- int ii;
- FormClear1();
- if (TvList1->ViewData->RecordCount <= 0) return;
- int nIndex = m_pGDC1->FocusedRecordIndex;
- if (nIndex < 0) return;
- int nMemPtr = m_pGDC1->Values[nIndex][MColumn98->Index];
- if (nMemPtr == 0) return;
- FCode = (TItsCode *)nMemPtr;
- try
- {
- EdId1->Text = FCode->CMMN_CLSF_CD;
- EdMsgCd->Text = FCode->MSG_TYPE_CD;
- EdKName1->Text = FCode->CMMN_CLSF_KOR_NM;
- EdEName1->Text = FCode->CMMN_CLSF_ENGL_NM;
- EdRemark1->Text = FCode->RMRK;
- EdSysCd->Text = FCode->USE_SYST_CD;
- CbUseYn1->ItemIndex = FCode->USE_YN == "Y" ? 0 : 1;
- EdCmmnClsfCd->Text = FCode->CMMN_CLSF_CD;
- EdCmmnClsfCdNm->Text= FCode->CMMN_CLSF_KOR_NM;
- }
- catch(Exception &e)
- {
- Application->MessageBox((e.Message + " - " +__FILE__+ " - " +__LINE__).c_str(), Caption.c_str(), MB_OK);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::DisplayListData2()
- {
- FormClear2();
- if (TvList2->ViewData->RecordCount <= 0) return;
- int nIndex = m_pGDC2->FocusedRecordIndex;
- if (nIndex < 0) return;
- int nMemPtr = m_pGDC2->Values[nIndex][SColumn98->Index];
- if (nMemPtr == 0) return;
- FSubCode = (TItsSubCode *)nMemPtr;
- try
- {
- EdId2->Text = FSubCode->CMMN_CD;
- EdCdAbbr->Text = FSubCode->CMMN_CD_ABBR;
- EdKName2->Text = FSubCode->CMMN_CD_KOR_NM;
- EdEName2->Text = FSubCode->CMMN_CD_ENGL_NM;
- EdRemark2->Text = FSubCode->RMRK;
- EdAtrb1->Text = FSubCode->ATRB1;
- EdAtrb2->Text = FSubCode->ATRB2;
- CbUseYn2->ItemIndex = FSubCode->USE_YN == "Y" ? 0 : 1;
- }
- catch(Exception &e)
- {
- Application->MessageBox((e.Message + " - " +__FILE__+ " - " +__LINE__).c_str(), Caption.c_str(), MB_OK);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::FormClose(TObject *Sender, TCloseAction &Action)
- {
- CommClose();
- IDB0080M = NULL;
- Action = caFree;
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::TvList1DataControllerFilterChanged(TObject *Sender)
- {
- CMM_SetFilterLike(TvList1);
- }
- //---------------------------------------------------------------------------
- void __fastcall TIDB0080M::TvList2DataControllerFilterChanged(TObject *Sender)
- {
- CMM_SetFilterLike(TvList2);
- }
- //---------------------------------------------------------------------------
|