fr_adodb.hpp

FastReport2.5报表控件！具有很大的灵活空间。可以作为一个设计平台。

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'FR_ADODB.pas' rev: 5.00

#ifndef FR_ADODBHPP
#define FR_ADODBHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ADOInt.hpp>   // Pascal unit
#include <ADODB.hpp>    // Pascal unit
#include <Db.hpp>       // Pascal unit
#include <Dialogs.hpp>  // Pascal unit
#include <Menus.hpp>    // Pascal unit
#include <Forms.hpp>    // Pascal unit
#include <Controls.hpp> // Pascal unit
#include <StdCtrls.hpp> // Pascal unit
#include <FR_Class.hpp> // Pascal unit
#include <Graphics.hpp> // Pascal unit
#include <Classes.hpp>  // Pascal unit
#include <SysUtils.hpp> // Pascal unit
#include <Messages.hpp> // Pascal unit
#include <Windows.hpp>  // Pascal unit
#include <SysInit.hpp>  // Pascal unit
#include <System.hpp>   // Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Fr_adodb
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TfrADOComponents;
class PASCALIMPLEMENTATION TfrADOComponents : public Classes::TComponent 
{
        typedef Classes::TComponent inherited;
        
public:
        #pragma option push -w-inl
        /* TComponent.Create */ inline __fastcall virtual TfrADOComponents(Classes::TComponent* AOwner) : Classes::TComponent(
                AOwner) { }
        #pragma option pop
        #pragma option push -w-inl
        /* TComponent.Destroy */ inline __fastcall virtual ~TfrADOComponents(void) { }
        #pragma option pop
        
};


class DELPHICLASS TfrADODatabase;
class PASCALIMPLEMENTATION TfrADODatabase : public Fr_class::TfrNonVisualControl 
{
        typedef Fr_class::TfrNonVisualControl inherited;
        
private:
        Adodb::TADOConnection* FDatabase;
        void __fastcall DBNameEditor(System::TObject* Sender);
        
protected:
        virtual void __fastcall SetPropValue(AnsiString Index, const Variant &Value);
        virtual Variant __fastcall GetPropValue(AnsiString Index);
        
public:
        __fastcall virtual TfrADODatabase(void);
        __fastcall virtual ~TfrADODatabase(void);
        virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
        virtual void __fastcall SaveToStream(Classes::TStream* Stream);
        virtual void __fastcall DefineProperties(void);
        __property Adodb::TADOConnection* Database = {read=FDatabase};
};


//-- var, const, procedure ---------------------------------------------------

}       /* namespace Fr_adodb */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Fr_adodb;
#endif
#pragma option pop      // -w-
#pragma option pop      // -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif  // FR_ADODB