fakuan/fakuanmod.aspx.vb

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

Imports System.Data.SqlClient
'罚款修改页面信息
Partial Class fakuan_fakuanmod
    Inherits System.Web.UI.Page
    Dim id As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            binddata()
            id = Request.QueryString("id").ToString()
        End If
    End Sub

    Public Sub binddata()
        '
        id = Request.QueryString("id").ToString()
        Dim sql As String = "select * from fakuan where fkid=" + id
        ' Response.Write(sql)
        Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
        If DataRead.Read() Then
           Me.txtcq.Text = DataRead("cq").ToString() ' 超期
Me.txtps.Text = DataRead("ps").ToString() ' 破损



        End If
        DataRead.Close()

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        id = Request.QueryString("id").ToString()
	 Dim cq As String = Me.txtcq.Text '超期
 Dim ps As String = Me.txtps.Text '破损

        Dim sql As String = "update fakuan set  cq='"+cq+"',ps='"+ps+"' where fkid =" + id
        ' Response.Write(sql)
        DBHelp.ExecuteNonQuery(sql, Nothing)

       
 Response.Write("<script language='javascript'>alert('罚款信息修改成功');window.location.href='fakuanlist.aspx';</script>")
    End Sub
End Class