updatacard.aspx.vb

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

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

Public Class updatacard
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents equipmentnametxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents equipmentnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents standerdtxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents makeshoptxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents makenumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RegValtxt1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents equitpmentnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegValtxt2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents pricetxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator5 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents pricesourcetxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents placedownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents cardnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator7 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegValtxt4 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents yeardropdownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents useunitdownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents uesyeardatedownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents useperontxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents backyeardatedownlist As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents backperontxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents Ok As System.Web.UI.WebControls.Button
    Protected WithEvents regularexpressionvalidator8 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents lbmsg As System.Web.UI.HtmlControls.HtmlInputText
    Protected MyBody As System.Web.UI.HtmlControls.HtmlControl

    '注意: 以下占位符声明是 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

        Dim myReader As SqlDataReader '非连接模式的显示数据集方法
        Dim myCommand As SqlCommand '命令对象
        Dim MyConnection As SqlConnection = Global.GetConnection("equipment")
        card_id = Trim(Request("card_id"))
        If Not IsPostBack Then
            Me.lbmsg.Value = ""
            strSql = "select * from card where card_id='" & card_id & "'" '载入页面时找到记录行
            myCommand = New SqlCommand(strSql, MyConnection)
            MyConnection.Open()
            myReader = myCommand.ExecuteReader()
            If myReader.Read() Then
                '<-----------------将数据库中的个条记录给前台的TextBox控件------------------------------->
                equipmentnametxt.Value = Trim(Convert.ToString(myReader.Item("设备名称")))
                equipmentnumbertxt.Value = Trim(Convert.ToString(myReader.Item("型号")))
                standerdtxt.Value = Trim(Convert.ToString(myReader.Item("规格")))
                makeshoptxt.Value = Trim(Convert.ToString(myReader.Item("生产厂家")))
                makenumbertxt.Value = Trim(Convert.ToString(myReader.Item("制造号")))
                equitpmentnumbertxt.Value = Trim(Convert.ToString(myReader.Item("设备编号")))
                pricetxt.Value = Trim(Convert.ToString(myReader.Item("单价")))
                pricesourcetxt.Value = Trim(Convert.ToString(myReader.Item("资金来源")))
                placedownlist.Value = Trim(Convert.ToString(myReader.Item("存放地点")))
                yeardropdownlist.Value = Trim(Convert.ToString(myReader.Item("购置日期")))
                cardnumbertxt.Value = Trim(Convert.ToString(myReader.Item("凭证号")))
                useunitdownlist.Value = Trim(Convert.ToString(myReader.Item("使用单位")))
                uesyeardatedownlist.Value = Trim(Convert.ToString(myReader.Item("领用日期")))
                useperontxt.Value = Trim(Convert.ToString(myReader.Item("领用经手人")))
                backyeardatedownlist.Value = Trim(Convert.ToString(myReader.Item("回收日期")))
                backperontxt.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 Ok.Click
        If Page.IsValid Then
            Dim MyConnection As SqlConnection
            Dim MyCommand As SqlCommand
            MyConnection = Global.GetConnection("equipment")
            strSql = "update card set 设备名称='" & Trim(equipmentnametxt.Value) & "',型号='" & Trim(equipmentnumbertxt.Value) & "',规格='"
            strSql = strSql & Trim(standerdtxt.Value) & "',生产厂家='" & Trim(makeshoptxt.Value) & "',制造号='"
            strSql = strSql & Trim(makenumbertxt.Value) & "',设备编号='" & Trim(equitpmentnumbertxt.Value) & "',单价='"
            strSql = strSql & Trim(pricetxt.Value) & "',资金来源='" & Trim(pricesourcetxt.Value) & "',存放地点='"
            strSql = strSql & Trim(placedownlist.Value) & "',购置日期='" & Trim(yeardropdownlist.Value) & "',凭证号='"
            strSql = strSql & Trim(cardnumbertxt.Value) & "',使用单位='" & Trim(useunitdownlist.Value) & "',领用日期='"
            strSql = strSql & Trim(uesyeardatedownlist.Value) & "',领用经手人='" & Trim(useperontxt.Value) & "',回收日期='"
            strSql = strSql & Trim(backyeardatedownlist.Value) & "',回收经手人='" & Trim(backperontxt.Value) & "' where card_id='" & card_id & "'"
            MyCommand = New SqlCommand(strSql, MyConnection)
            MyCommand.Connection.Open() '打开连接
            '--------------------------------判断数据库中是否有相同的的记录----------------------------
            Try
                MyCommand.ExecuteNonQuery()
                MyConnection.Close()
                Me.MyBody.Attributes.Add("onload", "exit()")
                lbmsg.Value = "修改记录成功！"
            Catch Exp As SqlException
                If Exp.Number = 2627 Then
                    lbmsg.Value = "错误：编号值不能与已有值重复。"
                Else
                    lbmsg.Value = "错误: 增加记录失败，请检查输入信息是否正确。"
                End If
                lbmsg.Style.Add("red", "color")
            End Try
            MyCommand.Connection.Close() '关闭连接
        End If
    End Sub

End Class