or",MessageBoxButtons.OK,MessageBoxIcon.Stop)
ReturnFalse
Finally
cnmy.Close()
IfNotcnmyIsNothingThen
cnmy.Dispose()
EndIf
EndTry
ReturnIsCorrect
EndFunction
5.3ASP.NETWebForms代码选录
显示读者基本信息Userinfo.aspx的页面后置代码(CodeBehind)
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'在此处放置初始化页的用户代码
IfSession("UID")IsNothingThen
Page.Response.Redirect("login.aspx")
EndIf
IfNotIsPostBackThen
IfNotSession("UID")IsNothingThen
AuTextBind(Session("UID"))
setBorrowState(Session("UID"))
Else
Page.Response.Redirect("login.aspx")
EndIf
EndIf
EndSub
'显示某读者基本情况
FunctionAuTextBind(ByValstrAu_idAsString)
Dimcnlib2004AsSqlConnection
DimcmdAuBorrowListAsSqlCommand
DimdrAuBorrowListAsSqlDataReader
cnlib2004=NewSqlConnection(ConfigurationSettings.AppSettings("cncstr"))
cmdAuBorrowList=NewSqlCommand
WithcmdAuBorrowList
.CommandType=CommandType.StoredProcedure
.CommandText="Select1Au"
.Connection=cnlib2004
EndWith
DimmAu_idAsNewSqlParameter("@Au_id",SqlDbType.NVarChar,50)'1
cmdAuBorrowList.Parameters.Add(mAu_id)
mAu_id.Value=strAu_id
Try
cnlib2004.Open()
drAuBorrowList=cmdAuBorrowList.ExecuteReader(CommandBehavior.SingleRow)
WithdrAuBorrowList
If.Read()Then
Me.spAuadddate.InnerHtml=CType(.Item("Au_adddate"),String)
Me.spAuadr.InnerHtml=.Item("Au_adr")
Me.spAuname.InnerHtml=.Item("Au_name")
Me.spAusex.InnerHtml=.Item("Au_sex")
Me.spAusort.InnerHtml=.Item("Au_sort")
Me.spAuid.InnerHtml=strAu_id
Me.spAuemail.InnerHtml=.Item("Au_email")
Me.spAuremarks.InnerHtml=.Item("Au_remarks")
Else
EndIf
EndWith
CatchexAsException
Response.Write(ex.Message)
Finally
cnlib2004.Close()
EndTry
EndFunction
'显示读者借书状态最大借书册书,当前借书册数等
FunctionsetBorrowState(ByValstrAu_idAsString)
Dimcnlib2004AsSqlConnection
DimcmdAsSqlCommand
DimdrAsSqlDataReader
DimCurBorrowNoAsInt16
DimAllborrowNoAsInt16
DimBorrowDaysAsInt16
DimBorrowBooksAsInt16
cnlib2004=NewSqlConnection(ConfigurationSettings.AppSettings("cncstr"))
cmd=NewSqlCommand
Withcmd
.CommandType=CommandType.StoredProcedure
.CommandText="SelectAuCurrentBorrowNo"
.Connection=cnlib2004
EndWith
DimmAu_idAsNewSqlParameter("@Au_id",SqlDbType.NVarChar,50)'1
cmd.Parameters.Add(mAu_id)
mAu_id.Value=strAu_id
Try
cnlib2004.Open()
CurBorrowNo=CType(cmd.ExecuteScalar,Int16)
cmd.CommandText="SelectAuAllBorrowNo"
AllborrowNo=CType(cmd.ExecuteScalar,Int16)
cmd.CommandText="SelectAuSortInfo"
dr=cmd.ExecuteReader(CommandBehavior.SingleRow)
Whiledr.Read()
BorrowDays=dr.Item("Au_borrowdays")
BorrowBooks=dr.Item("Au_borrowbooks")
EndWhile
Me.spTotalBorrowNo.InnerHtml="共借书"+AllborrowNo.ToString+"册"
Me.spMaxBorrowDays.InnerHtml=BorrowDays.ToString+"天"
Me.spBorrowQinkuang.InnerHtml="["+CurBorrowNo.ToString+"/"
Me.spBorrowQinkuang.InnerHtml+=BorrowBooks.ToString+"]"
CatchexAsException
Response.Redirect("error.aspx?errmsg="+ex.Message)
Finally
cnlib2004.Close()
EndTry
EndFunction
毕业设计成果
开发了一套基于.NETFramework平台的图书馆管理信息系统,系统可以正常投入使用,并且功能非常强大,性能十分良好。
此外在论文部分还讨论了大量的开发技术。
致谢
首先要感谢我的老师章美月,她在我毕业设计的过程中,给了我很大的帮助。在论文的研究内容上,她给我指明了方向;在研究方法上,她传授给我很多经验。章老师平易近人的风格以及严谨的学术作风给人留下了深刻的印象
其次要感谢我的老师刘文斌,他那渊博的学识令人非常敬佩。在毕业设计期间,他对我的指导和帮助也使我获益匪浅。
参考文献
1.刘方鑫数据库原理与技术电子工业出版社,2002
2.KevinHoffman.NETFramework高级编程清华大学出版社,2002
3.JasonBellWindowsForms高级编程清华大学出版社,2002
4.TonyBainVB.NET和SQLserver2000高级编程清华大学出版,2002
5.EvangelosPetroutsosVisualBasic.NET从入门到精通电子工业出版社,2002
6.MicrosoftSQLServer2000数据开发手册科学出版社,2001
7.MartyHallWeb编程指南清华大学出版社,1999
8.ScottWorleyASP.NET技术内幕人民邮电出版社,2002
9.A.RussellJonesASP.NET与C#从入门到精通电子工业出版社,2003
10.SteveSteinHowVisualStudio.NETGeneratesSQLStatementsforConcurrencyControlMSDNforVisualStudio.NET2003,2002
英文翻译
VisualStudio.NET如何为并发控制生成SQL语句
翻译:翟靖轩
原作者:SteveStein
VisualStudioTeam
MicrosoftCorporation
2002年2月
摘要:这篇文章研究VisualStudio(r).NET为不同的并发控制方式所产生的SQL语句,如何对它们进行修改可以提高执行效率,以及如何生成不带并发控制的SQL语句。
目录
引言
阅读此文章时应具备的一些知识
生成的SQL语句在哪里
并发与数据适配器(DataAdapter)
优化生成的SQL语句
并发与CommandBuilder对象
结论
引言
任何可能同时被多个用户访问或修改数据的应用程序,都需要进行并发控制。否则,一个用户更改记录时可能不经意的覆盖了其他用户的更改。VisualStudio.NET的设计工具可以生成"保持所有值"方式的开放式并发SQL语句或生成"最后的更新生效"方式的SQL语句来更新数据。这篇文章将解释:
*不同的SQL语句是如何生成的
*如何修改自动生成的SQL语句可以提高执行效率
阅读此文章时应具备的一些知识
你需要具备以下知识:
*基本的ADO.NET概念,包括数据集(DataSet)以及数据适配器(DataAdapters)。更多信息请参见ADO.NET数据访问介绍(IntroductiontoDataAccesswithADO.NET)。
*数据并发机制以及会操作VisualStudio.NET。更多内容请参见介绍ADO.NET中的数据并发(IntroductiontoDataConcurrencyinADO.NET)。
自动生成的SQL语句在哪里
自动生成的SQL语句在command对象的CommandText属性里。在设计阶段配置DataAdapter对象时或使用CommandBuilder对象时SQL命令被自动生成。更多信息,请参见并发与CommandBuilder对象(ConcurrencyandCommandBuilderObjects)。
配置DataAdapter对象
*从工具箱的数据选项卡中拖一个DataAdapter对象
*从服务器资源管理器拖一个数据表
*选中已有的DataAdapter对象,然后单击在属性窗口底部的"配置数据适配器"链接
CommandBuilder对象
*CommandBuilder对象在运行时刻被创建,更多信息请参阅SqlCommandBuilder或OleDbCommandBuilder。
并发控制与数据适配器(DataAdapter)
使用"数据适配器配置向导"配置数据适配器时,你可以选择是否使用开放式并发来生成Update和Delete语句。
一些思考和注意事项
*
上一篇:
ASP_net010电子购物商城系统+论文(论文和程序)
下一篇:
关于广告设计人才培养模式研究