VFP笔试表单例题5

  • 格式:doc
  • 大小:535.00 KB
  • 文档页数:3

说明:根据题目要求,利用面向对象程序设计方法在相应对象的事件中编写代码。

(1)表单的界面布局已基本完成,与表单有关的表文件已经添加到数据环境中;
(2)表单界面中除已经说明设置好的属性外,其他必要的属性一律在事件代码中设置;(3)事件代码中可能涉及的主要属性、事件及方法列表如下,仅供参考:
Additem Controlsource Readonly Rowsource Setfocus Enabled Recordsource Rowsourcetype Buttoncount Forecolor Recordsourcetype Setall Buttons Fontsize Refresh Timer
Caption Init Release Value
Clear InterActiveChange Removeitem Valid
Click Interval Requery Visible
编制一个学生成绩查询表单。

初始布局界面如图1所示。

命令按钮“查询”、“退出”名称分别为COMMAND1、COMMAND2。

具体要求:
1) 组合框Combo1 、Combo2分别用于选择“姓名”、“课程名”,并且,在表单的初始
化事件(init)中采用绑定来实现;
2) 点击“查询”按纽后查询显示相应的成绩,如图2;
3)当查询不到相应的成绩时,显示“没有该成绩”,如图3;
4) 点击“退出”按钮时,退出表单。

图1 表单中控件的布局界面图2 点击查询按纽显示相应的成绩
图3当查询不到相应的成绩时,显示“没有该成绩”
FORM1.INIT:
select 学生
bo1.rowsourcetype=6
bo1.rowsource="学生.姓名"
select 课程
bo2.rowsourcetype=6
bo2.rowsource="课程.课程名"
this.text1.value=""
COMMAND1.CLICK:
select 学生
locate for alltrim(姓名)=alltrim(bo1.value)
xh=学号
select 课程
locate for alltrim(课程名)=alltrim(bo2.value)
kch=课程号
select 成绩
locate for alltrim(学号)=alltrim(xh) and alltrim(课程号)=alltrim(kch) if found()
thisform.text1.value=成绩
else
thisform.text1.value="没有该成绩!" endif
thisform.refresh
COMMAND2.CLICK:
Thisform.release。