在運(yùn)行期使用Access數(shù)據(jù)庫(kù)，在表單Form1中除了以上控件外集成應用，還需增加一個(gè)BDE會(huì)話期對(duì)象探討，即TSession控件Session1。將AutoSessionName屬性設(shè)為true高效流通，然后在Form1的OnCreate事件函數(shù)中加入以下代碼：

　　AnsiString app_path,alias_1,name_1;

　　app_path=ExtractFilePath(ParamStr(0));

　　//取得應(yīng)用程序的路徑

　　alias_1="mydatabASE2";

　　//Access數(shù)據(jù)庫(kù)別名

　　name_1="DATABASENAME="+app_path+"123.mdb";

　　if(!Session1-＞IsAlias(alias_1))

　　//數(shù)據(jù)庫(kù)別名不存在

　　{

　　TStringList *dataname=new TStringList();

　　dataname-＞Add(name_1);

　　Session1-＞AddAlias(alias_1,"MSAccess",dataname);//創(chuàng)建別名

　　delete dataname;

　　Session1-＞Close();

　　}

　　DatabASE1-＞AliasName=alias_1;

　　Database1-＞DatabASEName="app_alias";

　　Table1-＞DatabaseName=Database1-＞DatabASEName;

　　Table1-＞TableName="xxys";

　　Table1-＞Active=true;

　　注意：在運(yùn)行以上程序之前調解製度，別忘了進(jìn)入BDE Administrator將MS

　　Access驅(qū)動(dòng)配置中的DLL32由IDDAO32.DLL改為IDDA3532.DLL，并保存這個(gè)配置功能。

　　為了使程序運(yùn)行得更流暢體製，可以在DatabASE1的OnLogin事件函數(shù)中加入以下代碼：

　　LoginParams-＞Values["PASSWORD"]="";

　　LoginParams-＞Values["USERNAME"]="";

　　這樣在運(yùn)行程序時(shí)就不會(huì)彈出數(shù)據(jù)庫(kù)登錄的對(duì)話框了。