mainunit.h

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

//---------------------------------------------------------------------------
#ifndef MainunitH
#define MainunitH
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\ComCtrls.hpp>
#include <vcl\ExtCtrls.hpp>
#include <vcl\Buttons.hpp>
#include "Grids.hpp"
#include "Oracle.hpp"
#include <vcl\Dialogs.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
	TStatusBar *StatusBar;
	TPanel *ToolBar;
	TSpeedButton *ConnectBtn;
	TComboBox *TableList;
	TPanel *XPortPanel;
	TSpeedButton *ImportBtn;
	TSpeedButton *ExportBtn;
	TLabel *ColumnLabel;
	TStringGrid *Grid;
	TOracleLogon *OracleLogon;
	TOracleSession *MainSession;
	TOracleQuery *TablesQuery;
	TOracleQuery *SelectQuery;
	TOracleQuery *GetLongRawQuery;
	TOracleQuery *PutLongRawQuery;
	TOpenDialog *OpenDialog;
	TSaveDialog *SaveDialog;
	void __fastcall ConnectBtnClick(TObject *Sender);
	void __fastcall TableListChange(TObject *Sender);
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall ImportBtnClick(TObject *Sender);
	void __fastcall ExportBtnClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
	__fastcall TMainForm(TComponent* Owner);
    int RowIdColumn;
	void __fastcall ClearData();
    void __fastcall BuildTableList();
};
//---------------------------------------------------------------------------
extern TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif