//--------------------------------------------------------------------------- #pragma hdrstop #include "CDSCodeF.h" #include "VmsCommonLibF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) TSysCode::TSysCode() { } //--------------------------------------------------------------------------- TSysCode::TSysCode(String ACLSS_CD, String ACODE_NO, String ACD_NM) { TSysCode(ACLSS_CD, ACODE_NO, ACD_NM, ""); CLSS_CD = ACLSS_CD; CODE_NO = ACODE_NO; CD_NM = ACD_NM; CD_VAL_1 = ""; USE_YN = "Y"; } //--------------------------------------------------------------------------- TSysCode::TSysCode(String ACLSS_CD, String ACODE_NO, String ACD_NM, String ACD_VAL_1) { CLSS_CD = ACLSS_CD; CODE_NO = ACODE_NO; CD_NM = ACD_NM; CD_VAL_1 = ACD_VAL_1; USE_YN = "Y"; } //--------------------------------------------------------------------------- void TSysCode::Clear() { } //--------------------------------------------------------------------------- TSysCode::~TSysCode() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TSysClssCode::TSysClssCode() { } //--------------------------------------------------------------------------- TSysClssCode::TSysClssCode(String ACLSS_CD, String ACLSS_CD_NM) { CLSS_CD = ACLSS_CD; CLSS_CD_NM = ACLSS_CD_NM; } //--------------------------------------------------------------------------- void TSysClssCode::Clear() { } //--------------------------------------------------------------------------- TSysClssCode::~TSysClssCode() { FLists.RemoveAll(); } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TSysCodeManager *SysCodeManager = NULL; //--------------------------------------------------------------------------- /* * Link Manager */ TSysCodeManager::TSysCodeManager() { } //--------------------------------------------------------------------------- TSysCodeManager::~TSysCodeManager() { } //--------------------------------------------------------------------------- bool TSysCodeManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/) { FLists.RemoveAll(); return (LoadSysClssCode(ADbConn) && LoadSysCode(ADbConn)); } //--------------------------------------------------------------------------- bool TSysCodeManager::LoadSysClssCode(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT * \r\n" " FROM TB_SYS_CLSS_CD \r\n"; FLists.Lock(); try { FLists.RemoveAll(); try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Prepared = true; pADO->Open(); for( ; !pADO->Eof; pADO->Next()) { TSysClssCode *pCode = new TSysClssCode(); pCode->CLSS_CD = pADO->FieldByName("CLSS_CD")->AsString; pCode->CLSS_CD_NM = pADO->FieldByName("CLSS_CD_NM")->AsString; FLists.Push(pCode->CLSS_CD, pCode); } } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG("TSysCodeManager::LoadSysClssCode", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &exception) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG("TSysCodeManager::LoadSysClssCode", String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } FLists.UnLock(); } return true; } //--------------------------------------------------------------------------- bool TSysCodeManager::LoadSysCode(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT * \r\n" " FROM TB_SYS_CD \r\n" " WHERE USE_YN = 'Y' \r\n"; FLists.Lock(); try { TSysClssCode *pClssCd = NULL; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Prepared = true; pADO->Open(); for( ; !pADO->Eof; pADO->Next()) { String CLSS_CD = pADO->FieldByName("CLSS_CD")->AsString; pClssCd = SysCodeManager->FLists.Find(CLSS_CD); if (!pClssCd) continue; TSysCode *pSysCode = new TSysCode(); pSysCode->CLSS_CD = pADO->FieldByName("CLSS_CD")->AsString; // N VARCHAR2(32) N ºÐ·ùÄÚµå pSysCode->CODE_NO = pADO->FieldByName("CODE_NO")->AsString; // N VARCHAR2(5) N ÄÚµå pSysCode->CD_NM = pADO->FieldByName("CD_NM")->AsString; // N VARCHAR2(50) N ÄÚµå¸í pSysCode->CD_VAL_1 = pADO->FieldByName("CD_VAL_1")->AsString; // N VARCHAR2(32) Y Äڵ尪1 pSysCode->CD_VAL_2 = pADO->FieldByName("CD_VAL_2")->AsString; // N VARCHAR2(32) Y Äڵ尪2 pSysCode->CD_VAL_3 = pADO->FieldByName("CD_VAL_3")->AsString; // N VARCHAR2(32) Y Äڵ尪3 pSysCode->CD_VAL_4 = pADO->FieldByName("CD_VAL_4")->AsString; // N VARCHAR2(32) Y Äڵ尪4 pSysCode->CD_VAL_5 = pADO->FieldByName("CD_VAL_5")->AsString; // N VARCHAR2(32) Y Äڵ尪5 pSysCode->CD_VAL_6 = pADO->FieldByName("CD_VAL_6")->AsString; // N VARCHAR2(32) Y Äڵ尪6 pSysCode->CD_VAL_7 = pADO->FieldByName("CD_VAL_7")->AsString; // N VARCHAR2(32) Y Äڵ尪7 pSysCode->CD_VAL_8 = pADO->FieldByName("CD_VAL_8")->AsString; // N VARCHAR2(32) Y Äڵ尪8 pSysCode->CD_VAL_9 = pADO->FieldByName("CD_VAL_9")->AsString; // N VARCHAR2(32) Y Äڵ尪9 pSysCode->USE_YN = pADO->FieldByName("USE_YN")->AsString; // N CHAR(1) N »ç¿ë¿©ºÎ pClssCd->FLists.Push(pSysCode->CODE_NO, pSysCode); } } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG("TSysCodeManager::LoadSysCode", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &exception) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG("TSysCodeManager::LoadSysCode", String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } FLists.UnLock(); } return true; } //--------------------------------------------------------------------------- bool TSysCodeManager::LoadFromDbOffline(TSysCodeManager *ASysCodeManager) { TSysClssCode *pCode; TSysCode *pSysCode; //ÆûÀ¯Çü "VMS_FORM_TYPE_CD"); //Ç¥Ãâ¹æ¹ý"VMS_FORM_DSPL_EFF_CD"); pCode = new TSysClssCode("VMS_FORM_DSPL_EFF_CD", "Ç¥Ãâ¹æ¹ý"); pCode->FLists.Push("00", new TSysCode("FONT_KIND_CD", "00", "Shift-Up")); pCode->FLists.Push("01", new TSysCode("FONT_KIND_CD", "01", "Shift-Down")); pCode->FLists.Push("02", new TSysCode("FONT_KIND_CD", "02", "Shift-Left")); pCode->FLists.Push("03", new TSysCode("FONT_KIND_CD", "03", "Shift-Right")); pCode->FLists.Push("10", new TSysCode("FONT_KIND_CD", "10", "Scroll-Up")); pCode->FLists.Push("11", new TSysCode("FONT_KIND_CD", "11", "Scroll-Down")); pCode->FLists.Push("12", new TSysCode("FONT_KIND_CD", "12", "Scroll-Left")); pCode->FLists.Push("13", new TSysCode("FONT_KIND_CD", "13", "Scroll-Right")); pCode->FLists.Push("20", new TSysCode("FONT_KIND_CD", "20", "Wipe-Up")); pCode->FLists.Push("21", new TSysCode("FONT_KIND_CD", "21", "Wipe-Down")); pCode->FLists.Push("22", new TSysCode("FONT_KIND_CD", "22", "Wipe-Left")); pCode->FLists.Push("23", new TSysCode("FONT_KIND_CD", "23", "Wipe-Right")); pCode->FLists.Push("30", new TSysCode("FONT_KIND_CD", "30", "Curtain-Up")); pCode->FLists.Push("31", new TSysCode("FONT_KIND_CD", "31", "Curtain-Down")); pCode->FLists.Push("32", new TSysCode("FONT_KIND_CD", "32", "Curtain-Left")); pCode->FLists.Push("33", new TSysCode("FONT_KIND_CD", "33", "Curtain-Right")); pCode->FLists.Push("40", new TSysCode("FONT_KIND_CD", "40", "Trace-Up")); pCode->FLists.Push("41", new TSysCode("FONT_KIND_CD", "41", "Trace-Down")); pCode->FLists.Push("42", new TSysCode("FONT_KIND_CD", "42", "Trace-Left")); pCode->FLists.Push("43", new TSysCode("FONT_KIND_CD", "43", "Trace-Right")); pCode->FLists.Push("50", new TSysCode("FONT_KIND_CD", "50", "Blind-Up")); pCode->FLists.Push("51", new TSysCode("FONT_KIND_CD", "51", "Blind-Down")); pCode->FLists.Push("52", new TSysCode("FONT_KIND_CD", "52", "Blind-Left")); pCode->FLists.Push("53", new TSysCode("FONT_KIND_CD", "53", "Blind-Right")); pCode->FLists.Push("60", new TSysCode("FONT_KIND_CD", "60", "Flashing")); pCode->FLists.Push("70", new TSysCode("FONT_KIND_CD", "70", "Stationary")); ASysCodeManager->FLists.Push(pCode->CLSS_CD, pCode); //Æû°´Ã¼Á¾·ù "VMS_FORM_OBJ_KIND_CD"); pCode = new TSysClssCode("VMS_FORM_OBJ_KIND_CD", "VMSÆû°´Ã¼Á¾·ùÄÚµå"); pCode->FLists.Push("C", new TSysCode("VMS_FORM_OBJ_KIND_CD", "C", "CCTV °´Ã¼")); pCode->FLists.Push("H", new TSysCode("VMS_FORM_OBJ_KIND_CD", "H", "µµÇü °´Ã¼")); pCode->FLists.Push("I", new TSysCode("VMS_FORM_OBJ_KIND_CD", "I", "±×·¡ÇÈ °´Ã¼")); pCode->FLists.Push("M", new TSysCode("VMS_FORM_OBJ_KIND_CD", "M", "µ¿¿µ»ó °´Ã¼")); pCode->FLists.Push("P", new TSysCode("VMS_FORM_OBJ_KIND_CD", "P", "ÅØ½ºÆ® °´Ã¼")); ASysCodeManager->FLists.Push(pCode->CLSS_CD, pCode); //±Û²ÃÁ¾·ùÄÚµå "FONT_KIND_CD"); pCode = new TSysClssCode("FONT_KIND_CD", "±Û²ÃÁ¾·ùÄÚµå"); pCode->FLists.Push("00", new TSysCode("FONT_KIND_CD", "00", "¸íÁ¶Ã¼")); pCode->FLists.Push("01", new TSysCode("FONT_KIND_CD", "01", "°íµñü")); pCode->FLists.Push("02", new TSysCode("FONT_KIND_CD", "02", "±¼¸²Ã¼")); pCode->FLists.Push("03", new TSysCode("FONT_KIND_CD", "03", "¹ÙÅÁü")); pCode->FLists.Push("04", new TSysCode("FONT_KIND_CD", "04", "µ¸¿òü")); pCode->FLists.Push("05", new TSysCode("FONT_KIND_CD", "05", "±Ã¼­Ã¼")); pCode->FLists.Push("06", new TSysCode("FONT_KIND_CD", "06", "ÇѱæÃ¼")); pCode->FLists.Push("07", new TSysCode("FONT_KIND_CD", "07", "³ª´®°íµñ Light")); pCode->FLists.Push("08", new TSysCode("FONT_KIND_CD", "08", "³ª´®°íµñ")); pCode->FLists.Push("09", new TSysCode("FONT_KIND_CD", "09", "³ª´®°íµñ Bold")); pCode->FLists.Push("10", new TSysCode("FONT_KIND_CD", "10", "³ª´®°íµñ ExtraBold")); ASysCodeManager->FLists.Push(pCode->CLSS_CD, pCode); return true; } //---------------------------------------------------------------------------