5,386
社区成员
发帖
与我相关
我的任务
分享简单问题，轻松得分（60分）
网页中有一个表格，这个表格中有十个纪录，我想让这个表格中的记录是从delphi制作的表中读取得，并且当delphi的表格中的记录是超出十条的，则自动新建一个网页，与这个一样的，只是表格中的记录不同，不且自动给新生成的网页命名！我制作的也就是一个网页管理工具，方便网页的更新。其中，网页可以看成是文本文件！！！！因为他们值加可以转换！！！！谢谢！最好能给我写出源代码！！有实例更好！！！！谢谢各位！！！
...全文
请发表友善的回复…
发表回复
visualc2002 2003-08-21
- 打赏
- 举报
我不太明白internet编程，你能不能把后来的几个事件写一下，谢谢！
zhangheaaa 2003-08-21
- 打赏
- 举报
另一个方法：
用TQueryTableProducer，TDataSetPageProducer等几个控件都可以实现。下面给你说个最简单的例子
1.在窗体上放一个Query控件,一个TQueryTableProducer控件(在Internet组中）
2.配置好Query并使active:=true,TQueryTableProducer的Query属性设置为Query1
3.运行showmesage(QueryTableProducer.content);就是一个网页格式的代码。
TDataSetPageProducer控件
先用Frontpage等网页制作工具制作好页面，留出表格内容代填充
2.使用TDataSetPageProducer配置Dataset属性到Dataset数据集组件
3.在onHTMLTag事件中替换特殊标记成数据
用TQueryTableProducer，TDataSetPageProducer等几个控件都可以实现。下面给你说个最简单的例子
1.在窗体上放一个Query控件,一个TQueryTableProducer控件(在Internet组中）
2.配置好Query并使active:=true,TQueryTableProducer的Query属性设置为Query1
3.运行showmesage(QueryTableProducer.content);就是一个网页格式的代码。
TDataSetPageProducer控件
先用Frontpage等网页制作工具制作好页面，留出表格内容代填充
2.使用TDataSetPageProducer配置Dataset属性到Dataset数据集组件
3.在onHTMLTag事件中替换特殊标记成数据
IORILI 2003-08-21
- 打赏
- 举报
鹤楼主一起学习
zhangheaaa 2003-08-21
- 打赏
- 举报
建3个
htmTopList,htmMidList,htmBomList : TStringList;//前面部分中间动态部分结尾部分.
htmFile:TextFile; //html 文件变量
FileName : String; //html文件名
htmTopList := TStringList.Create;
htmMidList := TStringList.Create;
htmBomList := TStringList.Create;
with htmTopList do begin
Add('<HTML><HEAD><TITLE>Sohu/ChinaRen校友录 蓝蓝的968</TITLE></HEAD>');
Add('<BODY bgColor=#ffffff leftMargin=0 topMargin=5><div align="center">');
Add('<table>');
end;
htmBomList.add('</TABLE></div>CENTER></BODY></HTML>');
AssignFile(htmFile,'c:\test.htm');
ReWrite(htmFile);
with adoquery1 do begin
while not eof do begin
htmMidList.Add('<TR bgColor=#f3f3f3><TD>+DateTimeToStr(adoquery1['time']);
next;
end;
try
for i:=0 to htmTopList.Count-1 do
Writeln(htmFile,htmTopList[i]);
for i:=0 to htmMidList.Count-1 do
Writeln(htmFile,htmMidList[i]);
for i:=0 to htmBomList.Count-1 do
Writeln(htmFile,htmBomList[i]);
finally
CloseFile(htmFile);
htmmidlist.Clear;
end;
end;
关于十条记录的控制，你可以自己控制一下循环。
江山易改 2003-08-21
- 打赏
- 举报
这样“简单”的程序到是没有写过
