看看我的程序
2005-05-18 14:17
197 查看
写程序很累,但有时看到自己写的程序也是一种快乐!
无论做什么,只要真正的熔入进去,就会有一种一般人感觉不到的快乐!
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
无论做什么,只要真正的熔入进去,就会有一种一般人感觉不到的快乐!
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
相关文章推荐
- [360] 看看下面的程序输出什么?
- 【原创】玩笑程序2,看看你是否能点中"否"按钮
- 普通管理类程序开发之难度系数、层次之说法,可以看看自己停留在哪个层次,不足之处,请大家一起补充
- 请帮忙看看这个程序的运行结果为何这样怪
- 当笔记本的运行速度跟不上我写程序的思路后【只建议无聊放松者看看】
- 【码云周刊第 62 期】五花八门的验证码程序,看看你遇到过几个?
- 《数据结构》链表程序调试示例--有一定代表性请看看
- 看看预处理程序Objective-C怎么成魔的
- 大家帮我看看这个程序
- 想要VB程序变得更流畅完美吗?看看吧!
- 看看程序的输出结果
- 我的C程序,学了两天,就让我弄这么一个几百行的程序,还没有做完,过两天放假继续写,感兴趣的可以看看哦
- 控制台画图的小程序(没有写保存功能,现在看看也懒得写了)
- 分享我写的CPU测试程序,看看你的CPU强劲吗?
- [360] 看看下面的程序输出什么?
- 自己写的一个资料验证的asp.net程序,大家看看吧!
- 看看“疫苗查询”小程序有温度的代码
- 一起来看看如何用JMX连接本地JVM上运行的Java程序
- N皇后问题的一个程序,请大家看看!帮忙修改
- 分享我写的CPU测试程序,看看你的CPU强劲吗?