//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSDbF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "IDB0110MF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxCalc" #pragma link "cxCheckBox" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxStyles" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma resource "*.dfm" TIDB0110M *IDB0110M = NULL; extern LOGININFO *g_pLOGIN; //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- __fastcall TIDB0110M::TIDB0110M(TComponent* Owner) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); FTitle = Caption;//"기관정보관리"; MyItsOrganManager = new TItsOrganManager(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::CommClose() { try { if (MyItsOrganManager) { delete MyItsOrganManager; MyItsOrganManager = NULL; } CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::FormShow(TObject *Sender) { Refresh(); FormInit(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::FormInit() { m_pGDC = TvList->DataController; TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<현재 등록된 기관정보가 없습니다>"; FCodeCOT = ItsCodeManager->FLists.Find("COT"); InitListCombo(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::InitListCombo() { FInitCombo1 = ""; TcxComboBoxProperties *pcxColumn03 = (TcxComboBoxProperties *)Column03->Properties; pcxColumn03->Items->Clear(); if (FCodeCOT) { FOR_STL(TItsSubCode *, pSubCode, FCodeCOT->FSubLists) { pcxColumn03->Items->Add("[" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); if (FInitCombo1 == "") FInitCombo1 = "[" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM; } } else { //pcxColumn03->Items->Add("[0] 기타"); pcxColumn03->Items->Add("[0] ETC"); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; BtnSearchClick((TObject*)BtnSearch); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnSearchClick(TObject *Sender) { Application->ProcessMessages(); TSqlCursor sqlCrs((TControl*)BtnSearch); RefreshData(); CxList->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::RefreshData() { MyItsOrganManager->LoadFromDb(); SelListData(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::SelListData() { FUpdate = false; CMM_ClearGridTableView(TvList); try { TvList->BeginUpdate(); FOR_STL(TItsOrgan*, pObj, MyItsOrganManager->FLists) { pObj->EditMode = DB_INIT; // 미리초기화해준다.(삭제된것) pObj->Completed = true; if (pObj->DEL_YN == "Y" || pObj->MEM_DEL == "Y") continue; AddObjectItem(pObj, "-"); } } __finally { LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")"; TvList->EndUpdate(); TvList->DataController->GotoFirst(); TvList->DataController->FocusedRecordIndex = 0; //CxList->SetFocus(); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = CxList; TcxGridTableView *pView = TvList; String sTitle= Caption;//"기관정보"; CMM_ExportToExcelFile(sTitle, pGrid, pView, this); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnInsertClick(TObject *Sender) { int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL; String sId = InputBox(lblInput->Caption,//"관리번호", lblInQry->Caption,//"관리번호를 입력하세요(숫자).", lblInput->Caption);//"최대10자리" ); sId = sId.Trim(); if (sId == lblInput->Caption //"관리번호" || sId == "") { return; } if (AnsiString(sId).Length() > 20) { Application->MessageBox(lblDigitErr->Caption.c_str(),//L"관리번호는 10Byte를 초과할 수 없습니다.", FTitle.c_str(), nMsgType); return; } TItsOrgan *pDb = (TItsOrgan *)MyItsOrganManager->FLists.Find(sId); if (pDb) { String sErr = FrmLang->lbIdErr->Caption + "[" + sId + "]"; Application->MessageBox(sErr.c_str(),//("[" + sId + "]는 사용할 수 없는 관리번호 입니다.").c_str(), FTitle.c_str(), nMsgType); return; } try { TvList->BeginUpdate(); TItsOrgan *pObj = new TItsOrgan(); if (!pObj) { Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 기관 정보를 생성할 수 없습니다.[메모리오류]", FTitle.c_str(), nMsgType); return; } //pObj->Clear(); pObj->CNCT_INTN_NMBR = sId; //NUMBER(10) N 연계 기관 관리 번호 pObj->CNCT_INTN_NM = ""; //VARCHAR2(50) Y 연계 기관 명 pObj->CNCT_INTN_TYPE_CD = ITSUtil_GetCode(FInitCombo1); //VARCHAR2(7) Y 연계 기관 유형 코드 pObj->CNCT_INTN_TEL = ""; //VARCHAR2(128) Y 연계 기관 전화번호 pObj->CNCT_INTN_ADDR = ""; //VARCHAR2(200) Y 연계 기관 주소 pObj->RMRK = ""; //VARCHAR2(600) Y 비고 pObj->DEL_YN = "N"; //CHAR(1) Y 'N' 삭제 여부 pObj->Completed = false; pObj->EditMode = DB_NEW; pObj->MEM_DEL = "N"; MyItsOrganManager->FLists.Push(pObj->CNCT_INTN_NMBR, pObj); AddObjectItem(pObj, FrmLang->lblNew->Caption);//"신규"); } __finally { LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")"; TvList->EndUpdate(); TvList->DataController->GotoFirst(); TvList->DataController->FocusedRecordIndex = 0; } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnDeleteClick(TObject *Sender) { int nIdx = m_pGDC->FocusedRecordIndex; if (nIdx < 0) return; int nMemPtr = m_pGDC->Values[nIdx][Column99->Index]; TItsOrgan *pObj = (TItsOrgan*)nMemPtr; pObj->EditMode = DB_DELETE; m_pGDC->Values[nIdx][Column00->Index] = FrmLang->lblDelete->Caption;//"삭제"; } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); IDB0110M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnEditClick(TObject *Sender) { TListFocus tvFocus(TvList); if (BtnEdit->Caption == FrmLang->lblCancel->Caption)//"취소") { CxList->SetFocus(); Application->ProcessMessages(); SaveData(); } FrmLang->ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply); ChangeEditMode(BtnEdit->Down); RefreshData(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::ChangeEditMode(bool AEdit) { bool bEditing = AEdit; try { TvList->BeginUpdate(); Column00->Visible = bEditing; Column02->Options->Editing = bEditing; Column03->Options->Editing = bEditing; Column04->Options->Editing = bEditing; Column05->Options->Editing = bEditing; Column06->Options->Editing = bEditing; } __finally { TvList->EndUpdate(); if (bEditing) { BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소"; BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소"; } else { BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집"; BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집"; } } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::TvListColumnPropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText, bool &Error) { if (TvList->Controller->FocusedRow->IsFilterRow) return; int nRow = m_pGDC->FocusedRecordIndex; if (nRow < 0) return; int nMemPtr = TvList->DataController->Values[nRow][Column99->Index]; TItsOrgan *pObj = (TItsOrgan*)nMemPtr; if (pObj->Completed == false) { //신규이거나 삭제인 경우 편집 내용에 따른 변화가 필요없다. return; } String CNCT_INTN_NM = VarToStr(m_pGDC->Values[nRow][Column02->Index]); String CNCT_INTN_TYPE_CD = VarToStr(m_pGDC->Values[nRow][Column03->Index]); String CNCT_INTN_TEL = VarToStr(m_pGDC->Values[nRow][Column04->Index]); String CNCT_INTN_ADDR = VarToStr(m_pGDC->Values[nRow][Column05->Index]); String RMRK = VarToStr(m_pGDC->Values[nRow][Column06->Index]); TcxGridColumn *pColumn = TvList->Controller->FocusedColumn; if (pColumn == Column02) CNCT_INTN_NM = DisplayValue; else if (pColumn == Column03) CNCT_INTN_TYPE_CD = DisplayValue; else if (pColumn == Column04) CNCT_INTN_TEL = DisplayValue; else if (pColumn == Column05) CNCT_INTN_ADDR = DisplayValue; else if (pColumn == Column06) RMRK = DisplayValue; CNCT_INTN_TYPE_CD = ITSUtil_GetCode(CNCT_INTN_TYPE_CD); if (pObj->CNCT_INTN_NM != CNCT_INTN_NM || pObj->CNCT_INTN_TYPE_CD != CNCT_INTN_TYPE_CD || pObj->CNCT_INTN_TEL != CNCT_INTN_TEL || pObj->CNCT_INTN_ADDR != CNCT_INTN_ADDR || pObj->RMRK != RMRK ) { m_pGDC->Values[nRow][Column00->Index] = FrmLang->lblModify->Caption;//"수정"; pObj->EditMode = DB_UPDATE; } else { TvList->DataController->Values[nRow][Column00->Index] = "-"; pObj->EditMode = DB_INIT; } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnBestFitClick(TObject *Sender) { try { TvList->BeginUpdate(); TvList->ApplyBestFit(NULL, false, false); } __finally { TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::ChkAutoWidthPropertiesChange(TObject *Sender) { try { TvList->BeginUpdate(); TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked; BtnBestFit->Visible = !ChkAutoWidth->Checked; } __finally { TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::MnuDeleteCancelClick(TObject *Sender) { // } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::BtnApplyClick(TObject *Sender) { FUpdate = true; BtnEdit->Down = false; BtnEdit->Click(); } //--------------------------------------------------------------------------- bool __fastcall TIDB0110M::AddObjectItem(TItsOrgan *pObj, String AMode) { TItsSubCode *pSubCode; int nRow; try { nRow = m_pGDC->AppendRecord(); pObj->GridIndex = nRow; m_pGDC->Values[nRow][Column00->Index] = AMode; m_pGDC->Values[nRow][Column01->Index] = pObj->CNCT_INTN_NMBR; m_pGDC->Values[nRow][Column02->Index] = pObj->CNCT_INTN_NM; String sCOTName = "[" + pObj->CNCT_INTN_TYPE_CD + "] "; if (FCodeCOT) { pSubCode = FCodeCOT->FSubLists.Find(pObj->CNCT_INTN_TYPE_CD); if (pSubCode) sCOTName = sCOTName + pSubCode->CMMN_CD_KOR_NM; } if (sCOTName == "[] ") sCOTName = ""; m_pGDC->Values[nRow][Column03->Index] = sCOTName; m_pGDC->Values[nRow][Column04->Index] = pObj->CNCT_INTN_TEL; m_pGDC->Values[nRow][Column05->Index] = pObj->CNCT_INTN_ADDR; m_pGDC->Values[nRow][Column06->Index] = pObj->RMRK; m_pGDC->Values[nRow][Column88->Index] = pObj->DEL_YN; m_pGDC->Values[nRow][Column99->Index] = (int)pObj; return true; } catch(...) { } return false; } //--------------------------------------------------------------------------- bool __fastcall TIDB0110M::IsUpdate() { FOR_STL(TItsOrgan*, pObj, MyItsOrganManager->FLists) { if (pObj->Completed && pObj->EditMode != DB_INIT) return true; if (!pObj->Completed && pObj->EditMode == DB_NEW) return true; } return false; } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::SaveData() { if (!IsUpdate()) return; if (!FUpdate) { if (Application->MessageBox(FrmLang->lblEidtConfirm->Caption.c_str(),//L"변경된 정보가 있습니다.\r\n변경된 정보를 저장 하시겠습니까?", FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; } TADOQuery *pADOI = NULL; TADOQuery *pADOU = NULL; TADOQuery *pADOD = NULL; String sQryI; String sQryU; String sQryD; int nEditMode; try { sQryI = "INSERT INTO TB_CNCT_INTN_INFR ( \r\n" " CNCT_INTN_NMBR, CNCT_INTN_NM, \r\n" " CNCT_INTN_TYPE_CD, CNCT_INTN_TEL, \r\n" " CNCT_INTN_ADDR, RMRK, \r\n" " DEL_YN ) \r\n" " VALUES ( \r\n" " :p01, :p02, \r\n" " :p03, :p04, \r\n" " :p05, :p06, \r\n" " 'N' ) \r\n"; sQryU = "UPDATE TB_CNCT_INTN_INFR \r\n" " SET CNCT_INTN_NM = :p02, \r\n" " CNCT_INTN_TYPE_CD = :p03, \r\n" " CNCT_INTN_TEL = :p04, \r\n" " CNCT_INTN_ADDR = :p05, \r\n" " RMRK = :p06 \r\n" " WHERE CNCT_INTN_NMBR = :p01 \r\n"; sQryD = "UPDATE TB_CNCT_INTN_INFR \r\n" " SET DEL_YN = 'Y', \r\n" " WHERE CNCT_INTN_NMBR = :p01 \r\n"; int nRow; TvList->BeginUpdate(); try { pADOI = new TADOQuery(NULL); pADOI->Close(); pADOI->Connection = ITSDb_GetConnection(); pADOU = new TADOQuery(NULL); pADOU->Close(); pADOU->Connection = ITSDb_GetConnection(); pADOD = new TADOQuery(NULL); pADOD->Close(); pADOD->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADOI, sQryI); ITSDb_SQLText(pADOU, sQryU); ITSDb_SQLText(pADOD, sQryD); ITSDb_GetConnection()->BeginTrans(); FOR_STL(TItsOrgan*, pObj, MyItsOrganManager->FLists) { if (pObj->GridIndex < 0) continue; if (pObj->Completed && pObj->EditMode == DB_INIT) continue; if (!pObj->Completed && pObj->EditMode != DB_NEW) continue; nRow = pObj->GridIndex; String CNCT_INTN_NM = VarToStr(m_pGDC->Values[nRow][Column02->Index]); String CNCT_INTN_TYPE_CD = VarToStr(m_pGDC->Values[nRow][Column03->Index]); String CNCT_INTN_TEL = VarToStr(m_pGDC->Values[nRow][Column04->Index]); String CNCT_INTN_ADDR = VarToStr(m_pGDC->Values[nRow][Column05->Index]); String RMRK = VarToStr(m_pGDC->Values[nRow][Column06->Index]); CNCT_INTN_TYPE_CD = ITSUtil_GetCode(CNCT_INTN_TYPE_CD); //pObj->CNCT_INTN_NMBR = pObj->CNCT_INTN_NMBR; pObj->CNCT_INTN_NM = CNCT_INTN_NM; pObj->CNCT_INTN_TYPE_CD = CNCT_INTN_TYPE_CD; pObj->CNCT_INTN_TEL = CNCT_INTN_TEL; pObj->CNCT_INTN_ADDR = CNCT_INTN_ADDR; pObj->RMRK = RMRK; pObj->DEL_YN = pObj->DEL_YN; nEditMode = pObj->EditMode; if (pObj->Completed) { if (pObj->EditMode == DB_DELETE) { //delete ITSDb_SQLBind(pADOD, "p01", pObj->CNCT_INTN_NMBR); ITSDb_SQLExec(pADOD); pObj->DEL_YN = "Y"; pObj->MEM_DEL = "Y"; } else if (pObj->EditMode == DB_UPDATE) { //update ITSDb_SQLBind(pADOU, "p01", pObj->CNCT_INTN_NMBR); ITSDb_SQLBind(pADOU, "p02", pObj->CNCT_INTN_NM); ITSDb_SQLBind(pADOU, "p03", pObj->CNCT_INTN_TYPE_CD); ITSDb_SQLBind(pADOU, "p04", pObj->CNCT_INTN_TEL); ITSDb_SQLBind(pADOU, "p05", pObj->CNCT_INTN_ADDR); ITSDb_SQLBind(pADOU, "p06", pObj->RMRK); ITSDb_SQLExec(pADOU); pObj->DEL_YN = "N"; pObj->MEM_DEL = "N"; } } else { if (pObj->EditMode == DB_NEW) { //insert ITSDb_SQLBind(pADOI, "p01", pObj->CNCT_INTN_NMBR); ITSDb_SQLBind(pADOI, "p02", pObj->CNCT_INTN_NM); ITSDb_SQLBind(pADOI, "p03", pObj->CNCT_INTN_TYPE_CD); ITSDb_SQLBind(pADOI, "p04", pObj->CNCT_INTN_TEL); ITSDb_SQLBind(pADOI, "p05", pObj->CNCT_INTN_ADDR); ITSDb_SQLBind(pADOI, "p06", pObj->RMRK); ITSDb_SQLExec(pADOI); pObj->DEL_YN = "N"; pObj->MEM_DEL = "N"; } } pObj->Completed = true; } ITSDb_GetConnection()->CommitTrans(); Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"기관정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } catch(EDatabaseError &E) { ITSDb_GetConnection()->RollbackTrans(); ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); if (nEditMode == DB_DELETE) DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryD); else if (nEditMode == DB_UPDATE) DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryU); else if (nEditMode == DB_NEW) DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryI); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { ITSDb_GetConnection()->RollbackTrans(); ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); if (nEditMode == DB_DELETE) DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryD); else if (nEditMode == DB_UPDATE) DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryU); else if (nEditMode == DB_NEW) DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryI); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADOI) { pADOI->Close(); delete pADOI; } if (pADOU) { pADOU->Close(); delete pADOU; } if (pADOD) { pADOD->Close(); delete pADOD; } TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::FormCloseQuery(TObject *Sender, bool &CanClose) { SaveData(); } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::TvListKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key == VK_DELETE) { if (BtnDelete->Enabled) BtnDeleteClick(Sender); } } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::TvListDataControllerFilterChanged(TObject *Sender) { CMM_SetFilterLike(TvList); LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")"; } //--------------------------------------------------------------------------- void __fastcall TIDB0110M::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { if (AViewInfo) { String sType = AViewInfo->GridRecord->DisplayTexts[Column00->Index]; if (sType == FrmLang->lblModify->Caption)//"수정") { ACanvas->Brush->Color = clOlive; } else if (sType == FrmLang->lblDelete->Caption)//"삭제") { ACanvas->Brush->Color = clRed; } else if (sType == FrmLang->lblNew->Caption)//"신규") { ACanvas->Brush->Color = clLime; if (AViewInfo->Focused) ACanvas->Font->Color = clBlack; } } } //---------------------------------------------------------------------------