//--------------------------------------------------------------------------- #pragma hdrstop #include "CDSVmsDsplCndtF.h" #include "VmsCommonLibF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) //--------------------------------------------------------------------------- TVmsDsplCndt::TVmsDsplCndt() { } //--------------------------------------------------------------------------- TVmsDsplCndt::~TVmsDsplCndt() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsDsplCndtManager *VmsDsplCndtManager = NULL; //--------------------------------------------------------------------------- TVmsDsplCndtManager::TVmsDsplCndtManager() { } //--------------------------------------------------------------------------- TVmsDsplCndtManager::~TVmsDsplCndtManager() { FLists.RemoveAll(); } //--------------------------------------------------------------------------- bool TVmsDsplCndtManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; FLists.Lock(); FLists.RemoveAll(); sQry = "SELECT A.VMS_FORM_DSPL_CNDT_ID, \r\n" " A.VMS_FORM_DSPL_CNDT, \r\n" " A.VMS_FORM_DSPL_CNDT_NM \r\n" " FROM TB_VMS_FORM_DSPL_CNDT A \r\n" " ORDER BY A.VMS_FORM_DSPL_CNDT_ID \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Open(); for( ; !pADO->Eof; pADO->Next()) { TVmsDsplCndt *pObj = new TVmsDsplCndt(); pObj->VMS_FORM_DSPL_CNDT_ID = pADO->FieldByName("VMS_FORM_DSPL_CNDT_ID")->AsString; pObj->VMS_FORM_DSPL_CNDT = pADO->FieldByName("VMS_FORM_DSPL_CNDT")->AsString; pObj->VMS_FORM_DSPL_CNDT_NM = pADO->FieldByName("VMS_FORM_DSPL_CNDT_NM")->AsString; FLists.Push(pObj->VMS_FORM_DSPL_CNDT_ID, pObj); } } catch(EDatabaseError &E) { DBERRORMSG("TVmsDsplCndtManager::LoadFromDb", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TVmsDsplCndtManager::LoadFromDb", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } FLists.UnLock(); } return true; } //---------------------------------------------------------------------------