使用BDE、ADO和ODBC连接数据库教程

void __fastcall TForm1::ComboBox38Change(TObject *Sender)
{
  if(Sender==ComboBox38){
iDBSType=ComboBox38->ItemIndex;
    LoadDBSParam(0);
    SpeedButton6Click(Sender);///!!!SpeedButton6//ComboBox38Change()相互内嵌调用SpeedButton6Click()
  }
  int ii=ComboBox38->ItemIndex;
  ComboBox40->Enabled=false;
  if(ii==0 || ii==1){//MS SQLServer, Oracle, Access, Interbase/FireBird, Paradox
    Edit96->Enabled=true;Edit97->Enabled=true;//服务器名,数据库名
    if(ComboBox39->ItemIndex==0){
      int jj=ComboBox40->ItemIndex;
  ComboBox40->Enabled=true;////ADO连接方式
      if(ii==0){ComboBox40->Items->Strings[0]="SQLOLEDB.1";ComboBox40->Items->Strings[1]="MSDASQL.1";}
      else if(ii==1){ComboBox40->Items->Strings[0]="OraOLEDB.Oracle.1";ComboBox40->Items->Strings[1]="MSDAORA.1";}
      ComboBox40->ItemIndex=jj;
    }
  }else{Edit96->Enabled=false;Edit97->Enabled=false;}///???不都应该要服务器名,数据库名吗？---由包含完整路径的数据库文件/路径指定
  if(ii!=2 && ii!=4){
    Edit94->Enabled=true; Edit95->Enabled=true;
  }else{Edit94->Enabled=false; Edit95->Enabled=false;}//Access,Paradox:用户名,密码
  if(ii!=0 && ii!=1)Edit98->Enabled=true;
  else Edit98->Enabled=false;//MS SQLServer:数据库文件/路径
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadDBSParam(int loadDBSType)//void//int delvoid
{ ///!!!由于此源代码没有(NEWFUNC & NFHIS)==NFHIS伪指令，故变量命名增加DBS。
  ////if(IsUseWlqr & 8){
  //iDBSType:数据库种类(MS SQLServer, Oracle, Access, Interbase/FireBird, Paradox), iLinkMode:连接方式

  //sDBSUser:用户名, sDBSPasswd:密码,sDBSSvr:服务器名, sDBSDbf:数据库名,
  //iADOProvider:MSSQL ADO连接, sDBSFile:数据库文件/路径
    AnsiString ss,DBSPara=wrkPath+"DBSParam";
    ///iDBSType iDBSLinkMode sDBSUser sDBSPasswd  sDBSSvr sDBSDbf iDBSADOProvider sDBSFile
    ///DBSNCase iDBSAutoRd //sDBSCanRd sDBSCanWr
    if(loadDBSType)iDBSType=GetProfileInt("DBSTYPE",IntToStr(APPN).c_str(),3);//"DBS"///GetPrivateProfileInt("DBS","DBSTYPE",3,DBSPara.c_str()); ///!!!默认FireBird ///!!!get it 1st///(+IntToStr(iDBSType)).c_str()
    if(iDBSType<0 || iDBSType>=ComboBox38->Items->Count)iDBSType=3;
    ss="( "+ComboBox38->Items->Strings[iDBSType]+": ";
    DBSNCase=GetPrivateProfileInt(("DBS"+IntToStr(iDBSType)).c_str(),"NCase",0,DBSPara.c_str());///???(存储过程区分大小写)
    iDBSLinkMode=3;///!!!FB暂时没有做MS SQL新建一次两条记录Oracle不能Post且Sum3错误，ODBC、DLL基本上没用//GetProfileInt("DBSLinkMode",IntToStr(APPN).c_str(),iDBSType>2?3:0);
    /////iDBSLinkMode=GetPrivateProfileInt(("DBS"+IntToStr(iDBSType)).c_str(),"LinkMode",iDBSType>2?3:0,DBSPara.c_str());///3:BDE, 0:ADO//iDBSType==3
    iDBSAutoRd=GetPrivateProfileInt(("DBS"+IntToStr(iDBSType)).c_str(),"DBSAUTOREAD",10,DBSPara.c_str());
    char cc[81];
    GetPrivateProfileString(("DBS"+IntToStr(iDBSType)).c_str(),"DBSCANREAD","",cc,80,DBSPara.c_str());
    sDBSCanRd=cc;//表.字段=值,此时系统才能读取HIS
    sDBSCanRd=sDBSCanRd.Trim();
    if(sDBSCanRd=="")iDBSAutoRd=10*(iDBSAutoRd/10);//=1时系统自动读取并创建病例
    GetPrivateProfileString(("DBS"+IntToStr(iDBSType)).c_str(),"DBSCANWRITE","",cc,80,DBSPara.c_str());
    sDBSCanWr=cc;sDBSCanWr=sDBSCanWr.Trim();//表.字段=值,此时系统才能写回HIS
    if(iDBSType==0 || iDBSType==1){//MSSQLsvr //MS SQLServer, Oracle, Access, Interbase/FireBird, Paradox
      GetPrivateProfileString(("MSSQL"+IntToStr(iDBSType)).c_str(),"SQLSvr","127.0.0.1",cc,80,DBSPara.c_str());
      sDBSSvr=cc;//服务器，如果不是默认实例/端口，应包含实例名/端口号
      GetPrivateProfileString(("MSSQL"+IntToStr(iDBSType)).c_str(),"SQLDB","DBREC",cc,80,DBSPara.c_str());///???DBREC.g_b///???DBREC.db
      sDBSDbf=cc;//数据库 ///!!!not sDBSFile
      ss+=sDBSSvr+"/"+sDBSDbf;
    }
    if(iDBSLinkMode==0){//ADO //0=SQLOLEDB.1, 1=MSDASQL.1 //0:OraOLEDB.Oracle.1 1:MSDAORA.1
      iDBSADOProvider=GetPrivateProfileInt(("MSSQL"+IntToStr(iDBSType)).c_str(),"ADOProvider",0,DBSPara.c_str()); ///???=0;//
    } 
    if(iDBSType!=2 && iDBSType!=4){//Access,Paradox///!!!not use "else if"