VF课程设计点名系统VF课程设计VisualFoxPro课程设计VFP课程设计

1、点名系统方案设计1、课程设计的目的数据库基础及应用是一门实用性很强的学科，是进行软件开发的主要基础。只有进行实际操作，才能将理论知识和实际应用有机地结合起来，锻炼学生分析解决问题得能力，提高学生实际运用的技能，为日后工作中的软件开发打下良好的基础。VFP是微软公司推出的关系型数据库管理系统，它是一种地形的第四代计算机语言，VFP全面支持可视化编程和面向对象的编程，是最为使用的数据库管理系统和中小型数据库应用系统的软件开发之一，它为数据库结构和应用软件开发而设计，是功能强大的面向对象的软件。本课程设计结合数据库内容，运用VFP设计，使学生掌握数据库基础内容。2、需求分析2.1需求在大学课堂中，课

2、堂提问是上课环节中不可缺少的部分，也是教师与学生课堂互动，交流，最直接的方式。但在大学的课堂中缺存在一些问题。对于学生来说，现在在大学生心理普遍的思想是：“千万别点我！”，一旦被老师点到则：“哎呀妈呀！今天点子真背！那么多人，怎么就点到我了呢？！"。还有一种情况就是，有些同学每节课都被提问，有些同学整个学期都得不到一次提问机会。 对于教师来说，同样存在一些提问上的问题。老师每次提问之前都会拿着点名表看了又看：“点谁好呢？”面对几百人的课堂想在其中“公平的”选出回答问题的同学，这是令我们教师非常头疼的事情。针对上述问题，提出程序设计需求如下：（1）此程序可以公平的选出提问的同学（2）此

3、程序可以排除掉已经被提问过的同学（3）此程序可以从提问次数少的同学中选一同学（4）此程序可以为多个班级的同学提供点名服务（5）此程序最后可以打印出一个学期整体提问次数和分数（6）此程序可以提供最多的点名次数不少于15次2.2分析首先，内部程序需要班级名次表作为点名表；对于公平的提问这一需求，可以使用VF自带的随机数函数，随机数函数可以返回一个随机值，将这个随机值作为学号来进行提问。每个班级每节课都配置一张提问表，这样就可以为多个班级多个课程提供点名服务。其次，对于“排除提问过的同学”这一需求可以这样满足：将点名表增加一个特殊的字段，把提问过的同学对应的字段做标记，用判断语句判断如果特殊字段已经

4、做了标记则下次不在提问。对于“从提问次数少的同学中选一个”需求可以这样满足：在点名表中增加一个次数字段，每次点名到时，将次数字段增加1次，点名时先中表中找到次数字段最少的同学提问，在使用随机函数随机选出一名同学。最后，在程序中增加报表功能，报表中包括次次数、总分等满足需求，对于“次数不少于15次”的需求，可以将表增加序列次数字段，每次提问都将获得的分数存放到相应的次数中。3、设计方案论证3.1系统结构3.2核心算法随机数算法在本程序中多次用到了随机函数，在VF中的rand()函数只能返回（0，1）之间的随机数，并不能返回我们需要的“学号”，因此我们必须对rand()函数做适当的操作，使其返回我

5、们需要的“学号”。分析，假如一个班级有40名同学，那么随机数算法给我们返回的数的范围一定是在040之间。假如一个班级有100名同学，那么随机数算法给我们返回的数的范围一定是在0100之间。因此根据数学算法，将rand()进行变形。X=int(10000*rand()%(max-mix)+mix)其中，max为序列的最大值，mix为序列的最小值，X为返回的随机数。如，一个班级有40人，则max的值就为40，mix的值就为1。则X返回的随机数一定在040之间。随机查找算法在随机输出“学号”时，有一种情况是我们没有考虑到的：当2个或者很多个同学回答的都没被提问过。换句话说，有n个同学的次数字段相同！

6、那么我们就需要从这些回答次数相同的同学中随机的选择一个！具体算法程序如下,其中X为查找的次数字段。located for cishu=Xif found()skip int(10000*rand()%(mixx-1)+1)contendifif found()显示此名同学的信息,定位指针elsego toplocated for cishu=0if found()显示此名同学的信息，定位指针endifendif下面的流程图会帮助理解随机查找算法图1：随机查找算法流程图3.2.3中介表思想在需求中教师不只是教一个班级，还有很多个班级，很多课要教，对点名模块的设计绝对不能只对一个表操作，一定要有很

7、多张表，且可以随意切换，用户选择哪张表，就点哪张表内的同学。首先，将用户选择的表所对应的表名存进一张“中介表”中；点名时在从“中介表”中“拿”出对应的表名，再在点名模块中打开这张表进行操作，思想体现如下：use mediatablereplace c with biao其中，biao中存放的是用户想点名的表的名字；mediatable为“中介表”；将biao中的内容存放在mediatable的C字段中，每次在使用点名模块点名的时候，都必须打开所有对应的表。use mediatablebiao=cclose mediatable use &biao点名主程序临时表和数据环境问题在生成报表

8、设计时，通过用户输入想生成报表的点名表的表名生成报表。但点名表都是用户自行创建的，此表当然也不在数据环境中，报表操作时，表必须在当前的数据环境中，为了解决这一问题，可以将“临时表”、“中介表”思想联合到一起，首先新建一个名为“baobiao“的报表和一个叫“baobiao”的临时表，将表“baobiao“加入当前数据环境中，生成报表时运行如下代码：set talk off set safety offuse baobiaodele all &&逻辑删除所有记录zap &&物理删除所有记录append from &biao fields xh,xm,cis

9、hu,zongfen &&追加表项report form baobiao to print preview &&浏览报表thisform.releaseuse &biao首先将表“baobiao“的内容删除，然后将用户选择的表中相关字段的内容加载到报表“baobiao“中，并浏览报表“baobiao“中的内容。3.3表结构设计 Student 表1：student表结构字段名类型宽度备注xhXmcishuFirstSeconddfourthzongfen数值型字符型数值型数值型数值型数值型数值型81032223用于存放学生的学号用于存放学生的姓名用于存放

10、回答次数用于存放回答次数用于存放回答次数用于存放回答次数用于存放总分 Login表2：login表的结构字段名类型长度备注namepassword字符字符1010用于存放用于的登录名用于存放登录的密码mediatable表3：mediatable的结构字段名类型长度备注ABCD字符字符字符字符10101010用于存放中介变量的临时字段用于存放中介变量的临时字段用于存放中介变量的临时字段用于存放中介变量的临时字段3.4表单设计登录框图2：登录框的表单设计其中的控件信息如下表所示：表4：登录框模块中的控件控件名属性名属性值备注Label1Label2Text1captionCaption用户名密码

11、提示输入用户名提示输入密码Value接收用户名续表4：Test2Command1Command2Command2valueCaptionCaption登录清除接收用户密码登录按钮清除按钮Caption退出退出按钮以下是登录框各个按钮的click事件：表5：登录框代码表登录清除退出name=alltrim(thisform.text1.value)password=alltrim(thisform.text2.value)use login &&在login表里查找locate for =name and login.password=passwordif f

12、ound()thisform.releasedo form 主页面 &&打开主页面elsemessagebox("用户名或密码不正确","提示")thisform.text2.value=""thisform.text1.value=""Endifthisform.text1.value=""thisform.text2.value=""Thisform.release普通点名图5：普通点名的表单设计单击“下一个”按钮，可以显示随机函数返回的随机数。“下一个”

13、按钮的click事件代码为：use mediatablego topa0=val(mediatable.a) &&将从中介表接收的值存进当前变量b0=val(mediatable.b)thisform.label1.caption=alltr(str(10000*rand()%(b0-a0)+a0) &&随机数算法普通设置图6：普通设计的表单设计 此表单可以将起始值，终止值存如程序中，单击“确定”按钮，完成设置。“确定”按钮的click事件的代码为：replace a with aa &&将获得的初始值存进表中replace b with bbm

14、essagebox("设置成功","提示")thisform.release高级点名图7：高级点名的表单设计 单击“随便选一个”按钮可以随机挑选一名同学。“随便选一个”按钮的click事件代码为：use mediatable biao=c thisform.label6.caption="正在使用"+allt(mediatable.c)+"表" &&显示当前使用的表 use mediatable xh=0 publ X use &biao &&利用宏替换打开表 mixx=re

15、cc() &&将表中的记录数赋给变量mixx x=int(10000*rand()%(mixx-1)+1) &&随机产生随机数 locate for xh=xif found() thisform.label1.caption="请"+allt(str(xh)+"号"+allt(xm)+"同学回答问题" replace cishu with cishu+1 &&将表中的cishu字段+1 thisform.label2.caption="请为"+allt(str(xh

16、)+"号同学打分" thisform.label5.caption="未打分" endif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+ +thirtieth)/30 int(pingjun) &&计算平均分 thisform.label3.caption="这名同学已经获得"+allt(str(cishu)+"次提问的机会，平均分为"+allt(str(pingjun)+"分" 单击“从没点到的同学选一个”按钮

17、可以随机挑选出一个同学。“从没点到的同学选一个”按钮的click事件代码为：use mediatablebiao=mediatable.cthisform.label6.caption="正在使用"+allt(mediatable.c)+"表"use mediatablexh=0use &biao &&利用宏替换打开表 go topmixx=recc() &&将表中的记录数赋给变量mixxstr(10000*rand()%(mixx-1)+1) &&随机产生随机数loca for cishu=0if

18、 found()skip int(10000*rand()%(mixx-1)+1) &&向下条随机数个记录contendifif found() thisform.label1.caption="请"+allt(str(xh)+"号"+allt(xm)+"同学回答问题" replace cishu with cishu+1 thisform.label2.caption="请为"+allt(str(xh)+"号同学打分" thisform.label5.caption="

19、;未打分"elseendifpingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eighth +thirtieth)/30int(pingjun)thisform.label3.caption="这名同学已经获得"+allt(str(cishu)+"次提问的机会，平均分为"+allt(str(pingjun)+"分"if eof()=.T. &&如果指针定位到表尾，说明没有查找到thisform.label3.caption="同学们至少被

20、提问了一次，请选择左侧提问一个次数少的同学"thisform.label1.caption=""endif单击“从次数少的同学中选一个”按钮可以将随机挑选一个回答次数少的同学。“从次数少的同学中选一个”按钮的click事件代码为：use mediatablebiao=mediatable.cthisform.label6.caption="正在使用"+allt(mediatable.c)+"表"use mediatableuse &biao &&利用宏替换打开表go topmixx=recc() &a

21、mp;&将表中的记录数赋给变量mixxmix=cishuskipdo while .not.eof() &&利用while循环找到cishu字段最少的值if cishu<mixmix=cishuendifskipenddogo toploca for cishu=mix &&查找次数少的同学if found()skip int(10000*rand()%(mixx-1)+1) &&向下条随机数个指针contendifif found() thisform.label1.caption="请"+allt(str(x

22、h)+"号"+allt(xm)+"同学回答问题" replace cishu with cishu+1 thisform.label2.caption="请为"+allt(str(xh)+"号同学打分" thisform.label5.caption="未打分"elsego toploca for cishu=mix if found() thisform.label1.caption="请"+allt(str(xh)+"号"+allt(xm)+"

23、;同学回答问题" replace cishu with cishu+1 thisform.label2.caption="请为"+allt(str(xh)+"号同学打分" thisform.label5.caption="未打分" endifendif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eighttwentynint+thirtieth)/30int(pingjun)thisform.label3.caption="这名同学已经获得&qu

24、ot;+allt(str(cishu)+"次提问的机会，平均分为"+allt(str(pingjun)+"分"“打分条”按钮组可以设置同学获得的分数。“打分条”的click事件代码为：do case case this.value=1 thisform.label5.caption="该同学将获得1分" &&每次点击时，在label5上显示状态 case this.value=2 thisform.label5.caption="该同学将获得2分" case this.value=3 thisfor

25、m.label5.caption="该同学将获得3分" case this.value=4 thisform.label5.caption="该同学将获得4分" case this.value=5 thisform.label5.caption="该同学将获得5分"endcase“打分”按钮的click事件代码为： &&将选项按钮组的返回值赋给ndo case case cishu=1 &&将次数对应的字段值赋予对应的分数 replace first with n case cishu=2 replac

26、e secondd with n （省略） case cishu=30 replace thirtieth with nendcasethisform.label5.caption="打分成功"选择表图8：选择表的表单设计 单击“使用”按钮可以将想要点名的“表”输入进程序。“使用”按钮的click事件代码为：use mediatablereplace c with biao &&将用户的表名传递给中介表wait "选择成功" windows at 30,120 timeout 1thisform.releaseclose tables选择

27、同学图9：打分的表单设计点击“打分”按钮给同学打分。“打分”按钮的click事件代码为：xx=val(thisform.text1.value) locate for xh=xx if found () replace cishu with cishu+1 &&将当前cishu字段+1 else messagebox("未找到","提示") endifdo case case cishu=1 replace first with ncase cishu=2replace secondd with ncase cishu=3replace

28、third with ncase cishu=4replace fourth with ncase cishu=5replace fifth with n（省略）case cishu=30replace thirtieth with nendcasewait "打分成功" windows at 30,120 timeout 1close tablesthisform.release查询表图10：查询的表单设计“查询”按钮的click事件代码为：生成报表图11：生成报表的表单设计“生成”按钮的click事件代码为：set talk off &&关闭安全提示se

29、t safety off &&关闭安全提示use baobiaodele all &&逻辑删除所有记录zap &&物理删除所有记录append from &biao fields xh,xm,cishu,zongfen &&将用户所输入表中的内容追加到中介表中report form baobiao to print preview &&阅览中介表（报表）thisform.releaseuse &biao修改表图11：编辑的表单设计各个按钮的click事件如下：代码表确定添加修改删除publ biao

30、biao=alltrim(thisform.text1.value)thisform.grid1.recordsource=biaogo bottomappend blankeditthisform.refresheditthisform.refreshtempstr=messagebox("确定要删除这个同学吗?",4+32+256,"删除记录")if tempstr=6deletepackthisform.grid1.recordsource='学生'thisform.refreshendif3.5菜单设计表2：主菜单一级菜单二级菜单过程代码文件退出Quit点名普通点名高级点名添加表修改表查询生成报表Do form 普通点名Do form 高级点名Do form添加表Do form修改表Do form查询Do form生成报表编辑3.6表设计中介表表3：mediatableABCD登录表表4：loginNamepassword王诗洋123admin123123admin点名表表5：studentXhXmcishuFirstSeconddThirthFourthzongfen1李蕾2汤勤书3李纯漪4鞠振东5赵晓宇6赵海年4、运行结果与反馈4.1运行结果登录模块输入用户名和密码点击“登录”按钮，如图12所