|
1．在窗体中放置TABLE、DATASOURSE和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；
|
