returnbook.aspx.vb

图书借阅系统！ASP.NET实现的

Public Class ReturnBook
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents PContainer As System.Web.UI.WebControls.PlaceHolder
    Protected WithEvents txtUserID As System.Web.UI.WebControls.TextBox
    Protected WithEvents ReturnBtn As System.Web.UI.WebControls.Button
    Protected WithEvents LendGrid As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub
    Private Sub BindGrid()
        Dim sqlstr As String = "select * from LendInfo,BookInfo where BookInfo.BookID=LendInfo.BookID and IsBack=0 and UserID='" + txtUserID.Text.ToString.Trim + "'"
        Dim obj As DBController = New DBController
        obj.BindDBGrd(sqlstr, LendGrid)
    End Sub

    Private Sub ReturnBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReturnBtn.Click
        Dim i As Integer
        Dim str As String = ""
        Dim sqlstr As String = ""
        Dim myCheckBox As CheckBox
        For i = 0 To LendGrid.Items.Count - 1
            myCheckBox = CType(LendGrid.Items(i).FindControl("ChckBox"), CheckBox)
            If myCheckBox.Checked = True Then
                If LendGrid.Items(i).Cells(6).Text < Now.ToString.Format(Now.ToString, "yyyy-MM-dd") Then
                    str += LendGrid.Items(i).Cells(1).Text + " --已经过期--"
                End If
                sqlstr += " update LendInfo set IsBack=1 where UserID='" + txtUserID.Text.ToString.Trim + "' and BookID=" + LendGrid.Items(i).Cells(7).Text
                sqlstr += " update BookingInfo set BookingState=1 where  BookID=" + LendGrid.Items(i).Cells(7).Text
            End If
        Next
        If sqlstr <> "" Then
            Dim obj As DBController = New DBController
            obj.ExecNonSql(sqlstr)
        End If
        If str <> "" Then
            Response.Write("<script>javascript:alert('" + str + "');</script>")
        End If
        BindGrid()
    End Sub

    Private Sub txtUserID_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUserID.TextChanged
        If txtUserID.Text.ToString.Trim <> "" Then
            Dim obj As LoadUser = Me.LoadControl("LoadUser.ascx")
            obj.LoadUserInfo(txtUserID.Text.ToString.Trim)
            PContainer.Controls.Clear()
            PContainer.Controls.Add(obj)
            BindGrid()
        End If

    End Sub
End Class