home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap18 / dun18_4.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  9.2 KB  |  244 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html><head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <title>Baseball Cards</title></head>
  5. <body bgcolor="#FFFFFF">
  6. <p>
  7. <object id="cards" ondatasetcomplete="dataloaded()"
  8. classid="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83" width="192" height="192">
  9.   <param name="DataURL" value="cards.txt">
  10.   <param name="UseHeader" value="1">
  11.   <param name="Sort" value="year; cardnumber">
  12. </object>
  13. </p>
  14.  
  15. <!-- START modified from Listing 18.3 -->
  16. <h3 align="center">
  17. To filter the data for a specific year, enter the year here and click the
  18. Filter button:</h3>
  19. <form id="filterform">
  20.   <div align="center"><center><h3>Year:
  21.      <input type="text" name="FilterYear" size="20"></h3>
  22.   </center></div>
  23.   <div align="center"><center><h3>
  24.   <input type="submit" value="Filter" name="B1" onclick="filteryear(0)">
  25.   <input type="reset" value="Reset" name="B2" onclick="filteryear(1)">
  26.   </h3></center></div>
  27. </form>
  28. <hr>
  29. <h3 align="center">Use any of these buttons to sort the data:</h3>
  30. <p align="center"><input type="button" value="Year/Card Number" name="B1"
  31. onclick="buttonclick(1)"><input type="button" value="Description" name="B2"
  32. onclick="buttonclick(2)"><input type="button" value="Year/Grade" name="B3"
  33. onclick="buttonclick(3)"><input type="button" value="Value" name="B4"
  34. onclick="buttonclick(4)"></p>
  35. <h3 align="center">Or, to sort by any column, click the column's header.</h3>
  36. <hr>
  37. <!-- END modified from Listing 18.3 -->
  38.  
  39. <table border="1" datasrc="#cards" align="center" cellpadding="2">
  40. <THEAD>
  41.   <tr>
  42.     <td align="left" id="year" onclick="tableclick('year')"
  43.         bgcolor="#00FFFF"><big>+Year</big></td>
  44.     <td align="left" id="CardNumber" onclick="tableclick('cardnumber')"
  45.         bgcolor="#00FFFF"><big>+Number</big></td>
  46.     <td align="left" id="setname" onclick="tableclick('setname')"
  47.         bgcolor="#00FFFF"><big>Set Name</big></td>
  48.     <td align="left" id="issuer" onclick="tableclick('issuer')"
  49.         bgcolor="#00FFFF"><big>Issuer</big></td>
  50.     <td align="left" id="description" onclick="tableclick('description')"
  51.         bgcolor="#00FFFF"><big>Description</big></td>
  52.     <td align="left" id="grade" onclick="tableclick('grade')"
  53.         bgcolor="#00FFFF"><big>Grade</big></td>
  54.     <td align="right" id="value" onclick="tableclick('value')"
  55.         bgcolor="#00FFFF"><big>Value</big></td>
  56.   </tr>
  57. </THEAD>
  58.   <tr>
  59.     <td><div datafld="year"></div></td>
  60.     <td><div datafld="cardnumber"></div></td>
  61.     <td><div datafld="setname"></div></td>
  62.     <td><div datafld="issuer"></div></td>
  63.     <td><div datafld="description"></div></td>
  64.     <td><div datafld="grade"></div></td>
  65.     <td width="50" align="right"><div datafld="value"></div></td>
  66.   </tr>
  67. <TFOOT>
  68.   <tr>
  69.     <td colspan="6" align="right" height="40" bgcolor="#000080">
  70.     <font color="#FF0000" size="4"><strong>Total:</strong></font></td>
  71.     <td valign="center" align="right" bgcolor="#000080">
  72.     <font color="#FF0000" size="4">
  73.     <strong><div id="TotalText"></div></strong></font></td>
  74.   </tr>
  75. </TFOOT>
  76. </table>
  77.  
  78. <script language="VBScript"><!--
  79. sub tableclick(columnname)
  80.  
  81. if columnname <> "year" and
  82. cc]    (left(document.all.item("year").innertext,1) = "+"
  83. cc]   or left(document.all.item("year").innertext,1) = "-") then
  84.       document.all.item("year").innerHTML = "<big>" +
  85. cc]         mid(document.all.item("year").innertext,2) + "</big>"
  86. end if
  87.  
  88. if columnname <> "cardnumber" and
  89. cc]   (left(document.all.item("cardnumber").innertext,1) = "+" or
  90. cc]   left(document.all.item("cardnumber").innertext,1) = "-") then
  91.       document.all.item("cardnumber").innerHTML = "<big>" +
  92. cc]          mid(document.all.item("cardnumber").innertext,2) + "</big>"
  93. end if
  94.  
  95. if columnname <> "setname" and
  96. cc]  (left(document.all.item("setname").innertext,1) = "+" or
  97. cc]  left(document.all.item("setname").innertext,1) = "-") then
  98.     document.all.item("setname").innerHTML = "<big>" +
  99. cc]        mid(document.all.item("setname").innertext,2) + "</big>"
  100. end if
  101.  
  102. if columnname <> "issuer" and
  103. cc]  (left(document.all.item("issuer").innertext,1) = "+" or
  104. cc]   left(document.all.item("issuer").innertext,1) = "-") then
  105.      document.all.item("issuer").innerHTML = "<big>" +
  106. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  107. end if
  108.  
  109. if columnname <> "description" and
  110. cc]  (left(document.all.item("description").innertext,1) = "+" or
  111. cc]   left(document.all.item("description").innertext,1) = "-") then
  112.      document.all.item("description").innerHTML = "<big>" +
  113. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  114. end if
  115.  
  116. if columnname <> "grade" and
  117. cc]  (left(document.all.item("grade").innertext,1) = "+" or
  118. cc]   left(document.all.item("grade").innertext,1) = "-") then
  119.      document.all.item("grade").innerHTML = "<big>" +
  120. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  121. end if
  122.  
  123. if columnname <> "value" and
  124. cc]  (left(document.all.item("value").innertext,1) = "+" or
  125. cc]   left(document.all.item("value").innertext,1) = "-") then
  126.      document.all.item("value").innerHTML = "<big>" +
  127. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  128. end if
  129.  
  130. if left(document.all.item(columnname).innertext,1) = "+" then
  131.    document.all.item(columnname).innerHTML =  "<big>-" +
  132. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  133.    cards.sort = "-" + columnname
  134. elseif left(document.all.item(columnname).innertext,1) = "-" then
  135.    document.all.item(columnname).innerHTML = "<big>+" +
  136. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  137.    cards.sort = columnname
  138. else
  139.    document.all.item(columnname).innerHTML = "<big>+" +
  140. cc]     document.all.item(columnname).innertext + "</big>"
  141.    cards.sort = columnname
  142. end if
  143.  
  144. cards.reset
  145.  
  146. end sub
  147.  
  148. sub buttonclick(button)
  149.  
  150. if (left(document.all.item("year").innertext,1) = "+" or
  151. cc]  left(document.all.item("year").innertext,1) = "-") then
  152.     document.all.item("year").innerHTML = "<big>" +
  153. cc]       mid(document.all.item("year").innertext,2) + "</big>"
  154. end if
  155.  
  156. if (left(document.all.item("cardnumber").innertext,1) = "+" or
  157. cc]  left(document.all.item("cardnumber").innertext,1) = "-") then
  158.     document.all.item("cardnumber").innerHTML = "<big>" +
  159. cc]       mid(document.all.item("cardnumber").innertext,2) + "</big>"
  160. end if
  161.  
  162. if (left(document.all.item("setname").innertext,1) = "+" or
  163. cc]  left(document.all.item("setname").innertext,1) = "-") then
  164.     document.all.item("setname").innerHTML = "<big>" +
  165. cc]       mid(document.all.item("setname").innertext,2) + "</big>"
  166. end if
  167.  
  168. if (left(document.all.item("issuer").innertext,1) = "+" or
  169. cc]  left(document.all.item("issuer").innertext,1) = "-") then
  170.     document.all.item("issuer").innerHTML = "<big>" +
  171. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  172. end if
  173.  
  174. if (left(document.all.item("description").innertext,1) = "+" or
  175. cc]  left(document.all.item("description").innertext,1) = "-") then
  176.     document.all.item("description").innerHTML = "<big>" +
  177. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  178. end if
  179.  
  180. if (left(document.all.item("grade").innertext,1) = "+" or
  181. cc]  left(document.all.item("grade").innertext,1) = "-") then
  182.     document.all.item("grade").innerHTML = "<big>" +
  183. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  184. end if
  185.  
  186. if (left(document.all.item("value").innertext,1) = "+" or
  187. cc]  left(document.all.item("value").innertext,1) = "-") then
  188.     document.all.item("value").innerHTML = "<big>" +
  189. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  190. end if
  191.  
  192. select case button
  193. case 1
  194.    document.all.item("year").innerHTML = "<big>+" +
  195. cc]             document.all.item("year").innertext + "</big>"
  196.    document.all.item("cardnumber").innerHTML = "<big>+" +
  197. cc]             document.all.item("cardnumber").innertext + "</big>"
  198.    cards.sort = "year; cardnumber"
  199. case 2
  200.    document.all.item("description").innerHTML = "<big>+" +
  201. cc]             document.all.item("description").innertext + "</big>"
  202.     cards.sort = "description"
  203. case 3
  204.    document.all.item("year").innerHTML = "<big>+" +
  205. cc]             document.all.item("year").innertext + "</big>"
  206.    document.all.item("grade").innerHTML = "<big>+" +
  207. cc]             document.all.item("grade").innertext + "</big>"
  208.    cards.sort = "year; grade"
  209. case 4
  210.    document.all.item("value").innerHTML = "<big>+" +
  211. cc]             document.all.item("value").innertext + "</big>"
  212.    cards.sort = "value"
  213. end select
  214.  
  215. cards.reset
  216. end sub
  217.  
  218. <!-- START modified from Listing 18.3 -->
  219. sub filteryear(reset)
  220.  
  221. if reset then
  222.    fstring = ""
  223. else
  224.    fstring = "year = " + document.forms("filterform").item("filteryear").value
  225. end if
  226.  
  227. cards.filter = fstring
  228. cards.reset
  229.  
  230. end sub
  231. <!-- END modified from Listing 18.3 -->
  232.  
  233. sub dataloaded()
  234.  
  235. while not(cards.recordset.eof)
  236.    total = total + cards.recordset("value")
  237.    cards.recordset.movenext
  238. wend
  239. document.all.totaltext.innertext = total
  240.  
  241. end sub
  242. --></script>
  243. </body></html>
  244.