Display Modes

Database records can generally be displayed in two formats -

Many web database report generating products provides just a grid display. This kind of products exists since the first generation ASP days and most of them are out of business. Now, there are many similar ones surface again under the DotNet umbrella and we do not expect them to last very long. After all, the Visual Studio.Net offers free grid controls that can out perform many of this 'grid products'. Tornado offers an unlimited amount of display modes via it's template feature. There are 8 pre-programmed display templates -

  1. Grid
  2. Form
  3. Dual (Grid up, Form down)
  4. Dual-Horiz (Grid left, Form right)
  5. Both (Grid and Form in separate screen)
  6. SBoxForm (Select Box and Form)
  7. SBox (Select Box only).
  8. Grid-Chart

Execute the following sample code and see the display modes -

<!--T_displaymodes_grid.aspx-->

<script language='vb' runat='server'>
Sub Page_Load(Source as Object, E as EventArgs)
Dim Mydb As New Tornado.Z()
      Mydb.dbQP = "U=1| Mode=Grid| S=plain| D=Nwind.Mdb| ni=none| Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| Th=Title=Grid"
      Mydb.ASPdbNET()
End Sub
</script>












					
 



<!--T_displaymodes_form.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=2| S=Plain| 
  Mode=Form| D=Nwind.Mdb| ni=none| 
Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| Th=Title=Form"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>

  
  











					
 



<!--T_displaymodes_dual.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=3| S=Plain| Mode=Dual| D=Nwind.Mdb| ni=none| 
Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| Th=Title=Dual"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>

  
  











					
 



<!--T_displaymodes_dualhoriz.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=3| S=Plain| Mode=Dual-horiz| 
  D=Nwind.Mdb| ni=none| Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| 
  Th=Title=Dual Horizontal"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>

  
  











					
 



<!--T_displaymodes_both.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=3| S=Plain| Mode=Type=Both! 
  sysind=true| 
  D=Nwind.Mdb| ni=grid| Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| 
  Th=Title=Both"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>

  
  











					
 



<!--T_displaymodes_selectboxform.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim GD As New Tornado.Getdata()

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=4| S=Plain| Mode=Type=SBoxForm!SboxMacro=#0# - #1#| 
D=Nwind.Mdb| ni=none| Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders| 
Th=Title=SelectBox Form"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>

  
  












					
 



<!--T_displaymodes_selectbox.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
  Dim GD As New Tornado.Getdata()

						
  Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP = "U=5| S=Plain| D=Nwind.mdb| 
  Mode=type=SBox!SboxMacro=({{Cat,Cus,Emp}}~{{Categories,Customers,Employees}})| 
  Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders"

						
      .dbTextHolder = "Title=SelectBox via user data"

						
      .ASPdbNET()

      Response.write(GD.Get_Sbox(5))

      Response.write(GD.Get_SelectBoxSelection(5))

     end with

						
End Sub

						
</script>

  
  











					
 



<!--T_displaymodes_gridchart.aspx-->
<script language='vb' runat='server'>

						
Sub Page_Load(Source as Object, E as EventArgs)

						
Dim Mydb As New Tornado.Z()

						
   With Mydb

						
      .dbQP="U=6| S=Plain| D=nwind.mdb|Mode=gcridchart| ni=none|th=Ti=Grid 
Chart|Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders"

						
      .dbChartData="dataset0yValues=#2#|dataset0Labels=#1#"

						
      .dbChartParams=" Type=26| TitleString='Freight 
Cost'| titleFont='Arial,14,1|Width=350| Height=350| 3D=True| textLabelsOn=True| 
pieWidth=.45| pieHeight=.45| valueLabelsOn=True| explodeSlice=1"

						
      .ASPdbNET()

						
   end with

						
End Sub

						
</script>