htmc6.tmp

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· TMP 代码 · 共 108 行

TMP
108 行
字号 
<html><head></head>
<script language=Javascript src="/js/IWCommon.js_5.0.43"></script>

<script language=Javascript src="/js/IWExplorer.js_5.0.43"></script>

<script language=Javascript src="/js/IWCSData.js_5.0.43"></script>

<script language=Javascript src="/js/IWCL.js_5.0.43"></script>
<script language=Javascript>
function FormDefaultSubmit() {return false;}
function SubmitClick(objname, param, ADoValidation) {return parent.SubmitClick(objname, param, ADoValidation);}
function rollon(row,where){ 
var tablecolor;
if (where == 'over'){
 currentcolor=document.getElementById(row).style.getAttribute("backgroundColor")
 document.getElementById(row).style.backgroundColor='' 
 }else{ 
 document.getElementById(row).style.setAttribute("backgroundColor",currentcolor) }
}
var IWDBGRID1IWCL;

function Initialize() {
document.body.leftMargin = 0;
document.body.topMargin = 0;
InitRects(440, 731);
IWDBGRID1IWCL = new CreateIWCLObject(IWCLForm, "IWDBGRID1", "IWDBGRID1IWCL");
if (IWDBGRID1IWCL.Item != null) {
 IWDBGRID1IWCL.SetAlign(alRight);
 IWDBGRID1IWCL.SetAnchors(new CreateAnchors(false, true, true, true));
}
}
</script>
<body  OnLoad="Initialize();" OnResize="Body_OnResize();">
<form onsubmit="return FormDefaultSubmit();" style="font: 10pt;">
  <table id="IWDBGRID1" border="1" cellpadding="0" cellspacing="0" width="400"><tr>
    <td valign="middle" align="center" NOWRAP>
      <font style="font-size:10pt;">书名</font>
    </td>
    <td valign="middle" align="center" NOWRAP>
      <font style="font-size:10pt;">出版社</font>
    </td>
    <td valign="middle" align="center" NOWRAP>
      <font style="font-size:10pt;">作者</font>
    </td>
    <td valign="middle" align="center" NOWRAP>
      <font style="font-size:10pt;">作者</font>
    </td>
    <td valign="middle" align="center" NOWRAP>
      <font style="font-size:10pt;">作者</font>
    </td>
  </tr>
  <tr id="1">
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;"><a href="#" onclick="return SubmitClickConfirm('IWDBGRID1','0_7-302-06249-8', true, '')">Visual Basic编程指南</a>
      </font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">清华大学出版社</font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">田文胜</font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">刘阳</font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">学勤</font>
    </td>
  </tr>
  <tr id="2">
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;"><a href="#" onclick="return SubmitClickConfirm('IWDBGRID1','0_7-900643-39-7', true, '')">C++ Builder 高级应用开发指南</a>
      </font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">清华大学出版社<br></font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">李幼仪</font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">甘志</font>
    </td>
    <td valign="middle" align="left" NOWRAP>
      <font style="font-size:10pt;">&nbsp;</font>
    </td>
  </tr>
  <tr id="3">
    <td valign="middle" align="left" NOWRAP  bgcolor="#FFFF00">
      <font style="font-size:10pt;"><a href="#" onclick="return SubmitClickConfirm('IWDBGRID1','0_7-5083-1485-9', true, '')">Exceptional C++</a>
      </font>
    </td>
    <td valign="middle" align="left" NOWRAP  bgcolor="#FFFF00">
      <font style="font-size:10pt;">中国电力出版社</font>
    </td>
    <td valign="middle" align="left" NOWRAP  bgcolor="#FFFF00">
      <font style="font-size:10pt;">未知</font>
    </td>
    <td valign="middle" align="left" NOWRAP  bgcolor="#FFFF00">
      <font style="font-size:10pt;">&nbsp;</font>
    </td>
    <td valign="middle" align="left" NOWRAP  bgcolor="#FFFF00">
      <font style="font-size:10pt;">&nbsp;</font>
    </td>
  </tr>
  </table>
</form>
</body></html>

htmc6.tmp - 源码说明

本页面展示了「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」中的 htmc6.tmp 源码文件，采用 TMP 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?