mainunit.h

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· C头文件 代码 · 共 62 行

//---------------------------------------------------------------------------
#ifndef MainUnitH
#define MainUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Oracle.hpp"
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
    TLabel *Label1;
    TLabel *Label3;
    TLabel *Label4;
    TLabel *Label2;
    TLabel *FilenameLabel;
    TButton *CreateTableBtn;
    TButton *SelectFileBtn;
    TButton *BenchmarkBtn;
    TButton *DropTableBtn;
    TMemo *ResultsMemo;
    TOracleSession *MainSession;
    TOracleLogon *MainLogon;
    TOracleQuery *CreateTableQuery;
    TOracleQuery *DropTableQuery;
    TOracleQuery *TruncateTableQuery;
    TOracleQuery *InsertQuery;
    TOracleDirectPathLoader *Loader;
    TOpenDialog *OpenDialog;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall CreateTableBtnClick(TObject *Sender);
    void __fastcall SelectFileBtnClick(TObject *Sender);
    void __fastcall BenchmarkBtnClick(TObject *Sender);
    void __fastcall DropTableBtnClick(TObject *Sender);
private:	// User declarations
    TCollection *FileItems;
    AnsiString Filename;
    void __fastcall LoadFile();
    void __fastcall TruncateTable();
    void __fastcall SingleInsertBenchmark();
    void __fastcall ArrayInsertBenchmark();
    void __fastcall DirectPathLoadBenchmark();
public:		// User declarations
    __fastcall TMainForm(TComponent* Owner);
};

class TFileItem : public TCollectionItem
{
  public:
	int Line;
	AnsiString Text;
    __fastcall TFileItem(TCollection* Collection);
};

//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif