Question

VFP大神啊……最后我再问一道……表单修改forma的题目……

2.修改表单forma,运行界面如图所示。
(1)修改表单的基本属性，使得表单运行时自动居中（2分），
且为没有最大化按钮（2分）。
(2)修改组合框的属性，将组合框的列数属性设置为2（3分）；
已知组合框的rowsourcetype属性=6-字段，修改组合框的rowsource属性，
组合框中显示学生(xs)的学号(xh)和姓名(xm)。(3分)。
(3)修改两个文本框的属性，文本框均只能获得焦点，不能更改内容（只读）(2分)。
(4)参考下面的代码，在组合框的interactivechange事件中为2个文本文本框设定值，
　使得在选择不同的学生时，查询出该同学的总分和均分，并在text1中显示该学生的总分，
　在text2中显示该学生的均分。　 (2分+2分+2分+2分)
　示例代码：
　select avg(cj.cj) ,______ from cj where xh=_______ into _____ abc
thisform.text1.value=abc(1,1)
thisform.text2.value=____________
　thisform.refresh

Answer 1

VFP窗体题答案
第1题
1. SELECT Xs.xh, Xs.xm, AVG(Cj.cj) AS pjcj, MIN(Cj.cj) AS zdcj;
FROM sjk!xs INNER JOIN sjk!cj ;
ON Xs.xh = Cj.xh;
GROUP BY Xs.xh;
HAVING pjcj >= 80;
AND zdcj >= 65;
ORDER BY 3 DESC
2.（1）表单的Autocenter设置为.T.
表单的Caption设置为”My form”
表单的showwindow设置为2
（2）把文本框的Value设置为Date()，把文本框的Readonly设置为.T.
（3）SELECT DISTINCT Xs.jg FROM sjk!xs INTO CURSOR temp001
（4）this.parent.list1.rowsource='select xm from xs where jg=this.value into cursor temp002'

第2题
1. SELECT Jc.cbsmc, COUNT(Jc.isbn) as jczs, AVG(Jc.dj) as pjdj;
FROM jxsj!jc;
WHERE Jc.cbnf >= "2000";
GROUP BY Jc.cbsmc;
ORDER BY 2 DESC;
TO SCREEN
2.
（1）表单的Autocenter设置为.T.
将表单的MinButton设置为.F.，将表单的MaxButton设置为.F.
表单的showwindow设置为2
（2）两行语句分别为
if mod(i,2)=1
endfor
（3）将表格第一列（Column1）的Header1的caption设置为“学号”，并将header1的Alignment设置为“2-居中”
（4）将Command1的caption设置为” 退(\<X)出”，Click事件代码为：thisform.release