在Delphi中建立和使用别名[1]
通常我们在Delphi外 通过使用Borland 数据库引擎(BDE)的设置单元(bdecfg exe)来建立和设置别名(Alias) 但是 实际上用户可以在Delphi或应用程序中用TDatabaseComponent或其他方法建立和使用别名 而不必在IDAPI CFG中预先定义
建立有效的别名是非常重要的 别名详细说明了数据库的定位信息和连接数据库服务器的参数 当发布应 用程序时不必担心IDAPI CFG中是否有某项设置
利用TDatabaseComponent建立别名
建立和设置一 个使用标准数据库的别名的步骤如下 //通过 对象观察器 建立BDE别名
建立一个新工程(Project) 将组件(Component)TDatabase TTable TDataSource TDBGrid 和TButton放在FORM上 双击TDatabaseComponent或在TDatabase快速菜 单上选择DatabaseEditor运行Database属性编辑器 将DatabaseName设置成 ZldchAlias 这个名字 将被当作别名 用来设置数据集组件TTable TQuery TStoredProc等的DatabaseName属性 将DriverName设置成STANDARD 单击Defaults按钮 将PATH=自动加在Parameter Overrides框中 将PATH=设置成PATH=C: 单击OK按钮关闭Database Editor 单击OK按钮关闭DatabaseEditor 将TTable的DatabaseName属性设置成 ZldchAlias 将TDataSource的DataSet属性设置成 Table 将DBGrid的DataSource属性设置成 DataSource 在Tbutton的OnClick事件过程中加入下列代码
procedureTForm Button Click(Sender:Tobject); beginTable Tablename= customer ; Table Active:=true; end;
运行程序 上面 ～ 步也可以用以下过程实现
MyAddStandAlias(AliasN:String;DbLocat:String;DriverN:string );//使用程序的方法建立BDE别名//{AliasN别名名 //DbLocat数据库定位目录 DriverN联结驱动类型}beginwithForm Database do< beginDatabaseName:=AliasN;DriverName:= STANDARD ;Params Clear;Params Add( PATH= ＋DbLocat);Params Add( DEFAULT DRIVER= ＋DriverN);endend
procedureTForm Button Click(Sender:Tobject);beginMyAddStandAlias( ZldchAlias C:PARADOX );Table DatabaseName:= ZldchAlias ;DataSource DataSet:=Table ;DBGrid DataSource:=DataSource ;Table Tablename= customer ;Table Active:=true;end;
lishixinzhi/Article/program/Delphi/201311/24816
