server515impl.h

一个cb三层数据库的例子

// SERVER515IMPL.H : Declaration of the server515

#ifndef server515ImplH
#define server515ImplH

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

#include "serverp_TLB.H"
#include <ADODB.hpp>
#include <Db.hpp>
#include <Provider.hpp>
#include <atl/atlvcl.h>



// Forward ref. of IAppServer implementor


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
class Tserver515 : public TCRemoteDataModule
{
__published:  // IDE-managed Components
        TADOConnection *server_con;
        TDataSetProvider *server_in;
        TDataSetProvider *server_out;
        TADOQuery *serverq_in;
        TADODataSet *server_set;
        TDataSource *server_source;
        OleVariant __fastcall server_outDataRequest(TObject *Sender,
          OleVariant &Input);
        void __fastcall server_inUpdateData(TObject *Sender,
          TClientDataSet *DataSet);
private:      // User declarations
public:       // User declarations
  __fastcall Tserver515(TComponent* Owner);

__published:
};


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE Tserver515 *server515;


/////////////////////////////////////////////////////////////////////////////
// Tserver515Impl     Implements Iserver515, default interface of server515
//                  and Iserver515Events, the default source interface
// ThreadingModel : Both
// Dual Interface : TRUE
// Event Support  : TRUE
// Default ProgID : serverp.server515
// Description    : 515
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE Tserver515Impl: REMOTEDATAMODULE_IMPL(Tserver515Impl, server515, Tserver515, Iserver515)
                                 ,public IConnectionPointContainerImpl<Tserver515Impl>,
                                  public TEvents_server515<Tserver515Impl>
{
public:

BEGIN_COM_MAP(Tserver515Impl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(Iserver515)
  COM_INTERFACE_ENTRY_IMPL(IConnectionPointContainer)
END_COM_MAP()

BEGIN_CONNECTION_POINT_MAP(Tserver515Impl)
  CONNECTION_POINT_ENTRY(DIID_Iserver515Events)
END_CONNECTION_POINT_MAP()

  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otBoth);
  DECLARE_PROGID("serverp.server515");
  DECLARE_DESCRIPTION("515");

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


// Iserver515
protected:
};

#endif  // server515ImplH