editclass.aspx.vb

这是一个基于web 的

Imports System.Data.SqlClient
Public Class EditClass
    Inherits System.Web.UI.Page
    Protected WithEvents AddBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents ClassDBGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtClassName As System.Web.UI.WebControls.TextBox

    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()
        Dim sqlstr As String = "select * from Class "
        Dim ds As DataSet = New DataSet()
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            ClassDBGrd.DataSource = ds.Tables(0).DefaultView
            ClassDBGrd.DataBind()
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
    End Sub

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

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

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

    Private Sub ClassDBGrd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles ClassDBGrd.DeleteCommand
        Dim sqlstr As String = "delete from Class where ClassID=" + ClassDBGrd.Items(e.Item.ItemIndex).Cells(2).Text.ToString
        ExecSQL(sqlstr)
    End Sub

    Private Sub ClassDBGrd_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles ClassDBGrd.UpdateCommand
        Dim txtBox As TextBox = CType(ClassDBGrd.Items(e.Item.ItemIndex).Cells(3).FindControl("txtName"), TextBox)
        Dim sqlstr As String = "Update Class set ClassName='" + txtBox.Text.ToString.Trim + "' where ClassID=" + ClassDBGrd.Items(e.Item.ItemIndex).Cells(2).Text.ToString
        ExecSQL(sqlstr)

    End Sub
    Private Sub ExecSQL(ByVal sqlstr As String)
        Try
            Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
            myconn.Open()
            cmd.ExecuteNonQuery()

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
        ClassDBGrd.EditItemIndex = -1
        BindData()
    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 Class (ClassName) values('" + txtClassName.Text.ToString.Trim + "')"
        ExecSQL(sqlstr)
    End Sub
End Class