frmmutiread.h

使用OCI类的API函数

//---------------------------------------------------------------------------

#ifndef frmMutiReadH
#define frmMutiReadH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include "cxClasses.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDBData.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridBandedTableView.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridDBBandedTableView.hpp"
#include "cxGridDBTableView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxStyles.hpp"
#include <DB.hpp>
#include "cxContainer.hpp"
#include "cxGroupBox.hpp"
#include "MemTableEh.hpp"
#include "dxmdaset.hpp"
#include "h_oracle.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TButton *Button1;
    TLabel *lbCon;
    TcxGroupBox *cxGroupBox1;
    TcxGrid *cxGrid5;
    TcxGridTableView *cxGridTableView3;
    TcxGridColumn *cxGridColumn9;
    TcxGridColumn *cxGridColumn10;
    TcxGridColumn *cxGridColumn11;
    TcxGridColumn *cxGridColumn12;
    TcxGridDBBandedTableView *cxGridDBBandedTableView3;
    TcxGridDBTableView *cxGridDBTableView3;
    TcxGridDBTableView *grdTable;
    TcxGridDBColumn *tbOwner;
    TcxGridDBColumn *tbName;
    TcxGridDBColumn *tbSpace;
    TcxGridLevel *cxGridLevel3;
    TcxGroupBox *cxGroupBox2;
    TcxGrid *cxGrid1;
    TcxGridTableView *cxGridTableView1;
    TcxGridColumn *cxGridColumn1;
    TcxGridColumn *cxGridColumn2;
    TcxGridColumn *cxGridColumn3;
    TcxGridColumn *cxGridColumn4;
    TcxGridDBBandedTableView *cxGridDBBandedTableView1;
    TcxGridDBTableView *cxGridDBTableView1;
    TcxGridDBTableView *grdCols;
    TcxGridDBColumn *colName;
    TcxGridDBColumn *colType;
    TcxGridDBColumn *colLen;
    TcxGridLevel *cxGridLevel1;
    TButton *Button2;
    TDataSource *dsTable;
    TDataSource *dsCols;
    TMemTableEh *tbCols;
    TStringField *tbColstbName;
    TStringField *tbColstbOwner;
    TStringField *tbColscolName;
    TStringField *tbColscolType;
    TStringField *tbColscolLen;
    TMemTableEh *tbTable;
    TStringField *tbTabletbName;
    TStringField *tbTabletbOwner;
    TStringField *tbTabletbSpace;
    TdxMemData *tbTable1;
    TStringField *tbTable1tbName;
    TStringField *tbTable1tbOwner;
    TStringField *tbTable1tbSpace;
    TdxMemData *tbCols1;
    TStringField *tbCols1colName;
    TStringField *tbCols1colType;
    TStringField *tbCols1colLen;
    TcxGridDBTableView *cxGrid1DBTableView1;
    TcxGridBandedTableView *cxGrid1BandedTableView1;
    TcxGridDBColumn *grdColsColumn1;
    TStringField *tbCols1col4;
    TProgressBar *ProgressBar1;
    TButton *Button3;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
    void __fastcall grdTableCustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone);
private:	// User declarations
    vector <TableDes>  TableList;
    vector <ColumnDes> TableCols;
    vector <TableData>  TableData;
    HOracle Oracle;
    bool Connected;
    AnsiString m_DBName, m_DBUser, m_DBPwd;
    void __fastcall GetColInfo(AnsiString tbName, AnsiString tbOwner);
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif