● DELPHI使用技巧（6） - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: DELPHI使用技巧（6）
发信站: BBS 荔园晨风站 (Thu Jan 21 22:32:00 1999), 转信

技巧6：通过编写代码来设置数据库的别名。

    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 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店