vfp上机答案.docx

1、vfp上机答案一套1. （1） CREATE TABLE 教师(编号 C(8), 姓名 C(10), 性别 C(2), 职称 C(8) （2） UPDATE 课程 SET 任课教师=T2222 WHERE 课程名=数据库 2、（1）在“表单设计器”中，建立一个计时器控件Timer1，在“属性”的Interval处输入“200”，再双击此计时器控件， 在“Timer1.Timer”编辑窗口中输入下列命令组，再关闭此窗口。 THISFORM.Label1.Left=THISFORM.Label1.Left-10 If THISFORM.Label1.Left= 60; ORDER BY Stude

2、nt.学号; INTO TABLE four.dbf 4. ）在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”中输入“Release Thisform”，关闭窗口。八套。1 在“学生表”子菜单的“结果”选择“过程”并输入命令下列语句 SELECT * FROM STUDENT . 在“选课表”子菜单的“结果”选择“过程”并输入命令下列语句 SELECT * FROM SC 在“课程表”子菜单的“结果”选择“过程”并输入命令下列语句 SELECT * FROM COURSE 在“退出”主菜单的“结果”选择“过程”并输入下列命令 set sysmenu to

3、 default 3 、 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”中输入SQL的SELECT命令查询语句，关闭窗口。 SELECT Student.学号,姓名,AVG(成绩) AS 平均成绩,; COUNT(*) AS 选课门数 FROM Student,Sc GROUP BY Sc.学号 ; HAVING COUNT(*)=4 AND 平均成绩=75 WHERE Student.学号=Sc.学号 ORDER BY ; 平均成绩 DESC INTO DBF TWO九套。1、（1） 命令方式： ALTER TABLE cus ADD COLUMN

4、手机号 C(11) ALTER TABLE CBC ALTER 数量 SET CHECK 数量=1 ALTER TABLE CBC ALTER COLUMN 数量 SET DEFAULT 1 ALTER TABLE CBC ALTER 单价 SET CHECK 单价=1 ALTER TABLE CBC ALTER COLUMN 单价 SET DEFAULT 1 2 （3） SELECT 会员号,会员名,单位 FROM CUS INTO TABLE NCU 十套、1、 （1） ALTER TABLE ksb ADD COLUMN 备注 C(30) （2) ALTER TABLE kscjb AL

5、TER 成绩 SET CHECK 成绩=0 AND 成绩考生号 if not found() then append blank replace 考生号 with kscjb-考生号 endif do case case kscjb-考试科目=101 replace 政治成绩 with kscjb-成绩 case kscjb-考试科目=102 replace 外语成绩 with kscjb-成绩 case kscjb-考试科目=103 replace 高数成绩 with kscjb-成绩 case kscjb-考试科目=104 replace 专业课成绩 with kscjb-成绩 endca

6、se select kscjb skip enddo close all update test set 总成绩=政治成绩+外语成绩+高数成绩+专业课成绩 SELECT Ksb.考生号, Ksb.姓名, Ksb.性别, Ksb.单位, Test.政治成绩,; Test.外语成绩, Test.高数成绩, Test.专业课成绩, Test.总成绩; FROM sdb!ksb INNER JOIN test ; ON Ksb.考生号 = Test.考生号; WHERE Test.总成绩 = 330; ORDER BY Test.总成绩 DESC INTO TABLE four 5. ）在“表单设计器

7、”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”， 接着关闭编辑窗口。十一套、3 1. 建立表单 CREATE FORM three 2. 在“表单设计器”中，在“属性”的Caption处输入“学生基本信息浏览”，在Name处输入“form”。 3. 在“表单设计器”中，添加一个标签Label1，在其“属性”的Caption处输入“班级号”。 4.在“表单设计器”中，单击鼠标右键，在弹出菜单中选择“数据环境”，在“数据环境设计器-three.scx”中， 在“打开”对话框中，选择“student.dbf”表, 接着在“

8、添加表或视图”的对话框中，双击表“class”，再按“关闭”按钮，关闭“添加表或视图”对话框。 5. 在“表单设计器”中，添加一个组合框控件Combo1，在其“属性”的Caption处输入“班级号”， 在Style处选择“2-下拉列表框”，在RowSourceType处选择“6-字段”，在RowSource处选择“Class.班级号”。 6. 在“表单设计器”中，添加一个表格控件Grid1，在其“属性”的RecordSourceType处选择“4-SQL说明”。 7. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”的Caption处输入“退出”， 在第2个命令按钮“属性”的Ca

9、ption处输入“确认”。 8. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”中输入“Release Thisform”，关窗口。 9. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入下述语句，关窗口。 ThisForm.Grid1.RecordSource=SELECT * FROM student WHERE 班级号=class.班级号 INTO CURSOR LSB 十三套、1 （1）ALTER TABLE p_t ADD COLUMN 继承人 C(8) （2）ALTER TABLE fr

10、_t ALTER 面积 SET CHECK 面积=1 .AND. 面积=0 .AND. 蓄积=200 ALTER TABLE fr_t ALTER COLUMN 蓄积 SET DEFAULT 100 （3）在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，关闭窗口。 select 姓名,年龄,性别,家庭地址 from p_t where 户主编号=alltrim(ThisForm.Text1.Value) into array tmp ThisForm.Text2.Value=tmp(1) ThisForm.Text3.Value=

11、tmp(2) ThisForm.Text4.Value=tmp(3) ThisForm.Text5.Value=tmp(4) ThisForm.Grid1.RecordSource=SELECT 土地编号,小地名,面积,树种编号,蓄积,承包年度 FROM fr_t WHERE 户主编号=+alltrim(ThisForm.Text1.Value)+ INTO CURSOR LSB十四套、1 ALTER TABLE s_t ALTER 年度 SET DEFAULT 2004 3在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”中输入“Release Thisform”，关闭窗口。 . 在“表单设计器”中，添加一个表格Grid1，在其“属性”的RecordSourceTyp