运动会管理系统数据库报告.docx

1、运动会管理系统数据库报告数据库课程设计题目： 运动会管理信息系统学号班级姓名指导教师0865138213信管08-2班竺涌楠杨振华0865138222信管08-2班张国印杨振华2010年12月28日1需求分析1.1系统需求分析随着科学技术的飞速发展与计算机技术的普遍应用，自动化的信息管理已深入各行各业，但由于传统信息管理方法的影响，目前国内高校包括我校田径运动会管理水平仍处于较低水平，主要存在以下问题。1.采用人工操作，不仅费时费力，而且容易出错；2.信息不集中，不便于人们查看，致使人们对运动会相关信息不了解；3.信息更新费时费力，也不能及时反映得分情况；4.对于比赛日程查询麻烦且不全面，不容

2、易发现运动员的比赛时间冲突，给比赛进程带来麻烦；5.不能及时统计各项总分，不便于人们随时关注总体得分情况。将高校运动会信息管理与计算机信息管理相结合，使用计算机来管理田径运动会活动中的比赛成绩处理、成绩查询、统计总分等一系列工作，使这些工作变的简单、高效、准确，解决现在人工计算成绩速度慢、缺乏准确性等问题。系统的易操作性满足了广大师生的要求。1.2可行性分析可行性分析也称可行性研究，是决策部门在采取一项重大改革或投资行动之前，对该项目的必要性和可能性进行分析与论证的活动，具体可以对几下方面分析：1.2.1技术可行性运动会的开展需要具有良好技术人员，只有掌握系统的操作方法才能更好的而又合理的运用

3、本系统。在技术方面的确非常先进，方便对运动会各方面的管理，有利于大型运动会的开展。无论是经营方面，还是管理方面都占优势，该技术是可行的。经过详细的分析和调查，本运动会管理系统利用计算机信息处理的迅速、准确、可靠且有强大存储能力的突出特点，全面提高本次运动会的管理水平和工作效率，并且及时、完整的业务经营资料，为本次运动会的及时转换提供一定的支持。运动会管理系统是在局域网环境下，采用C/S（客户端/服务器）的体系结构。即客户端程序向数据库服务器发布标准SQL命令和接收数据库服务器的运算结果，数据库服务器则负责数据查询、更改、统计等运算，并将运算结果返回客户端。这是世界上较先进的运算模式，这一运算模

4、式的好处是数据运算集中在服务器端进行，在网络上传输的只是检索式与运算结果。增强的数据可靠性机制。增加了大型数据库才有的提交机制，因此数据操作更为安全可靠。对数据进行分类，以便区分各种功能对数据的读或写访问，通过运用小型数点管理系统管理运动会项目和成绩更体现出它的易使用性。通过专门的查询设计，可进行高效率检索查询。系统不仅可以进行单条件查询还可以进行多条件的组合查询。更能体现该信息系统的人性化运行。 1.2.2软件可行性该软件的开发只需要在Windows XP操作系统中进行，利用VB6.0进行开发，在计算机上安装一般的支持软件，不需要大型的系统软件和应用软件的支持。目前，开发者熟悉VB6.0和W

5、indows XP系统，具有开发大型软件的能力。1.2.3经济可行性现今社会计算机的价格已经十分低廉，性能却有了长足的进步。进行该软件的开发经费和投入较少，只需要一台PC机，需要的支持软件较少，软件投入应用时也不需要很高配置的计算机设备和网络的安装，软件的运行寿命比较长，成本低，所以开发该系统有经济可行性。而且本系统的开发，具有很高的性价比，新系统投入使用后，可以节省人力，减轻劳动强度，从而降低了成本，节省了开支。为运动会的各项工作效率带来了一个质的飞跃，具体表现在以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动； 第二，本系统的运行可以节省许多资源； 第三，本系统的运行可以大大

6、的提高小书店的工作效率；第四，本系统可以使敏感文档更加安全，等等。1.2.4管理可行性旧的小型运动会管理模式完全是手工操作，从运动员的报名、编码、项目安排，到查询参赛，无一不是人工处理，需要大量的劳动力与工作量，而且由于人为的原因造成一些错误。新的运动会管理系统充分发挥了计算机技术、网络技术的强大功能，从整体上改善了运动会的管理工作，提高了运动会服务的功能和质量，实现了运动会信息管理系统的的信息化、网络化、自动化。通过对经济、技术、管理可行性的充分研究，确定了运动会管理系统的开发是必要的、可行的。综上所述，开发该运动会管理信息系统是非常可行的。1.3系统的功能简介1.3.1赛前管理模块（1）比

7、赛项目：此菜单的功能为显示本届运动会的项目及其类别，管理员可以根据运动会项目的变更对项目进行添加与删除，然后保存。添加功能：单击添加按钮，然后分别在比赛项目及项目类型中输入选取添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。删除功能：首先选中要删除的项目行，然后点击删除，再点击保存，即可完成此项功能。（2）参赛单位：此菜单的功能为显示本届运动会的参赛单位及其所参加的项目，管理员可以根据运动会参赛单位参加的项目进行添加与删除，保存。添加功能：单击添加按钮，然后分别在学院、比赛项目、比赛类别中输入添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。删除功能：首先选中

8、要删除的行，然后点击删除，再点击保存，即可完成此项功能。（3）项目记录：此菜单的功能为显示本校学生各项项目的最好记录，管理员可以用浏览健查看各项项目的具体记录，而且可以修改，修改完后点击保存即可更新数据库，点击输出按钮可以到excel文件，编辑打印。（4）运动员编号范围：此菜单的功能为显示本届运动会的不同学院的运动员编号范围，管理员可以根据运动会参赛单位进行编号的添加、删除、保存。添加功能：单击添加按钮，然后分别在学院、编号中输入添加内容，单击保存，则添加内容则会显示在表中，同时保存在数据库中。删除功能：首先选中要删除的行，然后点击删除，再点击保存，即可完成此项功能。输出功能：点击输出按钮，即

9、可将修改后的表格内容输出到excel文件，编辑打印。1.3.2成绩查询模块（1）运动员成绩查询编号查询功能：输入要查询的运动员编号，单击编号查询按钮，即可查询到运动员的详细成绩。姓名查询功能：输入要查询的运动员姓名，单击姓名查询按钮，即可查询到运动员的详细成绩。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（2）项目查询：本菜单的功能是运动会的各项项目的成绩查询。查询功能：选取要查询的项目，单击查询按钮，即可查询到项目的所有运动员的详细成绩。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内

10、容。（3）学院成绩查询：本菜单的功能是运动会的各学院的成绩查询。查询功能：选取要查询的学院，单击查询按钮，即可查询到学院的所有运动员的详细成绩。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（4）每日成绩查询：本菜单的功能是运动会的每日成绩查询。查询功能：选取要查询的日期，单击查询按钮，即可查询到每日的所有运动员的详细成绩。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（5）名次查询：本菜单的功能是运动会的运

11、动员名次查询。查询功能：输入要查询的运动员姓名，单击查询按钮，即可查询到运动员的详细成绩。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。1.3.3成绩管理模块（1）成绩录入：本菜单的功能是运动员成绩的添加、删除及输出。添加功能：按照运动员的成绩的各项内容逐步输入，然后点击添加，再点击保存之后，新添加的内容就可以显示在表格中，并且保存在数据库中。(名次项在成绩排名中输入)删除功能：选中要删除的行，然后单击删除，保存，则可以删除掉成绩，并且更新数据库。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。（2）成绩排名：本菜单的功能是运动会各项项

12、目的名次排名，输出。排名功能：选中要进行排名的项目，然后点击排名，则可完成项目成绩的排序，并可在名次栏中依次按照排名顺序输入名次号。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（3）记录破平汇总：本菜单的功能是运动会运动员记录破平的查询。查询功能：选中要查询的内容，单击查询按钮，则可完成运动员成绩的破平的查询。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（4）项目排名汇总：本菜单的功能是运动会各个项目的运

13、动员成绩排名的查询。查询功能：选中要进行查询的项目，然后单击查询按钮，则可完成项目排名的查询。输出功能：单击输出按钮，即可输出完成的表中的内容到excel中，编辑并打印。刷新功能：点击刷新按钮，即可将表中的显示内容恢复到操作前的内容。（5）总成绩册：本菜单的功能是运动会总成绩的输出，点击输出按钮，即可输出表中的内容到excel中，编辑并打印。1.4系统开发的目标学校田径运动会管理系统是典型的信息管理系统，本系统为田径运动会运动会组织者提供方便、快捷的方法，系统的对运动会项目的各项信息进行合理的安排与管理，实现无纸化工作，节省大量人力和物力。本系统使用Visual Basic作为开发工具和Acc

14、ess作为后台数据库，充分利用VISUAL BASIC以及ACCESS数据库易于使用和快速开发的特性，提高了编程效率和可靠性，同时保证了系统的可用性和可靠性。2数据库设计2.1数据库的概念设计运动员运动员编号参赛日期性别属于参赛单位学院参加比赛项目比赛成绩项目项目记录类型图2.12.2系统的逻辑结构设计由E-R图转化为关系模式为：参赛单位（学院）运动员（运动员编号，日期，性别，学院）参加（运动员编号，项目，成绩）比赛项目（项目，项目记录，类型）化成3NF为：比赛项目（项目，项目记录，类型）参赛单位（参赛学院，参赛项目，参赛类别）项目记录（项目，成绩，创造者，创造者单位，创造地点）运动员编号范围

15、（学院，编号范围）2.3管理系统的物理结构设计图2.2图2.33总体设计登录系统比赛项目参赛单位项目记录运动员编号范围成绩录入成绩排名记录破评汇总项目排名汇总总成绩册运动员成绩项目成绩学员成绩每日成绩名次查询赛前管理成绩管理成绩查询帮助说明名次查询名次查询名次查询图3.14详细设计4.1用户登陆界面设计图4.1Private Sub Command1_Click()Dim yonghuming As StringDim mima As Stringyonghuming = administrator 设置用户名mima = 123456 设置密码If (Text1.Text = yonghum

16、ing And Text2.Text = mima) ThenForm2.ShowUnload Me 关闭窗口ElseMsgBox 用户名和密码输入不正确,请重新输入, , 登陆设置Text1.Text = Text2.Text = End IfEnd Sub4.2比赛项目设计图4.2Private Sub a1_Click()Form4.Show 比赛项目显示窗口End SubPrivate Sub a2_Click() 参赛单位显示窗口Form5.ShowEnd SubPrivate Sub a3_Click() 项目记录显示窗口Form7.ShowEnd SubPrivate Sub a

17、4_Click() 运动员编号范围显示窗口Form8.ShowEnd SubPrivate Sub b1_Click() 成绩录入显示窗口Form3.ShowEnd SubPrivate Sub b2_Click() 成绩排名显示窗口Form15.ShowEnd SubPrivate Sub b3_Click() 记录破评汇总显示窗口Form9.ShowEnd SubPrivate Sub b4_Click() 项目排名汇总显示窗口Form10.ShowEnd SubPrivate Sub b5_Click() 总成绩册显示窗口Form16.ShowEnd SubPrivate Sub c1_

18、Click() 运动员成绩显示窗口Form6.ShowEnd SubPrivate Sub c2_Click() 项目成绩显示窗口Form11.ShowEnd SubPrivate Sub c3_Click() 学院成绩显示窗口Form12.ShowEnd SubPrivate Sub c4_Click() 每日成绩显示窗口Form13.ShowEnd SubPrivate Sub c5_Click() 名次查询显示窗口Form14.ShowEnd SubPrivate Sub d1_Click()Shell notepad.exe 赛前管理帮助.txt, vbNormalFocus 打开记事

19、本文件End SubPrivate Sub d2_Click()Shell notepad.exe 成绩管理帮助.txt, vbNormalFocus 打开记事本文件End SubPrivate Sub d3_Click()Shell notepad.exe 成绩查询帮助.txt, vbNormalFocus 打开记事本文件End SubPrivate Sub d4_Click()Unload MeEnd Sub图4.3Private Sub Command1_Click() 添加数据Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Clic

20、k() 删除数据Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click() 保存数据On Error Resume NextAdodc1.Recordset.SaveEnd Sub4.3参赛单位设计图4.4Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()On Error Resume NextAdod

21、c1.Recordset.SaveEnd SubPrivate Sub Command4_Click()Dim i As IntegerDim j As IntegerDim k As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet 定义excel变量If Adodc1.Recordset.EOF = True Then 判断是否有记录可以输出MsgBox 没有数据可供导出！, , 数据输出 Excel 处于当前窗体ElseSet xlApp = Ne

22、w Excel.ApplicationSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1) 设置excel变量xlSheet.Columns.AutoFitMe.MousePointer = 11 设定鼠标指针的类型For k = 0 To DataGrid1.Columns.Count 1 DataGrid所有的列数xlSheet.Cells(1, k + 1) = DataGrid1.Columns(k).Caption 第一行为DataGrid的列标题NextDataGrid1.Scroll 0, -Data

23、Grid1.FirstRow 导出前拉动过垂直滚动条，这个非常重要DataGrid1.Row = 0For i = 0 To DataGrid1.ApproxCount 1 DataGrid的所有行数For j = 0 To DataGrid1.Columns.Count 1 DataGrid所有的列数,若将此数改小到不拉DataGrid的垂直滚动条的时候能看见的行数的时候正常DataGrid1.Col = jxlSheet.Cells(i + 2, j + 1) = DataGrid1.Text 从第二行显示DataGrid的内容NextIf i DataGrid1.ApproxCount

24、- 1 ThenDataGrid1.Row = DataGrid1.Row + 1End IfNextMe.MousePointer = 0 设定鼠标指针的类型MsgBox 导出成功！, , 数据输出 弹出对话框显示xlApp.Visible = True 显示excel文件Set xlApp = Nothing Excel 处于当前窗体Set xlBook = NothingSet xlSheet = NothingEnd IfEnd Sub4.4项目记录设计图4.5Private Sub Command1_Click()On Error Resume NextAdodc1.Recordse

25、t.Save 保存记录End SubPrivate Sub Command2_Click()Dim i As IntegerDim j As IntegerDim k As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet 定义excel变量If Adodc1.Recordset.EOF = True Then 判断是否有记录可以输出MsgBox 没有数据可供导出！, , 数据输出 Excel 处于当前窗体ElseSet xlApp = New Exce

26、l.ApplicationSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1) 设置excel变量xlSheet.Columns.AutoFitMe.MousePointer = 11 设定鼠标指针的类型For k = 0 To DataGrid1.Columns.Count 1 DataGrid所有的列数xlSheet.Cells(1, k + 1) = DataGrid1.Columns(k).Caption 第一行为DataGrid的列标题NextDataGrid1.Scroll 0, -DataGrid1.

27、FirstRow 导出前拉动过垂直滚动条，这个非常重要DataGrid1.Row = 0For i = 0 To DataGrid1.ApproxCount 1 DataGrid的所有行数For j = 0 To DataGrid1.Columns.Count 1 DataGrid所有的列数,若将此数改小到不拉DataGrid的垂直滚动条的时候能看见的行数的时候正常DataGrid1.Col = jxlSheet.Cells(i + 2, j + 1) = DataGrid1.Text 从第二行显示DataGrid的内容NextIf i DataGrid1.ApproxCount - 1 Th

28、enDataGrid1.Row = DataGrid1.Row + 1End IfNextMe.MousePointer = 0 设定鼠标指针的类型MsgBox 导出成功！, , 数据输出 弹出对话框显示xlApp.Visible = True 显示excel文件Set xlApp = Nothing Excel 处于当前窗体Set xlBook = NothingSet xlSheet = NothingEnd IfEnd Sub4.5运动员编号及成绩输出设计图4.6Private Sub Command1_Click()On Error Resume NextAdodc1.Recordse

29、t.MoveFirstAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()On Error Resume NextAdodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()On Error Resume NextAdodc1.Recordset.SaveEnd SubPrivate Sub Command4_Click()Dim i As IntegerDim j As IntegerDim k As IntegerDim xlApp As Excel.Applicatio

30、nDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet 定义excel变量If Adodc1.Recordset.EOF = True Then 判断是否有记录可以输出MsgBox 没有数据可供导出！, , 数据输出 Excel 处于当前窗体ElseSet xlApp = New Excel.ApplicationSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1) 设置excel变量xlSheet.Columns.AutoFitMe.MousePointer = 11 设