vf125每套图的精华考试必备.docx
《vf125每套图的精华考试必备.docx》由会员分享，可在线阅读，更多相关《vf125每套图的精华考试必备.docx（27页珍藏版）》请在冰点文库上搜索。
vf125每套图的精华考试必备
第一套
列出所有与红颜色零件相关的信息
SELECT供应.供应商号,供应.工程号,供应.数量;
FROM零件,供应WHERE供应.零件号=零件.零件号;
AND零件.颜色="红";
ORDERBY供应.数量desc;
INTODBFsupply_temp
选择RightClick，输入代码：
domenu_quick.mpr
设计一个名为mysupply的表单
双击"查询"命令按钮，并输入如下代码：
Select零件.零件名,零件.颜色,零件.重量;
From供应,零件;
Where零件.零件号=供应.零件号and供应.工程号=thisform.text1.value;
OrderBy零件名;
Intodbfpp
ThisForm.Grid1.RecordSource="pp"
第二套
打开表单MYFORM4-4
SELECT作者姓名,所在城市;
FROMAUTHORS;
WHERE作者编号IN;
（SELECT作者编号FROMBOOKSGROUPBY作者编号HAVINGCOUNT（*）>=3）;
ORDERBY作者姓名;
INTOTABLENEW_VIEW4
将BOOKS表中所有书名中含有“计算机”
1、SELECT*FROMBOOKSWHERE书名LIKE"%计算机%"INTOTABLEBOOKS_BAK
2、UPDATEBOOKS_BAKSET价格=价格*（1-0.05）
3、SELECTTOP1Books_bak.出版单位,avg（books_bak.价格）as均价;
FROMbooks_bak;
GROUPBYBooks_bak.出版单位;
HAVING均价>=25;
ORDERBY2;
INTOTABLEnew_table4.dbf
第三套
查询项目的项目号，项目名，和项目使用的零件号、零件名称
SELECT项目信息.项目号,项目信息.项目名,零件信息.零件号,;
零件信息.零件名称;
FROM使用零件情况!
零件信息INNERJOIN使用零件情况!
使用零件;
INNERJOIN使用零件情况!
项目信息;
ON使用零件.项目号=项目信息.项目号;
ON零件信息.零件号=使用零件.零件号;
ORDERBY项目信息.项目号DESC,零件信息.零件号;
INTOTABLEitem_temp.dbf
设计一个表单名和文件名均为foem_item的表单S1S2S3
双击表单空白处，在表单的Init事件中输入如下代码：
Publica（3）
A
（1）="s1"
A
（2）="s2"
A（3）="s3"
"统计"按钮的Click事件代码如下：
x=allt（bo1.value）
SELECTSUM（使用零件.数量*零件信息.单价）asje;
FROM使用零件情况!
使用零件INNERJOIN使用零件情况!
零件信息;
ON使用零件.零件号=零件信息.零件号;
WHERE使用零件.项目号=xintoarrayb
thisform.text1.value=allt（str（b[1]））
"退出"按钮的Click事件代码如下：
thisform.release
第四套
有表单文件formonescx只读
组合框的Style属性为"2-下拉列表框"、RowSourceType属性为"6-字段"、RowSource属性为"employee.姓名"；设置文本框Text1的ReadOnly属性为".T.-真"。
步骤3：
双击组合框，在代码编辑器中将语句"Text1.Value=m2"改为"ThisForm.Text1.Value=m2"
创建一个名为mymenu的下拉菜单帮助子菜单之前插入一个考试子菜单
选择"统计"行，单击该行中的"创建"按钮，在弹出的窗口中输入如下代码：
SELECTEmployee.组别,Employee.姓名AS负责人,sum（orders.金额）as合计;
FROMemployee,orders;
WHEREEmployee.职员号=Orders.职员号;
ANDEmployee.职务="组长";
GROUPBYEmployee.组别;
ORDERBY3DESC;
INTOTABLEtabletwo.dbf
步骤4：
选择"返回"行，，单击该行中的"创建"按钮，在弹出的窗口中输入如下代码：
SETSYSMENUTODEFAULT
第五套
田亮和顶层
SELECTBook.书名,Book.作者,Book.价格;
FROMbook,loans,borrows;
WHERELoans.借书证号=Borrows.借书证号;
ANDBook.图书登记号=Loans.图书登记号;
ANDBorrows.姓名="田亮";
ORDERBYBook.价格DESC;
INTOTABLEbook_temp.dbf
选在"显示"菜单下的"常规选项"命令，在"常规选项"对话框中选择"顶层表单"复选框。
在命令窗口输入命令createformform_menu，新建表单form_menu，设置表单的ShowWindow属性为"2－作为顶层表单"
步骤3：
双击表单空白处，打开代码编辑窗口，选择表单对象的Init事件，输入以下代码：
DOmenu_lin.mprWithThis,"abc"
再选择表单对象的Destroy事件，输入以下代码：
ReleaseMenuabcExtended
清华北航科学
组合框的RowSourceType属性为"1-值"、Style属性为"2-下拉式列表框"、RowSource属性为"清华,北航,科学"，
"统计"按钮的Click事件代码如下：
SELECTCOUNT（*）FROMBOOK;
WHERE出版社=THISFORM.COMBO1.VALUE;
INTOARRAYTEMP
THISFORM.TEXT1.VALUE=TEMP
（1）
第六套
P7pn71020
INSERTINTO零件信息VALUES（"p7","PN7",1020）
DELEFROM零件信息WHERE单价<600
UPDATE零件信息SET单价=1090WHERE零件号="p4"
Modil.prg程序文件
第1行中的"="需改为"IN"；第3行中的"GROUPBY项目号"需改为"GROUPBY零件号"；第5行中的"INTOFILE"需改为"TOFILE"。
双击命令按钮，编写其Click事件代码如下：
x=thisform.text1.value
a="SELECT零件信息.零件号,零件信息.零件名称,零件信息.单价,使用零件.数量;
FROM零件信息,使用零件;
WHERE零件信息.零件号=使用零件.零件号and使用零件.项目号=x;
ORDERBY零件信息.零件号INTOTABLE"+x
&a
表格控件的RecordSourceType属性为"3-查询"、RecordSource属性为"chaxun",
第七套
修改显示的click事件代码
MultiSelect属性为".T.-真"，定义允许多重选择
错误1：
FORi=1TOthisform.List1.ColumnCount
修改为：
FORi=1TOthisform.List1.ListCount
错误2：
s=thisform.List1.value
修改为：
s=thisform.List1.List（i）
错误3：
s=s+thisform.List1.value
修改为：
s=s+","+thisform.List1.List（i）
创建一个顶层表单myform。
Scx
将表单的ShowWindow属性设置为"2-作为顶层表单",然后设置其Caption属性值为"考试"。
步骤3：
双击表单空白处，编写表单的Init事件代码：
DOmymenu.mprWITHTHIS,"myform"
******"统计"菜单中的命令语句******
SELECTCustomer.客户号,Customer.客户名,sum（orders.金额）as合计;
FROMcustomer,orders;
WHERECustomer.客户号=Orders.客户号;
GROUPBYCustomer.客户号;
ORDERBY3DESC;
INTOTABLEtabletwo.dbf
第八套10987654321
ALTERTABLE课程表ADDUNIQUE课程号TAGtemp
DOWHILEi>=1
修改并执行程序temp
错误1：
将TO改为INTO。
错误2：
将OPEN改为USE。
错误3：
将SCANOF改为SCANFOR。
错误4：
将OR改为AND。
错误5：
将sum+1改为sum=sum+1。
大于等于小于300040005000
：
双击表单空白处，编写表单的load事件代码：
********表单的load事件代码*********
publica（3）
a
（1）="3000"
a
（2）="4000"
a（3）="5000"
双击命令按钮，分别编写"生成"和"退出"按钮的Click事件代码。
******"生成"按钮的Click事件代码*******
x=val（bo1.value）
ifthisform.optiongroup1.value=1
sele*from教师表where工资>=xorderby工资desc,姓名intotablesalary
else
sele*from教师表where工资endif
第九套
用sql语句建立索引99035001
ALTERTABLEstudentADDUNIQUE学号TAG学号
给定表单modi2.scx修改
错误1：
改为STORE0TOx,s1,s2,s3。
错误2：
改为x=val（thisform.text1.value）。
错误3：
改为ifmod（x,3）=0。
Zonghe的表单文件
双击"确定"命令按钮，完善其Click事件代码如下。
********"确定"按钮的Click事件代码*********
SELECTStudent.姓名,Course.课程名称,Score.考试成绩;
FROMstudentINNERJOINscore;
INNERJOINcourse;
ONScore.课程编号=Course.课程编号;
ONStudent.学号=Score.学号;
where&cn;
ORDERBYCourse.课程名称,Score.考试成绩DESC;
INTOTABLEzonghe.dbf
第十套
在SCORE_MANAGER数据库中查询学生和2003年的年龄
SELECT姓名,2003-Year（出生日期）as年龄FROMstudentINTOTABLEnew_table1.dbf
在"退出"的结果中选择"命令"，并在后面的框中输入：
SETSYSMENUTODEFAULT
三个数据库studentsccore1course
表单的Caption属性为"成绩查询"，标签控件的Caption属性为"输入学号"，Command1的Caption属性为"查询"，Command2的Caption属性为"退出"；设置表格的ColumnCount属性为"2"，RecordSourceType属性为"0-表"，第1列的Caption属性为"课程名"，第2列的Caption属性为"成绩"
：
双击命令按钮，编写命令按钮的Click事件代码。
******"查询"按钮的Click事件代码******
SELECTcourse.课程名,score1.成绩;
FROMcourse,score1;
WHEREcourse.课程号=score1.课程号ANDscore1.学号=ThisForm.Text1.text;
INTOTABLEcoruse_cursor
IFRECC（）=0
MESSAGEBOX（"学号不存在，请重新输入学号"）
ELSE
ThisForm.Grid1.RecordSource="coruse_cursor"
ThisForm.Grid1.refresh
ENDIF
第十一套
用sql语句从rate_exchange表中提取外币名称
********one.txt中输入的代码********
SELECT外币名称,现钞买入价,卖出价;
FROMrate_exchange;
INTOTABLErate_ex.dbf
********two.txt中输入的代码*********
UpdateRate_exchangeset卖出价=829.01where外币名称='美元'
计时器
设置标签的Alignment属性为"2－中央"
******"暂停"按钮的Click事件代码******
ThisForm.Timer1.Interval=0
************************************
******"继续"按钮的Click事件代码*****
ThisForm.Timer1.Interval=500
***********************************
******"退出"按钮的Click事件代码*****
ThisForm.Release
***********************************
******"计时器"的timer事件代码*******
ThisForm.Label1.Caption=time（）
第十二套
数据库college
SELECT*;
FROMcollege!
教师表;
WHERE教师表.工资>4500;
ORDERBY教师表.职工号;
TOFILEone.txt
修改four程序学院表教师表信息管理
第一处：
WHILE改为WHERE。
第二处：
OPEN改为USE。
第三处：
WHERE改为FOR。
第四处：
填入num=num+1。
Oneform表单文件平均工资总工资
x=bo1.value
ifthisform.optiongroup1.value=1
SELECT学院表.系名,学院表.系号,avg（教师表.工资）as平均工资;
FROMcollege!
学院表INNERJOINcollege!
教师表;
ON学院表.系号=教师表.系号;
WHERE学院表.系名=x;
GROUPBY学院表.系号;
INTOTABLEsalary.dbf
else
SELECT学院表.系名,学院表.系号,sum（教师表.工资）as总工资;
FROMcollege!
学院表INNERJOINcollege!
教师表;
ON学院表.系号=教师表.系号;
WHERE学院表.系名=x;
GROUPBY学院表.系号;
INTOTABLEsalary.dbf
Endif
第十三套
林诗音持有的所有外币名称
********rate.txt文件中的代码*********
SELECTRate_exchange.外币名称,Currency_sl.持有数量;
FROMcurrency_sl,rate_exchange;
WHERECurrency_sl.外币代码=Rate_exchange.外币代码;
ANDCurrency_sl.姓名="林诗因";
ORDERBYCurrency_sl.持有数量;
INTOTABLErate_temp.dbf
陆小平currency_form
******查询按钮的Click事件代码********
select外币名称,现钞买入价*持有数量as人民币数量;
fromrate_exchange,currency_sl;
whererate_exchange.外币代码=currency_sl.外币代码andcurrency_sl.姓名=thisform.text1.value;
orderby人民币数量desc;
intodbfdbfa
thisform.grid1.recordsource="dbfa"
第十四套
宾馆数据库
（4）单击工具栏中的"新建"按钮，建立一个程序文件，输入如下代码：
SELECT客户号,身份证,姓名,工作单位FROM客户WHERE性别="男"INTOTABLETABA.DBF
修改宾馆数据库
第3行改为：
FROM客户,入住WHERE客户.客户号=入住.客户号;
第5行改为：
（SELECT入住日期;
第7行改为：
WHERE客户.客户号=入住.客户号AND姓名="姚小敏"）;
第8行改为：
INTOTABLETABC
：
双击"查询"按钮，为"查询"命令按钮的Click事件编写程序代码：
打开数据库宾馆
******"查询"按钮的Click事件代码*******
SETCENTURYON
SETDATETOYMD
SELECT客户.客户号,客户.身份证,客户.姓名,客户.工作单位,客房.客房号,房价.类型名,房价.价格;
FROM客户,房价,入住,客房;
WHERE客户.客户号=入住.客户号;
AND客房.客房号=入住.客房号;
AND房价.类型号=客房.类型号;
AND入住.退房日期>=ctod（ThisForm.Text1.value）;
ORDERBY房价.价格DESC;
INTOTABLEtabd
第十五套
表单one两个图
ThisForm.Text1.Value=year（date（））
在"表单"菜单中选择"新建方法程序"命令，新建一个名为test的方法，在属性窗口中双击此方法，在弹出的窗口中编写用户自定义过程代码：
ThisForm.Command1.Enabled=.f.
在表单设计器环境下双击"测试"命令按钮，编写Click事件代码：
ThisForm.Test。
在命令窗口输入命令：
altertable教师表alter职工号setcheckLEFT（职工号,3）="110"
课程管理数据库建立视图salary
CREATEsqlVIEWsalaryASSELECT教师表.系号,AVG（教师表.工资）AS平均工资FROM教师表;
GROUPBY教师表.系号ORDERBY2DESC
步骤2：
修改程序中的错误如下。
错误1：
将"WHILE"改为"DOWHILE"。
错误2：
将"NEXT"改为"SKIP"。
错误3：
将"CASE"改为"IF"。
生成表
双击"生成表"按钮，为"生成表"命令按钮编写Click事件代码：
*****"生成表"按钮的Click事件代码*****
a=ThisForm.Check1.Value
b=ThisForm.Check2.Value
c=ThisForm.Optiongroup1.Option1.Value
d=ThisForm.Optiongroup1.Option2.Value
ifa=1andb=1
ifc=1
select职工号,姓名,系名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号;
intotabletwo.dbf
else
ifd=1
select职工号,姓名,系名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号desc;
intotabletwo.dbf
endif
endif
endif
ifa=1andb=0
ifc=1
select职工号,姓名,系名,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号;
intotableone_x.dbf
else
ifd=1
select职工号,姓名,系名,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号desc;
intotableone_x.dbf
endif
endif
endif
ifa=0andb=1
ifc=1
select职工号,姓名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号;
intotableone_xx.dbf
else
ifd=1
select职工号,姓名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
orderby职工号desc;
intotableone_xx.dbf
endif
endif
endif
第十六套
表单one移动顺序关闭到退出
（1）单击工具栏中的"打开"按钮，打开考生文件夹下的表单one，设置Command1的TabIndex属性为1，Command2的TabIndex属性2，Command3的TabIndex属性为3。
（2）单击工具栏中的"打开"按钮，打开考生文件夹下的表单two，按下SHIFT键的同时选中3个命令按钮控件，通过"布局"工具栏设置其对齐方式为"顶边对齐"。
（3）单击工具栏中的"新建"按钮，新建一个程序文件，输入下列命令：
Createtable分组情况表（组号c
（2）,组名c（10））
将该程序保存为three.prg并运行。
（4）方法同上建立程序four.prg，输入命令：
INSERTINTO分组情况表VALUES（"01","通俗唱法"）
歌手比赛分为4个组
第1处：
将"WHILE"改为"DOWHILE"；
第2处：
将"歌手表.歌手编
升级会员 