在Delphi中建立和使用别名[2]
建立使用INTRBASE数据库的别名 建立使用INTRBASE 数据库别名的步骤如下 ～ 步同上 将DriverName设置为INTRBASE 单击Defaults按钮 下列内容 会自动加在ParameterOverrides框中
SERVERNAME=IB_SERVER /PATH/DATABASE GDBUSERNAME=MYNAMEOPENMODE=READ/WRITESCHEMACACHESIZE= LANGDRIVER=SQLQRYMODE=SQLPASSTHRUMODE=NOTSHAREDSCHEMACACHETIME=－ PASSWORD=
将以上内容改为
SERVERNAME=C \ProgramFiles\Borland\Delphi \Demos\Data\EMPLOYEE GDBUSERNAME=SYSDBAOPENMODE=READ/WRITESCHEMACACHESIZE= LANGDRIVER=SQLQRYMODE=SQLPASSTHRUMODE=NOTSHAREDSCHEMACACHETIME=－ PASSWORD=masterkey
将TDatabase的属性LoginPrompt 设置成 False 如用户在ParameterOverrides框中给出了正确的PASSWORD 连接数据库时将不会提示要求输入口令 请注意 如果在ParameterOverrides 框中给出的PASSWORD不正确 而TDatabase的属性LoginPrompt设置为 False 程序运行时将出错 但并不会提示要求重新输入正确口令 Intrbase安装 后 系统唯一授权的用户是SYSDBA 缺省口令是 masterkey 所有其他的用户都必须由SYSDBA添加 所以在Intrbase系统安装后要尽快更改用户SYSDBA 的口令
步同上文的 步 将TDataSource的DataSet属 性设置成 Query 在Tbutton的OnClick事件过 程中加入下列代码
procedureTForm Button Click(Sender:Tobject); beginQuery SQL Clear; Query SQL ADD( SELECT DISTINCT＊FROMCUSTOMERC SALESSWHERE (S CUST_NO=C CUST_NO)ORDERBYC CUST_NO C CUSTOMER );Query Active:=True; end;
运行程序
过程MyAddStandAlias的参数可以 通过各种方式赋值 目录 服务器名 路径 数据库名和其他别名所需的参 数都可以通过输入对话框或从 INI文件读入程序中 通过以上方法建立的别名只在程序运行时存在 其他应用程序不能使用
利用Session建立 修改 删除别名
所有数据库管理应用程序 都自动提供一个名为Session的Session组件 每个和数据库程序相关的数 据集组件都包含SessionName属性 它决定了和该组件相关的Session组件 因为Session封装了一系列数据库连接特性 大部分Session组件的方法都通过BDE别名工作 每个和Session有关联的数据库组件都有别名(尽管在 处理PARADOX和DBASE数据库时 完整的路径可以取代别名) 通过Session可以检测和决定别名的可见性 跟踪别名名和其他连接驱动信息以及建立 修改和删除别名
Session的设置模式(ConfigMode) 属性 决定了什么样的BDE别名对它是可见的 默认设置是cmAll 它可解释成[cfmVirtualorcfmPersistent] 如果设置模式值为cmAll 由Session建立的所有别名 用户系统BDE设置文件中预定义的别名以及BDE在内存中维护的所有别名均可见
lishixinzhi/Article/program/Delphi/201311/24814
