如何设置BDE连接到ORACLE 9I??

给你一个类
//---------------------------------------------------------------------------
#ifndef ConnH
#define ConnH
#include <DBTables.hpp>
//--------------------------------------------------------------------------
 class TBDE_Connection
{
 private:  public:
    //define public connection class instance
    TDatabase *connBDE;
    void TBDE_CloseDatabase();
    //structure function
    TBDE_Connection(AnsiString DBName,AnsiString UserName,AnsiString PassWord,int LoginTime);
};
//--------------------------------------------------------------------------
#endif
extern TBDE_Connection *bde_conn; 
//=======================================================================#include "Conn.h"
TBDE_Connection *bde_conn;     //连接类
//---------------------------------------------------------------------------
#pragma package(smart_init)
//--------------------------------------------------------------------------
TBDE_Connection::TBDE_Connection(AnsiString DBName,AnsiString UserName,AnsiString PassWord,int LoginTime)
{
//create instance
   connBDE=new TDatabase(NULL);
   connBDE->DatabaseName ="ConnDB" + IntToStr(LoginTime);
   connBDE->DriverName ="ORACLE";
   connBDE->Params->Clear();
   connBDE->Params->Add("SERVER NAME=" + DBName);
   connBDE->Params->Add("USER NAME=" + UserName);
   connBDE->Params->Add("PASSWORD=" + PassWord);
   connBDE->LoginPrompt=false;
   connBDE->Connected =true;
}
//--------------------------------------------------------------------------
void TBDE_Connection::TBDE_CloseDatabase()
{
   connBDE->Close();
}