|
|
|
³³³学
习 园 地³³³
考试大纲：职高计算机等级考试 |
职高英语等级考试 |
英语考试样题
计算机等级考试8四川
：一级|
二级|
三级
全国
：一级 |一级Ｂ|
二级VFP|
二级VB|
三级|
四级
基础篇：微机基础 |
文件管理 |
因特网操作|
电子邮件
|
BBS论坛
|网页基础1
|网页基础2
|
网页基础3
数据库：VFP6_基础|
VFP6_命令|
报表与菜单|
表单设计
|
查询数据
|
编程初步
|
数据网页
|
上机考试
网页篇：网页表单 |
动态网页 |
JAVA脚本1 |JAVA脚本2
|JAVA脚本3
|JAVA脚本4
|JAVA脚本5
|
JAVA脚本6
职称篇：职称计算机等级考试
网络知识部分
操作题解题辅导
表格式数据(TDC)动态网页制作
一、关于TDC
TDC(Tabular Data
Control)是表格式数据控件。利用它，客户端的浏览器能够从服务器端接收到文本型表格式数据，并根据需要进行不同方式的显示，如：分页显示、逐条显示、排序、过滤、查找等。而这些工作都在客户机中进行，服务器不参与。
二、TDC的使用
TDC的类标识符 CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83
TDC的属性：
DataSrc: 数据文件。
Datafld: 数据列。
Dataformats: 数据格式，html,text等。
Datapagesize: 每页行数。
TDC控件定义：
<OBJECT id=控件名 CLASSID="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83">
<PARAM NAME="DataURL" VALUE="数据文件名">
<PARAM NAME="UseHeader" VALUE="True">
<PARAM NAME="Filter" VALUE="过滤条件">
<PARAM NAME="Sortcolumn" VALUE="排序列">
三、表格式数据文件
是纯文本文件，第一行是表头，每列数据用逗号分开。可用记事本编辑，或用Excel编辑后，保存为CSV
类型。如以下的数据有四列：文件名为：data.txt。
BH,XM,BM,DH
001,张志强,生产科,8234345
002,李永远,管理科,8459380
003,王小军,计划科,8595022
004,陈汉明,办公室,8900433
005,张方芳,生产科,8449022
006,刘奋进,办公室,8233467
007,黄珍珍,管理科,8204412
008,吴森林,计划科,8145223
009,张小方,生产科,7234345
010,李卫星,管理科,7459380
011,王国强,计划科,7595022
012,陈广文,办公室,7900433
013,伍芬芳,生产科,7449022
014,郭进贤,办公室,7233467
015,黄树立,管理科,7204412
016,吴庆好,计划科,7145223
四、例一、显示全部数据 演示
功能：以一个表格，显示data.txt的全部数据。
<!--TDC-1.htm-->
<HTML>
<BODY>
<H2>显示全部记录</H2>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True">
</OBJECT>
<TABLE border=1 dataSrc=#samp>
<THEAD>
<TR>
<TH>职工编号</TH>
<TH>姓名</TH>
<TH>部门</TH>
<TH>住宅电话</TH></TR>
<TBODY>
<TR>
<TD><SPAN dataFld=BH></SPAN></TD>
<TD><SPAN dataFld=XM></SPAN></TD>
<TD><SPAN dataFld=BM></SPAN></TD>
<TD><SPAN dataFld=DH></SPAN></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
五、例二、分页显示数据 演示
功能：以一个表格，显示data.txt的数据，每页5行。通过两个按钮来翻页显示。
<!-- TDC-2.htm -->
<HTML>
<BODY>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True"></OBJECT>
分页显示,每页5行,可翻页<p>
<TABLE border=1 dataPageSize=5 dataSrc=#samp id=Table1>
<THEAD>
<TR>
<TH>职工编号</TH>
<TH>姓名</TH>
<TH>部门</TH>
<TH>住宅电话</TH>
<TBODY>
<TR>
<TD><DIV dataFld=bh></DIV></TD>
<TD><DIV dataFld=xm></DIV></TD>
<TD><DIV dataFld=bm></DIV></TD>
<TD><DIV dataFld=dh></DIV></TD>
</TR></TBODY></TABLE>
<INPUT onclick=Table1.previousPage() type=button value=前一页>
<INPUT onclick=Table1.nextPage() type=button value=后一页>
</BODY></HTML>
六、例三、逐条记录显示 演示
功能：用四个文本框显示每条记录中的数据，用四个按钮控制移动记录。
<!--TDC-3.htm ,数据文件"Data.txt"-->
<HTML><HEAD><TITLE>逐条记录显示 显示data.txt的内容</TITLE>
<SCRIPT language=VBScript>
Sub first_onclick
samp.recordset.moveFirst
End Sub
Sub pre1_onclick
if samp.recordset.AbsolutePosition > 1 then
samp.recordset.movePrevious
else Msgbox("这已是第一个记录了!")
end if
End Sub
Sub next1_onclick
if samp.recordset.AbsolutePosition <> samp.recordset.RecordCount then
samp.recordset.moveNext
else Msgbox("这已是最后一个记录了!")
end if
End Sub
Sub end1_onclick
samp.recordset.moveLast
End sub
</SCRIPT>
</HEAD>
<BODY>
<H2 style="TEXT-ALIGN: center">逐条记录显示</H2>
<HR>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True"></OBJECT>
<!-设置文本框的标题和位置->
<DIV style="LEFT: 250px; POSITION: absolute; TOP: 100px">
<LABLE>编号: <INPUT dataFld=bh dataSrc=#samp> </LABLE></DIV>
<DIV style="LEFT: 250px; POSITION: absolute; TOP: 150px">
<LABLE>姓名: <INPUT dataFld=xm dataSrc=#samp> </LABLE></DIV>
<DIV style="LEFT: 250px; POSITION: absolute; TOP: 200px">
<LABLE>部门: <INPUT dataFld=bm dataSrc=#samp> </LABLE></DIV>
<DIV style="LEFT: 250px; POSITION: absolute; TOP: 250px">
<LABLE>电话: <INPUT dataFld=dh dataSrc=#samp> </LABLE></DIV>
<!--设置记录移动按钮-->
<DIV style="LEFT: 200px; POSITION: absolute; TOP: 300px">
<FORM><INPUT id=first style="WIDTH: 80px" value=第一个 type=button >
<INPUT id=pre1 style="WIDTH: 80px" value=上一个 type=button >
<INPUT id=next1 style="WIDTH: 80px" value=下一个 type=button >
<INPUT id=end1 style="WIDTH: 80px" value=最后一个 type=button >
</FORM></DIV></BODY></HTML>
七、例四、数据排序显示 演示
功能：用鼠标单击某列表头，会重新显示排序后的记录。
<!--TDC-4.htm-->
<HTML><HEAD><TITLE>显示排序记录，显示data.txt的内容</TITLE>
<Script language="VBscript">
sub bh1_onclick()
samp.Sortcolumn="bh"
samp.reset()
End Sub
sub xm1_onclick()
samp.Sortcolumn="xm"
samp.reset()
End Sub
sub bm1_onclick()
samp.Sortcolumn="bm"
samp.reset()
End Sub
sub dh1_onclick()
samp.SortColumn="dh"
samp.reset()
End Sub
</Script>
<BODY>
<H2>显示排序记录（单击某列表头）</H2>
<OBJECT align=baseline classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83
id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True">
</OBJECT>
<TABLE border=1 dataSrc=#samp bordercolor=red>
<THEAD>
<TR>
<TH id=bh1>职工编号</TH>
<TH id=xm1>姓名</TH>
<TH id=bm1>部门</TH>
<TH id=dh1>住宅电话</TH></TR>
<TBODY>
<TR>
<TD><SPAN dataFld=BH></SPAN></TD>
<TD><SPAN dataFld=XM></SPAN></TD>
<TD><SPAN dataFld=BM></SPAN></TD>
<TD><SPAN dataFld=DH></SPAN></TD>
</TR></TBODY></TABLE><!--结束--></BODY></HTML>
八、例五、选择显示记录 演示
功能：用下拉菜单选择显示某个部门，会显示某个部门的记录。
<!--TDC-5.htm-- ，显示data.txt的内容-->
<HTML><HEAD><TITLE>用下拉菜单选择显示某个部门，显示data.txt的内容</TITLE>
<Script language="VBscript">
sub menu_onclick()
samp.filtercolumn="bm"
if menu.selectedindex=0 then
samp.filterCriterion="<>"
samp.filterValue="no value"
else
samp.filterCriterion="="
select case menu.selectedindex
case 1
samp.filterValue="办公室"
case 2
samp.filterValue="计划科"
case 3
samp.filterValue="管理科"
case 4
samp.filterValue="生产科"
end select
end if
samp.reset()
End Sub
</Script>
<BODY>
<H2>用下拉菜单选择显示某个部门记录</H2>
<OBJECT align=baseline classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83
id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True">
</OBJECT>
<center>
<select style="width:150" id=menu>
<option selected value=all>全部
<option value=1>办公室
<option value=2>计划科
<option value=3>管理科
<option value=4>生产科
</select>
</center>
<TABLE border=1 dataSrc=#samp bordercolor=red>
<THEAD>
<TR>
<TH >职工编号</TH>
<TH >姓名</TH>
<TH >部门</TH>
<TH >住宅电话</TH></TR>
<TBODY>
<TR>
<TD><SPAN dataFld=BH></SPAN></TD>
<TD><SPAN dataFld=XM></SPAN></TD>
<TD><SPAN dataFld=BM></SPAN></TD>
<TD><SPAN dataFld=DH></SPAN></TD>
</TR></TBODY></TABLE><!--结束--></BODY></HTML>
九、例六、模糊查找记录 演示
功能：模糊查找符合条件的记录的例子，按下按钮后打开一个窗口(tdc-6-1.htm)输入条件，显示符合条件的记录。
例如：查找条件：xm=张* ,bm=办公室 ,xm=张*&bm=办公室
<!--TDC-6.htm-->
<HTML><HEAD><TITLE>模糊查找符合条件的记录，显示data.txt的内容</TITLE>
<Script language=VBscript>
sub find_onclick()
cond=window.showModalDialog("tdc-6-1.htm",null,"dialogWidth:350px;dialogHeight:240px")
if len(cond)=0 then
exit sub
end if
samp.filter=cond
samp.reset()
End sub
</Script>
<BODY>
<H2>模糊查找符合条件的记录</H2>
<OBJECT align=baseline classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83
id=samp>
<PARAM NAME="DataURL" VALUE="data.txt">
<PARAM NAME="UseHeader" VALUE="True">
</OBJECT>
<center>
<Button style="font-weight:blod;width:120;background-color:silver;color:red"
id=find >请输入查找条件</button>
</center>
<TABLE border=1 dataSrc=#samp bordercolor=red>
<THEAD>
<TR>
<TH>职工编号</TH>
<TH>姓名</TH>
<TH>部门</TH>
<TH>住宅电话</TH></TR>
<TBODY>
<TR>
<TD><SPAN dataFld=BH></SPAN></TD>
<TD><SPAN dataFld=XM></SPAN></TD>
<TD><SPAN dataFld=BM></SPAN></TD>
<TD><SPAN dataFld=DH></SPAN></TD>
</TR></TBODY></TABLE><!--结束--></BODY></HTML>
<!--输入条件窗口 tdc-6-1.htm -->
<html>
<head>
<script language="Jscript">
function doOK()
{ window.returnValue=text1.value;
window.close();
}
function doCancel()
{ window.returnValue=text1.value;
window.close();
}
</script>
<title>输入条件窗口</title>
</head>
<body style="background-color:silver">
<br>
<p style="text-align:center">请输入查找条件:</p>
<center>
<input id=text1 type=text style="width:90%">
</center>
<button style="position:absolute;top:70%;left:48%;width:60"
onclick="doOK()">确定</button>
<button style="position:absolute;top:70%;left:73%;width:60"
onclick="doCancel()">取消</button>
</body>
</html> |
