posun/posunadd.aspx.vb

（完整代码） 1KB 

Imports System.Data.SqlClient

Partial Class posun_posunadd
    Inherits System.Web.UI.Page
    '破损信息添加页面

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim id = Request.QueryString("id").ToString()
            Dim ts = Request.QueryString("ts").ToString()
            Me.txtjy.Text = id
            Me.txtts.Text = ts


            Dim sql As String = "select * from fakuan"
            ' Response.Write(sql)
            Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
            If DataRead.Read() Then
                Me.txtzj.Text = DataRead("ps").ToString() ' 超期
                ' Me.txtps.Text = DataRead("ps").ToString() ' 破损



            End If
            DataRead.Close()
        End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim jy As String = Me.txtjy.Text '借阅

        Dim ts As String = Me.txtts.Text '图书

        Dim zj As String = Me.txtzj.Text '总价

        Dim fkqk As String = Me.txtfkqk.Text '罚款情况

        Dim sfzf As String = Me.txtsfzf.Text '是否支付


        Dim sql As String = "insert into posun (jy,ts,zj,fkqk,sfzf ) values ('" + jy + "','" + ts + "','" + zj + "','" + fkqk + "','" + sfzf + "')"
        DBHelp.ExecuteNonQuery(sql, Nothing)
        Response.Write("<script language='javascript'>alert('破损信息添加成功');window.location.href='../jieyue/jieyuelist.aspx';</script>")



    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读 AI

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。