unit1.~cpp

c++builder动态连接paradox数据库的例子程序,在bcb6下编译通过

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Mythread *me = new Mythread(true);
AnsiString QuerySQL;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//ShowMessage("hello");
//me->Resume();
AnsiString querySQL = "SELECT vendor FROM vendor.db where mac='009027'";                  
char a[64];
query1->SQL->Add(querySQL);

query1->Open() ;
query1->GetCurrentRecord(a);
a[63]=0;
ShowMessage(a);


}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{

if (query1->State==dsInactive	)
                {
                
               DbiInit(NULL);
                DbiStartSession(NULL,tmpsession,"");//打开一个临时的bde session
                AnsiString strpath="path:" + ExtractFileDir(Application->ExeName );
                strpath += "\\db\\";

               if( DbiAddAlias(NULL,"nic","paradox",strpath.c_str() ,false)==DBIERR_NONE)
                {
                //ShowMessage(strpath);
                query1->DatabaseName = "nic";
                //query1->DataSource =
                //query1->Active = true;


                  }
               
                }


}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if(query1->Active )query1->Active = false;
  DbiCloseSession(tmpsession);
  DbiExit();      
}
//---------------------------------------------------------------------------