毕业设计（论文）-比赛评分及现场抓奖系统.doc

中央广播电视大学 毕业设计（论文）写作提纲一、概述1.课题来源2、系统需求3、可行性分析（1）系统开发的目的和意义（2）开发工具的选择二、系统分析1、业务流程分析2、数据流程分析3、功能分析：功能层次图三、系统总体设计1、软件模块结构设计2、数据库设计四、系统详细设计五、系统的实现1、系统开发环境2、系统测试3、系统运行与维护目 录内容摘要3一、概述31.课题来源32、系统需求43、可行性分析4（1）系统开发的目的和意义4（2）开发工具的选择5二、系统分析61、业务流程分析62、数据流程分析：63、功能分析：功能层次图7三、系统总体设计81、软件模块结构设计82、数据库设计8四、系统详细设计91、系统运行的主要界面介绍92、程序源代码15五、系统的实现581、系统开发环境582、系统测试593、系统运行与维护60六、结束语61参考文献62比赛评分及现场抓奖系统内容摘要：随着计算机技术的飞速发展，计算机在各行各业都得到了广泛的应用，本系统是采用功能强大的visual foxpro6.0开发的一个比赛评分及现场抓奖系统，可应用于文艺比赛、歌咏比赛、演讲比赛、模特比赛、述职竞选等需要评委打分的场合。整个系统从符合操作简便、界面友好、功能齐全的要求出发，完成对评委打分方式的比赛现场全过程进行设计，对比赛的各类信息能及时、有效的记录、反映、分析、统计。如果结合投影或电视，在现场播放，会制造出强烈的视听感受，烘托出专业的现场气氛，体现评委的公正裁决。其中的抓奖系统是极具娱乐性的抽奖活动，将会有效活跃比赛活动的气氛。关键词：计算机应用 比赛评分管理 比赛评分及现场抓奖系统一、概述1.课题来源随着计算机技术的飞速发展，计算机在各行各业都得到了广泛的应用，对于各类比赛来说更有很大的应用空间。本系统应用的方式是采用评委直接在书写板上手写分数，主持人宣布评委举牌亮分，从一号评委至最后一位评委，主持人中等语速依次报分，专门的计算机录入人员可以很轻松的跟随主持人的报分速度进行评委打分录入。主持人报分完毕，竞赛软件立即可以得出该选手的最后分数。且分数随着主持人的公布在屏幕逐渐打出，实现了观众监督，体现公平公正公开的效果。同时还设置了现场抓奖系统，现场抓奖系统首先设定了抓奖号码为1-1000号，抽奖人员可以通过电脑按键随机抽取其中的号码，来选定具有中奖机会的人员，拥有中奖机会的人员还可以继续通过电脑来抽取奖品，具有较强的实用性和娱乐性。 2、系统需求 通过调查,系统需求如下: （1）要求系统有良好的人机界面，功能齐全，易于操作。（2）由专门的计算机录入人员录入评委打分。 （3）系统提供评委和选手信息维护功能。 （4）系统按选手比赛成绩进行排名，并列出排行榜。（5） 抓奖号码随机抽取。（6）中奖人员可以通过抓奖系统抽取奖品。3、可行性分析（1）系统开发的目的和意义本系统的设计是面向比赛评委打分的场合，对比赛的各类信息能及时、有效的记录、反映、分析、统计。如果结合投影或电视，在现场播放，会制造出强烈的视听感受，烘托出专业的现场气氛，体现评委公正裁决。其中的抓奖系统是极具娱乐性的抽奖活动，将会有效活跃比赛活动的气氛。 （2）开发工具的选择本系统的设计可以在windows xp中文版操作系统环境下，使用visual foxpro 6.0中文版进行开发，来实现系统需求。目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：visual foxpro是一种数据库管理系统和数据库应用系统开发工具，它是为数据库结构和应用程序开发而设计的功能强大的、面向对象的环境。无论是组织信息、运行查询、创建集成的关系型数据库系统，还是为最终用户编写功能的数据管理应用程序，visual foxpro都可以提供所需的所有工具。. visual foxpro数据库管理系统既可以作为小型mis的开发平台，也可以作为大型数据库系统的前端开发工具。visual foxpro可借助工具条、对象、可视控件来自动完成界面的设计并执行各种任务，同时不牺牲任何数据库性能。不再只通过代码来完成任务，新环境让用户图形化地直接地操作文件、表、对象和类，直观地、创造性建立应用程序。系统占用资源少，易于操作，简单易学，是良好的数据库系统教学语言。二、系统分析1、业务流程分析 （1）选手管理业务流程图 编号、姓名、性别、年龄输入计算机输出选手 （2）评委管理业务流程图： 编号、姓名、性别、年龄输入计算机输出评委 （3）比赛成绩管理业务流程图：分数输出输入计算机比赛成绩2、数据流程分析： （1）数据流程图：本系统涉及的数据流程不多，下面仅以选手成绩管理模块为例来进行编制。选手信息情况选手比赛评分管理系统排行榜评委人员查询、统计评委信息情况比赛成绩分数评委人员比赛评分系统数据流程图3、功能分析：功能层次图比赛评分及现场抓奖系统退出现场抓奖系统比赛评分系统退出编辑评委打分查询统计抽取奖品抽取中奖资格人选手信息维护评委信息维护排行榜评委信息选手信息排行榜统计得分当前比赛打分三、系统总体设计1、软件模块结构设计 通过认真对比赛评分及现场抓奖系统的调研与分析，系统主要应完成的功能如下：比赛评分系统（评委打分、查询统计、系统设置）、现场抓奖系统功能（抽取中奖资格人、抽取奖品）等功能，详见功能层次图。选手最后得分取9位评委打分的平均分数。2、数据库设计visual foxpro简单、易学、容易实现，在我国一直作为普及教育数据库的软件，具有广泛的用户群。visual foxpro自带数据库管理系统和语言开发工具，是解释型和编译型混合的系统，可采用命令方法定义和操作数据库，也可将数据库操作编写为程序，编译后脱离visual foxpro直接运行。（1）本系统中所涉及到的主要实体 本系统共有两个数据表：bsfs选手信息表和bwxx评委信息表结构实体如下： （2）各表的物理结构如下：bsfs选手信息表：字段名类型宽度小数位编号数值型30姓名字符型10性别字符型年龄数值型20f1数值型102f2数值型102f3数值型10f4数值型10f5数值型102f6数值型102f7数值型10f8数值型102f9数值型10hj数值型10mc数值型30pwxx选手信息表：字段名类型宽度小数位编号数值型2姓名字符型8性别字符型2年龄整型四、系统详细设计 本部分主要内容为本系统的运行界面以及程序源代码。1、系统运行的主要界面介绍系统主界面如下：（2）选“比赛评分系统”按钮，出现如下界面（比赛评分系统分主界面）：选“当前选手打分”菜单，出现如下界面：在比赛评分系统分主界面：选“排行榜”菜单，出现如下界面：选“选手参赛信息”菜单，出现如下界面：在比赛评分系统分主界面选“选手信息维护”菜单，出现如下界面：（2）在主界面，选“现场抓奖系统”按钮，出现如下界面点击“开始” 进行抽取中奖资格人，选择“抓取奖品”按钮，界面如下：通过选取“0-9”数字选取奖品，如：8 2、程序源代码比赛评分及现场抓奖系统程序清单*- 类库: d:pfzjbdxx1.vcx*- 类: dbxx1 (d:pfzjbdxx.vcx)*- 父类: form*- 基类: form*define class dbxx1 as formtop = 11left = 32height = 282width = 461showwindow = 0docreate = .t.showtips = .t.caption = 比赛评分及抓奖系统alwaysonbottom = .f.name = dbxx1add object label1 as label with ;fontsize = 20, ;caption = 比赛评分及现场抓奖系统, ;height = 61, ;left = 84, ;top = 12, ;width = 301, ;name = label1add object db11 as commandbutton with ;top = 84, ;left = 120, ;height = 37, ;width = 205, ;caption = 比赛评分系统, ;name = db11add object db22 as commandbutton with ;top = 132, ;left = 120, ;height = 36, ;width = 205, ;caption = 现场抓奖系统, ;name = db22add object db33 as commandbutton with ;top = 180, ;left = 120, ;height = 37, ;width = 205, ;caption = 退出, ;name = db33procedure init&set defa to g:pfzjset talk offset safe offendprocprocedure db11.click& clear windows& clear alldo form mume11&do form ddff & linkedendprocprocedure db22.clickdo form zj00endprocprocedure db33.clickthisform.release clear events quit retuendprocenddefine*- 结束定义: dbxx1*- 类库: d:pfzjmume11.vcx*- 类: mume11 (d:pfzjmume11.vcx)*- 父类: form*- 基类: form*define class mume11 as formshowwindow = 2docreate = .t.caption = 比赛评分系统windowstate = 2name = mume11procedure initdo 992.mpr with thisset delete on sele 1use bsfsendprocenddefine*- 结束定义: mume11* * * * * 03/25/10 992.mpr 23:17:54 * * * * * * * authors name * * * * copyright (c) 2010 company name * * address * * city, zip * * * * description: * * this program was automatically generated by genmenu. * * * * to attach this menu to your top-level form, * call it from the init event of the form:* syntax: do with ,|*oformref - form object reference (this)*cmenuname - name for menu (this is required for append menus - see below)*lrename - renames name property of your form*luniquepopups - determines whether to generate unique ids for popup names* example:*procedure init*do mymenu.mpr with this,.t.*endproc* use the optional 2nd parameter if you plan on running multiple instances* of your top-level form. the preferred method is to create an empty string* variable and pass it by reference so you can receive the form name after* the mpr file is run. you can later use this reference to destroy the menu.*procedure init*local cgetmenuname*cgetmenuname = *do mymenu.mpr with this, m.cgetmenuname*endproc* the logical lrename parameter will change the name property of your * form to the same name given the menu and may cause conflicts in your * code if you directly reference the form by name.* you will also need to remove the menu when the form is destroyed so that it does * not remain in memory unless you wish to reactivate it later in a new form.* if you passed the optional lrename parameter as .t. as in the above example, * you can easily remove the menu in the forms destroy event as shown below.* this strategy is ideal when using multiple instances of top-level forms.*example:*procedure destroy*release menu (this.name) extended*endproc* using append/before/after location options:* you might want to append a menu to an existing top-level form by setting * the location option in the general options dialog. in order to do this, you * must pass the name of the menu in which to attach the new one. the second* parameter is required here. if you originally created the menu with the lrename * parameter = .t., then you can update the menu with code similar to the following:*example:*do mymenu2.mpr with thisform,thisform.name* using luniquepopups:* if you are running this menu multiple times in your application, such as in multiple * instances of the same top-level form, you should pass .t. to the luniquepopups * parameter so that unique popup names are generated to avoid possible conflicts.*example:*procedure init*do mymenu.mpr with this,.t.,.t.*endproc* note: parm4-parm9 are not reserved and freely available for use with your menu code.*lparameters oformref, getmenuname, luniquepopups, parm4, parm5, parm6, parm7, parm8, parm9local cmenuname, ntotpops, a_menupops, ctypeparm2, csaveformnameif type(m.oformref) # o or ; lower(m.oformref.baseclass) # form or ; m.oformref.showwindow # 2messagebox(this menu can only be called from a top-level form. ensure that your forms showwindow property is set to 2. read the header section of the menus mpr file for more details.)returnendifm.ctypeparm2 = type(m.getmenuname)m.cmenuname = sys(2015)m.csaveformname = m.oformref.nameif m.ctypeparm2 = c or (m.ctypeparm2 = l and m.getmenuname)m.oformref.name = m.cmenunameendifif m.ctypeparm2 = c and !empty(m.getmenuname)m.cmenuname = m.getmenunameendifdimension a_menupops3if type(m.luniquepopups)=l and m.luniquepopupsfor ntotpops = 1 to alen(a_menupops)a_menupopsm.ntotpops= sys(2015)endforelsea_menupops1=评委打分a_menupops2=查询统计a_menupops3=编辑endif* * * * * menu definition * * * *define menu (m.cmenuname) in (m.oformref.name) bardefine pad _2wa1dxq1y of (m.cmenuname) prompt 评委打分 color scheme 3define pad _2wa1dxq1z of (m.cmenuname) prompt 查询统计 color scheme 3define pad _2wa1dxq20 of (m.cmenuname) prompt 编辑 color scheme 3define pad _2wa1dxq21 of (m.cmenuname) prompt 退出 color scheme 3on pad _2wa1dxq1y of (m.cmenuname) activate popup (a_menupops1)on pad _2wa1dxq1z of (m.cmenuname) activate popup (a_menupops2)on pad _2wa1dxq20 of (m.cmenuname) activate popup (a_menupops3)on selection pad _2wa1dxq21 of (m.cmenuname) ;do _2wa1dxq22 ;in locfile(pfzj992 ,mpx;mpr|fxp;prg ,where is 992?)define popup (a_menupops1) margin relative shadow color scheme 4define bar 1 of (a_menupops1) prompt 当前选手打分define bar 2 of (a_menupops1) prompt 统计得分on selection bar 1 of (a_menupops1) ;do _2wa1dxq29 ;in locfile(pfzj992 ,mpx;mpr|fxp;prg ,where is 992?)on selection bar 2 of (a_menupops1) ;do _2wa1dxq2c ;in locfile(pfzj992 ,mpx;mpr|fxp;prg ,where is 992?)define popup (a_menupops2) margin relative shadow color scheme 4define bar 1 of (a_menupops2) prompt 排行榜define bar 2 of (a_menupops2) prompt 选手参赛信息define bar 3 of (a_menupops2) prompt 评委信息on selection bar 1 of (a_menupops2) do form grid2tjon selection bar 2 of (a_menupops2) report form pxt2 previewon selection bar 3 of (a_menupops2) report form pw1 previewdefine popup (a_menupops3) margin relative shadow color scheme 4define bar 1 of (a_menupops3) prompt 评委信息维护define bar 2 of (a_menupops3) prompt 选手信息维护on selection bar 1 of (a_menupops3) do form gridpwon selection bar 2 of (a_menupops3) ;do _2wa1dxq2g ;in locfile(pfzj992 ,mpx;mpr|fxp;prg ,where is 992?)activate menu (m.cmenuname) nowaitif m.ctypeparm2 = cm.getmenuname = m.cmenunamem.oformref.name = m.csaveformname endif* * * * * _2wa1dxq22 on selection pad * * * * procedure origin: * * * * from menu: 992.mpr, record: 16 * * called by: on selection pad * * prompt: 退出 * * snippet: 1 * * * *procedure _2wa1dxq22* * * * * _2wa1dxq29 on selection bar 1 of popup 评委打分 * * * * procedure origin: * * * * from menu: 992.mpr, record: 5 * * called by: on selection bar 1 of popup 评委打分 * * prompt: 当前选手打分 * * snippet: 2 * * * *procedure _2wa1dxq29do form ddff* * * * * _2wa1dxq2c on selection bar 2 of popup 评委打分 * * * * procedure origin: * * * * from menu: 992.mpr, record: 6 * * called by: on selection bar 2 of popup 评委打分 * * prompt: 统计得分 * * snippet: 3 * * * *procedure _2wa1dxq2cdo form grid2tj* * * * * _2wa1dxq2g on selection bar 2 of popup 编辑 * * * * procedure origin: * * * * from menu: 992.mpr, record: 15 * * called by: on selection bar 2 of popup 编辑 * * prompt: 选手信息维护 * * snippet: 4 * * * *procedure _2wa1dxq2gdo form grid1*- 类库: d:pfzjddff.vcx*- 类: ddff (d:pfzjddff.vcx)*- 父类: form*- 基类: form*define class ddff as formtop = 15left = 33height = 350width = 554showwindow = 2docreate = .t.caption = 评委打分alwaysonbottom = .t.name = form1add object txt编号 as textbox with ;comment = , ;controlsource = bsfs.编号, ;height = 20, ;inputmask = , ;left = 92, ;readonly = .t., ;tabindex = 2, ;top = 48, ;width = 30, ;name = txt编号add object lbl编号 as label with ;autosize = .t., ;wordwrap = .t., ;backstyle = 0, ;caption = 编号, ;left = 60, ;top = 48, ;width = 24, ;tabindex = 1, ;name = lbl编号add object txt姓名 as textbox with ;comment = , ;controlsource = bsfs.姓名, ;height = 20, ;left = 180, ;maxlength = 10, ;readonly = .t., ;tabindex = 4, ;top = 48, ;width = 69, ;name = txt姓名add object lbl姓名 as label with ;autosize = .t., ;wordwrap = .t., ;backstyle = 0, ;caption = 姓名, ;height = 16, ;left = 145, ;top = 50, ;width = 24, ;tabindex = 3, ;name = lbl姓名add object txt年龄 as textbox with ;comment = , ;controlsource = bsfs.年龄, ;height = 20, ;left = 392, ;readonly = .t., ;tabindex = 7, ;top = 48, ;width = 26, ;name = txt年龄add object lbl年龄 as label with ;autosize = .t., ;wordwrap = .t., ;backstyle = 0, ;caption = 年龄, ;left = 360, ;top = 48, ;width = 24, ;tabindex = 6, ;name = lbl年龄add object txtf1 as textbox with ;comment = , ;controlsource = bsfs.f1, ;height = 20, ;inputmask = 99.99, ;left = 76, ;tabindex = 9, ;top = 100, ;width = 69, ;name = txtf1add object lblf1 as label with ;autosize = .t., ;wordwrap = .t.