加个接口过程不就行了吗
如:
procedure TTestDataModule.Open(var vStr : OleVariant);
begin
  //
  //根据进来的参数对Database和Dataset做设定
  //
  Database.Open ;
  Dataset.Open ;
end;