editbook.aspx.vb

这是一个基于web 的

Imports System.Data.SqlClient

Public Class EditBook
    Inherits System.Web.UI.Page
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator2 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents upload_button As System.Web.UI.WebControls.Button
    Protected WithEvents fileup As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents txtBookName As System.Web.UI.WebControls.TextBox
    Protected WithEvents lbID As System.Web.UI.WebControls.Label
    Protected WithEvents txtAuthor As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPrice As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPublish As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpClass As System.Web.UI.WebControls.DropDownList
    Protected WithEvents AddBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents CacelBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents DelBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtDescription As System.Web.UI.WebControls.TextBox
    Protected WithEvents lbPic As System.Web.UI.WebControls.LinkButton
    Protected WithEvents DelFileBtn As System.Web.UI.WebControls.Button
    Private connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
    Private myconn As SqlConnection = New SqlConnection(connstr)


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

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

    End Sub

    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
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            BindDropDownList()
            If Request.QueryString("BookID") Is Nothing Then
                display(False)
            Else
                display(True)
                Dim BookID As String = Request.QueryString("BookID")
                LoadBook(BookID)
                lbID.Text = BookID
            End If
        End If
    End Sub


    '=============================================================
    ' 函 数 名：display
    ' 功能描述：对用户控件设置是否可见
    ' 输入参数：vis：true表示为当前为修改 false表示当前为新增图书信息操作
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：通过在PageLoad的时候，判断是进行修改操作还是进行添加操作。
    '==============================================================

    Private Sub display(ByVal Vis As Boolean)

        UpdateBtn.Visible = Vis
        DelBtn.Visible = Vis

        AddBtn.Visible = Not Vis
        CacelBtn.Visible = Not Vis

    End Sub

    '=============================================================
    ' 函 数 名：BindDropDownList
    ' 功能描述：绑定图书类别下拉列表
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Private Sub BindDropDownList()
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from Class "
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            DpClass.DataTextField = "ClassName"
            DpClass.DataValueField = "ClassID"
            DpClass.DataSource = ds.Tables(0).DefaultView
            DpClass.DataBind()
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
    End Sub
    '=============================================================
    ' 函 数 名：LoadBook
    ' 功能描述：当对图书信息进行修改时，需要在对应的文本框显示数据
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Private Sub LoadBook(ByVal BookID As String)
        Dim sqlstr As String = "Select * from Book where BookID=" + BookID
        Try
            myconn.Open()
            Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
            Dim reader As SqlDataReader = cmd.ExecuteReader
            If reader.Read Then
                txtBookName.Text = reader("BookName")
                txtAuthor.Text = reader("Author")
                txtPrice.Text = reader("Price")
                txtPublish.Text = reader("Publish")
                txtNum.Text = reader("Num")
                DpClass.SelectedIndex = FindSelectItemIndex(DpClass, reader("ClassID"))
                '图片路径
                lbPic.Text = reader("Photo")
                txtDescription.Text = reader("Description")
            End If
        Catch

        Finally
            myconn.Close()
        End Try

    End Sub
    '=============================================================
    ' 函 数 名：FindSelectItemIndex
    ' 功能描述：获取给定值在DropDownList中的位置
    ' 输入参数：DPList搜索的DropDownList控件，txtSelect搜索值
    ' 返 回 值：如果找到，则返回正确的位置，否则返回－1
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：提供给LoadBook函数调用
    '==============================================================
    Function FindSelectItemIndex(ByVal DPList As DropDownList, ByVal txtSelect As String) As Integer
        Dim i As Integer = 0
        For i = 0 To DPList.Items.Count - 1
            If DPList.Items(i).Value = txtSelect Then
                Return i
            End If
        Next
        Return -1
    End Function


    Private Sub upload_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload_button.Click
        If fileup.PostedFile.ContentLength = 0 Then
            lbPic.Text = ""
        Else
            Dim filesplit() As String = Split(fileup.PostedFile.FileName, "\")
            Dim filename As String = filesplit(filesplit.Length - 1)
            fileup.PostedFile.SaveAs(Server.MapPath("Pic\") & filename)
            lbPic.Text = filename
        End If
    End Sub

    Private Sub DelFileBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelFileBtn.Click
        lbPic.Text = ""
    End Sub

    Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBtn.Click
        Dim sqlstr As String = "insert into Book(BookName,Author,Price,Publish,Num,Photo,ClassID,Description) Values("
        sqlstr = sqlstr + " '" + txtBookName.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " '" + txtAuthor.Text.ToString.Trim + "',"
        sqlstr = sqlstr + txtPrice.Text.ToString.Trim + ","
        sqlstr = sqlstr + " '" + txtPublish.Text.ToString.Trim + "',"
        sqlstr = sqlstr + txtNum.Text.ToString.Trim + ","
        sqlstr = sqlstr + " '" + lbPic.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " " + DpClass.Items(DpClass.SelectedIndex).Value + ","
        sqlstr = sqlstr + " '" + txtDescription.Text.ToString.Trim + "')"
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('添加书目成功！');")
            Response.Write("window.location='ManageBook.aspx';")
            Response.Write("</script>")

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        Dim sqlstr As String = "update Book "
        sqlstr = sqlstr + " set BookName='" + txtBookName.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " Author='" + txtAuthor.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " Price=" + txtPrice.Text.ToString.Trim + ","
        sqlstr = sqlstr + " Publish='" + txtPublish.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " Num=" + txtNum.Text.ToString.Trim + ","
        sqlstr = sqlstr + " Photo='" + lbPic.Text.ToString.Trim + "',"
        sqlstr = sqlstr + " ClassID=" + DpClass.Items(DpClass.SelectedIndex).Value + ","
        sqlstr = sqlstr + " Description='" + txtDescription.Text.ToString.Trim + "'"
        sqlstr = sqlstr + " where BookID=" + lbID.Text
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('更新书目成功！');")
            Response.Write("window.location='ManageBook.aspx';")
            Response.Write("</script>")

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try

    End Sub

    Private Sub CacelBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CacelBtn.Click
        Response.Redirect("EditBook.aspx")
    End Sub

    Private Sub DelBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelBtn.Click
        Dim sqlstr As String = "delete from Book  where BookID=" + lbID.Text
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('删除书目成功！');")
            Response.Write("window.location='ManageBook.aspx';")
            Response.Write("</script>")
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try

    End Sub
End Class