基于Foxtable的女生课余体育活动查询系统的构建

郐淑娥

［摘要］课外体育活动作为学校体育的重要内容，是实现学校体育目的和任务的一条十分重要的、必不可少的途径，也是学生课余生活的重要内容。近年来，随着高校招生规模的不断扩大，学校体育面临着极大的挑战，大班级的体育授课模式，势必影响体育课的练习密度和强度。长此以往，必然导致学生体能的下降。本文通过对我校大一至大三300名女生课余体育活动的参与情况及影响因素进行的抽样调查，利用Foxtable的统计功能进行了统计分析，并在此基础上建立了女生课余体育活动查询系统。

［关键词］ Foxtable； 体育活动； 查询系统； 构建

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 18. 040

［中图分类号］TP315［文献标识码］A［文章编号］1673 - 0194（2012）18- 0073- 02

Ｆｏｘｔａｂｌｅ是将Ｅｘｃｅｌ、Ａｃｃｅｓｓ、Ｆｏｘｐｒｏ以及易表的优势融合在一起，其功能有数据录入、查询、统计以及报表生成等。同时Ｆｏｘｔａｂｌｅ又是一个高效的．ｎｅｔ平台开发工具，专门针对数据管理软件的开发作了大量的优化，其开发效率十倍于其他专业开发工具。本文分别利用其查询与统计功能，分别对３００份问卷进行了体育活动频率分析、参与时间分析、主要目的分析等，并在此基础上建立了女生课余体育活动查询系统。

1统计表的建立

单击“新建”，在打开的“创建项目”对话框中，输入项目名称“成绩查询”，选择“创建表”标签，分别创建频率表、时间表、目的表、项目表、形式表等，如图１-２所示。

2指标分析

以“形式表”为例，将相关指标输入单元格中，其中“比例”一例设置为“表达式列”，在“数据表”功能区，选择“列相关”功能组，单击“表达式”，在弹出的“表达式生成器”中进行相应的设置，如图３所示。

3窗口设计

在“管理项目”功能区，选择“窗口管理”，在打开的“窗口管理”对话框中，分别选择“增加”和“设计”两个按钮，进行相关的设置。添加8个“按钮”控件，如图４所示。

4代码设计

4.1ＳＱＬ基本语法介绍

Ｆｏｘｔａｂｌｅ中的ＳＱＬ语句，表名需要用大括号括起来，例如：

ＳＥＬＥＣＴ* ＦＲＯＭ ｛形式｝

ＳＥＬＥＣＴ 字段列表 ＦＲＯＭ ｛表名｝ ＷＨＥＲＥ 条件 ＧＲＯＵＰ ＢＹ 分组字段 ＯＲＤＥＲ ＢＹ 排序字段

其中＂ＷＨＥＲＥ＂、＂ＧＲＯＵＰ ＢＹ＂和＂ＯＲＤＥＲ ＢＹ＂是可选的，这三者的顺序是不能调换的。

4.2以“形式”表为例代码设计

选择“参与形式”按钮，在Ｃｌｉｃｋ中添加代码：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “Ｓｅｌｅｃｔ * Ｆｒｏｍ ｛形式｝＂，＂＂）ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

其含义是，在窗口１中形成一个查询表，内容是“形式”中的全部字段。如图５所示。

5其他查询代码设计

（1） 如要查询“时间”表中周末参加的人数，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “Ｓｅｌｅｃｔ 人数 Ｆｒｏｍ ｛时间｝ ＷＨＥＲＥ 指标＝周末＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

（2） 如要查询周末与清晨同时参加的人数，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅ

ｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “Ｓｅｌｅｃｔ 人数 Ｆｒｏｍ ｛時间｝ ＷＨＥＲＥ 指标＝周末ＡＮＤ指标＝清晨＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

（3） 如要将查询结果按人数排序显示，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅ

ｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “Ｓｅｌｅｃｔ 人数 Ｆｒｏｍ ｛时间｝ ＷＨＥＲＥ 指标＝周末ＡＮＤ指标＝清晨 ＯＲＤＥＲ ＢＹ 人数＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

（4） 如要查询总人数或平均人数，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅ

ｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “ＳｅｌｅｃｔＳＵＭ（人数） ＡＳ 总计， ＡＶＧ（人数） ＡＳ 平均Ｆｒｏｍ ｛时间｝ ＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

（5） 如要在“项目”表中查询参加人数最多的前３个项目，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅ

ｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “ＳＥＬＥＣＴ ＴＯＰ ３ * ＦＲＯＭ ｛项目｝ ＯＲＤＥＲ ＢＹ 人数 ＤＥＳＣ＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

（6）如要在“项目”表中查询参加篮球或参加足球的人数，则代码为：

Ｄｉｍ ｔｂｌ Ａｓ ＷｉｎＦｏｒｍ．Ｔａｂｌｅ

ｔｂｌ ＝ ｅ．Ｆｏｒｍ．ＣｒｅａｔｅＳＱＬＱｕｅｒｙ（“Ｔａｂｌｅ１”， “ＳＥＬＥＣＴ * ＦＲＯＭ ｛项目｝ ＷＨＥＲＥ 指标 ＩＮ （篮球，足球）

＂，＂＂）

ｔｂｌ．ＳｅｔＢｏｕｎｄｓ（１０， １０， ６００， ４００）

ｅ．Ｆｏｒｍ．ＡｄｄＣｏｎｔｒｏｌ（ｔｂｌ）

6查询结果输出

除了在窗口中动态形成一个逻辑查询表外，Ｆｏｘｔａｂｌｅ还提供了可以将查询结果以数据表的形式输出的功能。如前述查询“时间”表中周末参加的人数，其代码为：

Ｄｉｍ ｑ Ａｓ ｎｅｗ ＱｕｅｒｙＢｕｉｌｄｅｒ

ｑ．ＴａｂｌｅＮａｍｅ ＝ ＂时间表１＂

ｑ．ＳｅｌｅｃｔＳｔｒｉｎｇ ＝ ＂ Ｓｅｌｅｃｔ 人数 Ｆｒｏｍ ｛时间｝ ＷＨＥＲＥ 指标＝周末＂

ｑ．Ｂｕｉｌｄ

ＭａｉｎＴａｂｌｅ ＝ Ｔａｂｌｅｓ（＂时间表１＂）

其含义是形成一个数据表“时间表１”，并将主表设置为“时间表１”。

这样形成了一个物理的数据表后，就可将该表保存或输出为Ｅxcel电子表或Ａccess数据库表。

其操作步骤如下：

在“杂项”功能区，选择“高速导出”，在弹出的“另存为”对话框中，在“保存类型”中选择“Ｅxcel文件”则保存为工作簿的形式，如图６所示。

如要保存为数据库文件，在“保存类型”中选择“Ａccess文件”即可。

另外在“杂项”功能区中还有一个“高速导入”的功能，可以将Ｅxcel电子表或Ａccess数据库表导入为Ｆoxtable的数据表。其操作步骤如下：

在“杂项”功能区，选择“高速导入”，在弹出的“打开”对话框中，在“文件类型”中选择“Ｅxcel文件”即可。

主要参考文献

［１］ 周蔷. 对影响高校女生参加课外体育锻炼因素的研究［Ｊ］． 体育成人教育学刊，２００４（１）：８１－８２．

［２］ 潘勤，左晖. 高校女生体育课的现状与发展对策［Ｊ］． 宜春学院学报，２００４（２）：１１０－１１２．