运动会管理系统数据库报告.doc
《运动会管理系统数据库报告.doc》由会员分享，可在线阅读，更多相关《运动会管理系统数据库报告.doc（44页珍藏版）》请在冰点文库上搜索。
内蒙古科技大学课程设计报告
《数据库课程设计》
题目：
运动会管理信息系统
学号
班级
姓名
指导教师
0865138213
信管08-2班
竺涌楠
杨振华
0865138222
信管08-2班
张国印
杨振华
2010年12月28日
目录
1需求分析 2
1.1系统需求分析 2
1.2可行性分析 2
1.2.1技术可行性 2
1.2.2软件可行性 3
1.2.3经济可行性 3
1.2.4管理可行性 3
1.3系统的功能简介 4
1.3.1赛前管理模块 4
1.3.2成绩查询模块 5
1.3.3成绩管理模块 6
1.4系统开发的目标 7
2数据库设计 7
2.1数据库的概念设计 7
2.2系统的逻辑结构设计 8
2.3管理系统的物理结构设计 9
3总体设计 11
4详细设计 12
4.1用户登陆界面设计 12
4.2比赛项目设计 13
4.3参赛单位设计 16
4.4项目记录设计 18
4.5运动员编号及成绩输出设计 20
4.6成绩录入设计 22
4.7成绩排名设计 23
4.8记录破平汇总 26
4.9项目排名汇总 28
4.10总成绩册 30
4.11运动员成绩查询 31
4.12项目查询 33
4.13学院成绩汇总 35
4.14每日成绩查询 37
4.15名次查询 39
4.16帮助功能显示 41
5.全文总结 43
参考文献 43
1需求分析
1.1系统需求分析
随着科学技术的飞速发展与计算机技术的普遍应用，自动化的信息管理已深入各行各业，但由于传统信息管理方法的影响，目前国内高校包括我校田径运动会管理水平仍处于较低水平，主要存在以下问题。
1.采用人工操作，不仅费时费力，而且容易出错；
2.信息不集中，不便于人们查看，致使人们对运动会相关信息不了解；
3.信息更新费时费力，也不能及时反映得分情况；
4.对于比赛日程查询麻烦且不全面，不容易发现运动员的比赛时间冲突，给比赛进程带来麻烦；
5.不能及时统计各项总分，不便于人们随时关注总体得分情况。
将高校运动会信息管理与计算机信息管理相结合，使用计算机来管理田径运动会活动中的比赛成绩处理、成绩查询、统计总分等一系列工作，使这些工作变的简单、高效、准确，解决现在人工计算成绩速度慢、缺乏准确性等问题。
系统的易操作性满足了广大师生的要求。
1.2可行性分析
可行性分析也称可行性研究，是决策部门在采取一项重大改革或投资行动之前，对该项目的必要性和可能性进行分析与论证的活动，具体可以对几下方面分析：
1.2.1技术可行性
运动会的开展需要具有良好技术人员，只有掌握系统的操作方法才能更好的而又合理的运用本系统。
在技术方面的确非常先进，方便对运动会各方面的管理，有利于大型运动会的开展。
无论是经营方面，还是管理方面都占优势，该技术是可行的。
经过详细的分析和调查，本运动会管理系统利用计算机信息处理的迅速、准确、可靠且有强大存储能力的突出特点，全面提高本次运动会的管理水平和工作效率，并且及时、完整的业务经营资料，为本次运动会的及时转换提供一定的支持。
运动会管理系统是在局域网环境下，采用C/S（客户端/服务器）的体系结构。
即客户端程序向数据库服务器发布标准SQL命令和接收数据库服务器的运算结果，数据库服务器则负责数据查询、更改、统计等运算，并将运算结果返回客户端。
这是世界上较先进的运算模式，这一运算模式的好处是数据运算集中在服务器端进行，在网络上传输的只是检索式与运算结果。
增强的数据可靠性机制。
增加了大型数据库才有的提交机制，因此数据操作更为安全可靠。
对数据进行分类，以便区分各种功能对数据的读或写访问，通过运用小型数点管理系统管理运动会项目和成绩更体现出它的易使用性。
通过专门的查询设计，可进行高效率检索查询。
系统不仅可以进行单条件查询还可以进行多条件的组合查询。
更能体现该信息系统的人性化运行。
1.2.2软件可行性
该软件的开发只需要在WindowsXP操作系统中进行，利用VB6.0进行开发，在计算机上安装一般的支持软件，不需要大型的系统软件和应用软件的支持。
目前，开发者熟悉VB6.0和WindowsXP系统，具有开发大型软件的能力。
1.2.3经济可行性
现今社会计算机的价格已经十分低廉，性能却有了长足的进步。
进行该软件的开发经费和投入较少，只需要一台PC机，需要的支持软件较少，软件投入应用时也不需要很高配置的计算机设备和网络的安装，软件的运行寿命比较长，成本低，所以开发该系统有经济可行性。
而且本系统的开发，具有很高的性价比，新系统投入使用后，可以节省人力，减轻劳动强度，从而降低了成本，节省了开支。
为运动会的各项工作效率带来了一个质的飞跃，具体表现在以下几个方面：
第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高小书店的工作效率；第四，本系统可以使敏感文档更加安全，等等。
1.2.4管理可行性
旧的小型运动会管理模式完全是手工操作，从运动员的报名、编码、项目安排，到查询参赛，无一不是人工处理，需要大量的劳动力与工作量，而且由于人为的原因造成一些错误。
新的运动会管理系统充分发挥了计算机技术、网络技术的强大功能，从整体上改善了运动会的管理工作，提高了运动会服务的功能和质量，实现了运动会信息管理系统的的信息化、网络化、自动化。
通过对经济、技术、管理可行性的充分研究，确定了运动会管理系统的开发是必要的、可行的。
综上所述，开发该运动会管理信息系统是非常可行的。
1.3系统的功能简介
1.3.1赛前管理模块
（1）比赛项目：
此菜单的功能为显示本届运动会的项目及其类别，管理员可以根据运动会项目的变更对项目进行添加与删除，然后保存。
①添加功能：
单击添加按钮，然后分别在比赛项目及项目类型中输入选取添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。
②删除功能：
首先选中要删除的项目行，然后点击删除，再点击保存，即可完成此项功能。
（2）参赛单位：
此菜单的功能为显示本届运动会的参赛单位及其所参加的项目，管理员可以根据运动会参赛单位参加的项目进行添加与删除，保存。
①添加功能：
单击添加按钮，然后分别在学院、比赛项目、比赛类别中输入添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。
②删除功能：
首先选中要删除的行，然后点击删除，再点击保存，即可完成此项功能。
（3）项目记录：
此菜单的功能为显示本校学生各项项目的最好记录，管理员可以用浏览健查看各项项目的具体记录，而且可以修改，修改完后点击保存即可更新数据库，点击输出按钮可以到excel文件，编辑打印。
（4）运动员编号范围：
此菜单的功能为显示本届运动会的不同学院的运动员编号范围，管理员可以根据运动会参赛单位进行编号的添加、删除、保存。
①添加功能：
单击添加按钮，然后分别在学院、编号中输入添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。
②删除功能：
首先选中要删除的行，然后点击删除，再点击保存，即可完成此项功能。
③输出功能：
点击输出按钮，即可将修改后的表格内容输出到excel文件，编辑打印。
1.3.2成绩查询模块
（1）运动员成绩查询
①编号查询功能：
输入要查询的运动员编号，单击编号查询按钮，即可查询到运动员的详细成绩。
②姓名查询功能：
输入要查询的运动员姓名，单击姓名查询按钮，即可查询到运动员的详细成绩。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（2）项目查询：
本菜单的功能是运动会的各项项目的成绩查询。
①查询功能：
选取要查询的项目，单击查询按钮，即可查询到项目的所有运动员的详细成绩。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（3）学院成绩查询：
本菜单的功能是运动会的各学院的成绩查询。
①查询功能：
选取要查询的学院，单击查询按钮，即可查询到学院的所有运动员的详细成绩。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（4）每日成绩查询：
本菜单的功能是运动会的每日成绩查询。
①查询功能：
选取要查询的日期，单击查询按钮，即可查询到每日的所有运动员的详细成绩。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（5）名次查询：
本菜单的功能是运动会的运动员名次查询。
①查询功能：
输入要查询的运动员姓名，单击查询按钮，即可查询到运动员的详细成绩。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
1.3.3成绩管理模块
（1）成绩录入：
本菜单的功能是运动员成绩的添加、删除及输出。
①添加功能：
按照运动员的成绩的各项内容逐步输入，然后点击添加，再点击保存之后，新添加的内容就可以显示在表格中，并且保存在数据库中。
（名次项在成绩排名中输入）
②删除功能：
选中要删除的行，然后单击删除，保存，则可以删除掉成绩，并且更新数据库。
③输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
（2）成绩排名：
本菜单的功能是运动会各项项目的名次排名，输出。
①排名功能：
选中要进行排名的项目，然后点击排名，则可完成项目成绩的排序，并可在名次栏中依次按照排名顺序输入名次号。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（3）记录破平汇总：
本菜单的功能是运动会运动员记录破平的查询。
①查询功能：
选中要查询的内容，单击查询按钮，则可完成运动员成绩的破平的查询。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（4）项目排名汇总：
本菜单的功能是运动会各个项目的运动员成绩排名的查询。
①查询功能：
选中要进行查询的项目，然后单击查询按钮，则可完成项目排名的查询。
②输出功能：
单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。
③刷新功能：
点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。
（5）总成绩册：
本菜单的功能是运动会总成绩的输出，点击输出按钮，即可输出表中的内容到excel中，编辑并打印。
1.4系统开发的目标
学校田径运动会管理系统是典型的信息管理系统，本系统为田径运动会运动会组织者提供方便、快捷的方法，系统的对运动会项目的各项信息进行合理的安排与管理，实现无纸化工作，节省大量人力和物力。
本系统使用VisualBasic作为开发工具和Access作为后台数据库，充分利用VISUALBASIC以及ACCESS数据库易于使用和快速开发的特性，提高了编程效率和可靠性，同时保证了系统的可用性和可靠性。
2数据库设计
2.1数据库的概念设计
运动员
运动员编号
参赛日期
性别
属于
参赛单位
学院
参加
比赛项目
比赛成绩
项目
项目记录
类型
图2.1
2.2系统的逻辑结构设计
由E-R图转化为关系模式为：
参赛单位（学院）
运动员（运动员编号，日期，性别，学院）
参加（运动员编号，项目，成绩）
比赛项目（项目，项目记录，类型）
化成3NF为：
比赛项目（项目，项目记录，类型）
参赛单位（参赛学院，参赛项目，参赛类别）
项目记录（项目，成绩，创造者，创造者单位，创造地点）
运动员编号范围（学院，编号范围）
2.3管理系统的物理结构设计
赛前管理员
—ID
—赛前管理员编号
—赛前管理员姓名
—电话
—备注
—记录表
—ID
—运动员编号
—运动员学号
—运动员姓名
—比赛醒目
—分数
—记录员编号
—记录员姓名
—排名
—日期
—备注
运动员
—ID
—运动员编号
—运动员姓名
—参赛醒目
—备注
—破纪录档案
—ID
—运动员编号
—运动员学号
—运动员姓名
—比赛项目
—分数
—排名
—日期
—备注
图2.2
参赛单位
-ID
-参赛单位名称
-参赛单位编号
-备注
+保存（）
+修改（）
+删除（）
赛前管理员
-赛前管理员编号
-赛前管理员姓名
-电话
-备注
成绩显示表
-ID
-运动员编号
-运动员姓名
-团队编号
-团队姓名
-比赛项目
-分数
-团队总分
-排名
-日期
-备注
系统
-ID
-赛前安排录入
-系统保存
+保存（）
+修改（）
+删除（）
项目记录表
-ID
-比赛项目名称
-比赛项目成绩
-备注
图2.3
3总体设计
登录
系统
比赛项目
参赛单位
项目
记录
运动员编号范围
成绩录入
成绩排名
记录破评汇总
项目排名汇总
总成绩册
运动员成绩
项目成绩
学员成绩
每日成绩
名次查询
赛前管理
成绩管理
成绩查询
帮助说明
名次查询
名次查询
名次查询
图3.1
4详细设计
4.1用户登陆界面设计
图4.1
PrivateSubCommand1_Click（）
DimyonghumingAsString
DimmimaAsString
yonghuming="administrator"'设置用户名
mima="123456"'设置密码
If（Text1.Text=yonghumingAndText2.Text=mima）Then
Form2.Show
UnloadMe'关闭窗口
Else
MsgBox"用户名和密码输入不正确,请重新输入",,"登陆设置"
Text1.Text=""
Text2.Text=""
EndIf
EndSub
4.2比赛项目设计
图4.2
PrivateSuba1_Click（）
Form4.Show'比赛项目显示窗口
EndSub
PrivateSuba2_Click（）'参赛单位显示窗口
Form5.Show
EndSub
PrivateSuba3_Click（）'项目记录显示窗口
Form7.Show
EndSub
PrivateSuba4_Click（）'运动员编号范围显示窗口
Form8.Show
EndSub
PrivateSubb1_Click（）'成绩录入显示窗口
Form3.Show
EndSub
PrivateSubb2_Click（）'成绩排名显示窗口
Form15.Show
EndSub
PrivateSubb3_Click（）'记录破评汇总显示窗口
Form9.Show
EndSub
PrivateSubb4_Click（）'项目排名汇总显示窗口
Form10.Show
EndSub
PrivateSubb5_Click（）'总成绩册显示窗口
Form16.Show
EndSub
PrivateSubc1_Click（）'运动员成绩显示窗口
Form6.Show
EndSub
PrivateSubc2_Click（）'项目成绩显示窗口
Form11.Show
EndSub
PrivateSubc3_Click（）'学院成绩显示窗口
Form12.Show
EndSub
PrivateSubc4_Click（）'每日成绩显示窗口
Form13.Show
EndSub
PrivateSubc5_Click（）'名次查询显示窗口
Form14.Show
EndSub
PrivateSubd1_Click（）
Shell"notepad.exe赛前管理帮助.txt",vbNormalFocus'打开记事本文件
EndSub
PrivateSubd2_Click（）
Shell"notepad.exe成绩管理帮助.txt",vbNormalFocus'打开记事本文件
EndSub
PrivateSubd3_Click（）
Shell"notepad.exe成绩查询帮助.txt",vbNormalFocus'打开记事本文件
EndSub
PrivateSubd4_Click（）
UnloadMe
EndSub
图4.3
PrivateSubCommand1_Click（）‘添加数据
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）‘删除数据
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand3_Click（）‘保存数据
OnErrorResumeNext
Adodc1.Recordset.Save
EndSub
4.3参赛单位设计
图4.4
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand3_Click（）
OnErrorResumeNext
Adodc1.Recordset.Save
EndSub
PrivateSubCommand4_Click（）
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimxlAppAsExcel.Application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet'定义excel变量
IfAdodc1.Recordset.EOF=TrueThen'判断是否有记录可以输出
MsgBox"没有数据可供导出！
",,"数据输出"'Excel处于当前窗体
Else
SetxlApp=NewExcel.Application
SetxlBook=xlApp.Workbooks.Add
SetxlSheet=xlBook.Worksheets
（1）'设置excel变量
xlSheet.Columns.AutoFit
Me.MousePointer=11'设定鼠标指针的类型
Fork=0ToDataGrid1.Columns.Count–1'DataGrid所有的列数
xlSheet.Cells（1,k+1）=DataGrid1.Columns（k）.Caption'第一行为DataGrid的列标题
Next
DataGrid1.Scroll0,-DataGrid1.FirstRow'导出前拉动过垂直滚动条，这个非常重要
DataGrid1.Row=0
Fori=0ToDataGrid1.ApproxCount–1'DataGrid的所有行数
Forj=0ToDataGrid1.Columns.Count–1'DataGrid所有的列数,若将此数改小到不拉DataGrid的垂直滚动条的时候能看见的行数的时候正常
DataGrid1.Col=j
xlSheet.Cells（i+2,j+1）=DataGrid1.Text'从第二行显示'DataGrid的内容
Next
IfiDataGrid1.Row=DataGrid1.Row+1
EndIf
Next
Me.MousePointer=0'设定鼠标指针的类型
MsgBox"导出成功！
",,"数据输出"'弹出对话框显示
xlApp.Visible=True'显示excel文件
SetxlApp=Nothing'Excel处于当前窗体
SetxlBook=Nothing
SetxlSheet=Nothing
EndIf
EndSub
4.4项目记录设计
图4.5
PrivateSubCommand1_Click（）
OnErrorResumeNext
Adodc1.Recordset.Save'保存记录
EndSub
PrivateSubCommand2_Click（）
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimxlAppAsExcel.Application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet'定义excel变量
IfAdodc1.Recordset.EOF=TrueThen'判断是否有记录可以输出
MsgBox"没有数据可供导出！
",,"数据输出"'Excel处于当前窗体
Else
SetxlApp=NewExcel.Application
Setxl
升级会员 