8好意思，我没说清楚，我的意思是两种8同的方法，
第一种传递_Connection，因为他
本身就是Com对象，但是你的Type library 起初是没有这种类型的,必须在Uses页中
导入ADO库
function TM_Login_RDM.Get_IPublicQuery: IPublicQuery;
begin
Result:= FPublicQuery.CreateComObject(nil) as IPublicQuery;
Result.ParentConn:= DataBaseConn.ConnectionObject;
end;
子datamodule:
procedure TPublicQuery.Set_ParentConn(Conn: _Connection);
begin
Query.Connection.ConnectionObject :=Conn;
end;
第二种就是传递integer
function TM_Login_RDM.Get_IPublicQuery: IPublicQuery;
begin
Result:= FPublicQuery.CreateComObject(nil) as IPublicQuery;
Result.ParentConn:= integer(DataBaseConn)；
end;
子datamodule:
procedure TPublicQuery.Set_ParentConn(Conn: integer);
begin
Query.Connection :=TADOConnection(Conn);
end;
