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\ExtCtrls.hpp>
#include <vcl\Buttons.hpp>
#include "Grids.hpp"
#include "Oracle.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
	TPanel *BottomPanel;
	TSpeedButton *RefreshBtn;
	TSpeedButton *CommitBtn;
	TSpeedButton *AddBtn;
	TSpeedButton *DeleteBtn;
	TButton *DropBtn;
	TStringGrid *Grid;
	TOracleQuery *Query;
	TOracleSession *MainSession;
	TOracleLogon *MainLogon;
	void __fastcall DropBtnClick(TObject *Sender);
	void __fastcall RefreshBtnClick(TObject *Sender);
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall FormDestroy(TObject *Sender);
	void __fastcall CommitBtnClick(TObject *Sender);
	void __fastcall AddBtnClick(TObject *Sender);
	void __fastcall DeleteBtnClick(TObject *Sender);
    void __fastcall GridSelectCell(TObject *Sender, int Col, int Row,
          bool &CanSelect);
private:	// User declarations
public:		// User declarations
    Boolean Moving;
    TList *ObjectList;
    TList *DeletedList;
    void __fastcall ExecuteSQL(AnsiString SQLText);
    Boolean __fastcall CreateObjects();
    void __fastcall DropObjects();
    void __fastcall GotoCell(int Col, int Row);
    AnsiString __fastcall ColAttrName(int Col);
    void __fastcall FreeObjects();
    void __fastcall QueryObjects();
    Boolean __fastcall CellToAttribute();
	__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif