看看我的程式

寫程式很累，但有時看到自己寫的程式也是一種快樂！
無論做什麼，只要真正的熔入進去，就會有一種一般人感覺不到的快樂！
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 Form設計器產生的程式碼 "

    '該調用是 Web Form設計器所必需的。
    <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 Form設計器所必需的。
    '不要刪除或移動它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

        'CODEGEN: 此方法調用是 Web Form設計器所必需的
        '不要使用代碼編輯器修改它。
        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