ruku/rukuadd.aspx.vb

（完整代码） 1KB 

Imports System.Data

Partial Class ruku_rukuadd
    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
            Me.txtsj.Text = Now
            Me.txtyh.Text = Session("yhm")

        End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bt As String = Me.txtbt.Text '标题

        Dim nr As String = Me.txtnr.Text '内容

        Dim dg As String = Me.txtdg.Text '订购

        Dim zt As String = Me.txtzt.Text '状态

        Dim sj As String = Me.txtsj.Text '时间

        Dim yh As String = Me.txtyh.Text '用户

        Dim dj As String = Me.txtdj.Text '用户
        Dim zj As String = Me.txtzj.Text '用户
        Dim bc As String = Me.txtbc.Text '用户

        Dim sql1 As String
        sql1 = ""
        Dim ts As String
        Dim sl As String
        sql1 = "select * from dinggou where dgid='" + dg + "'"
        'Dim ds As DataSet = New DataSet()
        Dim dtable As DataTable = New DataTable()
        ' ds = DBHelp.DateSet(sql1)
        dtable = DBHelp.DataTable(sql1)
        For i As Integer = 0 To dtable.Rows.Count - 1
            ts = dtable.Rows(i).Item("ts")
            sl = dtable.Rows(i).Item("sl")
        Next

        Dim sql As String = "insert into ruku (bt,nr,dg,zt,sj,yh,dj,zj,bc ) values ('" + bt + "','" + nr + "','" + dg + "','" + zt + "','" + sj + "','" + yh + "','" + dj + "','" + zj + "','" + bc + "')"
        DBHelp.ExecuteNonQuery(sql, Nothing)
        sql = "update tushu set sl=sl+'" + sl + "' where tsid='" + ts + "' "
        DBHelp.ExecuteNonQuery(sql, Nothing)
        sql = "update dinggou set zt='完成' where dgid='" + dg + "'"
        DBHelp.ExecuteNonQuery(sql, Nothing)
        Response.Write("<script language='javascript'>alert('入库信息添加成功');window.location.href='rukuadd.aspx';</script>")



    End Sub
End Class

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

AI 解读 AI

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

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