在運(yùn)行期使用Access數(shù)據(jù)庫註入新的動力，在表單Form1中除了以上控件外領先水平，還需增加一個BDE會話期對象，即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ù)庫別名

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

　　if(!Session1-＞IsAlias(alias_1))

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

　　{

　　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ū)動配置中的DLL32由IDDAO32.DLL改為IDDA3532.DLL表現明顯更佳，并保存這個配置讓人糾結。

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

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

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

　　這樣在運(yùn)行程序時就不會彈出數(shù)據(jù)庫登錄的對話框了穩定發展。