servercppdm.h

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· C头文件 代码 · 共 97 行

// REMOTECPPDMIMPL.H : Declaration of the RemoteCPPDM

#ifndef ServerCPPDMH
#define ServerCPPDMH

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>

#include "Server_TLB.H"
#include "Oracle.hpp"
#include "OracleData.hpp"
#include <Db.hpp>
#include <Provider.hpp>
#include <DB.hpp>
#include <atl/atlvcl.h>
#include "ServerUnit.h"


// Forward ref. of IAppServer implementor


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
class TRemoteCPPDM : public TCRemoteDataModule
{
__published:  // IDE-managed Components
        TOracleSession *OracleSession;
        TOracleLogon *OracleLogon;
        TOracleDataSet *EmpDataSet;
        TOracleDataSet *DeptDataSet;
        TDataSetProvider *DeptProvider;
    void __fastcall RemoteCPPDMCreate(TObject *Sender);
    void __fastcall RemoteCPPDMDestroy(TObject *Sender);
    void __fastcall AfterQuery(TOracleDataSet *Sender);
    void __fastcall AfterPost(TDataSet *DataSet);
    void __fastcall TranslateMessage(TOracleDataSet *Sender,
          int ErrorCode, const AnsiString ConstraintName, char Action,
          AnsiString &Msg);
private:      // User declarations
public:       // User declarations
  __fastcall TRemoteCPPDM(TComponent* Owner);

__published:
};


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE TRemoteCPPDM *RemoteCPPDM;


/////////////////////////////////////////////////////////////////////////////
// TRemoteCPPDMImpl     Implements IRemoteCPPDM, default interface of RemoteCPPDM
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support  : FALSE
// Default ProgID : Server.RemoteCPPDM
// Description    : Remote Data Module
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TServerCPPDMImpl: REMOTEDATAMODULE_IMPL(TServerCPPDMImpl, ServerCPPDM, TRemoteCPPDM, IRemoteCPPDM)
{
public:

BEGIN_COM_MAP(TServerCPPDMImpl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(IRemoteCPPDM)
END_COM_MAP()

  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID("Server.ServerCPPDM");
  DECLARE_DESCRIPTION("Remote Data Module");

  // Function invoked to (un)register object
  //
  static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
  {
    TRemoteDataModuleRegistrar regObj(GetObjectCLSID(), GetProgID(), GetDescription());
    // Disable these flags in order to disable use by socket or web connections.
    // Also set other flags to configure the behavior of your application server.
    // For more information, see atlmod.h and atlvcl.cpp.
    regObj.Singleton = false;
    regObj.EnableWeb = true;
    regObj.EnableSocket = true;
    return regObj.UpdateRegistry(bRegister);
  }


// IRemoteCPPDM
protected:
};

#endif  // RemoteCPPDMImplH