200分求ActiveForm高手交流(200分)

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

现在急需解决问题是：两个ActiveForm如何通信，即一个如何引用另一个的变量
请留下Email
如果可以的话能留下电话最好

 

向

向问天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

是做三层吗？

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #3

是三层，但问题在于ActiveForm使用

 

L

lzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #4

通过ASP传递参数,即第一个FORM调用ASP将参数传给ASP，再由ASP传给第二个FORM。


<OBJECT
classid="clsid:3DC2E248-3E00-4580-BE19-51B2796200C5"
codebase="http://<%=Request.ServerVariables("LOCAL_ADDR")%>/bin/ocx1.ocx#version=1,0,30,0"
width=308
height=152
align=center
hspace=0
vspace=0
>
<param name="CODE" value= 39B33>
</OBJECT>

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #5

to lizhang
能不能再具体一点,如何传递？一个ActiveForm把一个变量的值传给另一个ActiveForm
谢谢

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #6

up

 

向

向问天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #7

你不是三层吗，
通过后台数据库来传可以吧？
还有你怎么会要有两个ActiveForm呢？

 

L

lzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #8

1第一个ACTIVEFORM调用
shellexecute(handle,'open','http://localhost/AF_FORM2.ASP?CODE=ABC','','',SW_SHOW);

2通过ASP给第二个ACTIVEFORM负值

<OBJECT
classid="clsid:3DC2E248-3E00-4580-BE19-51B2796200C5"
codebase="http://<%=Request.ServerVariables("LOCAL_ADDR")%>/bin/ocx1.ocx#version=1,0,30,0"
width=308
height=152
align=center
hspace=0
vspace=0
>
<param name="code" value=<%=Request.QueryString("code")%>>
</OBJECT>

3第二个ACTIVEFORM的接口增加一个属性：CODE，接收参数。

OK?

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #9

to lizhang
如何给ActiveForm接口增加一个属性
我看了这方面的贴子，但在Delphi６中如何操作？

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #10

to 向问天
要做成B/S结构，有些参数不宜通过数据库传递，如根据用户权限不同，显示不同的页面

 

L

lzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #11

帮人帮到底，送佛送到西。
菜单view->type library,树的第一个子项就是接口，在接口上打右键，new->property增加一个属性。

你最好找找这方面的书，写的都很清楚。论坛可以问问题，但不能了解原理。

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #12

to lizhang
不好意思,让你费心了
其实,这方面的事我大体都了解一些,因为以前的贴子我基本上都看了
关键是我离明白,还有一点点距离
如:
菜单view->type library,树的第一个子项就是接口，在接口上打右键，new->property增加一个属性。
我知道这一点,但,New 有 Interface、DispInterface、Coclass、Enum、Alias几项，
应该选择哪一个呢。

祝仲秋愉快！！

 

L

lzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #13

有火柴头图标的以Ixxxx开头的就是接口，在接口上打右键，new->property增加一个属性。
存盘，在ACTIVEFORM的程序中就自动增加两个函数：

function TXXXXX.Get_XX: WideString;
begin

end;

procedure TXXXXX.Set_XX(const Value: WideString);
begin

end;

SET函数是在付值是触发的，VALUE就是付的值。

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #14

to lizhang
thanks!
收分吧

 

L

lzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #15

怎么不给分呀，呵呵。

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #16

多人接受答案了。