mainunit.h

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

//---------------------------------------------------------------------------
#ifndef MainUnitH
#define MainUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include "Oracle.hpp"
//---------------------------------------------------------------------------
class TQueueDemoForm : public TForm
{
__published:	// IDE-managed Components
    TPanel *BottomPanel;
    TLabel *EnterMessageLabel;
    TButton *SendButton;
    TEdit *SendMessageEdit;
    TPanel *TopPanel;
    TMemo *ReceiveMemo;
    TOracleSession *ReceiveSession;
    TOracleQueue *ReceiveQueue;
    TOracleLogon *Logon;
    TOracleSession *SendSession;
    TOracleQueue *SendQueue;
    TOracleQuery *QueueCheckQuery;
    TOracleQuery *RoleCheckQuery;
    TOracleScript *CreateQueueScript;
    void __fastcall SendButtonClick(TObject *Sender);
    void __fastcall SendMessageEditChange(TObject *Sender);
    void __fastcall ReceiveQueueThreadDequeued(TOracleQueue *Sender);
    void __fastcall ReceiveQueueThreadStart(TOracleQueue *Sender);
    void __fastcall ReceiveQueueThreadStop(TOracleQueue *Sender);
    void __fastcall CreateQueueScriptError(TOracleScript *Sender);
private:	// User declarations
    bool QueueOkay;
    void __fastcall Display(AnsiString Msg);
    void __fastcall StartQueue();

public:		// User declarations
    __fastcall TQueueDemoForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TQueueDemoForm *QueueDemoForm;
//---------------------------------------------------------------------------
#endif