关于Data Module的问题?
做了一个小程序,查询数据库内容,运行正常,然后新建了一个Data Module,把Form1里的ADOconnection,ADOquery,datesource三个组件剪切到Data Module中,加上
uses dm1;修改相应的代码,却在此处出错?
procedure TForm1.mypro;
var
ADOquery1 : TADOQuery;
begin
ADOQuery1 := TADOQuery.Create(self);
ADOQuery1.Connection := DM.myconn;//程序停在此处?
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Text := '...';
ADOQuery1.open;
if ADOQuery1.recordcount > 0 then
....
ADOQuery1.close;
ADOQuery1.free;
end;
请问这是何故?