摘 要：推门听课是许多学校采用的一种教师管理制度，可以很好地约束教师备好课、上好课、提高课堂教学水平、加强教学过程管理。文章使用VFP为编程环境来实现随机推广听课系统制作和开发的技术，该系统是通过可行性分析、需求分析和设计开发的，具备方便、随机的特点，为学校采取推门听课制度提拱了基础，保障了课堂的建全发展。
　　关键词：推门听课；随机；VFP
　　中图分类号：TP315文献标识码：B 文章编号：1673-8454（2011）02-0081-03
　　
　　 一、系统分析与设计
　　1.需求分析
　　在电脑普及之前，学校听课采取的是手工的安排，这样会导致有的教师、有的科目重复，更有可能造成被听课的教师提前知道，以做好准备。使用随机听课系统，可以快速、简便地确定要听的科目和教师，而且可以避免重复听一个教师的课和科目。这样可以很好地提高课堂效率，提升教师的课堂教学效果。
　　2.功能设计
　　根据需求分析的结果，“随机听课系统”主要由随机抽取、清空、次数归零、采用、重新抽取等五大功能组成，同时被抽取听课的教师有三位。基本设计概念及处理流程如图1所示。
　　 在整个系统中，随机抽取和重新抽取的设计是难点，它涉及随机函数的应用。如果该教师以前被抽取过，或该次被听课的三人有相同学科，那么再用重新抽取功能再次抽取，以求达到最佳的平衡，使学校可以对教师和学科的管理更加普及。
　　二、数据库与功能代码实现
　　1.数据库设计
　　通过VFP自带的数据库，建立如图2所示DBF格式数据表，该表取名为“教师名单”，包含字段有“序号”、“年级”、“学科”、“被抽次数”。
　　2.代码设计
　　在主窗体初始化中，我们使用以下代码，其中rand()是随机函数，而m = RAND(-1)的作用是，每次使用系统时，我们使用的随机函数种子是时钟，这样生成的随机数序列将不重复。在m = int(t*rand()%r 1)中，t的值取决于r,如果教师在百人以下，则为100，如果在千人以下百人以上，则取1000，以此类推，在这个实例中，我们取的是1000。这样，m就会是在0至r中随机取值，m代表是“教师名单”数据表中某一位教师的指针。
　　 SET exact ON
　　 PUBLIC f,h1,h2,h3,k1,k2,k3,m
　　 f = 0
　　 h1 = 0
　　 h2 = 0
　　 h3 = 0
　　 k1 = ’ ’
　　 k2 = ’ ’
　　 k3 = ’ ’
　　 thisform.command2.Enabled = .F.
　　 thisform.command4.Enabled = .F.
　　 thisform.command5.Enabled = .F.
　　 thisform.command6.Enabled = .F.
　　 thisform.command7.Enabled = .F.
　　 m = RAND(-1)
　　在随机抽取功能中使用以下主要代码，实现第一次随机抽取抽出三位不同的教师。
　　 USE 教师名单
　　 COUNT FOR 序号 < 1000 to r
　　 if r < 1000 and r > 100 then
　　 t = 1000
　　 ENDIF
　　 x = 1
　　 DO WHILE x < 4
　　 m = int(t*rand()%r 1)
　　 goto m
　　 IF x = 1 THEN
　　 h1 = 序号
　　 x1 = ALLTRIM(姓名)
　　 k1 = ALLTRIM(学科)
　　 n1 = ALLTRIM(年级)
　　 c1 = 被抽次数
　　 ENDIF
　　 IF x = 2 THEN
　　 k2 = ALLTRIM(学科)
　　 IF k2 <> k1 THEN
　　 h2 = 序号
　　 x2 = ALLTRIM(姓名)
　　 k2 = ALLTRIM(学科)
　　 n2 = ALLTRIM(年级)
　　 c2 = 被抽次数
　　 ELSE
　　 k2 = ’ ’
　　 ENDIF
　　 ENDIF
　　 IF x = 3 THEN
　　 k3 = ALLTRIM(学科)
　　 IF k3 <> k1 AND k3 <> k2 THEN
　　 h3 = 序号
　　 x3 = ALLTRIM(姓名)
　　 k3 = ALLTRIM(学科)
　　 n3 = ALLTRIM(年级)
　　 c3 = 被抽次数
　　 ELSE
　　 k3 = ’ ’
　　 ENDIF
　　 ENDIF
　　 ENDDO
　　 USE
　　在重新抽取功能中，主要使用以下代码，如果第一次抽取的三位教师中有相同学科或以前被抽取过多次，则使用该功能，就会重新随机抽取另一位教师。
　　 USE 教师名单
　　 COUNT FOR 序号 < 1000 to r
　　 if r < 1000 and r > 100 then
　　 t = 1000
　　 ENDIF
　　 x = 1
　　 DO WHILE x < 2
　　 m = int(t*rand()%r 1)
　　 goto m
　　 IF x = 1 THEN
　　 h1 = 序号
　　 x1 = ALLTRIM(姓名)
　　 k1 = ALLTRIM(学科)
　　 n1 = ALLTRIM(年级)
　　 c1 = 被抽次数
　　 IF k1 <> k2 AND k1 <> k3 AND x1 <> ’黄涛’ THEN
　　 x = x 1
　　 ENDIF
　　 ENDIF
　　 ENDDO
　　 USE
　　在清空和次数归零功能中，实现把抽取的三位教师信息清空，再重新抽取，而数据归零则为把所有教师都重新设为零次。
　　 清空主要代码：
　　 tk.xm1.caption = ’ ’
　　 tk.xm2.caption = ’ ’
　　 tk.xm3.caption = ’ ’
　　 tk.xk1.caption = ’ ’
　　 tk.xk2.caption = ’ ’
　　 tk.xk3.caption = ’ ’
　　 tk.nj1.caption = ’ ’
　　 tk.nj2.caption = ’ ’
　　 tk.nj3.caption = ’ ’
　　 tk.cq1.caption = ’ ’
　　 tk.cq2.caption = ’ ’
　　 tk.cq3.caption = ’ ’
　　次数归零主要代码：
　　 USE 教师名单
　　 REPLACE ALL 被抽次数 WITH 0
　　 use
　　在采用功能中，如果已选定了三位被听课的教师，那么该三位教师将会在被抽次数上累加一次：
　　 REPLACE ALL 被抽次数 WITH 被抽次数 1 FOR 序号 = h1 OR 序号 = h2 OR 序号 = h3
　　
　　 三、运行环境
　　1.硬件设备
　　 本软件运行所需硬件设备（计算机）的最低配置为：
　　 CPU：奔腾3 （主频500MHz及以上）
　　 内存：128M或以上
　　硬盘：6G或以上
　　2.开发环境
　　本系统在Microsoft Windows XP下进行设计开发及调试，程序以Visual Foxpro 9.0为软件来完成程序的开发。
　　
　　 结束语
　　随机推门听课是一项严谨又非常细致的工作，有利于学校课堂教学和教师的发展，可以促使教师提升自身的业务能力，对一个学校的长远发展有着重要的作用。本文介绍了以Visual Foxpro 9.0为编程环境制作的随机听课系统，该系统操作简便，界面友好，灵活、安全，经过实际使用证明，该系统完全满足学校听课制度的实施。（编辑：鲁利瑞）