写程序很累，但有时看到自己写的程序也是一种快乐！
无论做什么，只要真正的熔入进去，就会有一种一般人感觉不到的快乐！
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
