person_updata.aspx.vb

用VB.NET在VS.NET 2003下开发的完整的设备管理系统,后台数据库为SQL SERVER 2000,解压缩后请先阅读"说明"文件来部署此系统.

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class person_updata
    Inherits System.Web.UI.Page

    Dim person_id As String
    Dim SQLstr As String
#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents usenametxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents useunitdownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents loginnametxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RegValtxt1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents loginpwtxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RegValtxt2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents sexdownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents tagdownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents mybutton As System.Web.UI.WebControls.Button
    Protected WithEvents btnReset As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents lblMessage As System.Web.UI.WebControls.Label
    Protected MyBody As System.Web.UI.HtmlControls.HtmlControl
    Protected WithEvents returnInfoTemp As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator

    '注意: 以下占位符声明是 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 Session("login_name") = "" Then
            Response.Redirect("../login.aspx")
        End If

        lblMessage.Visible = False
        '在此处放置初始化页的用户代码
        '<----------------------------利用Command对象和DataReader对象绑定显示数据---------------------------->
        Dim myReader As SqlDataReader '非连接模式的显示数据集方法
        Dim myCommand As SqlCommand '命令对象
        Dim MyConnection As SqlConnection
        MyConnection = Global.GetConnection("equipment")
        person_id = Trim(Request("person_id")) '去记录行的标识符
        If Not IsPostBack Then
            SQLstr = "select * from person where person_id='" & person_id & "'" '载入页面时找到记录行
            myCommand = New SqlCommand(SQLstr, MyConnection)
            MyConnection.Open()
            myReader = myCommand.ExecuteReader()
            If myReader.Read() Then  '打开记录开始读取

                '<-----------------将数据库中的个条记录给前台的TextBox控件------------------------------->
                usenametxt.Value = Trim(Convert.ToString(myReader.Item("用户名")))
                useunitdownlist.Value = Trim(Convert.ToString(myReader.Item("单位")))
                loginnametxt.Value = Trim(Convert.ToString(myReader.Item("登陆名")))
                'loginpwtxt.Value = Trim(convert.tostring(myReader.Item("登陆密码")))
                sexdownlist.Value = Trim(Convert.ToString(myReader.Item("性别")))
                tagdownlist.Value = Trim(Convert.ToString(myReader.Item("权限")))
            End If
            myReader.Close()
            MyConnection.Close()
        End If
    End Sub

    '<----------------------------增加的处理---------------------------------->
    Sub addbuttton_click(ByVal sender As Object, ByVal e As EventArgs) Handles mybutton.Click
        If Page.IsValid Then
            Dim MyConnection As SqlConnection = Global.GetConnection("equipment")
            Dim MyCommand As SqlCommand
            SQLstr = "UPDATE person SET 用户名='" & Trim(usenametxt.Value) & "',单位='" & Trim(useunitdownlist.Value) & "',登陆名='"
            SQLstr = SQLstr & Trim(loginnametxt.Value) & "',登陆密码='" & Trim(Convert.ToString(loginpwtxt.Value)) & "',性别='"
            SQLstr = SQLstr & Trim(sexdownlist.Value) & "',权限='" & Trim(tagdownlist.Value) & "' WHERE person_ID='" & person_id & "'"
            MyCommand = New SqlCommand(SQLstr, MyConnection)
            MyCommand.Connection.Open() '打开连接
            '--------------------------------判断数据库中是否有相同的的记录关键字是唯一的----------------------------
            Try
                MyCommand.ExecuteNonQuery()  '执行不代查询功能的的命令
                MyConnection.Close()
                Me.MyBody.Attributes.Add("onload", "exit()")
                Me.returnInfoTemp.Value = "修改记录成功！"
            Catch Exp As SqlException '定义在数据库中值重复的异常
                Me.lblMessage.Visible = True
                If Exp.Number = 2627 Then '调用错误类型编号
                    lblMessage.Text = "错误：编号值不能与已有值重复。"
                Else
                    lblMessage.Text = "错误: 修改记录失败，请检查输入信息是否正确。"
                End If
                lblMessage.ForeColor = Color.Red
            End Try
            MyCommand.Connection.Close() '关闭连接
        End If
    End Sub

End Class