admin5.aspx.vb

该学生信息管理系统是我自己写的

Imports System.Data
Imports System.Data.SqlClient
Imports System
Imports System.Collections
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.UI
Imports System.Text
Public Class Admin5
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents DataGrid1 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
        If Not IsPostBack Then BindGrid() '在此处放置初始化页的用户代码
    End Sub
    Sub BindGrid()
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand
        Dim DS As New DataSet
        conn.ConnectionString = "Data Source=MY-TOMATO;Initial Catalog=Student;User ID=sa;Password=sa"
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "Select Username,passwd from users"
        Dim objAdpt As New SqlDataAdapter(cmd)
        objAdpt.Fill(DS, "users")
        DataGrid1.DataSource = DS.Tables("users").DefaultView
        DataGrid1.DataBind()
        conn.Close()
    End Sub
    Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        DataGrid1.EditItemIndex = e.Item.ItemIndex
        BindGrid()
    End Sub
    Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
        DataGrid1.EditItemIndex = -1
        BindGrid()
    End Sub
    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        Dim TB As String
        Dim conn As New SqlConnection
        conn.ConnectionString = "Data Source=MY-TOMATO;Initial Catalog=Student;User ID=sa;Password=sa"
        Dim strSQL As String = "Update student Set studentID=@studentID,studentname=@studentname,class=@class,sex=@sex where studentID=@studentID"
        Dim cmd As New SqlCommand(strSQL, conn)


        cmd.Parameters.Add(New SqlParameter("@studentname", SqlDbType.VarChar, 10))
        cmd.Parameters.Add(New SqlParameter("@studentID", SqlDbType.VarChar, 10))
        cmd.Parameters.Add(New SqlParameter("@class", SqlDbType.VarChar, 10))
        cmd.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 10))

        TB = e.Item.Cells(0).Text
        cmd.Parameters("@studentname").Value = TB

        TB = e.Item.Cells(1).Text
        cmd.Parameters("@studentID").Value = TB
        TB = e.Item.Cells(2).Text
        cmd.Parameters("@class").Value = TB

        TB = e.Item.Cells(3).Text
        cmd.Parameters("@sex").Value = TB

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        DataGrid1.EditItemIndex = -1
        BindGrid()
    End Sub
    Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
        Dim selected_id As Integer
        selected_id = e.Item.Cells(0).Text
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand
        conn.ConnectionString = "Data Source=MY-TOMATO;Initial Catalog=Student;User ID=sa;Password=sa"
        conn.Open()
        cmd.Connection = conn
        '形成Delete语句
        cmd.CommandText = "Delete From users Where Username = " & selected_id
        cmd.ExecuteNonQuery()
        conn.Close()
        BindGrid()
    End Sub
End Class