精华公布栏

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 通过编写代码来设置数据库的别名
发信站: 哈工大紫丁香 (2001年03月13日18:37:33 星期二), 转信

通过编写代码来设置数据库的别名  <<上一篇下一篇>>
  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）；
if  ClickedOK  then
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；


  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇下一篇>>

------------------------------------------------------------------------
--------
  Delphi 技巧集

  Copyright 1999.11 by 东子 Mail to me!
感谢广州视窗提供主页空间

--

       大海无边天做岸
               山登绝顶我为风

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