在adotext例子中,有一个打开adoconnection的配置的按钮:
代码如下:
procedure TADODBTest.EditConnStrClick(Sender: TObject);
begin
Connection.Close;//connection为adoconnection1
Connection.ConnectionString := ConnectionString.Text;
if EditConnectionString(Connection) then
begin
ConnectionString.Text := Connection.ConnectionString;
ConnectionStringClick(Sender);
end;
end;
----------------------------------
问题是EditConnectionString(Connection)调用那个窗体,但为什么我用这个代码就不能呢,系统也不认EditConnectionString()
代码如下:
procedure TADODBTest.EditConnStrClick(Sender: TObject);
begin
Connection.Close;//connection为adoconnection1
Connection.ConnectionString := ConnectionString.Text;
if EditConnectionString(Connection) then
begin
ConnectionString.Text := Connection.ConnectionString;
ConnectionStringClick(Sender);
end;
end;
----------------------------------
问题是EditConnectionString(Connection)调用那个窗体,但为什么我用这个代码就不能呢,系统也不认EditConnectionString()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货