四川二年级vfp上机题答案完整版

四川二年级v f p上机题

答案

集团标准化办公室：[VV986T-J682P28-JP266L8-68PNN]

**结构化程序设计的步骤

打开表并索引（多工作区）

建立关联（SET RELATION TO…INTO…）

数据处理（修改、查询、统计等）

输出显示（, , LIST, DISPLAY）

关闭表（CLOSE DATABASES, CLOSE ALL）

**表单程序设计的步骤

（创建数据库（视图））

创建表单

添加数据环境

添加控件

设置控件属性

编写事件代码（INIT, CLICK等）

**第33次上机考试

[33.1.2]

①打开表，索引，关联

select 2

use 学生

index on 学号 tag xh

select 1

use 成绩

set relation to 学号 into b

②数据处理（1）—修改

将课程为“Access程序设计“的成绩提高15%。

replace all 成绩 with 成绩*1.15 for 课程名="Access程序设计"

③数据处理（2）—查询，显示

通过输入“学号”查询学生的信息，即：学号、姓名、课程名、成绩、学院等资料。若没找到，显示“数据表中没有查到此人信息！”。界面舅图所示：accept "请输入查询的学号：" to xh

locate for 学号=xh

if found()

"***********查询结果***************"

"学号姓名课程名成绩学院"

do while found()

学号, b.姓名, 课程名, 成绩, b.学院

continue

enddo

"***********************************"

else

"数据表中没有查到此人信息！"

endif

④关闭表

close databases

整个程序：abc1.PRG

clear

set talk off

set safety off

select 2

use 学生

Index on 学号 tag xh

select 1

use 成绩

set relation to 学号 into b

replace all 成绩 with 成绩*1.15 for 课程名="Access程序设计" accept "请输入查询的学号：" to xh

locate for 学号=xh

if found()

"***********查询结果***************"

"学号姓名课程名成绩学院"

do while found()

学号, b.姓名, 课程名, 成绩, b.学院

continue

enddo

"***********************************"

else

"数据表中没有查到此人信息！"

endif

close databases

[33.1.3]表单设计（文件名：form1.SCX）

①创建表单，添加控件、数据环境

②设置控件属性

thisform.Optiongroup1属性值

thisform.Optiongroup1.Value 0

thisform.Optiongroup1.ButtonCount 2

thisform.Optiongroup1.Option1.Caption "男"

thisform.Optiongroup1.Option2.Caption "女"

mand1属性值

mand1.Caption "结束"

thisform.Grid1属性值

thisform.Grid1.Visible .F.

③编写事件代码

thisform.Optiongroup1.Click事件

xb=""

do case

case this.value=1

xb="男"

case this.value=2

xb="女"

endcase

SELECT * FROM 学生;

WHERE 学生.性别 = xb;

INTO CURSOR tmp

thisform.Grid1.Recordsource="tmp"

thisform.Grid1.Visible=.T.

mand1.Click事件

thisform.Release

[33.1.3]表单设计（文件名：form1.SCX）

①创建表单，添加控件、数据环境

②设置控件属性

thisform.Optiongroup1属性值

thisform.Optiongroup1.Value 0

thisform.Optiongroup1.ButtonCount 2 thisform.Optiongroup1.Option1.Caption "男" thisform.Optiongroup1.Option2.Caption "女" mand1属性值

mand1.Caption "结束" thisform.grd学生属性值

thisform.grd学生.Visible .F.

thisform.grd学生.Recordsource "学生"

③编写事件代码

thisform.Optiongroup1.Click事件

do case

case this.value=1

set filter to 性别="男"

case this.value=2

set filter to 性别="女"

endcase

thisform.grd学生.Visible=.T.

thisform.refresh

mand1.Click事件

thisform.Release

[33.2.2]编写程序（文件名：abc2.PRG）

父表：1号区