全部

请教如何在我的对象中使用remotedatamodule中的控件

zf4000 2003-05-11 11:01:42

我在服务器端新建了一个remotedatamodule,和一个objclass的单元文件，objclass单元文件中有这么一句话：
remotedatamodule.ADOQuery1.Close;
....
编译时在这一行出错，[Error] UntObj.pas(41): Undeclared identifier: 'remotedatamodule'
请问我该怎么做，才能在其他单元文件中使用remotedatamodule中的控件啊？？
如果不能用，那么我该怎么做

...全文

131 点赞收藏 9

写回复

9 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

zf4000 2003-05-30

问题已经解决，好象只能在remotedatamodule中use别的单元文件，感谢各位

回复赞

888888888888 2003-05-11

同意楼上

回复赞

僵哥 2003-05-11

use remotedatamodule所在的单元。

回复赞

888888888888 2003-05-11

关注

回复赞

zf4000 2003-05-11

del_c_sharp(摩托～◎～◎～◎)
我已经注意到了，可是问题是，我的tuser.createUserFromId方法需要调用里面的adoconnection啊，难道可以不调用？？？
如果我想实现在别的类中调用remotedatamodule中的组件，我该怎么做呢？？？谢谢。

回复赞

del_c_sharp 2003-05-11

楼主没有注意到一点:
你先新建一个带有remotedatamodule的项目,仔细看看:
1.在form的单元中:
var
form1:Tform1;
2.在remotedatamodule中没有var定义

道理很简单,服务器程序会初始化一个Tform1类的实例form1,
但任何remotedatamodule的实例,
都是由客户程序动态激活,而产生的.
你在写服务器程序时,只有form1的实例可用,你如何去控制还
没有建立的remotedatamodule呢?
相反,你在remotedatamodule中可以引用form1.

也就是说,form1作为服务器主窗体,与他共存的是程序运行后,
由客户程序激活的一些数据模块,但form1自己却不能直接直到有几个module~~~

回复赞

zf4000 2003-05-11

难道没人帮忙吗？

回复赞

zf4000 2003-05-11

我把源文件copy出来，帮忙看看

#############untmyremoteserver#########################
unit UntMyRemoteServer;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
DBClient, ProServer_TLB, StdVcl, Provider, DB, ADODB;

type
TmyRemoteServer = class(TRemoteDataModule, ImyRemoteServer)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSetProvider1: TDataSetProvider;
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

class procedure TmyRemoteServer.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;
initialization
TComponentFactory.Create(ComServer, TmyRemoteServer,
Class_myRemoteServer, ciMultiInstance, tmApartment);

end.

###############unit objclass#################
{###################################################
类的声明
###################################################
}
unit UntObj;

interface

Type TPerson = class(Tobject)
private
{ Private declarations }
public
name : string[25];
sex : string[4];
{ Public declarations }
end;

type TUser = class(TPerson)
private
{ Private declarations }
public
user_id : string[20];
bumen : string[20];
//根据user_id从数据库取得用户信息
procedure createUserFromId(user_id : string);
procedure insertToDB(str: string);
//将user信息插入表中,str格式：'user_id',user_id_value,'name',name_value
{ Public declarations }
end;

implementation

uses UntMyRemoteServer;
procedure Tuser.createUserFromId(user_id: string);
var
str : string;
begin
str:='select * from user_db where user_id='''+user_id+'''';
//datamodule1.
//remoteServer:=Tremoteserver.Create();
myRemoteServer.ADOQuery1.Close;
datamodule1.ADOQuery1.SQL.Clear;
datamodule1.ADOQuery1.SQL.Add(str);
datamodule1.ADOQuery1.Open;
self.user_id:=datamodule1.ADOQuery1.FieldValues['user_id'];
self.bumen:=datamodule1.ADOQuery1.FieldValues['bumen'];
self.name:=datamodule1.ADOQuery1.FieldValues['name'];
self.sex:=datamodule1.ADOQuery1.FieldValues['sex'];
end;

procedure Tuser.insertToDB(str : string);
var
str : string;
begin
str:='insert into user_db (';
str:=str+' where user_id='''+user_id+'''';
//datamodule1.
//remoteServer:=Tremoteserver.Create();
datamodule1.ADOQuery1.Close;
datamodule1.ADOQuery1.SQL.Clear;
datamodule1.ADOQuery1.SQL.Add(str);
datamodule1.ADOQuery1.Open;
self.user_id:=datamodule1.ADOQuery1.FieldValues['user_id'];
self.bumen:=datamodule1.ADOQuery1.FieldValues['bumen'];
self.name:=datamodule1.ADOQuery1.FieldValues['name'];
self.sex:=datamodule1.ADOQuery1.FieldValues['sex'];
end;

end.

回复赞

zf4000 2003-05-11

我已经use过了，
可是不行，提示的错误一样。

回复赞

时间线js 根据时间进度显示节点位置时间线js 根据时间进度显示节点位置可用于项目跟踪等页面显示本人所写有问题找本人

linux网络内核书合集01 本合集是本人搜集的关于linux网络内核的书籍，都是经典，包含：（1）Linux网络体系结构：Linux内核中网络协议的设计与实现.chm （2）Linux网络内核分析与开发.pdf （3）嵌入式Linux网络体系结构设计与TCP／IP协议栈.pdf （4）深入理解LINUX网络技术内幕.pdf 第一本是英文版chm格式，其余三本均为中文版，扫描清晰

windows服务器挖矿病毒手动查杀方法 windows服务器2018年6月份挖矿病毒手动查杀方法，表现为cpu占用高，远程桌面登录看不到桌面，HA经常无故来回切换

HTML5经典中文教程大全-从入门到精通-含html5案例代码 HTML5经典中文教程大全 html5从入门到精通含html5案例代码 HTML 5结构元素这真是大快人心。目前，我们定义结构只能通过一个“万能”的div, 试图通过设置它的特性id的值如header, footer, sidebar等来分别表达头部，底部或者侧栏等。有了它们，代码编写者不再需要为id的命名费尽心思，对于手机、阅读器等设备更有语义的好处。HTML 5增加了新的结构元素来表达这些最常用的结构：

信息化教师说课PPT模板.pptx 信息化教师说课PPT模板.pptx

wincc 6.0 sp3授权 wincc共享资源，希望在工作上可以帮到你。

清新简约教师说课PPT模板.pptx 清新简约教师说课PPT模板.pptx

非常好验证码自动识别代码-C# OCR光学识别数字识别率达100 可用的验证码自动识别非常好验证码自动识别代码-C# OCR光学识别数字识别率达100 自动识别邮政快递EMS验证码自动识别顺风快递验证码