.Rows.Count-1ThenExitFor
DimrowAsDataRow=tempequipmentlist.NewRow
Forj=0Toequipmentlist.Columns.Count-1
row(equipmentlist.Columns(j).ColumnName)=equipmentlist.Rows(i).Item(j)
Next
tempequipmentlist.Rows.Add(row)
Next
DataGridshow.DataSource=tempequipmentlist
DataGridshow.DataBind()
为了在页面间传递页号值,使用了Session变量CurrPage,当用户单击"上一页"时,将Session("CurrPage")减1;当用户单击"下一页"时,将Session("CurrPage")加1。判断代码如下:
Subpagechange(ByValsenderAsObject,ByValeAsCommandEventArgs)
SelectCasee.CommandArgument
Case"firstpage"
Session("currpage")=1
Case"prevpage"
IfSession("currpage")>1Then
Session("currpage")-=1
Else
Session("currpage")=1
EndIf
Case"nextpage"
Session("currpage")+=1
Case"lastpage"
Session("currpage")=Session("totalpage")
EndSelect
enabledwhatbutton()
bindlist(Session("currpage"))
EndSub
实现截图:
图4设备一览
4.4设备调度模块
设备调度模块主要是查看所有处于调度中的设备,和调度设备的调度信息。该模块通过DataList控件处理从数据源读取的数据。绑定列中,"设备名称"采用超级连接,用户单击可以查看设备的详细调度信息,通过单击"修改"进行调度信息的修改;单击"删除"可以删除该设备的调度信息。修改调度信息代码如下:
cmd.CommandText="insertintoallotvalues('"+Tname.Text+"','"+Toldteam.Text+"','"+Tnewteam.Text+"','"+Tolduse.Text+"','"+Tnewuse.Text+"','"+Ttime.Text+"','"+Tnotation.Text+"')"
objreader=cmd.ExecuteReader
objreader.Close()
cmd.CommandText="updateequipmentlistsetbuyteam='"+Tnewteam.Text+"',usepeople='"+Tnewuse.Text+"'wherename='"+Tname.Text+"'"
objreader=cmd.ExecuteReader
objreader.Close()
cmd.CommandText="select*fromallotwherenewteam='"+Tnewteam.Text+"'andnewuse='"+Tnewuse.Text+"'"
objreader=cmd.ExecuteReader
Ifobjreader.HasRowsThen
seccess.Text="添加成功"
Tname.Text=""
Toldteam.Text=""
Tnewteam.Text=""
Tolduse.Text=""
Tnewuse.Text=""
Ttime.Text=""
Tnotation.Text=""
Else
seccess.Text="添加失败"
EndIf
实现截图:
图5调度信息修改
4.5设备维修模块
设备维修模块主要是查看所有处于维修中的设备,及其详细信息。该模块同样采用了DataList控件来处理从数据源读取的数据。绑定列中,"设备名称"采用超级连接,用户单击可以查看详细的维修信息。通过单击"修改"可以修改设备的维修信息;单击"删除"按钮可以删除该设备的维修信息。对设备维修信息的修改代码如下:
cmd.Connection=conn
cmd.CommandText="updatebadequipmentsetbadtime='"+Tbadtime.Text+"',notation='"+Tnotation.Text+"'wherename='"+Tname.Text+"'"
cmd.ExecuteNonQuery()
cmd.CommandText="select*frombadequipmentwherename='"+Tname.Text+"'andbadtime='"+Tbadtime.Text+"'"
objreader=cmd.ExecuteReader
Ifobjreader.HasRowsThen
seccess.Text="修改成功"
EndIf
维修信息的删除代码如下:
DimcmdAsNewSystem.Data.sqlclient.SqlCommand
cmd.CommandText="delet*frombadequipmentwherename='"+Tname.Text+"'"
Response.Redirect("badequipment.aspx")
实现截图:
图6设备维护信息修改
4.6设备报废模块
设备报废模块主要是查看所有的报废了的设备,及其详细信息。该模块采用了DataList控件来处理从数据源读取的数据。绑定列中,"设备名称"采用了超级连接,用户单击可以查看详细信息。通过单击"修改"可以修改报废设备的信息;用户单击"删除"按钮可以删除该设备的信息。对报废设备信息的修改代码如下:
cmd.CommandText="updatebadequipmentsetbadtime='"+Tbadtime.Text+"',notation='"+Tnotation.Text+"'wherename='"+Tname.Text+"'"
cmd.ExecuteNonQuery()
cmd.CommandText="select*frombadequipmentwherename='"+Tname.Text+"'andbadtime='"+Tbadtime.Text+"'"
objreader=cmd.ExecuteReader
Ifobjreader.HasRowsThen
seccess.Text="修改成功"
EndIf
实现截图
图7报废信息修改
4.7用户信息模块
用户信息模块主要是用户查看自己的详细资料。用户可能因为各种原因自己的资料有所改变,又忘了自己是不是已经对自己的资料进行了更新修改,用户则可以通过用户信息模块查看自己的信息是否正确。在用户登录的时候就首先把用户的信息进行绑定,代码如下:
cmd.CommandText="select*fromuserlistwhereusername='"+Textusername.Text+"'andpwd='"+pwd+"'"
objreader=cmd.ExecuteReader
Ifobjreader.HasRowsThen
Session("name")=Textusername.Text
objreader.Close()
cmd.CommandText="select*fromuserlistwhereusername='"+Session("name")+"'"
DimobjadptAsNewSystem.Data.sqlclient.SqlDataAdapter(cmd)
DimdsAsNewDataSet
objadpt.Fill(ds,"userlist")
DimuserlistAsDataTable=ds.Tables("userlist")
Session("sex")=userlist.Rows(0).Item(2)
Session("position")=userlist.Rows(0).Item(3)
Session("telephone")=userlist.Rows(0).Item(4)
Session("power")=userlist.Rows(0).Item(5)
在用户查看自己的信息时,把绑定的用户信息显示出来,代码如下:
usernameshow.Text=Session("name")
sexshow.Text=Session("sex")
positionshow.Text=Session("position")
telephoneshow.Text=Session("telephone")
实现截图:
图8用户信息
4.8资料修改模块
资料修改模块主要是用户用来修改自己的资料。用户可能因为工作等原因资料有所改变,需要进行修改,即使更新。资料修改模块为用户提供该功能。在用户修改资料后点击修改后,使用对数据库的更新操作来更新用户信息,代码如下:
IfTextpwd.Text=Textpwdagain.TextThen
cmd.CommandText="updateuserlistsetpwd='"+Textpwd.Text+"',sex='"+sexchoose.SelectedValue+"',position='"+position.SelectedValue+"',telephone='"+Texttelephone.Text+"'whereusername='"+Session("name")+"'"
cmd.ExecuteNonQuery()
Response.Redirect("main.aspx")
EndIf
实现截图:
图9用户资料修改
总结
踉踉跄跄地忙碌了这几个月,我的毕业设计课题也终将告一段落。点击运行,也基本达到预期的效果。系统完成了设备的浏览、设备信息的修改、设备信息查看和设备信息的查询,以及用户信息的查看和修改。
由于能力和时间的关系,总是觉得有很多不尽人意的地方,譬如功能不全、外观粗糙、底层代码的不合理......数不胜数。
由于时间仓促,系统的设计还不够完善,比如用户管理模块,未能完成管理员对用户注册、权限等的管理。
参考文献
[1]吉根林,崔海源.ASP.NET程序设计教程[M].北京:电子工业出版社,2004.8。
[2]飞思科技产品研发中心.ASP.NET应用开发指南[M].北京:电子工业出版社,2002。
[3]陈惠珍,陈俊荣.ASP.NET程序设计[M].北京:中国铁道出版社,2003。
[4]MattewMacDonald.ASP.NE
上一篇:
ASP012同学录系统2(论文和程序)
下一篇:
计算机毕业论文答辩2014年