第七章 表单

对于图所示的表单，列表框、“平均成绩”命令按钮、“合格人数”命令按钮和表格控件的Name属性值分别为LST1、CM1、CM2和GTP，表格控件的数据源为TEMP表。表单执行时，用户在列表框中选择某个学校后，单击“平均成绩”则在表格控件中显示该学校各个语种的平均成绩，单击“合格人数”则在表格控件中显示该学校各个语种的合格人数，且表格第2列的标头控件的标题与命令按钮的标题一致。

根据上述的功能要求，完善“平均成绩”命令按钮的Click事件代码： SELECT SUBS(zkz,4,2) AS dh, AVG(cj) AS JG; FROM kscj;

WHERE LEFT(zkz,3)= GROUP BY 1;

INTO TABLE tempX SELE temp ZAP

APPEND FROM GOTO TOP

ThisForm.gtp.Column2.Header1.Caption=THIS.Caption ThisForm.Refresh

25. 某表单(fml)上有一个列表框(list1)、一个文本框(text1)一个命令按钮(command1，其

Caption属性为“添加”)。请完善命令按钮的Click事件代码以实现以下功能：在文本框text1中输入字符串，如果该字符串在列表框中不存在，就将该字符串插入到列表框中，否则弹出对话框给出信息提示“该字符串已经存在，请重新输入”。运行表单时参考界面如图所示。

lag=0

FOR n=1 TO THISFORM.list1.ListCount

IF THISFORM list1.List(n)= _______ flag=1 ENDIF ENDFOR IF flag=0

________ (THISFORM.text1.Value) ELSE

MESSAGEBOX(“改字符串已经存在，请重新输入”) ENDIF

26. 某数据库中包含课程（ KC ）表和成绩（ CJ ）表，课程表中含有课程代号（ kcdh ）、

课程名（ kcm ）和学分（ xf ）等字段，成绩表中含有学号（ xh ）、课程代号（ kcdh ）和成绩（ cj ）等字段。已创建一个按课程代号查询学生成绩的表单如图所示。

表单中下拉列表框（Combo1）的数据源设置如下： RowSource Type 属性为:6-字段 RowSource 属性为:kc.kcdh。

在下拉列表框中选择某一课程代号后，表格控件（ Grid1 ）立即显示该课程所有学生的成绩，且在文本框（ Text1 ）中显示该课程的课程名，则应在下拉列表框的?________事件中编写如下代码： SELECT KC

ThisForm.Text1.Value=kc.kcm ThisForm.Grid1.RecordSource=；

＂SELECT cj.xh,cj.cj FROM cj WHERE cj.kcdh=ALLT(THIS.Vale)INTO CURStmp＂ ThisForm.Refresh

根据以上代码可判定，表格控件（ Grid1 ）的 RecordSourceType 属性为?________。

27. 已知教师表（JS.DBF）含有工号（gh, C, 6）、姓名（xm, C, 8）、性别（xb, C, 2）、

职称（zc, C, 20）、系代号（xdh, C, 2）等字段，系名表（XIM.DBF）含有系代号（xdh, C, 2）、系名（ximing, C, 20）等字段。某表单运行时如图所示，该表单的功能是查看各个系教师的名单，在列表框（List1）中选择一个系时，表格（Grid1）中显示出该系教师的工号、姓名、性别、职称，且表格中数据只读。

根据图3所示的表单，填写表单、列表框和表格控件的下列有关属性值： 表单：Caption= 列表框：ColumnCount= ________ 表格：RecordSourceType=1-别名 RecordSource= ReadOnly=________

28. 某表单中有一个列表框控件list1和一个命令按钮控件cmd1，表单运行时如图所示。

列表框显示的内容分别是学生的学号、姓名、选课数以及平均成绩。命令按钮cmd1的Click事件代码如下：

THISFORM.Caption = THISFORM.List1.value 在表单运行时，若单击该命令按钮后表单的标题显示学生的姓名（例如显示“吴云”），则列表框控件list1的BoundColumn属性值为________。

29. 已知XS（学生）表、KC（课程）表、CJ（成绩）表的表结构如下：

（1）XS.DBF：学号（xh, C, 8）、姓名(xm, C, 8)、性别（xb, C, 2） （2）KC.DBF：课程代号（kcdh, C, 3）、课程名称（kcmc, C, 20）、学分（xf, N, 2）

（3）CJ.DBF：学号（xh, C, 8）、课程代号（kcdh, C, 3）、成绩（cj, N, 3） 某表单运行时如图所示，其功能是查看01~04年级学生需要补考的情况。当用户利用选项按钮组（opt1）选择一个年级时，列表框（list1）中显示出该年级所有课程不及格的学生的学号、姓名、课程名称和成绩（xh字段的前两位表示年级）。 根据图所示表单，填写表单、列表框和选项按钮组控件的下列属性值：

表单：ControlBox = ________。 列表框：ColumnCount = ________。 选项按钮组：Value = ________。

30. 某表单运行时如图所示，表单上有一个页框控件PageFrame1和一个微调框控件

Spinner1。微调框控件Spinner1的Init事件代码如下： THIS.Value=1

THIS.KeyboardLowValue=1 THIS.Spinner1LowValue=1 THIS.KeyboardHighValue=10 THIS.SpinnerHighValue=10

在表单运行时，若要页框中页面的个数由微微框的值决定，则微调框控件Spinner1的InteractiveChange事件代码应包含下列命令： THISFORM.PageFrame1.?________= THIS.Value?

31. 计时器是用来处理复发事件的控件。该控件正常工作的三要素是：Timer事件、

Enabled属性和________属性。

32. 在Visual FoxPro表单中，用来确定复选框是否被选中的属性是________。 33. 设置表单标题的属性是________。

34. 表格控件可以设定特殊格式，使得用户更容易浏览表记录。 如果要将表格的第三列

(Column3)的前景色设红色显示不及格的成绩(字段名为cj)， 用蓝色显示及格的成