运动会管理系统.docx
《运动会管理系统.docx》由会员分享，可在线阅读，更多相关《运动会管理系统.docx（17页珍藏版）》请在冰豆网上搜索。
运动会管理系统
信息系统分析与设计报告
设计题目：
运动会管理系统
2009年12月18日
目录
一摘要
二系统需求分析
三系统设计
3.1系统结构需求图
3.2活动图
3.3功能逻辑类图
3.4软件架构图
3.5顺序图
3.6业务对象图
3.7用例图
四共同板块设计截图
五我负责的模块
六设计总结
七参考资料
一摘要
随着科学技术的飞速发展与计算机技术的普遍应用，自动化的信息管理已深入各行各业，但由于传统信息管理方法的影响，目前国内高校包括我校田径运动会管理水平仍处于较低水平，主要存在以下问题。
1.采用人工操作，不仅费时费力，而且容易出错；
2.信息不集中，不便于人们查看，致使人们对运动会相关信息不了解；
3.信息更新费时费力，也不能及时反映得分情况；
4.对于比赛日程查询麻烦且不全面，不容易发现运动员的比赛时间冲突，给比赛进程带来麻烦；
5.不能及时统计各项总分，不便于人们随时关注总体得分情况。
二系统需求分析
将高校运动会信息管理与计算机信息管理相结合，使用计算机来管理田径运动会活动中的比赛成绩处理、成绩查询、统计总分等一系列工作，使这些工作变的简单、高效、准确，解决现在人工计算成绩速度慢、缺乏准确性等问题。
系统的易操作性满足了广大师生的要求
三系统设计
3.1系统结构需求图
3.2活动图
3.3功能逻辑类图
3.4软件架构图
3.5顺序图
3.6业务对象图
3.7用例图
四公共模块设计及截图
登入界面设计
代码
PrivateSubCommand1_Click（）
DimyonghumingAsString
DimmimaAsString
yonghuming="073222"
'设置用户名
mima="1"
'设置密码
If（Text1.Text=yonghumingAndText2.Text=mima）Then
Form2.Show
UnloadMe
'关闭窗口
Else
MsgBox"用户名和密码输入不正确,请重新输入",,"登陆设置"
Text1.Text=""
Text2.Text=""
EndIf
EndSub
系统操作界面
代码
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
PrivateSubForm_Load（）
EndSub
五我负责的模块
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
PrivateSubDataGrid1_Click（）
EndSub
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
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
PrivateSubDataGrid1_Click（）
EndSub
六设计总结
通过这次设计课题，我进一步提高了信息分析的能力，学会可对设计内容的逐一深层的分析，掌握了信息系统设计的基本内容和设计框架的各种图形，并结合VB语言的编程以Acess建立的数据库为基础做好了这次课程设计。
但本文和该信息系统仍有很多需要改进和扩展的地方。
通过这次设计让我明白了求人不如求己的道理，求己就要了能力，所以还要多学习学习。
七参考资料
[1]卫春红，信息管理与信息系统，北京：
清华大学出版社，2009。
[2]罗斌，VsualBasic2005管理系统开发经典案例，北京：
中国水利水电出版社，2005。
升级会员 