VFP 程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
表单设计 例
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
查询并显示指定学生的考试结果
要求:(1)编制一个表单实现在“成绩”表中查询考试结果。(2)在text1中输入学号,如果成绩表没有该同学成绩,则用消息框显示“该同学没参加考试”。(3)如果该同学的成绩没有小于60的,则在text2中显示“考试课程全部通过”,否则显示“下学期开学前补考”。(4) 显示平均成绩的文本框只读(要求用代码实现)。
数据环境 “成绩”表
事件 代码
FORM1 的INIT事件 THISFORM.TEXT2.READONLY=.T. COMMAND1的N=ALLTRIM(THISFORM.TEXT1.VALUE) CLICK事件 LOCATE FOR ALLTRIM(学号)==N
IF EOF()
THISFORM.TEXT2.VALUE=""
MESSAGEBOX("该同学没参加考试")
ELSE
LOCATE FOR ALLTRIM(学号)==N AND
成绩<60
IF EOF()
THISFORM.TEXT2.VALUE="考试课程
全部通过"
ELSE
THISFORM.TEXT2.VALUE="下学期开
学前补考"
ENDIF
ENDIF
COMMAND2的THISFORM.RELEASE
CLICK事件