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

  • 主题发起人 万里波波
  • 开始时间
太感谢你了！因为我最喜欢听表扬的话了！[:D]
有这样的想法，就是没有时间。
 
我说的是实话，我们要开发一个web程序，选择intraweb,就是因为看了你书的前言，然后觉得有这样一本书，然后就进行了。
可能到时候还会有问题问你，麻烦了！！！
有机会，能联系一下，我是一个学生。
 
大富翁论坛是很好的交流场所啊！
一起学习吧！
 
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;
谢谢
 
杨兄：
不知道您有没有intraweb 做excel的例子
我试着用你书上例子，总出错，我估计是版本不一样，您有没有intraweb 7的例子亚
呵呵
或者告诉我哪里有
总麻烦您
 
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里的定义跟这类似。
 
万分感谢，这个问题终于解决了！！！！！高手就是高手~~~~~~~~~~~~~~~~~~~~~

有没有报表方面的资料亚，如例子。
谢谢啦
 
我用rave做报表，预览时总是跳出output options，很烦人。发布后也出现，而且是窗口最小化。有没有办法不让它出现，默认直接出来预览窗口！
谢谢
 
杨兄：
不知道您有没有intraweb 做excel的例子
怎样调用？？？？
100分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3173999
 
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
为何EmptyParam找不到
 
variants单元里有EmptyParam的声明

确实没有intraweb 做excel的例子，你想实现什么样的功能？
 
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控件，但是不会隐藏工具栏（包括菜单栏）。上述程序出错
 
一个Excel文件，跟一个HTML文件一样，可以直接让一个热连接连接到它，它能够在浏览器里显示。
 
我在您书的p229看到：excel嵌入窗口，不知道如何实现？
 
前段时间保先呀
杨兄
能不能把你做的adoquery 连接 access 例子给我看看
我的调试没有问题
发布后有问题
不知道为何？
 
>>前段时间保先呀
什么意思？[?]

哪种方式发布的？出什么问题？我先试试再给你。
 
呵呵
保持共产党员先进性，所以一直没有时间上网
我用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');
 
没错！正是这个原因！必须使用绝对路径。
程序必须先获得当前路径，然后拼出连接字符串，然后连接。
 
呵呵
不是很理解
具体一点
比如上面程序怎么改？
 
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最后带一个斜杠。
 
您必须登录或注册才可回复。

Similar threads

S
【重要提醒】请 Delphi/C++ Builder 现在用户一定不要升级到 xcode 8
回复
0
查看
580
swish
S
D
[原]WAMP中修改PHP.ini
回复
0
查看
734
DelphiTeacher的专栏
D
D
[原]WAMP中修改PHP.ini
回复
0
查看
705
DelphiTeacher的专栏
D
D
[原]WAMP中修改PHP.ini
回复
0
查看
678
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部