Delphi 7.0开发﹐请教一个问题,有兴趣者请进。。。

Question

我在delphi7.0开发中﹐建了一个data module ,在上面放置了一个公用的adoconnect 控件 ﹐我的思路是这样的﹐在开始运行程序前﹐在主画面的show 事件中写一段代码,,检测是否能联上后台﹐若不能联上﹐则提示。请问 ﹕在delphi 中用adoconnect 控件应如何来判定是否能联上后台
请写出代码。初学delphi ﹐请大家多多指点。

Answer 1

if dm.adoconnect.Connected=false then
showmessage('连不上');

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
try
  DataModule2.ADOConnection1.Connected:=true;
  DataModule2.adotable1.Active:=true;
except
  showmessage('连接失败！');
end;end;

Answer 3

回复楼上﹕
 IF DMODULE.ADOConn.Connected = false then
      showmessage('后台数据库联接失败!') ;我加上上面的语句后﹐程序运行到dmmodule.adoconn.connected = false 时 出错﹐
程序中断 。附 ﹕不知道是不是数据模板使用不正确, , 如果我不用数据模板上的adoconnect控件﹐而是直接在该主画面上放置一个adoconnect 控件﹐然后再用该控件联﹐则程序不会出错﹐ 
是不是数据模板上的控件还需要构造啊 ﹐我是将该 数据模板文件uses到主画面里﹐然后直接调用该模板上的控伯﹐但这样做可编译 ﹐但一运行到该模板的控件时就出错﹐程序中断
请高手解决。。

Answer 4

IF DMODULE.ADOConn.Connected = false then
      showmessage('后台数据库联接失败!') ;你有没有将Adoconnection控件实例化呢？如果没有设置连接字符串，或.creat()，直接设置控件的连接状态肯定会提示错误啦

Answer 5

try
  DataModule2.ADOConnection1.Connected:=true;
  DataModule2.adotable1.Active:=true;
except
  showmessage('连接失败！');
end;

Answer 6

回復﹕ 我只要調用數據模板上的控件﹐運行時就出現同樣錯誤 ﹐想也應是沒有在內存中產生該
數據模板上的控件實例 ﹐但不是如何將其實例化。。
如我的數據模板名為dmodule 上有一個控件為adoconn ,應如何實例化....等候中........