home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / NETFrameworkSDK.exe / comsdk.cab / samples.exe / CrossLang / TableGenerator.vb < prev   
Encoding:
Text File  |  2000-06-23  |  6.0 KB  |  165 lines
  1. '===========================================================================
  2. '  File:      TableGenerator.vb
  3. ' 
  4. '  Summary:   This is the base class for the CrossLang sample.
  5. ' 
  6. '----------------------------------------------------------------------------
  7. '  This file is part of the Microsoft NGWS Samples.
  8. '
  9. '  Copyright (C) 1998-2000 Microsoft Corporation.  All rights reserved.
  10. '============================================================================
  11.  
  12. Imports System
  13. Imports System.Text
  14.  
  15. Namespace TableGen
  16. MustInherit Public Class TableGenerator
  17. '******************************************************************************
  18. 'Function : GetTable(byval param as String) as String
  19. '
  20. 'Abstract: This is the generic method that gets called by the client.  The
  21. '       client passes in a String that represents the specific data it wants.
  22. '       Since this class is generic, it does not understand the
  23. '       nature of the data it is returning other than the fact that it is
  24. '       a table.  It simply makes calls to the overrided methods and gets
  25. '       the real data from the derived classes.
  26. '
  27. 'Input Parameters: byval param as String = The String to pass to the derived class.
  28. '
  29. 'Returns: String = the HTML table to display in the client.
  30. '******************************************************************************
  31. public function GetTable(byval param as String) as String
  32.    
  33.    ' Tell derived class what the client wants to get back.
  34.    SetParameter(param)
  35.    
  36.    ' Get Table Column and Row counts from derived class.
  37.    dim columns as Integer
  38.    columns = GetColumnCount()
  39.    dim rows as Integer
  40.    rows = GetRowCount()
  41.  
  42.    ' Create a new StringBuilder for use through the entire method
  43.    dim tabletext as new StringBuilder
  44.    
  45.    ' Append the TABLE HTML tag
  46.    tabletext.Append ("<TABLE RULES=ALL COLS=")
  47.    tabletext.Append (columns)
  48.    tabletext.Append (">")
  49.  
  50.    ' Append the TABLE HEADER
  51.    tabletext.Append (GetHeader())
  52.  
  53.    ' str is used to hold the Cell value
  54.    Dim str as String ' Had to place here instead of in for loop
  55.  
  56.    ' Append the Rows
  57.    dim currentRow as Integer
  58.    for currentRow = 0 to rows-1
  59.       tabletext.Append ("<TR>")
  60.       
  61.       ' Append the Columns
  62.       dim currentColumn as Integer
  63.       for currentColumn = 0 to columns-1
  64.          tabletext.Append ("<TD>")
  65.  
  66.      ' Get the cell data from the derived class
  67.          str = GetCell(currentColumn, currentRow)
  68.          
  69.      '  Append the cell data to the StringBuilder
  70.          tabletext.Append (str)
  71.          tabletext.Append ("</TD>")
  72.       next currentColumn
  73.       tabletext.Append ("</TR>")
  74.    next currentRow
  75.  
  76.    ' Append the TABLE FOOTER
  77.    tabletext.Append (GetFooter())
  78.  
  79.    ' Append the </TABLE> tag to close the table
  80.    tabletext.Append ("</TABLE>")
  81.  
  82.    ' Covert the StringBuilder to a String to return
  83.    GetTable = tabletext.ToString()
  84. end function
  85.  
  86. '******************************************************************************
  87. 'Function : SetParameter(byval param as String)
  88. '
  89. 'Abstract: This abstract method must be implemented by the derived class.
  90. '       This method is used by the derived class to determine what data
  91. '       the client wants.
  92. '
  93. 'Input Parameters: byval param as String = A String representation of what the
  94. '           client needs.
  95. '
  96. 'Returns: none.
  97. '******************************************************************************
  98. MustOverride public sub SetParameter(byval param as String)
  99.  
  100.  
  101. '******************************************************************************
  102. 'Function : GetColumnCount() as Integer
  103. '
  104. 'Abstract: This abstract method must be implemented by the derived class.
  105. '       This method returns the number of columns in this table.
  106. '
  107. 'Input Parameters: none.
  108. '
  109. 'Returns: Integer = the number of columns for this table.
  110. '******************************************************************************
  111. MustOverride public function GetColumnCount() as Integer
  112.  
  113. '******************************************************************************
  114. 'Function : GetRowCount() as Integer
  115. '
  116. 'Abstract: This abstract method must be implemented by the derived class.
  117. '       This method returns the number of rows in this table.
  118. '
  119. 'Input Parameters: none.
  120. '
  121. 'Returns: Integer = the number of rows for this table.
  122. '******************************************************************************
  123. MustOverride public function GetRowCount() as Integer
  124.  
  125. '******************************************************************************
  126. 'Function : GetCell(byval column as Integer, byval row as Integer) as String
  127. '
  128. 'Abstract: This abstract method must be implemented by the derived class.
  129. '       This method returns the cell data for the specified column and row.
  130. '
  131. 'Input Parameters: byval column as Integer, byval row as Integer = the column and row
  132. '           to retieve cell data.
  133. '
  134. 'Returns: String = the HTML data that represents the specified cell in this table.
  135. '******************************************************************************
  136. MustOverride public function GetCell(byval column as Integer, byval row as Integer) as String
  137.  
  138. '******************************************************************************
  139. 'Function : GetHeader() as String
  140. '
  141. 'Abstract: This abstract method must be implemented by the derived class.
  142. '       This method returns the HTML header for this table.
  143. '
  144. 'Input Parameters: none.
  145. '
  146. 'Returns: String = the HTML header for this table.
  147. '******************************************************************************
  148. MustOverride public function GetHeader() as String
  149.  
  150. '******************************************************************************
  151. 'Function : GetFooter() as String
  152. '
  153. 'Abstract: This abstract method must be implemented by the derived class.
  154. '       This method returns the HTML footer for this table.
  155. '
  156. 'Input Parameters: none.
  157. '
  158. 'Returns: String = the HTML footer for this table.
  159. '******************************************************************************
  160. MustOverride public function GetFooter() as String
  161.     
  162.  
  163. End Class
  164.  
  165. End Namespace