VF体育管管理信息系统课程设计

《VF体育管管理信息系统课程设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VFP隙合程為筱针報告体育馆管理系统日期：2010年06月14日一、总体说明体育馆管理系统可以为学生提供关于体育馆场地赛程安排相关信息的查询，为学生使用体育馆提供便利。录入模块可以录入上课课表、场地情况表、开放时间、赛程安排表等基本信息；修改模块可以修改上课课表、开放时间表、赛程安排表，修改包括添加.删除、插入编辑数据;查询模块可以查询当前上课班级、场地使用、赛程安排;打印模块可以为学生打印所须信息;退出模块可以退出该查询系统;二、功能模块结构图俸育馆管理索傥俸育信管殛系傥殳茨而PPPPV圭询录入轸发訂印還出VVVVVVVVVVVV三、变量说明（公

2、有、私有、本地变量）共设计了5个公共变量，一个i,一个tc,一个xm,—个cd,—个bj,其中i用于进入主页面的数据传递，tc用于退出的数据传递，xm>cd、bi用于查询时数据的传递。四、数据库、表的设计及描述该数据库包含了3个表，分别为：1.上课课表，字段名为班级（字符型）、场地（字符型）、时间（字符型）。用于记录上课班级、时间、场地。2.赛程安排表，字段名为场地（字符型）、时间（字符型）、项目（字符型）。用于记录比赛项目、吋间、场地。3.场地开放时间表，字段名为场地，（字符型），开放时间（字符型）。用于记录场地的开发时间。五、操作说明执行文件，

3、输入用户名10909密码123456进入系统主页面，主页面菜单中有查询、录入、修改、打印、退出五个模块，用户可根据自己的需要选择相应模块。五、各模块代码及结果图进入页面同体育馆管理蠢□叵区体育馆管理系统i=i+lpublica,ba=thisfbrm.textl.valueb=thisform.text2.valueifa=H10909°.and.b=”123456”doformbd2thisform.releaseelseifi>=3messagebox(n密码错超过3次，禁止进入！”)elsemessagebox(n你输入的用户名或密码第”+S

4、TR(i,l)+”次错误，请验证！”)thisform.textl.value=,HIthisform.text2^value=nnthisform.textl.setfocusendifendif“退出”命令代码：主页面:欢迎进入体育馆管理系统■“查询”中有三个选项：查班级、场地使用、查赛程，可以查询相应情况"查班级”代码：doformbjcx“场地使用”代码：doformcdcx“查赛程”代码：doformsccx“录入”中有三个选项：上课课表、开放时间、赛程安排，可以查询相应情况。"上课课表”代码：doformskkblr"开放时间”代码:d

5、oformsjlr“赛程安排”代码：doformscaplr“修改”中有三个选项：上课课表、开放时间、赛程安排，可以查询相应情况。“上课课表”代码：doformskkbsg"开放时间”代码：doformsjsg“赛程安排”代码:doformscapsg“打卬”中有三个选项：上课课表、开放时间、赛程安排，可以查询相应情况。"上课课表”代码:reportformskkballpreviewa开放时间”代码:reportformcdsyallpreview"赛程安排”代码：reportformscapallpreview“退出”命令过程：tc=messa

6、gebox（n你确定退出本系统吗?”,1+32+256,”退出”）docasecasetc=lquitcasetc=2returnendcase按班级查询：“查询”代码：bj=allt(thisform.textl.value)setexactonlocaforbj二班级iffound()thisform.text2.value=时间thisfoiTO.text3.value二场土也endif“退出”代码:thisform.release场地查询：回冈XINHU■■I护、“查询”命令代码：useskkbcd=allt(thisform.textl.

7、value)查询setexactonbrowforcd=场地fields时间，班级讦found()endifuse"退出”命令代码:thisform.release赛程查询：“查询”代码:xm=allt(thisform.textl.value)setexactonlocaforxm二项0iffound()thisform.text2.value=时间thisfoiTO.text3.value二场土也endif“退出”代码:thisform.release上课课表录入：“新增”命令：appendblankthisform.txt时间.refresh

8、thisform.txt班级.refreshthisform.txt场土也.refreshthisform.txt吋间.s