- 1、本文档共64页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
一、设计目标与要求
1、课程设计目的:探讨如何开发数据库应用系统
2、课程设计要求:初步认识和了解ADO.NET;
掌握ADO.NET存取SQLSever2000数据库数据的基本方法;
掌握VB.NET操作数据库的方法。
二、课程设计的应用背景及实际工作流程
1、应用背景电影协会租借电影给学生所用
2、工作流程需求分析、概念设计、逻辑设计、数据库实施阶段、调试与测试
3、开发环境SQLSever2000数据库、MicrosoftVisualStudio2005
编程语言:T-SQL,vb
三、数据库设计
1、需求分析
根据影片管理的特点,影片管理系统应具有如下基本功能:
(1)能对系统用户进行管理;
(2)能对租借学生数据进行管理,即可以对租借学生数据进行查询、增加、删除、修改操作;
(3)可对影片数据进行管理,即可对影片数据进行查询、增加、删除、修改操作;
(4)对影片数据的查询可以普通查询、按种类查询、按名称查询。
(5)可对租借影片数据进行管理,即可对租借影片数据进行查询、增加、删除操作;
(6)对租借影片数据的查询可以按学号、影片编号、影片种类查询。
2、概念设计
图1?影片管理系统的E-R简图
3、逻辑设计
创建“影片管理”数据库:
打开企业管理器,创建数据库
创建“用户”表:
图2?用户表
创建“租借学生信息”表:
图4?租借学生信息表属性
创建“影片信息”表:
图5?创建影片信息表
创建“影片租借信息”表:
图6?创建影片租借信息表
四、应用系统设计
1、系统功能模块结构图
图6?影片管理系统功能模块图
2、主要模块的代码实现及关键部分的算法说明
1.公共模块设计
ModuleModule1
PublicflagAsInteger
PublicflagReaderAsInteger
PublicflagBookAsInteger
PublicflagBorrowAsInteger
Submian()
flag=0
EndSub
EndModule
2.主控模块设计
图8?主控界面的设计
主控界面的代码
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PublicClassForm1
PublicSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Ifflag=0Then
MenuItem2.Enabled=False
MenuItem3.Enabled=False
MenuItem4.Enabled=False
Else
MenuItem2.Enabled=True
MenuItem3.Enabled=True
MenuItem4.Enabled=True
EndIf
EndSub
PrivateSubMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem1.Click
DimobjChildAsNewForm2()
objChild.MdiParent=Me
objChild.frm=Me
objChild.Show()
EndSub
PrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.Click
flagReader=1
DimobjChildAsNewForm3()
objChild.MdiParent=Me
objChild.Show()
EndSub
PrivateSubMenuItem6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem6.Click
flagReader=2
DimobjChildAsNewForm3()
objChild.MdiParent=Me
objChild.Show()
EndSub
PrivateSubMenuItem7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem7.Click
f
文档评论(0)