看看我的程序

写程序很累，但有时看到自己写的程序也是一种快乐！
无论做什么，只要真正的熔入进去，就会有一种一般人感觉不到的快乐！
Imports System.Data
Imports System.Data.SqlClient

Public Class teaSec
    Inherits System.Web.UI.Page
    Dim scon As New SqlConnection("server=localhost;user=sa;pwd=;database=MIS_GRAD")

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

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

    End Sub
    Protected WithEvents lblAname As System.Web.UI.WebControls.Label
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents btnreset As System.Web.UI.WebControls.Button
    Protected WithEvents btnAddC As System.Web.UI.WebControls.Button
    Protected WithEvents ddlDept As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Requiredfieldvalidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtTSpwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtTSname As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtTSno As System.Web.UI.WebControls.TextBox
    Protected WithEvents dgdTeasec As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtTstel As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand

    '注意: 以下占位符声明是 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 Page.IsPostBack Then

            If Session("sysno") Is Nothing Then
                Response.Redirect("../default.aspx")
            Else
                lblAname.Text = Session("sysno")

                '绑定ddldept数据源
                Dim strSel As String = "select DeptName from dept"
                Dim scom As New SqlCommand(strSel, scon)
                Dim dr As SqlDataReader
                scom.Connection.Open()
                dr = scom.ExecuteReader()
                While dr.Read()
                    ddlDept.Items.Add(New ListItem(dr(0).ToString()))
                End While
                dr.Close()
                scom.Connection.Close()

                'panel显示控制
                DataBindTS()
                Panel1.Visible = True
                Panel2.Visible = False
            End If
        End If
    End Sub

    '绑定数据到dgdTeasec
    Function DataBindTS()
        Dim selstr As String = "select * from teasec "
        Dim sdaDept As SqlDataAdapter
        Dim dsDept As DataSet

        sdaDept = New SqlDataAdapter(selstr, scon)
        dsDept = New DataSet
        sdaDept.Fill(dsDept, "dept")
        dgdTeasec.DataSource = dsDept.Tables("dept").DefaultView
        dgdTeasec.DataBind()
    End Function

    Private Sub dgdTeasec_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgdTeasec.PageIndexChanged
        dgdTeasec.CurrentPageIndex = e.NewPageIndex
        DataBindTS()
    End Sub

    Private Sub dgdTeasec_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgdTeasec.EditCommand
        dgdTeasec.EditItemIndex = e.Item.ItemIndex
        DataBindTS()
    End Sub

    Private Sub dgdTeasec_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgdTeasec.CancelCommand
        dgdTeasec.EditItemIndex = -1
        DataBindTS()
    End Sub

    '添加教学秘书
    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Panel1.Visible = False
        Panel2.Visible = True
    End Sub

    '重置插入教学秘书
    Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
        txtTSno.Text = ""
        txtTSname.Text = ""
        txtTSpwd.Text = ""
    End Sub

    Private Sub btnAddC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddC.Click

        '判断插入教学秘书是否存在
        Dim selStr As String = "select * from teasec where tsNo='" & Trim(txtTSno.Text) & " '"
        Dim scom As New SqlCommand(selStr, scon)
        Dim dr As SqlDataReader
        scom.Connection.Open()
        dr = scom.ExecuteReader
        If dr.Read() = True Then
            Response.Write("<script language=javascript>alert('该教学秘书已经存在！')</script>")
        Else
            dr.Close()
            scom.Connection.Close()

            '插入教秘
            Dim insStr As String = "insert into teasec(tsNo,tsPas,tsName,tsDept,tsTel) values('" & Trim(txtTSno.Text) & "','" & Trim(txtTSpwd.Text) & "','" & Trim(txtTSname.Text) & "','" & Trim(ddlDept.SelectedValue) & "','" & Trim(txtTstel.Text) & "')"
            scom = New SqlCommand(insStr, scon)
            Try
                scom.Connection.Open()
                scom.ExecuteNonQuery()
                scom.Connection.Close()
                Response.Write("<script language=javascript>alert('添加教学秘书成功！')</script>")
            Catch ex As Exception
                Response.Write(insStr)
                Response.Write("<script language=javascript>alert('添加教学秘书失败！')</script>")
            End Try
        End If

        txtTSno.Text = ""
        txtTSname.Text = ""
        txtTSpwd.Text = ""

        Panel1.Visible = True
        Panel2.Visible = False
    End Sub

    '删除教学秘书
    Private Sub dgdTeasec_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgdTeasec.DeleteCommand
        Dim strDel As String
        Dim scom As SqlCommand

        strDel = "delete from teasec where tsNo=@tsNo"
        scom = New SqlCommand(strDel, scon)
        scom.Parameters.Add(New SqlParameter("@tsNo", SqlDbType.NChar, 8))
        scom.Parameters("@tsNo").Value = Trim(dgdTeasec.DataKeys(e.Item.ItemIndex))

        Try
            scom.Connection.Open()
            scom.ExecuteNonQuery()
            scom.Connection.Close()
            Response.Write("<script language=javascript>alert('删除教学秘书成功！')</script>")
        Catch ex As Exception
            Response.Write("<script language=javascript>alert('删除教学秘书失败！')</script>")
        End Try

        DataBindTS()
    End Sub

    '更新教学秘书资料
    Private Sub dgdTeasec_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgdTeasec.UpdateCommand
        Dim strUpdate As String
        Dim scom As SqlCommand
        strUpdate = "update teasec set tsName=@tsName,tsDept=@tsDept,tsTel=@tsTel where (tsNo=@tsNo)"

        Dim txtTsname As TextBox
        Dim txtTsdept As TextBox
        Dim txtTstel As TextBox

        txtTsname = e.Item.Cells(1).Controls(0)
        txtTsdept = e.Item.Cells(2).Controls(0)
        txtTstel = e.Item.Cells(3).Controls(0)

        scom = New SqlCommand(strUpdate, scon)
        scom.Parameters.Add(New SqlParameter("@tsNo", SqlDbType.NVarChar, 12))
        scom.Parameters("@tsNo").Value = Trim(dgdTeasec.DataKeys(e.Item.ItemIndex))

        scom.Parameters.Add(New SqlParameter("@tsName", SqlDbType.NVarChar, 20))
        scom.Parameters("@tsName").Value = Trim(txtTsname.Text)

        scom.Parameters.Add(New SqlParameter("@tsDept", SqlDbType.NVarChar, 50))
        scom.Parameters("@tsDept").Value = Trim(txtTsdept.Text)

        scom.Parameters.Add(New SqlParameter("@tsTel", SqlDbType.NVarChar, 12))
        scom.Parameters("@tsTel").Value = Trim(txtTstel.Text)

        Try
            scom.Connection.Open()
            scom.ExecuteNonQuery()
            scom.Connection.Close()
            Response.Write("<script language=javascript>alert('修改教学秘书成功！')</script>")
        Catch ex As Exception
            Response.Write("<script language=javascript>alert('修改教学秘书失败！')</script>")
        End Try

        dgdTeasec.EditItemIndex = -1
        DataBindTS()
    End Sub

End Class