managebook.aspx.vb

这是一个基于web 的

Imports System.Data.SqlClient
Public Class ManageBook
    Inherits System.Web.UI.Page
    Protected WithEvents ManageDBGrd As System.Web.UI.WebControls.DataGrid



    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
            BindData()
        End If
    End Sub
    Private Sub BindData()
        If viewstate("sortexp") Is Nothing Then
            viewstate("sortexp") = "BookID"
        End If
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from Book "
        sqlstr = sqlstr + " left join (select count(BookNum)as OrderNum,BookID from Orders group by BookID,ServiceOver having ServiceOver=0) as OrderTable on Book.BookID=OrderTable.BookID  "
        sqlstr = sqlstr + " left join (select count(BookNum)as ServiceNum,BookID from Orders group by BookID,ServiceOver having ServiceOver=1) as ServiceTable on Book.BookID=ServiceTable.BookID "
        Try
            myconn.Open()
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            ds = New DataSet()
            myAdapter.Fill(ds)
            Dim dv As DataView = ds.Tables(0).DefaultView
            dv.Sort = viewstate("sortexp")
            ManageDBGrd.DataSource = dv
            ManageDBGrd.DataBind()
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try

    End Sub

    Private Sub ManageDBGrd_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles ManageDBGrd.EditCommand
        ManageDBGrd.EditItemIndex = e.Item.ItemIndex
        BindData()
    End Sub

    Private Sub ManageDBGrd_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles ManageDBGrd.SortCommand
        If viewstate("sortexp") Is Nothing Then
            viewstate("sortexp") = e.SortExpression.ToString
        ElseIf viewstate("sortexp") = e.SortExpression.ToString Then
            viewstate("sortexp") += " desc"
        Else
            viewstate("sortexp") = e.SortExpression.ToString
        End If
        BindData()
    End Sub

    Private Sub ManageDBGrd_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles ManageDBGrd.CancelCommand
        ManageDBGrd.EditItemIndex = -1
        BindData()
    End Sub

    Private Sub ManageDBGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles ManageDBGrd.PageIndexChanged
        ManageDBGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub

    Private Sub ManageDBGrd_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles ManageDBGrd.UpdateCommand
        Dim BookID As String = ManageDBGrd.Items(e.Item.ItemIndex).Cells(8).Text
        Dim txtBox As TextBox
        txtBox = CType(ManageDBGrd.Items(e.Item.ItemIndex).Cells(5).Controls(0), TextBox)
        Dim Num As String = txtBox.Text.ToString
        Dim sqlstr As String = "update Book "
        sqlstr = sqlstr + " set Num=" + txtBox.Text.ToString.Trim
        sqlstr = sqlstr + " where BookID=" + BookID
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
        ManageDBGrd.EditItemIndex = -1
        BindData()

    End Sub
    '=============================================================
    ' 函 数 名：MakeUrl
    ' 功能描述：编辑链接的URL
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明： 
    '==============================================================

    Public Function MakeUrl(ByVal url As String) As String
        Return "EditBook.aspx?BookID=" + url
    End Function
End Class