价格查询.aspx.vb

本系统是航空公司的查询系统 所用的代码是ASP希望大家给点意见

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand
        Me.DataSet11 = New 灏巽软件_航空定票系统_乘客查询.DataSet1
        Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.DataSet21 = New 灏巽软件_航空定票系统_乘客查询.DataSet2
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand2
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand2
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SECTOR", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("地区ID", "地区ID"), New System.Data.Common.DataColumnMapping("飞行地区", "飞行地区"), New System.Data.Common.DataColumnMapping("头等舱价格", "头等舱价格"), New System.Data.Common.DataColumnMapping("商业舱价格", "商业舱价格"), New System.Data.Common.DataColumnMapping("经济舱价格", "经济舱价格")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "DELETE FROM SECTOR WHERE (SectorID = @Original_地区ID) AND (BusinessClassFare = @Or" & _
        "iginal_商业舱价格) AND (Description = @Original_飞行地区) AND (EconomyClassFare = @Origin" & _
        "al_经济舱价格) AND (FirstClassFare = @Original_头等舱价格)"
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地区ID", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地区ID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商业舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商业舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_飞行地区", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "飞行地区", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_经济舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "经济舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_头等舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "头等舱价格", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=""R408-21"";packet size=4096;user id=sa;initial catalog=HorizonAirwa" & _
        "ys;persist security info=False"
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "INSERT INTO SECTOR(SectorID, Description, FirstClassFare, BusinessClassFare, Econ" & _
        "omyClassFare) VALUES (@SectorID, @Description, @FirstClassFare, @BusinessClassFa" & _
        "re, @EconomyClassFare); SELECT SectorID AS 地区ID, Description AS 飞行地区, FirstClass" & _
        "Fare AS 头等舱价格, BusinessClassFare AS 商业舱价格, EconomyClassFare AS 经济舱价格 FROM SECTOR" & _
        " WHERE (SectorID = @地区ID)"
        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SectorID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.VarChar, 50, "飞行地区"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FirstClassFare", System.Data.SqlDbType.Money, 8, "头等舱价格"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BusinessClassFare", System.Data.SqlDbType.Money, 8, "商业舱价格"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EconomyClassFare", System.Data.SqlDbType.Money, 8, "经济舱价格"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区ID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT SectorID AS 地区ID, Description AS 飞行地区, FirstClassFare AS 头等舱价格, BusinessCl" & _
        "assFare AS 商业舱价格, EconomyClassFare AS 经济舱价格 FROM SECTOR WHERE (Description = @pa" & _
        "ram)"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@param", System.Data.SqlDbType.VarChar, 50, "飞行地区"))
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "UPDATE SECTOR SET SectorID = @SectorID, Description = @Description, FirstClassFar" & _
        "e = @FirstClassFare, BusinessClassFare = @BusinessClassFare, EconomyClassFare = " & _
        "@EconomyClassFare WHERE (SectorID = @Original_地区ID) AND (BusinessClassFare = @Or" & _
        "iginal_商业舱价格) AND (Description = @Original_飞行地区) AND (EconomyClassFare = @Origin" & _
        "al_经济舱价格) AND (FirstClassFare = @Original_头等舱价格); SELECT SectorID AS 地区ID, Descr" & _
        "iption AS 飞行地区, FirstClassFare AS 头等舱价格, BusinessClassFare AS 商业舱价格, EconomyClas" & _
        "sFare AS 经济舱价格 FROM SECTOR WHERE (SectorID = @地区ID)"
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SectorID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.VarChar, 50, "飞行地区"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FirstClassFare", System.Data.SqlDbType.Money, 8, "头等舱价格"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BusinessClassFare", System.Data.SqlDbType.Money, 8, "商业舱价格"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EconomyClassFare", System.Data.SqlDbType.Money, 8, "经济舱价格"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地区ID", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地区ID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商业舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商业舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_飞行地区", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "飞行地区", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_经济舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "经济舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_头等舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "头等舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区ID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'SqlDataAdapter2
        '
        Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
        Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SECTOR", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("地区ID", "地区ID"), New System.Data.Common.DataColumnMapping("飞行地区", "飞行地区"), New System.Data.Common.DataColumnMapping("头等舱价格", "头等舱价格"), New System.Data.Common.DataColumnMapping("商业舱价格", "商业舱价格"), New System.Data.Common.DataColumnMapping("经济舱价格", "经济舱价格")})})
        Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM SECTOR WHERE (SectorID = @Original_地区ID) AND (BusinessClassFare = @Or" & _
        "iginal_商业舱价格) AND (Description = @Original_飞行地区) AND (EconomyClassFare = @Origin" & _
        "al_经济舱价格) AND (FirstClassFare = @Original_头等舱价格)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地区ID", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地区ID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商业舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商业舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_飞行地区", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "飞行地区", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_经济舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "经济舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_头等舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "头等舱价格", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO SECTOR(SectorID, Description, FirstClassFare, BusinessClassFare, Econ" & _
        "omyClassFare) VALUES (@SectorID, @Description, @FirstClassFare, @BusinessClassFa" & _
        "re, @EconomyClassFare); SELECT SectorID AS 地区ID, Description AS 飞行地区, FirstClass" & _
        "Fare AS 头等舱价格, BusinessClassFare AS 商业舱价格, EconomyClassFare AS 经济舱价格 FROM SECTOR" & _
        " WHERE (SectorID = @地区ID)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SectorID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.VarChar, 50, "飞行地区"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FirstClassFare", System.Data.SqlDbType.Money, 8, "头等舱价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BusinessClassFare", System.Data.SqlDbType.Money, 8, "商业舱价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EconomyClassFare", System.Data.SqlDbType.Money, 8, "经济舱价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区ID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT SectorID AS 地区ID, Description AS 飞行地区, FirstClassFare AS 头等舱价格, BusinessCl" & _
        "assFare AS 商业舱价格, EconomyClassFare AS 经济舱价格 FROM SECTOR"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE SECTOR SET SectorID = @SectorID, Description = @Description, FirstClassFar" & _
        "e = @FirstClassFare, BusinessClassFare = @BusinessClassFare, EconomyClassFare = " & _
        "@EconomyClassFare WHERE (SectorID = @Original_地区ID) AND (BusinessClassFare = @Or" & _
        "iginal_商业舱价格) AND (Description = @Original_飞行地区) AND (EconomyClassFare = @Origin" & _
        "al_经济舱价格) AND (FirstClassFare = @Original_头等舱价格); SELECT SectorID AS 地区ID, Descr" & _
        "iption AS 飞行地区, FirstClassFare AS 头等舱价格, BusinessClassFare AS 商业舱价格, EconomyClas" & _
        "sFare AS 经济舱价格 FROM SECTOR WHERE (SectorID = @地区ID)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SectorID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.VarChar, 50, "飞行地区"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FirstClassFare", System.Data.SqlDbType.Money, 8, "头等舱价格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BusinessClassFare", System.Data.SqlDbType.Money, 8, "商业舱价格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EconomyClassFare", System.Data.SqlDbType.Money, 8, "经济舱价格"))