threadunit.h

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

//---------------------------------------------------------------------------
#ifndef ThreadUnitH
#define ThreadUnitH
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\ExtCtrls.hpp>
#include "Grids.hpp"
#include <vcl\ComCtrls.hpp>
#include <vcl\Buttons.hpp>
#include "Oracle.hpp"
//---------------------------------------------------------------------------
class TQueryThread : public TThread
{
private:
    TOracleSession *Session;
    TOracleQuery *Query;
    TStringGrid *Grid;
    TMemo *Memo;
    TStatusBar *StatusBar;
    int StopWatchStart;
protected:
	void __fastcall Execute();
    void __fastcall ClearGrid();
    void __fastcall MemoYellow();
    void __fastcall MemoNormal();
public:
	__fastcall TQueryThread(bool CreateSuspended);
    void __fastcall Start(TOracleSession *ASession, TStringGrid *AGrid, TMemo *AMemo, TStatusBar *AStatusBar);
};
//---------------------------------------------------------------------------
class TThreadForm : public TForm
{
__published:	// IDE-managed Components
	TPanel *LeftPanel;
	TMemo *Memo1;
	TStringGrid *Grid1;
	TStatusBar *StatusBar1;
	TPanel *RightPanel;
	TMemo *Memo2;
	TStringGrid *Grid2;
	TStatusBar *StatusBar2;
	TPanel *QueryPanel;
	TSpeedButton *ExecBtn;
	TSpeedButton *CommitBtn;
	TSpeedButton *RollbackBtn;
	TSpeedButton *LogonBtn;
	TRadioGroup *Sessions;
	TCheckBox *DisplayCheck;
	TCheckBox *ThreadSafeCheck;
	TOracleLogon *OracleLogon;
	TOracleSession *Session1;
	TOracleSession *Session2;
	TSpeedButton *BreakBtn;
	void __fastcall LogonBtnClick(TObject *Sender);
	void __fastcall ExecBtnClick(TObject *Sender);
	void __fastcall CommitBtnClick(TObject *Sender);
	void __fastcall RollbackBtnClick(TObject *Sender);
	void __fastcall BreakBtnClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
	__fastcall TThreadForm(TComponent* Owner);
    TQueryThread *QueryThread1;
    TQueryThread *QueryThread2;
};
//---------------------------------------------------------------------------
extern TThreadForm *ThreadForm;
//---------------------------------------------------------------------------
#endif