web/Add_status.aspx.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class Add_status
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysstatus As New STATUSBLL
    Dim strstatus As New STATUS
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Request.QueryString("ID") Is Nothing Then
                savebtn0.Visible = False
            Else
                txt_id.Text = Request.QueryString("ID").ToString.Trim

                savebtn.Visible = False
                getdata()
            End If
        End If
    End Sub
    Private Sub getdata()
        Dim dt As DataTable = Syscrf.seachData("select * from status where id=" & txt_id.Text.Trim).Tables(0)
        txt_code.Text = dt.Rows(0)("CODE").ToString
        txt_name.Text = dt.Rows(0)("NAME").ToString
    End Sub

    Protected Sub savebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn.Click
        strstatus.CODE = txt_code.Text.Trim
        strstatus.NAME = txt_name.Text.Trim
        strstatus.CREATEBY = Request.Cookies("usoffice")("eua").ToString
        'Request.Cookies("userid")("username").ToString
        If sysstatus.Add_STATUS(strstatus) > 0 Then
            Response.Redirect("Statusmanage.aspx")

        Else
            Response.Write("<script>alert('添加失败');</script>")
        End If

    End Sub


    Protected Sub savebtn0_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn0.Click
        strstatus.ID = Convert.ToInt16(txt_id.Text.Trim)
        strstatus.CODE = txt_code.Text.Trim
        strstatus.NAME = txt_name.Text.Trim
        'Request.Cookies("userid")("username").ToString
        strstatus.MODIFY = Request.Cookies("usoffice")("eua").ToString
        sysstatus.Update_STATUS(strstatus)
        Response.Redirect("Statusmanage.aspx")
    End Sub
End Class