unit2.cpp

创建BDE别名

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TOKBottomDlg *OKBottomDlg;
//---------------------------------------------------------------------
__fastcall TOKBottomDlg::TOKBottomDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TOKBottomDlg::OKBtnClick(TObject *Sender)
{
 hDBISes Session;                     // declare a bde session handle
  DbiInit(NULL);                       // initialize BDE.
  DbiStartSession(NULL,Session,"");    // start a temporaray bde session
  AnsiString Alias =Edit1->Text;
  AnsiString server1 =Edit2->Text;
  AnsiString agument1 =Edit3->Text;
  AnsiString username =Edit4->Text;
  AnsiString sqlmode =Edit5->Text;
  AnsiString sqlpass =Edit6->Text;
  AnsiString AliasCreate ="SERVER NAME:"+server1+":"+ agument1+";";
  AliasCreate=AliasCreate+"USER NAME:"+username+";SQLQRYMODE:"+sqlmode+";SQLPASSTHRU MODE:"+sqlpass;

  DBIResult isOK;
 /* isOK=fDbiAddAlias1("net_zyj",
	"PATH:frobosrv:d:/interbas;"
	"SERVER NAME:frobosrv:d:\interbas\slim.gdb;"
	"USER NAME:SYSDBA;"
	"SQLQRYMODE:SERVER;"
	"SQLPASSTHRU MODE:SHARED AUTOCOMMIT");
   */
   isOK=DbiAddAlias(NULL, Alias.c_str(), "INTRBASE", AliasCreate.c_str(), TRUE);



   switch (isOK)
   {
     case DBIERR_NONE:
       Application->MessageBox("成功","提示",MB_ICONINFORMATION | MB_OK);
       break;
     case DBIERR_NAMENOTUNIQUE:

       Application->MessageBox("名称重复","提示",MB_ICONINFORMATION | MB_OK);
       break;

     case DBIERR_UNKNOWNDRIVER:

        Application->MessageBox("驱动无效","提示r",MB_ICONINFORMATION | MB_OK);
        break;

   }

  DbiCloseSession(Session);            // close the session
  DbiExit();
}
//---------------------------------------------------------------------------

void __fastcall TOKBottomDlg::FormClose(TObject *Sender,
      TCloseAction &Action)
{
 Action=caFree;
}
//---------------------------------------------------------------------------