盒子论坛 v2.1

当我把数据库操作模块分散在多个DLL中时，各模块如何得到一个数库连接而不是连接字串，就象在单一程式中多个ADOQUERY共用一个连接。
这样做是因为我不想在各模块都开启一个连接，
简单的说就是在模块中传递ADO数据库连接
题外话：在COM中可以做到传递一个组件，但我不知道一个己激活的ADO数据库连接的本质是什么?

----------------------------------------------
^-^lifencheng^0^

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/1/2 20:41:58

1楼：

继承自TComponent
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/1/2 20:42:44

2楼：

TObject->TPersistent->TCompoent->TDataSet->TCustomADODataSet->TADOQuery
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

kwbin (rainey)	★☆☆☆☆	-
	盒子活跃会员

2004/1/3 7:18:49

3楼：

主窗体调用函数
function functionDetect(libName,funcName:string;var libPointer:pointer):boolean;
var
  libHandle:THandle;
begin
  result:=false;
  libPointer:=nil;
  if LoadLibrary(PChar(libName))=0 then exit;
  libhandle:=GetModuleHandle(PChar(libName));
  if libHandle<>0 then
  begin
    libPointer:=GetProcAddress(libHandle,PChar(funcName));
    if libPointer<>nil then result:=true;
  end
end;

procedure loadModule(moduleFile:string);
var
  pShowForm:function(hHandle:HWND;conn:TADOConnection):bool;stdcall;
  mFile:string;
begin
  mFile:=ExtractFilePath(ParamStr(0))+'Lib\'+moduleFile;
  if functionDetect(mFile,'showForm',@pShowForm) then
    pShowForm(Application.Handle,DM.connMain)
  else
    Application.MessageBox('没有找到此模块!请核对!','错误',MB_ICONERROR+MB_OK);
end;

DLL函数声明
function showForm(hHandle:HWND;conn:TADOConnection):boolean;stdcall;
//记得要导出哦！
var f:TfrmTokenAttri;
begin
  result:=false;
  PUB_CONN:=conn;
  //PUB_CONN为全局数据库连接变量，用于控制整个模块联结，外部定义
  Application.Handle:=hHandle;
  try
    f:=TfrmTokenAttri.Create(nil);
    f.ShowModal;
    result:=true;
  finally
    f.Free;
  end;
end;

----------------------------------------------
我们的技术来自于大家的齐心合力！不要吝啬你的知识！

作者：

lifencheng (lifencheng)	★☆☆☆☆	-
	盒子活跃会员

2004/1/4 21:34:50

4楼：

谢了kwbin
但我想要的是用返回值,各模块可能在不同的机器上
----------------------------------------------
^-^lifencheng^0^

信息

登陆以后才能回复