#ifndef BDEQueryH
#define BDEQueryH

#define ATL_APARTMENT_THREADED

#include "BDEAccess_TLB.h"
#include "DBTables.hpp"                                                          //добавлено мной
#include <extctrls.hpp>                                                          //добавлено мной


/////////////////////////////////////////////////////////////////////////////
// TBDEQueryImpl     Implements IBDEQuery, default interface of BDEQuery
// ThreadingModel : tmApartment
// Dual Interface : FALSE
// Event Support  : FALSE
// Default ProgID : Project1.BDEQuery
// Description    : 
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TBDEQueryImpl :
  public CComObjectRootEx<CComSingleThreadModel>,
  public CComCoClass<TBDEQueryImpl, &CLSID_BDEQuery>,
  public IBDEQuery
{
public:
  TBDEQueryImpl()
  {
	myQ = new TQuery((TComponent*)NULL);             //добавлено мной
  }

  // Data used when registering Object
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID("BDEAccess.BDEQuery");
  DECLARE_DESCRIPTION("");

  // Function invoked to (un)register object
  //
  static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
  {
    TTypedComServerRegistrarT<TBDEQueryImpl>
    regObj(GetObjectCLSID(), GetProgID(), GetDescription());
    return regObj.UpdateRegistry(bRegister);
  }


BEGIN_COM_MAP(TBDEQueryImpl)
  COM_INTERFACE_ENTRY(IBDEQuery)
END_COM_MAP()

	TQuery* myQ;                                            //добавлено мной
// IBDEQuery
public:

  STDMETHOD(Run(LPSTR ptrQry, LPSTR ptrAllias));
  STDMETHOD(FieldsSize(unsigned* Sizes));
  STDMETHOD(RowCount(unsigned* ptrCount));
  STDMETHOD(GetData(short fieldNum, void* ptrData));
  STDMETHOD(First());
  STDMETHOD(Last());
  STDMETHOD(Next());
  STDMETHOD(Prior());
};

#endif //Unit1H