vf125每套图的精华考试必备文档格式.docx
《vf125每套图的精华考试必备文档格式.docx》由会员分享，可在线阅读，更多相关《vf125每套图的精华考试必备文档格式.docx（27页珍藏版）》请在冰点文库上搜索。
零件信息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;
使用零件INNERJOIN使用零件情况!
零件信息;
ON使用零件.零件号=零件信息.零件号;
WHERE使用零件.项目号=xintoarrayb
thisform.text1.value=allt（str（b[1]））
退出"
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-下拉式列表框"
清华,北航,科学"
，
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属性为"
，定义允许多重选择
错误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属性值为"
考试"
双击表单空白处，编写表单的Init事件代码：
DOmymenu.mprWITHTHIS,"
myform"
******"
菜单中的命令语句******
SELECTCustomer.客户号,Customer.客户名,sum（orders.金额）as合计;
FROMcustomer,orders;
WHERECustomer.客户号=Orders.客户号;
GROUPBYCustomer.客户号;
ORDERBY3DESC;
INTOTABLEtabletwo.dbf
第八套10987654321
ALTERTABLE课程表ADDUNIQUE课程号TAGtemp
DOWHILEi>
=1
修改并执行程序temp
将TO改为INTO。
将OPEN改为USE。
将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工资<
xorderby工资desc,姓名intotablesalary
endif
第九套
用sql语句建立索引99035001
ALTERTABLEstudentADDUNIQUE学号TAG学号
给定表单modi2.scx修改
改为STORE0TOx,s1,s2,s3。
改为x=val（thisform.text1.value）。
改为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－中央"
暂停"
ThisForm.Timer1.Interval=0
************************************
继续"
按钮的Click事件代码*****
ThisForm.Timer1.Interval=500
***********************************
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
SELECT学院表.系名,学院表.系号,avg（教师表.工资）as平均工资;
FROMcollege!
学院表INNERJOINcollege!
教师表;
ON学院表.系号=教师表.系号;
WHERE学院表.系名=x;
GROUPBY学院表.系号;
INTOTABLEsalary.dbf
SELECT学院表.系名,学院表.系号,sum（教师表.工资）as总工资;
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事件编写程序代码：
打开数据库宾馆
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：
修改程序中的错误如下。
将"
WHILE"
DOWHILE"
NEXT"
SKIP"
CASE"
IF"
生成表
生成表"
命令按钮编写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
orderby职工号desc;
endif
endif
ifa=1andb=0
select职工号,姓名,系名,课程号from教师表,学院表;
intotableone_x.dbf
ifa=0andb=1
select职工号,姓名,工资,课程号from教师表,学院表;
intotableone_xx.dbf
第十六套
表单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处：
第2处：
歌手表.歌手编
升级会员 