admin_search_database.aspx.vb

用C#,VB和SQLSERVER编写的远程教学程序

Public Class WebForm3
    Inherits System.Web.UI.Page

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ListCommand = New System.Data.SqlClient.SqlCommand
        Me.ListConnection = New System.Data.SqlClient.SqlConnection
        Me.ds = New System.Data.DataSet
        Me.MyCommand = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        CType(Me.ds, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'ds
        '
        Me.ds.DataSetName = "NewDataSet"
        Me.ds.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'MyCommand
        '
        Me.MyCommand.DeleteCommand = Me.SqlDeleteCommand1
        Me.MyCommand.InsertCommand = Me.SqlInsertCommand1
        Me.MyCommand.SelectCommand = Me.SqlSelectCommand1
        Me.MyCommand.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reg", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("userid", "userid"), New System.Data.Common.DataColumnMapping("password", "password"), New System.Data.Common.DataColumnMapping("Email", "Email"), New System.Data.Common.DataColumnMapping("addr", "addr"), New System.Data.Common.DataColumnMapping("phone", "phone"), New System.Data.Common.DataColumnMapping("sex", "sex"), New System.Data.Common.DataColumnMapping("birth", "birth")})})
        Me.MyCommand.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT userid, password, Email, addr, phone, sex, birth FROM reg"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO reg(userid, password, Email, addr, phone, sex, birth) VALUES (@userid" & _
        ", @password, @Email, @addr, @phone, @sex, @birth); SELECT userid, password, Emai" & _
        "l, addr, phone, sex, birth FROM reg WHERE (userid = @userid)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@userid", System.Data.SqlDbType.VarChar, 10, "userid"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@password", System.Data.SqlDbType.VarChar, 10, "password"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Email", System.Data.SqlDbType.VarChar, 50, "Email"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@addr", System.Data.SqlDbType.VarChar, 50, "addr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@phone", System.Data.SqlDbType.VarChar, 20, "phone"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sex", System.Data.SqlDbType.VarChar, 10, "sex"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@birth", System.Data.SqlDbType.VarChar, 10, "birth"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE reg SET userid = @userid, password = @password, Email = @Email, addr = @ad" & _
        "dr, phone = @phone, sex = @sex, birth = @birth WHERE (userid = @Original_userid)" & _
        " AND (Email = @Original_Email OR @Original_Email IS NULL AND Email IS NULL) AND " & _
        "(addr = @Original_addr OR @Original_addr IS NULL AND addr IS NULL) AND (birth = " & _
        "@Original_birth OR @Original_birth IS NULL AND birth IS NULL) AND (password = @O" & _
        "riginal_password) AND (phone = @Original_phone OR @Original_phone IS NULL AND ph" & _
        "one IS NULL) AND (sex = @Original_sex OR @Original_sex IS NULL AND sex IS NULL);" & _
        " SELECT userid, password, Email, addr, phone, sex, birth FROM reg WHERE (userid " & _
        "= @userid)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@userid", System.Data.SqlDbType.VarChar, 10, "userid"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@password", System.Data.SqlDbType.VarChar, 10, "password"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Email", System.Data.SqlDbType.VarChar, 50, "Email"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@addr", System.Data.SqlDbType.VarChar, 50, "addr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@phone", System.Data.SqlDbType.VarChar, 20, "phone"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sex", System.Data.SqlDbType.VarChar, 10, "sex"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@birth", System.Data.SqlDbType.VarChar, 10, "birth"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_userid", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "userid", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_addr", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "addr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_birth", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "birth", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_password", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "password", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_phone", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "phone", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sex", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sex", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM reg WHERE (userid = @Original_userid) AND (Email = @Original_Email OR" & _
        " @Original_Email IS NULL AND Email IS NULL) AND (addr = @Original_addr OR @Origi" & _
        "nal_addr IS NULL AND addr IS NULL) AND (birth = @Original_birth OR @Original_bir" & _
        "th IS NULL AND birth IS NULL) AND (password = @Original_password) AND (phone = @" & _
        "Original_phone OR @Original_phone IS NULL AND phone IS NULL) AND (sex = @Origina" & _
        "l_sex OR @Original_sex IS NULL AND sex IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_userid", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "userid", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_addr", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "addr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_birth", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "birth", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_password", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "password", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_phone", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "phone", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sex", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sex", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=SONGWEI;packet size=4096;user id=sa;data source=SONGWEI;persist se" & _
        "curity info=False;initial catalog=vodweb"
        CType(Me.ds, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents MyList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents ds As System.Data.DataSet
    Protected WithEvents MyCommand As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents ListCommand As System.Data.SqlClient.SqlCommand
    Protected WithEvents ListConnection As System.Data.SqlClient.SqlConnection

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then

            Dim dReader As System.Data.SqlClient.SqlDataReader
            Dim ListConnection As System.Data.SqlClient.SqlConnection
            ListConnection = New System.Data.SqlClient.SqlConnection("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
           "curity info=False;initial catalog=vodweb")
            Dim ListCommand As System.Data.SqlClient.SqlCommand
            ListCommand = New System.Data.SqlClient.SqlCommand("select userid from reg", ListConnection)
            ListConnection.Open()
            dReader = ListCommand.ExecuteReader()
            MyList.DataSource = dReader
            MyList.DataTextField = "userid"
            MyList.DataValueField = "userid"
            MyList.DataBind()
            dReader.Close()
            ListConnection.Close()
            MyList.SelectedIndex = 0


        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As DataSet
        Dim MyConnection As System.Data.SqlClient.SqlConnection
        Dim MyCommand As System.Data.SqlClient.SqlDataAdapter
        Dim SelectCommand As String = "select * from reg where userid=@Userid"
        MyConnection = New System.Data.SqlClient.SqlConnection("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
        "curity info=False;initial catalog=vodweb")
        MyCommand = New System.Data.SqlClient.SqlDataAdapter(SelectCommand, MyConnection)

        MyCommand.SelectCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Userid", System.Data.SqlDbType.Char, 10, "userid"))
        MyCommand.SelectCommand.Parameters("@Userid").Value = MyList.SelectedItem.Text
        ds = New DataSet
        MyCommand.Fill(ds, "用户信息")
        MyDataGrid.DataSource = ds.Tables("用户信息").DefaultView
        MyDataGrid.DataBind()




    End Sub



End Class