servercppdm.h

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

//---------------------------------------------------------------------------
#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 "OracleProvider.hpp"
#include <Db.hpp>
#include <Provider.hpp>
#include "ServerUnit.h"
//---------------------------------------------------------------------------
class TRemoteCPPDM : public TDataModule
{
__published:	// IDE-managed Components
    TOracleSession *OracleSession;
    TOracleProvider *EmpProvider;
    TOracleProvider *DeptProvider;
    TOracleDataSet *DeptDataSet;
    TOracleDataSet *EmpDataSet;
    TOracleLogon *OracleLogon;
    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);
};
//---------------------------------------------------------------------------
extern PACKAGE TRemoteCPPDM *RemoteCPPDM;
//---------------------------------------------------------------------------
// The following define is utilized by the IDEs Code Manager to ensure that
// your controls Library Identifier is kept up-to-date.
// NOTE: Do not remove or modify this macro.
//
#define LIBID_RemoteCPPDM LIBID_Server
//---------------------------------------------------------------------------
class ATL_NO_VTABLE TRemoteCPPDMImpl:
  REMOTEDATAMODULE_IMPL(TRemoteCPPDMImpl, RemoteCPPDM, TRemoteCPPDM, IRemoteCPPDM)
{
public:

BEGIN_COM_MAP(TRemoteCPPDMImpl)
  AUTOOBJECT_COM_INTERFACE_ENTRIES(IRemoteCPPDM)
END_COM_MAP()

DECLARE_REMOTEDATAMODULE_REGISTRY("Server.RemoteCPPDM")

protected: 
  STDMETHOD(get_DeptProvider(IProvider** Value)); 
  STDMETHOD(get_EmpProvider(IProvider** Value));
};
//---------------------------------------------------------------------------
#endif