关于多线程连接数据库服务器，急！100分

[hellojw]

如何建立一个不定数的多用户连接数据库模型，难道对每个客户端激活的每个线程都要定义一个query控件吗？
各位大佬，给个技术方案好吗，我接触delphi不多，能否给个例程，我送100分，谢谢
[e-mail]

[hellojw]

对：BCB(:))和powerlee(老李飞刀)　
本人很菜，请问能否给个具体的例子，谢谢，如果多的话发到我的邮箱中好吗，如果行分数一定送上。[e-mail]

[powerlee]

假设你有以下几个事件
//用户连接
OnClientConnect(UID:TClientID):
var
M_Session:TSession;
begin
M_Session := TSession.Create(Application);
M_Session.OpenDatabase(M_Database.DatabaseName);
//保存UID与M_Session;
SaveSessionToArray(uid,M_Session);
end;
//用户数据请求
OnClientReqData(UID);
var
qryCount:TQuery;
begin
//通过UID找到保存的Tsession;假设是以下函数
qryCount:=TQuery.Create(Application);
qryCount.session:= GetSession(Uid);

//执行
with QryCount do begin
{do some thing}
...
end;
qrySession.free;
end;
//释放连接
OnDisconnect(UID)
var
session:TSession;
begin
session:=GetSession(uid);
end;

[hellojw]

对：powerlee(老李飞刀)　
不好意思本来给50分的但好象我给的最高分只能是20，不好意思，谢谢你！！！

[Barbarian]

你可以在线程里动态生成TQuery,线程结束时再释放掉嘛：）

[BCB]

因为你用的是BDE,多线程除TQuery外还要TSession元件,
所以,最好静态建一个DataModule1,放上Database1,Session1,Query1,
每一个线程TDataModule1.Create就可以了

[powerlee]

Session和Query都可以动态创建和释放。Session做成全局，Query作成局部，需要的时候建立，不需要的时候释放。如当有连接的时候动态创建Session当需要查询或多个查询时候，动态建立一个或多个Query把Query.session指向这个连接的Session Query执行完释放Query 当客户连接释放，把这Session释放.