精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 10.1 设置数据库的别名
发信站: 哈工大紫丁香 (2000年09月01日16:48:07 星期五), 站内信件

数据库的使用
16：通过编写代码来设置数据库的别名。
1．在窗体中放置TABLE、DATASOURSE和BUTTON控件；
2．为BUTTON控件的ONCLICK事件添加如下代码：
procedureTForm1．Button1Click（Sender：TObject）；
varNewString：string；ClickedOK：Boolean；
begin
NewString：Κ′C：ι′；
ClickedOK：ΚInputQuery（′DatabasePath′，
′Path：－－ΛC：ιDELPHIιDEMOSιDATA′，NewString）；
ifClickedOKthen
begin
Database1．DatabaseName：Κ′MyNewAlias′；
Database1．DriverName：Κ′STANDARD′；
Database1．Params．Clear；
Database1．Params．Add（′PathΚ′＋NewString）；
Table1．DatabaseName：Κ′MyNewAlias′；
Table1．TableName：Κ′CUSTOMER′；
Table1．Active：ΚTrue；
DataSource1．DataSet：ΚTable1；
DBGrid1．DataSource：ΚDataSource1；
end；
end；

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]