jieyue/jieyuemod.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

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

Imports System.Data.SqlClient
'借阅修改页面信息
Partial Class jieyue_jieyuemod
    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()
            Me.txtghsj.Text = Now
        End If
    End Sub

    Public Sub binddata()
        '
        id = Request.QueryString("id").ToString()
        Dim sql As String = "select * from jieyue where jyid=" + id
        ' Response.Write(sql)
        Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
        If DataRead.Read() Then
           Me.txtyh.Text = DataRead("yh").ToString() ' 用户
Me.txtts.Text = DataRead("ts").ToString() ' 图书
Me.txtjcsj.Text = DataRead("jcsj").ToString() ' 借出时间
Me.txtghsj.Text = DataRead("ghsj").ToString() ' 归还时间
Me.txtzt.Text = DataRead("zt").ToString() ' 状态
Me.txtzzsj.Text = DataRead("zzsj").ToString() ' 最长时间
Me.txtczr.Text = DataRead("czr").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 yh As String = Me.txtyh.Text '用户
 Dim ts As String = Me.txtts.Text '图书
 Dim jcsj As String = Me.txtjcsj.Text '借出时间
 Dim ghsj As String = Me.txtghsj.Text '归还时间
 Dim zt As String = Me.txtzt.Text '状态
 Dim zzsj As String = Me.txtzzsj.Text '最长时间
 Dim czr As String = Me.txtczr.Text '操作人
        If zt = "归还" Then
            ghsj = Now
            Dim sql As String = "update jieyue set  yh='" + yh + "',ts='" + ts + "',jcsj='" + jcsj + "',ghsj='" + ghsj + "',zt='" + zt + "',zzsj='" + zzsj + "',czr='" + czr + "' where jyid =" + id
            ' Response.Write(sql)
            DBHelp.ExecuteNonQuery(sql, Nothing)
            sql = "update tushu set sl=sl+1  where tsid='" + ts + "'"
            DBHelp.ExecuteNonQuery(sql, Nothing)
        End If
        If zt = "续借" Then
            jcsj = Now
            ghsj = ""
            Dim sql As String = "update jieyue set  yh='" + yh + "',ts='" + ts + "',jcsj='" + jcsj + "',ghsj='" + ghsj + "',zt='" + zt + "',zzsj='" + zzsj + "',czr='" + czr + "' where jyid =" + id
            ' Response.Write(sql)
            DBHelp.ExecuteNonQuery(sql, Nothing)
            sql = "update tushu set sl=sl+1  where tsid='" + ts + "'"