//--------------------------------------------------------------------------- #pragma hdrstop #include "CDSItsObjectF.h" #include "VMSCommLibF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) TCDSItsObject::TCDSItsObject() { } //--------------------------------------------------------------------------- TCDSItsObject::~TCDSItsObject() { } //--------------------------------------------------------------------------- void __fastcall TCDSItsObject::SetErrorString(AnsiString AErrorString) { FErrorString = AErrorString; MERROR(AnsiString("DCOM " + FErrorString).c_str()); } //--------------------------------------------------------------------------- bool __fastcall TCDSItsObject::SQLText(TADOQuery *adoQry, String sQry, bool AReadOnly/*=true*/) { adoQry->Close(); adoQry->SQL->Text = sQry; if (AReadOnly) { adoQry->CursorType = ctOpenForwardOnly; adoQry->LockType = ltReadOnly; adoQry->DisableControls(); } return true; } //--------------------------------------------------------------------------- bool __fastcall TCDSItsObject::SQLBind(TADOQuery *adoQry, String param, String var) { adoQry->Parameters->ParamByName(param)->Value = var; return true; } //--------------------------------------------------------------------------- bool __fastcall TCDSItsObject::SQLClose(TADOQuery *adoQry) { if (adoQry->Active) { adoQry->Recordset->Close(); adoQry->Close(); adoQry->Active = false; } adoQry->SQL->Clear(); return true; } //--------------------------------------------------------------------------- int __fastcall TCDSItsObject::SQLOpen(TADOQuery *adoQry) { adoQry->Open(); adoQry->First(); return adoQry->RecordCount; } //--------------------------------------------------------------------------- int __fastcall TCDSItsObject::SQLExec(TADOQuery *adoQry) { adoQry->ExecSQL(); return adoQry->RowsAffected; } //---------------------------------------------------------------------------