W
wind_2005
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个最简单的三层测试程序，
功能只是在客户端通过服务器程序，连接至数据库上。
服务器端只包括一主窗体和一远程数据模块。
客户端用DCOMConnection连接。
运行客户端,一切正常。
但是我修改了服务器端，在远程数据模块的Create事件中加入如下代码：
procedure TTestServer.RemoteDataModuleCreate(Sender: TObject);
begin
Form1.lblClientNum.Caption := 'Ok';
end;
后，客户端无法正常连至服务器。
将 Form1.lblClientNum.Caption := 'Ok';
一句注释之后，又恢复正常。
请问，我的错误在哪里？如何在主窗体中显示远程数据模块的相关信息呢？
比如，我如何得知客户端执行了几次查询。
在下先谢过了！！！
功能只是在客户端通过服务器程序，连接至数据库上。
服务器端只包括一主窗体和一远程数据模块。
客户端用DCOMConnection连接。
运行客户端,一切正常。
但是我修改了服务器端，在远程数据模块的Create事件中加入如下代码：
procedure TTestServer.RemoteDataModuleCreate(Sender: TObject);
begin
Form1.lblClientNum.Caption := 'Ok';
end;
后，客户端无法正常连至服务器。
将 Form1.lblClientNum.Caption := 'Ok';
一句注释之后，又恢复正常。
请问，我的错误在哪里？如何在主窗体中显示远程数据模块的相关信息呢？
比如，我如何得知客户端执行了几次查询。
在下先谢过了！！！
