personmodify.aspx.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

Public Class PersonModify
    Inherits System.Web.UI.Page
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RegularExpressionValidator3 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents Regularexpressionvalidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents DIV1 As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents Textbox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    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
        
        If Not IsPostBack Then          
            Me.Textbox1.Text = Session("UserId")
        End If
    End Sub

    Private Sub DropDownList1_DataBinding(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub DropDownList1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Me.DropDownList1.DataSource = Me.DataSet11.Tables(0).DefaultView
        'Me.DropDownList1.DataBind()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.DIV1.InnerText = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(Application("ConnectString"))
        conn.Open()
        Dim sql As String
        sql = "select * from Users where UserID='" & Trim(Me.Textbox1.Text) & "' and Address='" & Session("UserAddress") & "'"
        Dim myCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
        'myCommand.Connection = Conn
        'myCommand.CommandText = "Select * From User"
        Dim reader As SqlClient.SqlDataReader
        reader = myCommand.ExecuteReader()
        Dim UID As String
        Dim Dep As String
        Dim Pass As String
        While (reader.Read())
            UID = Trim(reader(0).ToString)
            Dep = Trim(reader(1).ToString)
            Pass = Trim(reader(2).ToString)
        End While
        If Not Trim(Me.TextBox3.Text) = Pass Then
            DIV1.InnerHtml = "<p align=center><b>该用户口令错误！<b>"
            reader.Close()
        Else
            reader.Close()           
            sql = "update Users set Psw='" & TextBox4.Text.Trim & "' where UserID='" & UID & "' and Department='" & Dep & "' and Address='" & Session("UserAddress") & "'"
            myCommand = New SqlClient.SqlCommand(sql, conn)
            myCommand.ExecuteNonQuery()
            DIV1.InnerHtml = "<p align=center><b>修改成功！</b>"
        End If
        'reader.Close()
        conn.Close()
    End Sub
End Class