www.pudn.com > bdeAdd.rar > Unit2.cpp

//--------------------------------------------------------------------- 
#include  
#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; 
} 
//---------------------------------------------------------------------------