ASP实验报告四.docx
《ASP实验报告四.docx》由会员分享，可在线阅读，更多相关《ASP实验报告四.docx（12页珍藏版）》请在冰豆网上搜索。
ASP实验报告四
ASP.NET程序设计
实验报告四
实验题目：
数据源控件与数据绑定控件
指导老师：
马浩
专业班级：
计算机科学与技术系1105班
姓名：
王媛（2011100529）
2014年5月24日
一、实验题目
数据源的控件与数据绑定控件
二、实验目的
1、掌握在SQLServer2005中创建数据的创建、备份。
.
2、掌握数据源控件sqldatasource的设置和使用。
3、掌握常用数据绑定控件gridview、formview、listview的使用。
4、掌握以上控件实现对数据库的增删改查。
三、实验代码及截图
实验代码：
1、idviewtest.aspx
portsSystem.Data
ImportsSystem.Data.SqlClient
PartialClass_1101_gridviewtest
InheritsSystem.Web.UI.Page
DimconnAsSqlConnection
DimconnstrAsString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
IfNotIsPostBackThen
ViewState（"sortorder"）="id"
ViewState（"orderdire"）="asc"
bind（）
EndIf
EndSub
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click
Response.Redirect（"adduser.aspx"）
EndSub
ProtectedSubGridView1_RowDeleting（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs）HandlesGridView1.RowDeleting
'DimconnAsNewSqlConnection（）
conn=NewSqlConnection（connstr）
DimcmdAsNewSqlCommand（）
'conn.ConnectionString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
Dimsqlstr="deletefromstudentwhereid='"&GridView1.DataKeys（e.RowIndex）.Value.ToString（）&"'"
conn.Open（）
cmd.Connection=conn
cmd.CommandText=sqlstr
cmd.ExecuteNonQuery（）
conn.Close（）
bind（）
EndSub
PublicSubbind（）
'DimconnAsNewSqlConnection（）
conn=NewSqlConnection（connstr）
DimsqlstrAsString="select*fromstudent"
'conn.ConnectionString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
DimdsAsNewDataSet（）
conn.Open（）
DimobjadapterAsNewSqlDataAdapter（sqlstr,conn）
objadapter.Fill（ds,"student"）
DimviewAsDataView=ds.Tables（"student"）.DefaultView
DimsortAsString=ViewState（"sortorder"）.ToString&""&ViewState（"orderdire"）.ToString
view.Sort=sort
GridView1.DataSource=view
GridView1.DataBind（）
conn.Close（）
EndSub
ProtectedSubGridView1_RowEditing（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewEditEventArgs）HandlesGridView1.RowEditing
GridView1.EditIndex=e.NewEditIndex
bind（）
Dimdrop_strAsString=CType（GridView1.Rows（e.NewEditIndex）.FindControl（"HiddenField1"）,HiddenField）.Value.ToString
CType（GridView1.Rows（e.NewEditIndex）.FindControl（"DropDownList1"）,DropDownList）.Text=drop_str
EndSub
ProtectedSubGridView1_RowUpdating（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs）HandlesGridView1.RowUpdating
DimxuehaoAsTextBox=GridView1.Rows（e.RowIndex）.Cells
（1）.Controls（0）
DimnameAsTextBox=GridView1.Rows（e.RowIndex）.Cells
（2）.Controls（0）
DimaddrAsString=CType（GridView1.Rows（e.RowIndex）.Cells（3）.Controls
（1）,DropDownList）.SelectedValue.ToString
DimtelAsTextBox=GridView1.Rows（e.RowIndex）.Cells（4）.Controls（0）
DimsqlstrAsString="updatestudentsetxuehao='"&xuehao.Text.Trim（）&"',name='"&name.Text.Trim（）&"',addr='"&addr.Trim（）&"',tel='"&tel.Text.Trim（）&"'whereid='"&GridView1.DataKeys（e.RowIndex）.Value.ToString（）&"'"
'DimconnAsNewSqlConnection（）
conn=NewSqlConnection（connstr）
DimcmdAsNewSqlCommand（）
'conn.ConnectionString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
'Dimsqlstr="deletefromstudentwhereid='"&GridView1.DataKeys（e.RowIndex）.Value.ToString（）&"'"
conn.Open（）
cmd.Connection=conn
cmd.CommandText=sqlstr
cmd.ExecuteNonQuery（）
conn.Close（）
GridView1.EditIndex=-1
bind（）
EndSub
ProtectedSubGridView1_RowCancelingEdit（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs）HandlesGridView1.RowCancelingEdit
GridView1.EditIndex=-1
bind（）
EndSub
ProtectedSubGridView1_PageIndexChanging（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewPageEventArgs）HandlesGridView1.PageIndexChanging
GridView1.PageIndex=e.NewPageIndex
EndSub
ProtectedSubGridView1_PageIndexChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesGridView1.PageIndexChanged
bind（）
EndSub
ProtectedSubGridView1_Sorting（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewSortEventArgs）HandlesGridView1.Sorting
DimspageAsString=e.SortExpression
IfViewState（"sortorder"）=spageThen
IfViewState（"orderdire"）="asc"Then
ViewState（"orderdire"）="desc"
Else
ViewState（"orderdire"）="asc"
EndIf
Else
ViewState（"sortorder"）=e.SortExpression
EndIf
bind（）
EndSub
ProtectedSubGridView1_RowDataBound（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewRowEventArgs）HandlesGridView1.RowDataBound
'Ife.Row.RowType=DataControlRowType.DataRowThen
'Ife.Row.RowState=DataControlRowState.NormalOre.Row.RowState=DataControlRowState.AlternateThen
''CType（e.Row.Cells（6）.Controls（0）,LinkButton）.Attributes.Add（"onclick","javascript:
returnconfirm（'你确认删除"&e.Row.Cells
（2）.Text&"吗？
'）"）
'EndIf
'EndIf
DimiAsInteger
Fori=0ToGridView1.Rows.Count
Ife.Row.RowType=DataControlRowType.DataRowThen
e.Row.Attributes.Add（"onmouseover","c=this.style.backgroundColor;this.style.backgroundColor='#00A9FF'"）
e.Row.Attributes.Add（"onmouseout","this.style.backgroundColor=c"）
EndIf
Nexti
EndSub
ProtectedSubquanxuan_CheckedChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）Handlesquanxuan.CheckedChanged
DimiAsInteger
Fori=0ToGridView1.Rows.Count-1
DimcboxAsCheckBox=GridView1.Rows（i）.FindControl（"CheckBox1"）
Ifquanxuan.CheckedThen
cbox.Checked=True
Else
cbox.Checked=False
EndIf
Next
EndSub
ProtectedSubdelete_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）Handlesdelete.Click
conn=NewSqlConnection（connstr）
DimcmdAsSqlCommand
DimiAsInteger
Fori=0ToGridView1.Rows.Count-1
DimcboxAsCheckBox=GridView1.Rows（i）.FindControl（"CheckBox1"）
Ifcbox.CheckedThen
DimsqlstrAsString="deletefromstudentwhereid='"&GridView1.DataKeys（i）.Value.ToString&"'"
cmd=NewSqlCommand（sqlstr,conn）
conn.Open（）
cmd.ExecuteNonQuery（）
conn.Close（）
EndIf
Next
bind（）
EndSub
ProtectedSubcancel_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）Handlescancel.Click
quanxuan.Checked=False
DimiAsInteger
Fori=0ToGridView1.Rows.Count-1
DimcboxAsCheckBox=GridView1.Rows（i）.FindControl（"CheckBox1"）
cbox.Checked=False
Next
EndSub
ProtectedSubGridView1_SelectedIndexChanging（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewSelectEventArgs）HandlesGridView1.SelectedIndexChanging
Response.Redirect（"xiangxi.aspx?
id='"&GridView1.DataKeys（e.NewSelectedIndex）.Value.ToString&"'"）
EndSub
ProtectedSubGridView1_SelectedIndexChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesGridView1.SelectedIndexChanged
EndSub
EndClass
2、duser.aspx
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PartialClass_1101_adduser
InheritsSystem.Web.UI.Page
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click
Try
DimconnAsNewSqlConnection（）
DimcmdAsNewSqlCommand（）
conn.ConnectionString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
Dimsqlstr="insertintostudent（id,xuehao,name,addr,tel）values（'"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"'）"
conn.Open（）
cmd.Connection=conn
cmd.CommandText=sqlstr
cmd.ExecuteNonQuery（）
conn.Close（）
Response.Redirect（"gridviewtest.aspx"）
CatchexAsException
Response.Write（"用户为主键，不能重复出现"）
EndTry
EndSub
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
EndSub
EndClass
3、iangxi.aspx
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PartialClass_1101_xiangxi
InheritsSystem.Web.UI.Page
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
Try
DimconnAsNewSqlConnection（）
DimcmdAsNewSqlCommand（）
DimrendAsSqlDataReader
conn.ConnectionString="DataSource=.;InitialCatalog=aspnet;IntegratedSecurity=SSPI;Pooling=False"
Dimsqlstr="select*fromstudentwhereid="&Request（"id"）
conn.Open（）
cmd.Connection=conn
cmd.CommandText=sqlstr
rend=cmd.ExecuteReader（）
rend.Read（）
Label1.Text="学号：
&rend.Item（"xuehao"）&"
"
Label1.Text+="姓名：
&rend.Item（"name"）&"
"
Label1.Text+="家庭地址：
&rend.Item（"addr"）&"
"
Label1.Text+="电话：
&rend.Item（"tel"）&"
"
conn.Close（）
CatchexAsException
Response.Write（"用户信息查询败"）
EndTry
EndSub
EndClass
截图：
五、实验总结
通过本次实验，我掌握了在SQLServer2005中创建数据的创建、备份；.
掌握了数据源控件sqldatasource的设置和使用；掌握了常用数据绑定控件gridview、formview、listview的使用；以及以上控件实现对数据库的增删改查。
升级会员 