12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031 |
- //---------------------------------------------------------------------------
- #pragma hdrstop
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "AppGlobalF.h"
- #include "CDSVmsFormF.h"
- #pragma hdrstop
- #include "VMSM500MF.h"
- #include "VMSM500MSRCF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- //폼유형
- void __fastcall TVMSM500M::FillVmsFormType(TcxComboBox *ACombo)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- ACombo->Properties->Items->Clear();
- sQry = "SELECT VMS_FORM_TYPE_CD AS CD, \r\n"
- " VMS_FORM_TYPE_NM AS NM, \r\n"
- " USE_YN \r\n"
- " FROM TB_VMS_FORM_TYPE \r\n"
- " ORDER BY CD ASC \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- String sUse = pADO->FieldByName("USE_YN")->AsString;
- if (sUse != "Y") continue;
- String sCd = pADO->FieldByName("CD")->AsString;
- String sNm = pADO->FieldByName("NM")->AsString;
- ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
- }
- ACombo->ItemIndex = 0;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormType", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormType", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- //표출방법
- void __fastcall TVMSM500M::FillVmsFormDispMode(TcxComboBox *ACombo)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- ACombo->Properties->Items->Clear();
- sQry = "SELECT VMS_FORM_DSPL_MTHD_CD AS CD, \r\n"
- " VMS_FORM_DSPL_MTHD_NM AS NM, \r\n"
- " USE_YN \r\n"
- " FROM TB_VMS_FORM_DSPL_MTHD \r\n"
- " ORDER BY CD ASC \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- String sUse = pADO->FieldByName("USE_YN")->AsString;
- if (sUse != "Y") continue;
- String sCd = pADO->FieldByName("CD")->AsString;
- String sNm = pADO->FieldByName("NM")->AsString;
- ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
- }
- ACombo->ItemIndex = 0;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormDispMode", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormDispMode", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- //표출방향
- void __fastcall TVMSM500M::FillVmsFormDispDir(TcxComboBox *ACombo)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- ACombo->Properties->Items->Clear();
- sQry = "SELECT VMS_FORM_DSPL_DRCT_CD AS CD, \r\n"
- " VMS_FORM_DSPL_DRCT_NM AS NM, \r\n"
- " USE_YN \r\n"
- " FROM TB_VMS_FORM_DSPL_DRCT \r\n"
- " ORDER BY CD ASC \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- String sUse = pADO->FieldByName("USE_YN")->AsString;
- if (sUse != "Y") continue;
- String sCd = pADO->FieldByName("CD")->AsString;
- String sNm = pADO->FieldByName("NM")->AsString;
- ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
- }
- ACombo->ItemIndex = 0;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormDispDir", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TVMSM500M::FillVmsFormDispDir", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- //VMS Font
- void __fastcall TVMSM500M::FillVmsFont(TcxComboBox *ACombo)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- ACombo->Properties->Items->Clear();
- sQry = "SELECT VMS_FONT_NAME_CD AS CD, \r\n"
- " VMS_FONT_NAME_NM AS NM, \r\n"
- " USE_YN \r\n"
- " FROM TB_VMS_FONT_NAME \r\n"
- " ORDER BY CD ASC \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- String sUse = pADO->FieldByName("USE_YN")->AsString;
- if (sUse != "Y") continue;
- String sCd = pADO->FieldByName("CD")->AsString;
- String sNm = pADO->FieldByName("NM")->AsString;
- ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
- }
- ACombo->ItemIndex = 0;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::FillVmsFont", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TVMSM500M::FillVmsFont", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM500M::LoadFormObjectInfo(String AFormId, TVmsFormDesigner *ADesigner, String AFormType)
- {
- ADesigner->Clear();
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT A.*, \r\n"
- " C.VMS_FONT_NAME_NM, \r\n"
- " B.IMAG_DATA AS SYMB_IMG, \r\n"
- " B.SYMB_EXPL AS SYMB_IMG_NM \r\n"
- " FROM TB_VMS_FORM_OBJECT A, \r\n"
- " TB_VMS_SYMB_LIB B, \r\n"
- " TB_VMS_FONT_NAME C \r\n"
- " WHERE A.VMS_FORM_ID = :p01 \r\n"
- " AND A.SYMB_LIB_NMBR = B.SYMB_LIB_NMBR(+) \r\n"
- " AND A.VMS_FONT_NAME_CD = C.VMS_FONT_NAME_CD(+) \r\n"
- " ORDER BY A.VMS_FORM_OBJECT_ID ASC \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- int nDrawType;
- String sObjKind;
- for( ; !pADO->Eof; pADO->Next())
- {
- int nFormId = pADO->FieldByName("VMS_FORM_ID")->AsInteger;
- int nObjId = pADO->FieldByName("VMS_FORM_OBJECT_ID")->AsInteger;
- int nObjType = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsInteger;
- if (nObjType == 1 || //이미지 심볼
- nObjType == 2 || //파일이미지
- nObjType == 3 || //소통정보이미지
- nObjType == 17 || //소통이미지1
- nObjType == 27 || //소통이미지2
- nObjType == 37 || //소통이미지3
- nObjType == 47 || //소통이미지4
- nObjType == 200 || //동영상
- nObjType == 300 || //스트리밍영상
- nObjType == 406 || //@통합대기등급 이미지
- nObjType == 407 || //@미세먼지등급 이미지
- nObjType == 408 || //@초미세먼지등급 이미지
- nObjType == 413 //@오존등급이미지
- )
- {
- if (nObjType == 3) sObjKind = OBJKIND_IMAGE;
- else sObjKind = OBJKIND_IMAGEID;
- nDrawType = 1; //이미지그리기
- }
- else
- {
- sObjKind = OBJKIND_TEXT; //문자열
- nDrawType = 0; //문자열그리기
- }
- int nBlinking = pADO->FieldByName("VMS_DSPL_BLINKING")->AsInteger;
- int nPosX = pADO->FieldByName("VMS_DSPL_XCRDN")->AsInteger;
- int nPosY = pADO->FieldByName("VMS_DSPL_YCRDN")->AsInteger;
- int nWidth = pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger;
- int nHeight = pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger;
- TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
- if (!pObj) continue;
- if (nObjType == 200 || nObjType == 300)
- {
- pObj->EditMode = false;
- }
- String sIfscId = pADO->FieldByName("VMS_IFSC_ID")->AsString;
- String sFillCd = pADO->FieldByName("TRFC_FILL_CD")->AsString;
- pObj->ObjSeq = nObjId;
- pObj->ObjId = nObjId;
- pObj->ObjKind = sObjKind;
- pObj->Tag = sIfscId;
- if (AFormType == "15")
- {
- if (nObjType == 0 || nObjType == 1 || nObjType == 2)
- {
- pObj->Tag = sFillCd;
- }
- }
- pObj->ObjType = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsString;
- pObj->ObjSize = pADO->FieldByName("VMS_DSPL_SIZE")->AsInteger;
- pObj->BkColorCode = pADO->FieldByName("VMS_DSPL_BKCOLOR")->AsString;
- pObj->Blink = nBlinking == 1 ? true : false;
- pObj->ImageId = pADO->FieldByName("SYMB_LIB_NMBR")->AsString;
- pObj->Text = pADO->FieldByName("VMS_DSPL_TXT")->AsString;
- pObj->RunText = pObj->Text;
- pObj->SetPos(nPosX, nPosY);
- if (pObj->ObjKind == OBJKIND_TEXT) // 문자열
- {
- int nFontBold = pADO->FieldByName("VMS_FONT_BOLD")->AsInteger;
- pObj->FontName = pADO->FieldByName("VMS_FONT_NAME_NM")->AsString;
- pObj->FontNameCode = pADO->FieldByName("VMS_FONT_NAME_CD")->AsString;
- pObj->FontColorCode = pADO->FieldByName("VMS_FONT_COLR_CD")->AsString;
- pObj->FontSize = pADO->FieldByName("VMS_FONT_SIZE")->AsInteger;
- pObj->FontBold = nFontBold == 1 ? true : false;
- pObj->TextAlign = pADO->FieldByName("VMS_FONT_ALIGN")->AsInteger;
- //pObj->SetPos(nPosX, nPosY);
- //pObj->SetSize(pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger, pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger);
- }
- else //if (sObjKind == "1" || sObjKind == "2") // 이미지(1), 이미지 ID(2)
- {
- if (pObj->ObjKind == OBJKIND_IMAGEID)
- {
- if (pObj->Text.Trim() == "")
- {
- pObj->Text = pObj->ImageId;
- }
- }
- TStream *pStream = NULL;
- pStream = pADO->CreateBlobStream(pADO->FieldByName("VMS_DSPL_FIGR"), bmRead);
- try
- {
- if (pStream && pStream->Size > 0)
- {
- Graphics::TBitmap *Bitmap = pObj->GetBitmap();
- pStream->Position = 0;
- Bitmap->LoadFromStream(pStream);
- #ifdef IMAGE_RESIZE
- #if 0
- if (nObjType == 1 || nObjType == 2)
- {
- pObj->GetImage()->AutoSize= false;
- pObj->GetImage()->Stretch = true;
- pObj->GetImage()->Width = nWidth;
- pObj->GetImage()->Height = nHeight;
- pObj->SetSize(nWidth, nHeight);
- pObj->SetPos(nPosX, nPosY);
- }
- else
- {
- pObj->SetSize(Bitmap->Width, Bitmap->Height);
- }
- #else
- switch(nObjType)
- {
- case 1: //심볼
- case 2: //이미지
- case 3: //소통정보배경이미지
- case 17: //소통정보이미지1
- case 27: //소통정보이미지2
- case 37: //소통정보이미지3
- case 47: //소통정보이미지4
- case 167: //@우회소통정보이미지
- case 200: //동영상이미지
- case 300: //스트리밍영상이미지
- case 406: //@통합대기등급 이미지
- case 407: //@미세먼지등급 이미지
- case 408: //@초미세먼지등급 이미지
- case 413: //@오존등급이미지
- pObj->GetImage()->AutoSize= false;
- pObj->GetImage()->Stretch = true;
- pObj->GetImage()->Width = nWidth;
- pObj->GetImage()->Height = nHeight;
- pObj->SetSize(nWidth, nHeight);
- pObj->SetPos(nPosX, nPosY);
- break;
- default:
- pObj->SetSize(Bitmap->Width, Bitmap->Height);
- pObj->SetPos(nPosX, nPosY); //TODO
- break;
- }
- #endif
- #else
- pObj->SetSize(Bitmap->Width, Bitmap->Height);
- pObj->SetPos(nPosX, nPosY);
- #endif
- }
- }
- __finally
- {
- SAFE_DELETE(pStream);
- }
- }
- //pObj->SetPos(nPosX, nPosY);
- //if (pObj->Left < 0) pObj->Left = 0;
- //if (pObj->Top < 0) pObj->Top = 0;
- pObj->Show();
- pObj->BringToFront();
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::LoadFormObjectInfo", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TVMSM500M::LoadFormObjectInfo", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM500M::LoadVmsForm()
- {
- FormClear();
- int nFocusedIdx = TvList->DataController->FocusedRecordIndex;
- CMM_ClearGridTableView(TvList);
- ClearSymbloList();
- TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
- if (pVmsSizeType == NULL) return;
- String sWhereQry = "";
- sWhereQry = " WHERE A.VMS_FORM_ID = B.VMS_FORM_ID(+) \r\n";
- if (pVmsSizeType->TypeCd != "ALL")
- {
- //sWhereQry = " WHERE A.VMS_TYPE_CD = '" + pVmsSizeType->TypeCd + "' \r\n";
- sWhereQry += " AND A.VMS_TYPE_CD = '" + pVmsSizeType->TypeCd + "' \r\n";
- }
- FVmsTypeCd = pVmsSizeType->TypeCd;
- FVmsWidth = pVmsSizeType->Width;
- FVmsHeight = pVmsSizeType->Height;
- FVmsCols = pVmsSizeType->Cols;
- FVmsRows = pVmsSizeType->Rows;
- if ("VMP0" == FVmsTypeCd)
- {
- BtnCopyAdd212->Visible = true;
- }
- else
- {
- BtnCopyAdd212->Visible = false;
- }
- ImgForm->Width = FVmsWidth;
- ImgForm->Height = FVmsHeight;
- ImgForm->Picture->Bitmap->Width = FVmsWidth;
- ImgForm->Picture->Bitmap->Height = FVmsHeight;
- {
- PnlBack->Left = 5;
- PnlBack->Top = 5;
- PnlBack->Width = FVmsWidth+4;
- PnlBack->Height= FVmsHeight+4;
- }
- {
- PnlEdtBack->Width = FVmsWidth+4;
- PnlEdtBack->Height= FVmsHeight+4;
- PnlRePreview->Width = FVmsWidth+4;
- PnlRePreview->Height= FVmsHeight+4;
- PnlRePreview->Color = clWhite;
- ImgEdtPreview->Left = 2;
- ImgEdtPreview->Top = 2;
- ImgEdtPreview->Width = FVmsWidth;
- ImgEdtPreview->Height= FVmsHeight;
- ImgEdtPreview->Picture->Bitmap->Width = FVmsWidth;
- ImgEdtPreview->Picture->Bitmap->Height = FVmsHeight;
- m_pEdtDesigner->DrawPreviewModuleBack(ImgEdtPreview, clBlack, FVmsRows, FVmsCols);
- #if 0
- #if 0
- ReForm->Width = FVmsWidth+22+4;
- ReForm->Height= FVmsHeight+22+4;
- #else
- ReForm->Width = FVmsWidth+4;
- ReForm->Height= FVmsHeight+4;
- #endif
- #endif
- ReForm->Color = clBlack;
- m_pEdtDesigner->Clear();
- m_pEdtDesigner->SizeType = FVmsTypeCd;
- m_pEdtDesigner->SetSize(FVmsWidth, FVmsHeight);
- m_pEdtDesigner->SetPos(0, 0);
- m_pEdtDesigner->BkColorCode = "0";
- m_pEdtDesigner->EditMode = true;
- m_pEdtDesigner->Show();
- }
- String sVmsSizeNm = pVmsSizeType->TypeNm;
- String sQry;
- TADOQuery *pADO = NULL;
- #if 0
- sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_NM, A.VMS_FORM_EXPL, \r\n"
- " A.VMS_FORM_TYPE_CD, A.VMS_TYPE_CD, \r\n"
- " (SELECT VMS_TYPE_NM \r\n"
- " FROM TB_VMS_TYPE \r\n"
- " WHERE VMS_TYPE_CD = A.VMS_TYPE_CD \r\n"
- " AND USE_YN = 'Y') AS VMS_SIZE_TYPE_NM, \r\n"
- " (SELECT VMS_FORM_TYPE_NM \r\n"
- " FROM TB_VMS_FORM_TYPE \r\n"
- " WHERE USE_YN = 'Y' \r\n"
- " AND VMS_FORM_TYPE_CD = A.VMS_FORM_TYPE_CD) \r\n"
- " AS FORM_TYPE_NM, \r\n"
- " A.VMS_FORM_COLR_CD, \r\n"
- " A.VMS_FORM_DSPL_DRCT_CD, \r\n"
- " A.VMS_FORM_DSPL_MTHD_CD, \r\n"
- " A.VMS_FORM_IMAG \r\n"
- " FROM TB_VMS_FORM A \r\n";
- sQry += sWhereQry;
- sQry +=" ORDER BY A.VMS_TYPE_CD DESC, A.VMS_FORM_ID ASC \r\n";
- #else
- sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_NM, A.VMS_FORM_EXPL, \r\n"
- " A.VMS_FORM_TYPE_CD, A.VMS_TYPE_CD, \r\n"
- " (SELECT VMS_TYPE_NM \r\n"
- " FROM TB_VMS_TYPE \r\n"
- " WHERE VMS_TYPE_CD = A.VMS_TYPE_CD \r\n"
- " AND USE_YN = 'Y') AS VMS_SIZE_TYPE_NM, \r\n"
- " (SELECT VMS_FORM_TYPE_NM \r\n"
- " FROM TB_VMS_FORM_TYPE \r\n"
- " WHERE USE_YN = 'Y' \r\n"
- " AND VMS_FORM_TYPE_CD = A.VMS_FORM_TYPE_CD) \r\n"
- " AS FORM_TYPE_NM, \r\n"
- " A.VMS_FORM_COLR_CD, \r\n"
- " A.VMS_FORM_DSPL_DRCT_CD, \r\n"
- " A.VMS_FORM_DSPL_MTHD_CD, \r\n"
- " A.VMS_FORM_IMAG, \r\n"
- " B.VMS_DSPL_TXT \r\n"
- " FROM TB_VMS_FORM A, \r\n"
- " (SELECT VMS_FORM_ID, \r\n"
- " LISTAGG(VMS_DSPL_TXT, ' ') WITHIN GROUP (ORDER BY VMS_FORM_OBJECT_ID) AS VMS_DSPL_TXT \r\n"
- " FROM TB_VMS_FORM_OBJECT \r\n"
- " WHERE VMS_FORM_OBJECT_TYPE_CD = '0' \r\n"
- " GROUP BY VMS_FORM_ID) B \r\n";
- sQry += sWhereQry;
- sQry +=" ORDER BY A.VMS_TYPE_CD DESC, A.VMS_FORM_ID ASC \r\n";
- #endif
- String sFirstFormId = "";
- try
- {
- int nRow;
- TcxDataController *pGDC = TvList->DataController;
- TvList->BeginUpdate();
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- //ITSDb_SQLBind(pADO, "p01", sVmsTypeCd);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- nRow = pGDC->AppendRecord();
- String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
- if (sFirstFormId == "") sFirstFormId = sFormId;
- pGDC->Values[nRow][Col01->Index] = sFormId; //폼ID
- pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsVariant; //폼명칭
- pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("VMS_FORM_EXPL")->AsString; //폼설명
- pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString; //폼종류
- pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("VMS_SIZE_TYPE_NM")->AsString; //폼크기
- pGDC->Values[nRow][Col06->Index] = pADO->FieldByName("VMS_FORM_DSPL_MTHD_CD")->AsString; //표출방법코드-
- pGDC->Values[nRow][Col07->Index] = pADO->FieldByName("VMS_FORM_DSPL_DRCT_CD")->AsString; //표출방향코드-
- pGDC->Values[nRow][Col08->Index] = pADO->FieldByName("VMS_FORM_COLR_CD")->AsString; //배경색코드-
- pGDC->Values[nRow][Col09->Index] = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsString; //폼종류코드-
- pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("VMS_TYPE_CD")->AsString; //폼크기코드-
- pGDC->Values[nRow][Col12->Index] = pADO->FieldByName("VMS_DSPL_TXT")->AsString; //폼표출문자
- Graphics::TBitmap *bitmap = new Graphics::TBitmap;
- try {
- bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMAG"), bmRead));
- } catch(Exception &e) {
- //throw Exception(String(e.ClassName()) + e.Message);
- }
- FListSymb->Add(bitmap);
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::LoadVmsForm", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM500M::LoadVmsForm", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- TvList->EndUpdate();
- if (TvList->DataController->RecordCount > 0)
- {
- //CMM_SetGridRow(CxList, TvList, sFirstFormId, Col01->Index);
- //DisplayInfo();
- }
- }
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM500M::SaveVmsForm(String AVALID_YN)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- String sFormId = EdFormId->Text;
- String sVmsType = FVmsTypeCd;
- String sFormType = APP_GetCode(CbFormKind);
- String sName = EdFormName->Text.Trim();
- String sExpl = EdFormDesc->Text.Trim();
- String sFormColor = String(CbFormColor->ItemIndex);
- String sDispDir = APP_GetCode(CbFormDispDir);
- String sDispMode = APP_GetCode(CbFormDispMode);
- String sUpdtDt = Now().FormatString("yyyymmddhhnnss");
- if (StrToIntDef(sFormType, 0) == eFormTp_evehicle) {
- sDispDir = IntToStr(CbFormSubType->ItemIndex);
- }
- sQry = "MERGE INTO TB_VMS_FORM L \r\n"
- "USING (SELECT :p01 AS VMS_FORM_ID, \r\n"
- " :p02 AS VMS_TYPE_CD, \r\n"
- " :p03 AS VMS_FORM_TYPE_CD, \r\n"
- " :p04 AS VMS_FORM_NM, \r\n"
- " :p05 AS VMS_FORM_EXPL, \r\n"
- " :p06 AS VMS_FORM_COLR_CD, \r\n"
- " :p07 AS VMS_FORM_DSPL_DRCT_CD, \r\n"
- " :p08 AS VMS_FORM_DSPL_MTHD_CD, \r\n"
- " :p09 AS UPDT_DT, \r\n"
- " :p10 AS VALID_YN \r\n"
- " FROM DUAL) M \r\n"
- " ON (L.VMS_FORM_ID = M.VMS_FORM_ID) \r\n"
- "WHEN MATCHED \r\n"
- "THEN \r\n"
- " UPDATE SET L.VMS_FORM_NM = M.VMS_FORM_NM, \r\n"
- " L.VMS_FORM_EXPL = M.VMS_FORM_EXPL, \r\n"
- " L.VMS_FORM_COLR_CD = M.VMS_FORM_COLR_CD, \r\n"
- " L.VMS_FORM_DSPL_DRCT_CD = M.VMS_FORM_DSPL_DRCT_CD, \r\n"
- " L.VMS_FORM_DSPL_MTHD_CD = M.VMS_FORM_DSPL_MTHD_CD, \r\n"
- " L.UPDT_DT = M.UPDT_DT, \r\n"
- " L.VALID_YN = M.VALID_YN \r\n"
- "WHEN NOT MATCHED \r\n"
- "THEN \r\n"
- " INSERT (VMS_FORM_ID, \r\n"
- " VMS_TYPE_CD, \r\n"
- " VMS_FORM_TYPE_CD, \r\n"
- " VMS_FORM_COLR_CD, \r\n"
- " VMS_FORM_NM, \r\n"
- " VMS_FORM_EXPL, \r\n"
- " VMS_FORM_DSPL_DRCT_CD, \r\n"
- " VMS_FORM_DSPL_MTHD_CD, \r\n"
- " UPDT_DT, \r\n"
- " VALID_YN ) \r\n"
- " VALUES (M.VMS_FORM_ID, \r\n"
- " M.VMS_TYPE_CD, \r\n"
- " M.VMS_FORM_TYPE_CD, \r\n"
- " M.VMS_FORM_COLR_CD, \r\n"
- " M.VMS_FORM_NM, \r\n"
- " M.VMS_FORM_EXPL, \r\n"
- " M.VMS_FORM_DSPL_DRCT_CD, \r\n"
- " M.VMS_FORM_DSPL_MTHD_CD, \r\n"
- " M.UPDT_DT, \r\n"
- " M.VALID_YN ) \r\n";
- TMemoryStream *dataStream = new TMemoryStream();
- ImgForm->Picture->Bitmap->SaveToStream(dataStream);
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sFormId);
- ITSDb_SQLBind(pADO, "p02", sVmsType);
- ITSDb_SQLBind(pADO, "p03", sFormType);
- ITSDb_SQLBind(pADO, "p04", sName);
- ITSDb_SQLBind(pADO, "p05", sExpl);
- ITSDb_SQLBind(pADO, "p06", sFormColor);
- ITSDb_SQLBind(pADO, "p07", sDispDir);
- ITSDb_SQLBind(pADO, "p08", sDispMode);
- ITSDb_SQLBind(pADO, "p09", sUpdtDt);
- ITSDb_SQLBind(pADO, "p10", AVALID_YN);
- ITSDb_SQLExec(pADO);
- sQry = "UPDATE TB_VMS_FORM \r\n"
- " SET VMS_FORM_IMAG = :p02 \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sFormId);
- if (dataStream->Size == 0)
- {
- ITSDb_SQLBind(pADO, "p01", "");
- }
- else
- {
- pADO->Parameters->ParamByName("p02")->LoadFromStream(dataStream, ftBlob);
- }
- ITSDb_SQLExec(pADO);
- if (AVALID_YN == "N")
- {
- //폼 유효성이 N 인 경우 해당폼을 사용하는 스케쥴의 사용여부를 모두 N으로 업데이트 한다.
- sQry = "UPDATE TB_VMS_DSPL_SCH \r\n"
- " SET USE_YN = 'N' \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", sFormId);
- ITSDb_SQLExec(pADO);
- }
- CDSVmsFormManager->AddVmsForm(sFormId, AVALID_YN);
- return true;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::SaveVmsForm", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM500M::SaveVmsForm", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- if (dataStream) delete dataStream;
- dataStream = NULL;
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM500M::CheckVmsFormUse(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- #if 0
- sQry = "SELECT COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_PASV_MSG_DETL \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- if (pADO->FieldByName("CNT")->AsInteger > 0)
- {
- Application->MessageBox(L"VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 VMS 고정메시지 스케쥴에 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- #endif
- #if 1
- sQry = "SELECT VMS_SCH_TYPE, COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_DSPL_SCH \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n"
- " GROUP BY VMS_SCH_TYPE \r\n";
- String sSchedule = "";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- if (pADO->FieldByName("CNT")->AsInteger > 0)
- {
- String VMS_SCH_TYPE = pADO->FieldByName("VMS_SCH_TYPE")->AsString;
- if (VMS_SCH_TYPE == "A")
- {
- if (sSchedule != "") sSchedule = sSchedule + ", 자동";
- else sSchedule = "자동";
- }
- else
- if (VMS_SCH_TYPE == "F")
- {
- if (sSchedule != "") sSchedule = sSchedule + ", 고정";
- else sSchedule = "고정";
- }
- else
- if (VMS_SCH_TYPE == "B")
- {
- if (sSchedule != "") sSchedule = sSchedule + ", 기본";
- else sSchedule = "기본";
- }
- }
- }
- if (sSchedule != "")
- {
- String sMsg;
- sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [" + sSchedule + "] 스케쥴에 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
- Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- #else
- sQry = "SELECT COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_DSPL_SCH \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- if (pADO->FieldByName("CNT")->AsInteger > 0)
- {
- //Application->MessageBox(L"VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 VMS 자동 스케쥴에 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- Application->MessageBox(L"VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 VMS 스케쥴에 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- #endif
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::CheckVmsFormUse", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM500M::CheckVmsFormUse", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM500M::DelVmsForm(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- int nRowHeight = 0;
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- sQry = "DELETE TB_VMS_FORM_OBJECT \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- pADO->ExecSQL();
- sQry = "DELETE TB_VMS_FORM \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- pADO->ExecSQL();
- return true;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::DelVmsForm", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM500M::DelVmsForm", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM500M::GetNextVmsFormId(int &AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT NVL(MAX(VMS_FORM_ID), 9999)+1 AS NEWID FROM TB_VMS_FORM \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- pADO->SQL->Clear();
- pADO->SQL->Text = sQry;
- pADO->Open();
- AFormId = pADO->FieldByName("NEWID")->AsInteger;
- return true;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM500M::GetNextVmsFormId", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM500M::GetNextVmsFormId", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return false;
- }
- //---------------------------------------------------------------------------
|