123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981 |
- //---------------------------------------------------------------------------
- #pragma hdrstop
- #include <vcl.h>
- #include <IOUtils.hpp>
- #include <jpeg.hpp>
- #include <GIFimg.hpp>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "AppGlobalF.h"
- #include "CDSVmsFormF.h"
- #pragma hdrstop
- #include "FrmVmsMsgUserDispF.h"
- #include "FrmVmsMsgUserDispSrcF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- void __fastcall TFrmVmsMsgUserDisp::LoadFormObjectInfo(String AFormId, TVmsFormDesigner *ADesigner, String AFormType)
- {
- ADesigner->Clear();
- String sQry;
- TADOQuery *pADO = NULL;
- String imageFilePath;
- String saveDirPath = TPath::GetTempPath() + "VMS-FORM\\";
- ForceDirectories(saveDirPath.c_str());
- sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_OBJ_ID, A.SN AS OBJ_SEQ, A.VMS_FORM_OBJ_KIND, \r\n"
- " NVL(A.BACK_CLR, '00') AS BACK_CLR, \r\n"
- " A.FORM_OBJ_PSTN_X, A.FORM_OBJ_PSTN_Y, A.FORM_OBJ_BLNK_YN, \r\n"
- " DECODE(B.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_CCTV_OBJ, \r\n"
- " DECODE(C.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_TEXT_OBJ, \r\n"
- " DECODE(D.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_SYMB_OBJ, \r\n"
- " B.CCTV_ID, \r\n"
- " C.TXT_WDTH, C.TXT_HGHT, C.TXT_ALGN_MTHD, \r\n"
- " C.FONT_CLR, C.FONT_TYPE, C.FONT_SZ, NVL(C.FONT_THCK, 'N') AS FONT_THCK, \r\n"
- " C.VMS_TXT_ITEM_ID, C.DSPL_TXT, \r\n"
- " D.PICT_NM, D.PICT_WDTH, \r\n"
- " D.PICT_HGHT, D.PICT_DATA_SZ, \r\n"
- " D.PICT_DATA, D.PICT_TYPE \r\n"
- " FROM TB_VMS_FORM_VMS_FORM_OBJ A, \r\n"
- " TB_VMS_FORM_OBJ_CCTV B, \r\n"
- " TB_VMS_FORM_OBJ_TXT C, \r\n"
- " TB_VMS_FORM_OBJ_PICT D \r\n"
- " WHERE 1=1 \r\n"
- " AND A.VMS_FORM_ID = :p01 \r\n"
- " AND A.VMS_FORM_OBJ_ID = B.VMS_FORM_OBJ_ID(+) \r\n"
- " AND A.VMS_FORM_OBJ_ID = C.VMS_FORM_OBJ_ID(+) \r\n"
- " AND A.VMS_FORM_OBJ_ID = D.VMS_FORM_OBJ_ID(+) \r\n"
- " ORDER BY A.VMS_FORM_ID, A.SN \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())
- {
- String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
- String sObjId = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString;
- int nObjSeq = pADO->FieldByName("OBJ_SEQ")->AsInteger;
- String sObjKind = pADO->FieldByName("VMS_FORM_OBJ_KIND")->AsString;
- String sBackClr = pADO->FieldByName("BACK_CLR")->AsString;
- int nPosX = pADO->FieldByName("FORM_OBJ_PSTN_X")->AsInteger;
- int nPosY = pADO->FieldByName("FORM_OBJ_PSTN_Y")->AsInteger;
- bool bBlinking = pADO->FieldByName("FORM_OBJ_BLNK_YN")->AsString == "N" ? false : true;
- int isCctvObj = pADO->FieldByName("IS_CCTV_OBJ")->AsInteger;
- int isTextObj = pADO->FieldByName("IS_TEXT_OBJ")->AsInteger;
- int isSymbObj = pADO->FieldByName("IS_SYMB_OBJ")->AsInteger;
- int nObjType = 0;
- int nDsplWdth = 0;
- int nDsplHght = 0;
- int nDsplSize = 0;
- String sDsplText = "";
- if (sObjKind == FORM_OBJ_KIND_CCTV && isCctvObj == 1) {
- sDsplText = pADO->FieldByName("CCTV_ID")->AsString;
- nDrawType = 1; //이미지그리기
- nObjType = 2; //이미지
- nDsplWdth = ADesigner->Width;
- nDsplHght = ADesigner->Height;
- nDsplSize = nDsplWdth * nDsplHght;
- }
- else
- if (sObjKind == FORM_OBJ_KIND_TEXT && isTextObj == 1) {
- sDsplText = pADO->FieldByName("DSPL_TXT")->AsString;
- nDsplWdth = pADO->FieldByName("TXT_WDTH")->AsInteger;
- nDsplHght = pADO->FieldByName("TXT_HGHT")->AsInteger;
- nDsplSize = sDsplText.Length();
- nDrawType = 0; //문자열그리기
- nObjType = 0; //문자열
- }
- else
- if (sObjKind == FORM_OBJ_KIND_IMAGE && isSymbObj == 1) {
- sDsplText = pADO->FieldByName("PICT_NM")->AsString;
- nDsplWdth = pADO->FieldByName("PICT_WDTH")->AsInteger;
- nDsplHght = pADO->FieldByName("PICT_HGHT")->AsInteger;
- nDsplSize = pADO->FieldByName("PICT_DATA_SZ")->AsInteger;
- //TMemoryStream *pictData = pADO->CreateBlobStream(pADO->FieldByName("PICT_DATA"), bmRead);
- //SAFE_DELETE(pictData);
- nDrawType = 1; //이미지그리기
- nObjType = 1; //이미지심벌
- }
- else {
- continue;
- }
- /////// 폼객체를 생성해서 추가한다.
- TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
- if (!pObj) continue;
- if (sObjKind == FORM_OBJ_KIND_CCTV && isCctvObj == 1) {
- pObj->EditMode = false;
- }
- pObj->ObjSeq = nObjSeq;
- pObj->ObjId = sObjId;
- pObj->ObjKind = sObjKind;
- pObj->ObjType = sObjKind;
- pObj->Tag = 0;
- pObj->ObjSize = nDsplSize;
- pObj->BkColorCode = sBackClr;
- pObj->Blink = bBlinking;
- pObj->ImageId = sObjId;
- pObj->Text = sDsplText;
- pObj->RunText = pObj->Text;
- pObj->SetPos(nPosX, nPosY);
- if (sObjKind == FORM_OBJ_KIND_TEXT && isTextObj == 1) // 문자열
- {
- String sTxtItemId = pADO->FieldByName("VMS_TXT_ITEM_ID")->AsString;
- String sTxtAlgn = pADO->FieldByName("TXT_ALGN_MTHD")->AsString;
- String sFontClr = pADO->FieldByName("FONT_CLR")->AsString;
- String sFontType = pADO->FieldByName("FONT_TYPE")->AsString;
- int nFontSize = pADO->FieldByName("FONT_SZ")->AsInteger;
- bool bFontThck = pADO->FieldByName("FONT_THCK")->AsString == "N" ? false : true;
- int nTextAlign = 0;
- if (sTxtAlgn == "R") nTextAlign = 1;
- if (sTxtAlgn == "C") nTextAlign = 2;
- pObj->FillIn = sTxtItemId;
- pObj->FontNameCode = sFontType;
- TCDSFontName *pFontName = CDSFontManager->FFontNames.Find(pObj->FontNameCode);
- if (pFontName != NULL) {
- pObj->FontName = pFontName->VMS_FONT_NAME_NM;
- }
- else {
- pObj->FontName = "명조체";
- pObj->FontNameCode = "00";
- }
- pObj->FontColorCode = sFontClr;
- pObj->FontSize = nFontSize;
- pObj->FontBold = bFontThck;
- pObj->TextAlign = nTextAlign;
- }
- else
- if (sObjKind == FORM_OBJ_KIND_IMAGE && isSymbObj == 1)
- {
- if (pObj->ObjKind == OBJKIND_IMAGEID) {
- if (pObj->Text.Trim() == "") {
- pObj->Text = pObj->ImageId;
- }
- }
- TMemoryStream *pictData = new TMemoryStream();
- try {
- String sPictType = pADO->FieldByName("PICT_TYPE")->AsString;
- String sPictExt = DbPictTypeToReal(sPictExt);
- pictData->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("PICT_DATA"), bmRead));
- if (pictData && pictData->Size > 0) {
- imageFilePath = saveDirPath + sObjId + "." + sPictExt;
- pictData->SaveToFile(imageFilePath);
- LoadingImage(pObj, imageFilePath, nDsplWdth, nDsplHght);
- #if 0
- Graphics::TBitmap *Bitmap = pObj->GetBitmap();
- pictData->Position = 0;
- Bitmap->LoadFromStream(pictData);
- #ifdef IMAGE_RESIZE
- pObj->GetImage()->AutoSize= false;
- pObj->GetImage()->Stretch = true;
- pObj->GetImage()->Width = nWidth;
- pObj->GetImage()->Height = nHeight;
- pObj->SetSize(nDsplWdth, nDsplHght);
- #else
- pObj->SetSize(Bitmap->Width, Bitmap->Height);
- #endif
- #endif
- pObj->SetPos(nPosX, nPosY);
- }
- }
- __finally {
- SAFE_DELETE(pictData);
- }
- }
- pObj->Show();
- pObj->BringToFront();
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::LoadFormObjectInfo", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::LoadFormObjectInfo", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFrmVmsMsgUserDisp::LoadVmsForm()
- {
- #if 0
- FormClear();
- CMM_ClearGridTableView(TvList);
- ClearSymbloList();
- TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
- if (pVmsSizeType == NULL) return;
- String sWhereQry = "";
- if (pVmsSizeType->TypeCd != "ALL") {
- sWhereQry += " AND A.VMS_MODL_KIND = '" + pVmsSizeType->TypeCd + "' \r\n";
- }
- FVmsTypeCd = pVmsSizeType->TypeCd;
- FVmsWidth = pVmsSizeType->Width;
- FVmsHeight = pVmsSizeType->Height;
- FVmsCols = pVmsSizeType->Cols;
- FVmsRows = pVmsSizeType->Rows;
- ImgForm->Width = FVmsWidth;
- ImgForm->Height = FVmsHeight;
- ImgForm->Picture->Bitmap->Width = FVmsWidth;
- ImgForm->Picture->Bitmap->Height = FVmsHeight;
- {
- 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 = "00";
- m_pEdtDesigner->EditMode = true;
- m_pEdtDesigner->Show();
- }
- String sVmsSizeNm = pVmsSizeType->TypeNm;
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT A.VMS_FORM_ID, A.VMS_MODL_KIND, A.VMS_FORM_TYPE, A.VMS_FORM_NM, \r\n"
- " A.DSPL_EFF, NVL(A.DSPL_HR, 0) AS DSPL_HR, A.BACK_CLR, \r\n"
- " NVL(B.FORM_TYPE_NM, A.VMS_FORM_TYPE) AS FORM_TYPE_NM, \r\n"
- " NVL(C.FORM_TYPE_NM, A.DSPL_EFF) AS DSPL_EFF_NM, \r\n"
- " NVL(D.VMS_MODL_KIND_NM, A.VMS_MODL_KIND) AS VMS_MODL_KIND_NM \r\n"
- " FROM TB_VMS_FORM A, \r\n"
- " (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM \r\n"
- " FROM TB_SYS_CD \r\n"
- " WHERE CLSS_CD = 'VMS_FORM_TYPE_CD') B, \r\n"
- " (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM \r\n"
- " FROM TB_SYS_CD \r\n"
- " WHERE CLSS_CD = 'VMS_FORM_DSPL_EFF_CD') C, \r\n"
- " TB_VMS_MODL_KIND D \r\n"
- " WHERE 1=1 \r\n"
- " AND A.VMS_FORM_TYPE = B.CODE_NO(+) \r\n"
- " AND A.DSPL_EFF = C.CODE_NO(+) \r\n"
- " AND A.VMS_MODL_KIND = D.VMS_MODL_KIND(+) \r\n";
- sQry += sWhereQry;
- sQry +=" ORDER BY A.VMS_MODL_KIND, A.VMS_FORM_ID \r\n";
- 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_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- nRow = pGDC->AppendRecord();
- String sVmsFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
- if (sFirstFormId == "") sFirstFormId = sVmsFormId;
- String DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString;
- pGDC->Values[nRow][ColVMS_FORM_ID->Index] = sVmsFormId; //폼ID
- pGDC->Values[nRow][ColVMS_FORM_NM->Index] = pADO->FieldByName("VMS_FORM_NM")->AsVariant; //폼명칭
- pGDC->Values[nRow][ColVMS_FORM_TYPE_NM->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString; //폼종류
- pGDC->Values[nRow][ColDSPL_EFF_NM->Index] = pADO->FieldByName("DSPL_EFF_NM")->AsString; //표출효과
- pGDC->Values[nRow][ColVMS_MODL_KIND_NM->Index] = pADO->FieldByName("VMS_MODL_KIND_NM")->AsString; //폼크기
- pGDC->Values[nRow][ColDSPL_HR->Index] = pADO->FieldByName("DSPL_HR")->AsInteger; //표출시간
- pGDC->Values[nRow][ColVMS_FORM_TYPE->Index] = pADO->FieldByName("VMS_FORM_TYPE")->AsString; //폼종류코드-
- pGDC->Values[nRow][ColDSPL_EFF->Index] = pADO->FieldByName("DSPL_EFF")->AsString; //표출효과
- pGDC->Values[nRow][ColBACK_CLR->Index] = pADO->FieldByName("BACK_CLR")->AsString; //배경색코드-
- pGDC->Values[nRow][ColVMS_MODL_KIND->Index] = pADO->FieldByName("VMS_MODL_KIND")->AsString; //폼크기코드-
- #if 0
- 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);
- #endif
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::LoadVmsForm", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::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, ColVMS_FORM_ID->Index);
- //DisplayInfo();
- }
- }
- #endif
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmVmsMsgUserDisp::SaveVmsForm(String AVALID_YN)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- String VMS_FORM_ID = FVMS_FORM_ID;
- String VMS_MODL_KIND = FVMS_MODL_KIND;
- String VMS_FORM_TYPE = FVMS_FORM_TYPE;
- String VMS_FORM_NM = FVMS_FORM_NM;
- String DSPL_EFF = FDSPL_EFF;
- int DSPL_HR = FDSPL_HR;
- String BACK_CLR = FBACK_CLR;
- String OPER_ID = FOPER_ID;
- sQry = "MERGE INTO TB_VMS_FORM L \r\n"
- "USING (SELECT :p01 AS VMS_FORM_ID, \r\n"
- " :p02 AS VMS_MODL_KIND, \r\n"
- " :p03 AS VMS_FORM_TYPE, \r\n"
- " :p04 AS VMS_FORM_NM, \r\n"
- " :p05 AS DSPL_EFF, \r\n"
- " :p06 AS DSPL_HR, \r\n"
- " :p07 AS BACK_CLR, \r\n"
- " :p08 AS OPER_ID \r\n"
- " FROM DUAL) M \r\n"
- " ON (L.VMS_FORM_ID = M.VMS_FORM_ID) \r\n"
- "WHEN MATCHED THEN \r\n"
- " UPDATE SET L.VMS_MODL_KIND = M.VMS_MODL_KIND, \r\n"
- " L.VMS_FORM_TYPE = M.VMS_FORM_TYPE, \r\n"
- " L.VMS_FORM_NM = M.VMS_FORM_NM, \r\n"
- " L.DSPL_EFF = M.DSPL_EFF, \r\n"
- " L.DSPL_HR = M.DSPL_HR, \r\n"
- " L.BACK_CLR = M.BACK_CLR, \r\n"
- " L.CHNGR_ID = M.OPER_ID, \r\n"
- " L.CHG_DT = SYSDATE \r\n"
- "WHEN NOT MATCHED THEN \r\n"
- " INSERT (VMS_FORM_ID, \r\n"
- " VMS_MODL_KIND, \r\n"
- " VMS_FORM_TYPE, \r\n"
- " VMS_FORM_NM, \r\n"
- " DSPL_EFF, \r\n"
- " DSPL_HR, \r\n"
- " BACK_CLR, \r\n"
- " RGSTR_ID, \r\n"
- " REG_DT ) \r\n"
- " VALUES (M.VMS_FORM_ID, \r\n"
- " M.VMS_MODL_KIND, \r\n"
- " M.VMS_FORM_TYPE, \r\n"
- " M.VMS_FORM_NM, \r\n"
- " M.DSPL_EFF, \r\n"
- " M.DSPL_HR, \r\n"
- " M.BACK_CLR, \r\n"
- " M.OPER_ID, \r\n"
- " SYSDATE ) \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);
- pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
- pADO->Parameters->ParamByName("p02")->Value = VMS_MODL_KIND;
- pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_TYPE;
- pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_NM;
- pADO->Parameters->ParamByName("p05")->DataType = ftString;
- pADO->Parameters->ParamByName("p05")->Value = DSPL_EFF;
- pADO->Parameters->ParamByName("p06")->Value = DSPL_HR;
- pADO->Parameters->ParamByName("p07")->DataType = ftString;
- pADO->Parameters->ParamByName("p07")->Value = BACK_CLR;
- pADO->Parameters->ParamByName("p08")->DataType = ftString;
- pADO->Parameters->ParamByName("p08")->Value = OPER_ID;
- ITSDb_SQLExec(pADO);
- sQry = "UPDATE TB_VMS_FORM \r\n"
- " SET VMS_FORM_IMG = :p02 \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", VMS_FORM_ID);
- if (dataStream->Size == 0) {
- ITSDb_SQLBind(pADO, "p01", "");
- }
- else {
- pADO->Parameters->ParamByName("p02")->LoadFromStream(dataStream, ftBlob);
- }
- ITSDb_SQLExec(pADO);
- return true;
- }
- catch(EDatabaseError &E) {
- DBERRORMSG("TFrmVmsMsgUserDisp::SaveVmsForm", String(E.ClassName()), E.Message, sQry);
- return false;
- }
- catch(Exception &e)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::SaveVmsForm", String(e.ClassName()), e.Message, sQry);
- return false;
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- if (dataStream) delete dataStream;
- dataStream = NULL;
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmVmsMsgUserDisp::SaveVmsFormObject()
- {
- bool bResult = false;
- String sQry;
- TADOQuery *pADO = NULL;
- TVmsFormObject *pFormObj = NULL;
- TcxGridDataController *pGDC = TvObjList->DataController;
- String VMS_FORM_ID = FVMS_FORM_ID;
- String OBJ_VMS_FORM_ID = FVMS_FORM_ID.SubString(1, 6);
- int newObjSeq = 1; // 신규로 추가하는 메시지
- int nObjCnt = pGDC->RecordCount;
- try {
- try {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- // 폼 오브젝트 구성정보 저장
- sQry = "INSERT INTO TB_VMS_FORM_VMS_FORM_OBJ ( \r\n"
- " VMS_FORM_ID, \r\n"
- " SN, \r\n"
- " VMS_FORM_OBJ_KIND, \r\n"
- " VMS_FORM_OBJ_ID, \r\n"
- " BACK_CLR, \r\n"
- " FORM_OBJ_PSTN_X, \r\n"
- " FORM_OBJ_PSTN_Y, \r\n"
- " FORM_OBJ_BLNK_YN ) \r\n"
- " VALUES ( \r\n"
- " :p01, \r\n"
- " :p02, \r\n"
- " :p03, \r\n"
- " :p04, \r\n"
- " :p05, \r\n"
- " :p06, \r\n"
- " :p07, \r\n"
- " :p08 ) \r\n";
- ITSDb_SQLText(pADO, sQry);
- for (int ii = 0; ii < nObjCnt; ii++) {
- String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]);
- pFormObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
- if (!pFormObj) continue;
- //이력으로 조회하는곳에서 좌표를 0x02로 저장하는데 음수가 나오는 경우
- //2자리로 처리가 되지 않기 때문에 여기서 막아준다.
- if (pFormObj->Left < 0) pFormObj->Left = 0;
- if (pFormObj->Top < 0) pFormObj->Top = 0;
- int SN = ii+1;
- String VMS_FORM_OBJ_KIND = pFormObj->ObjKind;
- String VMS_FORM_OBJ_ID = pFormObj->ObjId;
- if (VMS_FORM_OBJ_ID == "") {
- VMS_FORM_OBJ_ID.printf(L"%s-%03d", OBJ_VMS_FORM_ID, newObjSeq++);
- pFormObj->ObjId = VMS_FORM_OBJ_ID;
- }
- String BACK_CLR = pFormObj->BkColorCode;
- int FORM_OBJ_PSTN_X = pFormObj->Left;
- int FORM_OBJ_PSTN_Y = pFormObj->Top;
- String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";
- pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
- pADO->Parameters->ParamByName("p02")->Value = SN;
- pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
- pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
- pADO->Parameters->ParamByName("p05")->DataType = ftString;
- pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
- pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
- pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
- pADO->Parameters->ParamByName("p08")->DataType = ftString;
- pADO->Parameters->ParamByName("p08")->Value = FORM_OBJ_BLNK_YN;
- ITSDb_SQLExec(pADO);
- }
- // 텍스트 오브젝트 정보 저장
- sQry = "INSERT INTO TB_VMS_FORM_OBJ_TXT ( \r\n"
- " VMS_FORM_OBJ_ID, \r\n"
- " TXT_WDTH, \r\n"
- " TXT_HGHT, \r\n"
- " TXT_ALGN_MTHD, \r\n"
- " FONT_CLR, \r\n"
- " FONT_TYPE, \r\n"
- " FONT_SZ, \r\n"
- " FONT_THCK, \r\n"
- " VMS_TXT_ITEM_ID, \r\n"
- " DSPL_TXT, \r\n"
- " RGSTR_ID, \r\n"
- " REG_DT ) \r\n"
- " VALUES ( \r\n"
- " :p01, \r\n"
- " :p02, \r\n"
- " :p03, \r\n"
- " :p04, \r\n"
- " :p05, \r\n"
- " :p06, \r\n"
- " :p07, \r\n"
- " :p08, \r\n"
- " :p09, \r\n"
- " :p10, \r\n"
- " :p11, \r\n"
- " SYSDATE ) \r\n";
- ITSDb_SQLText(pADO, sQry);
- for (int ii = 0; ii < nObjCnt; ii++) {
- String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]);
- pFormObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
- if (!pFormObj) continue;
- if (pFormObj->ObjKind != FORM_OBJ_KIND_TEXT) {
- continue;
- }
- String VMS_FORM_OBJ_ID = pFormObj->ObjId;
- int TXT_WDTH = pFormObj->GetWidth();
- int TXT_HGHT = pFormObj->GetHeight();
- String TXT_ALGN_MTHD = "C";
- if (pFormObj->TextAlign == 0) {
- TXT_ALGN_MTHD = "L";
- }
- else if (pFormObj->TextAlign == 1) {
- TXT_ALGN_MTHD = "R";
- }
- String FONT_CLR = pFormObj->FontColorCode;
- String FONT_TYPE = pFormObj->FontNameCode;
- int FONT_SZ = pFormObj->FontSize;
- String FONT_THCK = pFormObj->FontBold ? "B" : "N";
- String VMS_TXT_ITEM_ID = pFormObj->FillIn;
- String DSPL_TXT = pFormObj->Text;
- String RGSTR_ID = g_AppCfg.OPER_ID;
- String BACK_CLR = pFormObj->BkColorCode;
- int FORM_OBJ_PSTN_X = pFormObj->Left;
- int FORM_OBJ_PSTN_Y = pFormObj->Top;
- String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";
- pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
- pADO->Parameters->ParamByName("p02")->Value = TXT_WDTH;
- pADO->Parameters->ParamByName("p03")->Value = TXT_HGHT;
- pADO->Parameters->ParamByName("p04")->Value = TXT_ALGN_MTHD;
- pADO->Parameters->ParamByName("p05")->DataType = ftString;
- pADO->Parameters->ParamByName("p05")->Value = FONT_CLR;
- pADO->Parameters->ParamByName("p06")->DataType = ftString;
- pADO->Parameters->ParamByName("p06")->Value = FONT_TYPE;
- pADO->Parameters->ParamByName("p07")->Value = FONT_SZ;
- pADO->Parameters->ParamByName("p08")->DataType = ftString;
- pADO->Parameters->ParamByName("p08")->Value = FONT_THCK;
- pADO->Parameters->ParamByName("p09")->DataType = ftString;
- pADO->Parameters->ParamByName("p09")->Value = VMS_TXT_ITEM_ID;
- pADO->Parameters->ParamByName("p10")->DataType = ftString;
- pADO->Parameters->ParamByName("p10")->Value = DSPL_TXT;
- pADO->Parameters->ParamByName("p11")->DataType = ftString;
- pADO->Parameters->ParamByName("p11")->Value = RGSTR_ID;
- ITSDb_SQLExec(pADO);
- }
- bResult = true;
- }
- catch(EDatabaseError &E)
- {
- ITSDb_GetConnection()->RollbackTrans();
- DBERRORMSG("TFrmVmsMsgUserDisp::SaveVmsFormObject", String(E.ClassName()), E.Message, sQry);
- }
- catch(Exception &e)
- {
- ITSDb_GetConnection()->RollbackTrans();
- DBERRORMSG("TFrmVmsMsgUserDisp::SaveVmsFormObject", String(e.ClassName()), e.Message, sQry);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return bResult;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmVmsMsgUserDisp::CheckExistForm(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- try {
- try {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_FORM \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n"
- " GROUP BY VMS_FORM_ID \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next()) {
- if (pADO->FieldByName("CNT")->AsInteger > 0) {
- return true;
- }
- }
- }
- catch(EDatabaseError &E) {
- DBERRORMSG("TFrmVmsMsgUserDisp::CheckExistForm", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e) {
- DBERRORMSG("TFrmVmsMsgUserDisp::CheckExistForm", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally {
- if (pADO) {
- pADO->Close();
- delete pADO;
- }
- }
- return false;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmVmsMsgUserDisp::CheckVmsFormUse(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- try {
- try {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_DSPL_PLAN_MSG \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n"
- " GROUP BY VMS_FORM_ID \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next()) {
- if (pADO->FieldByName("CNT")->AsInteger > 0) {
- String sMsg;
- sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS표출계획메시지] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
- Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- }
- sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_DFLT_FORM \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n"
- " GROUP BY VMS_FORM_ID \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next()) {
- if (pADO->FieldByName("CNT")->AsInteger > 0) {
- String sMsg;
- sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS기본폼구성] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
- Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- }
- sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_SCNR_VMS_FORM \r\n"
- " WHERE VMS_FORM_ID = :p01 \r\n"
- " GROUP BY VMS_FORM_ID \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next()) {
- if (pADO->FieldByName("CNT")->AsInteger > 0) {
- String sMsg;
- sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS시나리오] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
- Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- }
- }
- catch(EDatabaseError &E) {
- DBERRORMSG("TFrmVmsMsgUserDisp::CheckVmsFormUse", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e) {
- DBERRORMSG("TFrmVmsMsgUserDisp::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 TFrmVmsMsgUserDisp::DelVmsFormRltnTable(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- try {
- try {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- sQry = "DELETE TB_VMS_FORM_OBJ_TXT \r\n"
- " WHERE VMS_FORM_OBJ_ID IN (SELECT VMS_FORM_OBJ_ID \r\n"
- " FROM TB_VMS_FORM_VMS_FORM_OBJ \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_VMS_FORM_OBJ WHERE VMS_FORM_ID = :p01";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- pADO->ExecSQL();
- return true;
- }
- catch(EDatabaseError &E) {
- DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsFormRltnTable", String(E.ClassName()), E.Message, sQry);
- return false;
- }
- catch(Exception &e) {
- DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsFormRltnTable", String(e.ClassName()), e.Message, sQry);
- return false;
- }
- }
- __finally {
- if (pADO) {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TFrmVmsMsgUserDisp::DelVmsForm(String AFormId)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- if (!DelVmsFormRltnTable(AFormId)) {
- return false;
- }
- try {
- try {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- sQry = "DELETE TB_VMS_FORM WHERE VMS_FORM_ID = :p01";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFormId);
- pADO->ExecSQL();
- return true;
- }
- catch(EDatabaseError &E) {
- DBERRORMSG("TFrmVmsMsgUserDisp::DelVmsForm", String(E.ClassName()), E.Message, sQry);
- return false;
- }
- catch(Exception &e) {
- DBERRORMSG("TFrmVmsMsgUserDisp::DelVmsForm", String(e.ClassName()), e.Message, sQry);
- return false;
- }
- }
- __finally {
- if (pADO) {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- String __fastcall TFrmVmsMsgUserDisp::GetNextVmsFormId(String AFormType)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- String result = AFormType + "-0000";
- sQry = "SELECT '" + AFormType + "-' || LPAD(NVL(MAX(SUBSTR(VMS_FORM_ID, -4)), '0000') + 1, 4, '0') AS NEWID FROM TB_VMS_FORM WHERE SUBSTR(VMS_FORM_ID,1,2)='" + AFormType + "-'";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLOpen(pADO);
- pADO->Open();
- result = pADO->FieldByName("NEWID")->AsString;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::GetNextVmsFormId", String(E.ClassName()), E.Message, sQry);
- return result;
- }
- catch(Exception &e)
- {
- DBERRORMSG("TFrmVmsMsgUserDisp::GetNextVmsFormId", String(e.ClassName()), e.Message, sQry);
- return result;
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return result;
- }
- //---------------------------------------------------------------------------
|