VmsCommServer/SRC/VMSCommLib/CDS/CDSItsObjectF.cpp

//---------------------------------------------------------------------------


#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;
}
//---------------------------------------------------------------------------