myappservimpl.cpp

C++Builder高级应用开发指南随书源码

#include <vcl.h>
#pragma hdrstop

#include "MYAPPSERVIMPL.H"
#include "Unit1.h"

#if !defined(__PRAGMA_SMART_INIT_DEFINED)
#define __PRAGMA_SMART_INIT_DEFINED
#pragma package(smart_init)
#endif

#pragma resource "*.dfm"


/////////////////////////////////////////////////////////////////////////////
// Global instance of TMyAppServImpl 
/////////////////////////////////////////////////////////////////////////////
TMyAppServ *MyAppServ;


/////////////////////////////////////////////////////////////////////////////
// TMyAppServ::TMyAppServ
/////////////////////////////////////////////////////////////////////////////
__fastcall TMyAppServ::TMyAppServ(TComponent* Owner) : TCRemoteDataModule(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TMyAppServ::CRemoteDataModuleCreate(TObject *Sender)
{
    Form1->UpdateClientCount(1);    
}
//---------------------------------------------------------------------------
void __fastcall TMyAppServ::CRemoteDataModuleDestroy(TObject *Sender)
{
    Form1->UpdateClientCount(-1);    
}
//---------------------------------------------------------------------------
void __fastcall TMyAppServ::tbAnimalBeforeOpen(TDataSet *DataSet)
{
    Form1->IncQueryCount();    
}
//---------------------------------------------------------------------------

OleVariant __fastcall TMyAppServ::DataSetProvider1DataRequest(
      TObject *Sender, OleVariant &Input)
{
    Form1->Caption = (WideString) Input;
    return (OleVariant)(true);    
}
//---------------------------------------------------------------------------