Проектирование схемы БД в среде ERwin. Проблема избыточности данных. Проблема обновления данных. Проблема удаления данных., страница 13

Листинг страницы app.aspx.vb

Public Class app

Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

Protected WithEvents Label9 As System.Web.UI.WebControls.Label     'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox

Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox

Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList

Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox

Protected WithEvents Label1 As System.Web.UI.WebControls.Label

Protected WithEvents Label2 As System.Web.UI.WebControls.Label

Protected WithEvents Label3 As System.Web.UI.WebControls.Label

Protected WithEvents Label4 As System.Web.UI.WebControls.Label

Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList

Protected WithEvents Label5 As System.Web.UI.WebControls.Label

Protected WithEvents Label6 As System.Web.UI.WebControls.Label

Protected WithEvents DropDownList3 As System.Web.UI.WebControls.DropDownList

Protected WithEvents Button1 As System.Web.UI.WebControls.Button

Protected WithEvents Button2 As System.Web.UI.WebControls.Button

Protected WithEvents Button3 As System.Web.UI.WebControls.Button

Protected WithEvents Button4 As System.Web.UI.WebControls.Button

Protected WithEvents Button5 As System.Web.UI.WebControls.Button

Protected WithEvents Button6 As System.Web.UI.WebControls.Button

Protected WithEvents Label7 As System.Web.UI.WebControls.Label

Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox

Protected WithEvents Button7 As System.Web.UI.WebControls.Button

Protected WithEvents Label8 As System.Web.UI.WebControls.Label

Protected WithEvents Button8 As System.Web.UI.WebControls.Button

Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox

Protected WithEvents Button9 As System.Web.UI.WebControls.Button

Protected WithEvents Label10 As System.Web.UI.WebControls.Label

Protected WithEvents Button10 As System.Web.UI.WebControls.Button

Protected WithEvents Label11 As System.Web.UI.WebControls.Label

Protected WithEvents Label12 As System.Web.UI.WebControls.Label

Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox

Protected WithEvents Button11 As System.Web.UI.WebControls.Button

Protected WithEvents DropDownList4 As System.Web.UI.WebControls.DropDownList

Protected WithEvents Label13 As System.Web.UI.WebControls.Label

Protected WithEvents Button12 As System.Web.UI.WebControls.Button

Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox

Protected WithEvents Button13 As System.Web.UI.WebControls.Button

'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

'Put user code to initialize the page here

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Response.Redirect("main.aspx")

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim ds As DataSet

Dim con As Data.OracleClient.OracleConnection

con = New Data.OracleClient.OracleConnection("user id=dev;data source=katestr;password=developer")

Dim checkcommand As Data.OracleClient.OracleCommand         Dim check As String = "DEV.WEB_CHECK_APP"         checkcommand = New Data.OracleClient.OracleCommand(check, con)         checkcommand.CommandType = CommandType.StoredProcedure