Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Dim myDBconnectionManagement As New db_connection_management
myDBconnectionManagement.SetConnection()
Dim myDataset As DataSet = New DataSet
Dim sql As String = "select * from consumption"
myDBconnectionManagement.fill_dataset(myDataset, sql, "table")
Dim field_list(,) As String = _
{{"id", "id"}, _
{"Date", Translate("consumption date")}, _
{"Product_id", Translate("product name")}, _
{"weight", Translate("weight")}, _
{"unit_id", Translate("unit")}, _
{"product_condition_id", Translate("product condition")}}
Dim myColumn As BoundColumn
For i As Integer = 0 To field_list.Length / field_list.Rank - 1
myColumn = New BoundColumn
myColumn.DataField = field_list(i, 0)
myColumn.HeaderText = field_list(i, 1)
If i = 0 Then myColumn.Visible = False
DataGrid1.Columns.Add(myColumn)
Next
Dim myButtonColumn As ButtonColumn = New ButtonColumn
myButtonColumn.Text = Translate("Edit")
myButtonColumn.ItemStyle.CssClass = "datagridEditButton"
myButtonColumn.CommandName = "Delete"
DataGrid1.Columns.Add(myButtonColumn)
DataGrid1.AutoGenerateColumns = False
DataGrid1.DataSource = myDataset
DataGrid1.DataKeyField = "id"
DataGrid1.HeaderStyle.CssClass = "label"
DataGrid1.ItemStyle.CssClass = "datagrid"
DataGrid1.DataBind()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "now the datagrid will not show-up anymore!"
End Sub
End Class