yeskert1,一定要进来看！！！！！ ( 积分: 200 )

yeskert1 · 2005-08-17

太感谢你了！因为我最喜欢听表扬的话了！[

]
有这样的想法，就是没有时间。

万里波波 · 2005-08-17

我说的是实话，我们要开发一个web程序，选择intraweb,就是因为看了你书的前言，然后觉得有这样一本书，然后就进行了。
可能到时候还会有问题问你，麻烦了！！！
有机会，能联系一下，我是一个学生。

yeskert1 · 2005-08-17

大富翁论坛是很好的交流场所啊！
一起学习吧！

万里波波 · 2005-08-18

yeskert1:
我要在多个窗体运用同样的一部分（如菜单），所以做了一个Frame，放在各窗体上。按照你的例子和Demos本身的例子，可以在Frame上用链接，然后各窗体就不要在给菜单做连接了。但是我一编译，就出现
[Error] Uframehead.pas(40): Undeclared identifier: 'WebApplication'
而Demos演示程序可以顺利通过。我研究了一个晚上，都没有成功
我加的语句是
procedure TFrame1.N3Click(Sender: TObject);
begin
TIWAppForm(WebApplication.ActiveForm).Release;
TIWFormshow.Create(WebApplication).Show;
end;
谢谢

万里波波 · 2005-08-18

杨兄：
不知道您有没有intraweb 做excel的例子
我试着用你书上例子，总出错，我估计是版本不一样，您有没有intraweb 7的例子亚
呵呵
或者告诉我哪里有
总麻烦您

yeskert1 · 2005-08-18

1、关于webapplication
如果不是在frame里，而是在TIWForm里使用webapplication肯定没问题，因为TIWForm
有webapplication属性。而Tframe对象不可能有这么一个属性。此时有两种办法：
1.1、简单的办法，是假如iwinit单元，其中有webapplication这个全局变量（其实
不是全局变量，而是一个函数）；
1.2、没添加一个TFrame，自动在frame里添加了一个IWFrameRegion，因此，不增加
iwinit也行，此时不能直接引用webapplication，而是通过IWFrameRegion引用
它。代码：
IWFrameRegion.OwnerForm.WebApplication
或者为frame增加一个函数：
function Tframe1.webapplicaton:TIWapplication;
begin
result:=IWFrameRegion.OwnerForm.WebApplication;
end;
这样不用iwinit也能使用WebApplication了。
实际上，iwinit里的定义跟这类似。

万里波波 · 2005-08-18

万分感谢，这个问题终于解决了！！！！！高手就是高手~~~~~~~~~~~~~~~~~~~~~

有没有报表方面的资料亚，如例子。
谢谢啦

万里波波 · 2005-08-19

我用rave做报表，预览时总是跳出output options，很烦人。发布后也出现，而且是窗口最小化。有没有办法不让它出现，默认直接出来预览窗口！
谢谢

万里波波 · 2005-08-20

杨兄：
不知道您有没有intraweb 做excel的例子
怎样调用？？？？
100分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3173999

万里波波 · 2005-08-20

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
为何EmptyParam找不到

yeskert1 · 2005-08-20

variants单元里有EmptyParam的声明

确实没有intraweb 做excel的例子，你想实现什么样的功能？

万里波波 · 2005-08-21

try
xlapp:=createoleobject('excel.application');
xlapp.visible:=false;
xlapp.workbooks.add(path+'/REPORT/baobiao.xls');
pp:=pp+1;
except
showmessage('没有安装EXCEL');
exit;
end;

xlapp.CommandBars['standard'].Visible := False;
xlapp.CommandBars['Formatting'].Visible := False;
xlapp.DisplayFormulaBar := False;
xlapp.CommandBars['Drawing'].Visible := False;
xlapp.ActiveWindow.Zoom := 100;
xlapp.CommandBars['Chart'].Visible := False;
xlapp.CommandBars['Clipboard'].Visible := False;
xlapp.CommandBars['Reviewing'].Visible := False;
xlapp.CommandBars['Visual Basic'].Visible := False;
xlapp.CommandBars['Control Toolbox'].Visible := False;
xlapp.CommandBars['Forms'].Visible := False;
xlapp.CommandBars['External Data'].Visible := False;
xlapp.CommandBars['PivotTable'].Visible := False;
xlapp.CommandBars['Picture'].Visible := False;
xlapp.CommandBars['WordArt'].Visible := False;
xlapp.CommandBars['Web'].Visible := False;
xlapp.DisplayStatusBar := False;

这是我以前用来调用EXCEL的程序。但是intraweb，好像没有ole控件,不能用。
我现在用ExcelApplication控件，但是不会隐藏工具栏（包括菜单栏）。上述程序出错

yeskert1 · 2005-08-21

一个Excel文件，跟一个HTML文件一样，可以直接让一个热连接连接到它，它能够在浏览器里显示。

万里波波 · 2005-08-22

我在您书的p229看到：excel嵌入窗口，不知道如何实现？

万里波波 · 2005-08-29

前段时间保先呀
杨兄
能不能把你做的adoquery 连接 access 例子给我看看
我的调试没有问题
发布后有问题
不知道为何？

yeskert1 · 2005-08-29

>>前段时间保先呀
什么意思？[?]

哪种方式发布的？出什么问题？我先试试再给你。

万里波波 · 2005-08-30

呵呵
保持共产党员先进性，所以一直没有时间上网
我用EXE和dll方式发布，都不行。
也就是说发布前，连接数据库没有问题，发布后数据库就连接不上了
是不是要ODBC，或者要绝对路径？我用的是相对路径
syspath:=getcurrentdir();
adoquery1.Close;
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+syspath+'/database/jkh.mdb;Persist Security Info=False';
adoquery1.SQL.clear;
ADOquery1.sql.add('select * from yhmm where username=:a');

yeskert1 · 2005-08-30

没错！正是这个原因！必须使用绝对路径。
程序必须先获得当前路径，然后拼出连接字符串，然后连接。

万里波波 · 2005-08-30

呵呵
不是很理解
具体一点
比如上面程序怎么改？

yeskert1 · 2005-08-30

syspath:=webapplication.ApplicationPath;
adoquery1.Close;
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+syspath+'database/jkh.mdb;Persist Security Info=False';
adoquery1.SQL.clear;
ADOquery1.sql.add('select * from yhmm where username=:a');
注意！webapplication.ApplicationPath最后带一个斜杠。

yeskert1,一定要进来看！！！！！ ( 积分: 200 )

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

万里波波

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

Similar threads