VF试题Word文件下载.docx
《VF试题Word文件下载.docx》由会员分享，可在线阅读，更多相关《VF试题Word文件下载.docx（22页珍藏版）》请在冰豆网上搜索。
表单设计器"
窗口中，释放鼠标，即可生成表格名称为grdSalarys的表格。
综合应用双击"
生成"
按钮，在"
Command1.Click"
编辑窗口中编写相应的程序
opendatabasesalary_db
docase
casethisForm.optiongroup1.value=1&
&
"
雇员工资表"
select*fromsviewintotablegz1
casethisForm.optiongroup1.value=2&
"
部门表"
select*fromdeptintotablebm1
casethisForm.optiongroup1.value=3&
部门工资汇总表"
SELECTsalarys.部门号,部门名,sum（工资）工资,sum（补贴）补贴,sum（奖励）奖励,sum（失业保险）失业保险,sum（医疗统筹）医疗统筹;
FROMsalarys,dept;
WHEREsalarys.部门号=dept.部门号;
GROUPBYsalarys.部门号intotablehz1
endcase
closeall
creatview视图名asSQL语句
78套综合应用1
77套综合应用1CREATEVIEWsviewAS;
SELECTSTUDENT.学号,姓名,AVG（成绩）平均成绩,MIN（成绩）最低分,COUNT（*）选课门数;
FROMSTUDENT,SC;
WHERESTUDENT.学号=SC.学号;
GROUPBYSTUDENT.学号HAVINGCOUNT（*）>
3;
ORDERBY平均成绩DESC
CLOSEALL
76套简单应用1--SELECT*FROMorder_listWHERE总金额>
（SELECTAVG（总金额）FROMorder_list）ORDERBY客户号INTOTABLEresults
2报表-快速报表（关于快速报表）综合应用12
75综合应用1---为表增加新字段altertable+表名addcolumn+字段名
Update表名set字段的变化
UPDATEorder_detailSET新单价=单价*0.9WHERE订单号=（SELECT订单号FROMorder_listWHERE订单号=order_detail.订单号ANDYEAR（订购日期）=2001）
UPDATEorder_detailSET新单价=单价*1.1WHERE订单号=（SELECT订单号FROMorder_listWHERE订单号=order_detail.订单号ANDYEAR（订购日期）=2002）
74简单应用1—把customer1中的记录全部追加到customer表中-------USEcustomer
APPENDFROMcustomer1
Passwordchar----用户输入的是字符还是占位符，并且显示用作占位符的字符
综合应用（报表设计器）
73套简单应用1综合应用未懂得
72套综合应用（未懂得）
71套简单应用1--并在"
快捷菜单设计器-scmenu_d-时间过程"
编辑窗口中输入"
myform_da.caption=time（）"
。
并在"
快捷菜单设计器-scmenu_d-日期过程"
myform_da.caption=dtoc（date（））"
双击"
属性"
的RightClickEvent处，在其编辑窗口中输入"
doscmenu_d.mpr"
并关闭编辑窗口。
综合应用3--：
确定"
命令按钮，在确定编辑窗口中输入命令组，接着关闭编辑窗口。
IFthisform.optiongroup1.option1.value=1
IFthisform.check1.value=1
SELECT*FROMemployeeINTOTABLEtemp
ELSE
SELECT*FROMemployee
ENDIF
IFthisform.check1.value=2
SELECT*FROMordersINTOTABLEtemp
SELECT*FROMorders
70套综合应用1不懂
69套简单应用1不懂--【操作步骤】
在命令窗口输入以下语句。
SELECT*;
FROMorders;
ORDERBY金额;
WHERE职工号+str（金额,10,0）IN;
（SELECT职工号+str（MAX（orders.金额）,10,0）;
GROUPBY职工号）;
INTOTABLEresults2---在命令窗口输入以下语句。
CREATEviewview_basSELECT*FROMemployeeWHERE职工号NOTIN（SELECT职工号FROMorders）ORDERBY仓库号DESC
68——简单应用2为所有商品编码首字符是“3”的商品计算销售价格，销售价格是在进货价格的基础上加22.68%----------UPDATE商品SET销售价格=进货价格*（1+0.2268）WHEREsubstr（商品编码,1,1）="
3"
综合应用2在"
中，双击确定命令按钮，在"
Command2.Click"
编辑窗口中输入下列语句，接着关闭编辑窗口。
DOCASE
CASETHISFORM.OPTIONGROUP1.VALUE=1
SELECT*FROM商品WHERE分类编码=ANY（SELECT分类编码FROM分类WHERE分类名称="
饮料"
）
CASETHISFORM.OPTIONGROUP1.VALUE=2
调味品"
CASETHISFORM.OPTIONGROUP1.VALUE=3
酒类"
CASETHISFORM.OPTIONGROUP1.VALUE=4
小家电"
ENDCASE
67——基本操作3，为“文件”下的子菜单项“查找”设置访问键F（显示方式为“查找F”）--------选择子菜单"
查找"
并修改其菜单项为"
查找\<
F"
，最后保存菜单。
简单应用2（最后一部分-在报表标题带区的右端利用OLE对象插入文件picture）在报表控件里面-图片绑定控件
综合应用不懂
综合应用即使题目没告诉也要将表添加到数据环境中
如果命令按钮是SQL语句的话，勿忘记设置表单的recordsource属性4—SQL说明
66——基本操作3--CREATETABLErate（币种1代码C
（2）,币种2代码C
（2）,买入价N（8,4）,卖出价N（8,4））
简单应用1不懂综合应用不懂thisform.grid1.recordsource="
SELECT*FROM外汇账户WHERE钞汇标志='
+iif（thisform.myOption.value=1,"
现汇"
"
现钞"
）+"
'
INTOcursorlsb"
65——综合应用（查询按钮）不懂在"
中，双击查询命令按钮，在"
输入语句如下所示。
SELECT姓名,年龄,性别,家庭地址;
FROMp_t;
WHERE户主编号=alltrim（ThisForm.Text1.Value）;
INTOarraytmp
ThisForm.Text2.Value=tmp
（1）
ThisForm.Text3.Value=tmp
（2）
ThisForm.Text4.Value=tmp（3）
ThisForm.Text5.Value=tmp（4）
ThisForm.Grid1.RecordSource="
SELECT土地编号,小地名,面积,树种编号,蓄积,承包年度FROMfr_tWHERE户主编号='
+alltrim（ThisForm.Text1.Value）+"
INTOCURSORLSB"
63——简单应用2（关于班长名student.姓名AS班长名"
和班主任名teacher.教师名AS班主任名"
62——简单应用2不懂综合应用（录取按钮的编写）不懂closeall
CREATETABLEtest（考生号C（4）,政治成绩N（5,1）,外语成绩N（5,1）,高数成绩N（5,1）,专业课成绩N（5,1）,总成绩N（5,1））
use
select2
usetest
select1
usekscjb
dowhile.not.eof（）
selecttest
locatefor考生号=kscjb->
考生号
ifnotfound（）then
appendblank
replace考生号withkscjb->
endif
casekscjb->
考试科目="
101"
replace政治成绩withkscjb->
成绩
102"
replace外语成绩withkscjb->
103"
replace高数成绩withkscjb->
104"
replace专业课成绩withkscjb->
selectkscjb
skip
enddo
updatetestset总成绩=政治成绩+外语成绩+高数成绩+专业课成绩
SELECTKsb.考生号,Ksb.姓名,Ksb.性别,Ksb.单位,Test.政治成绩,;
Test.外语成绩,Test.高数成绩,Test.专业课成绩,Test.总成绩;
FROMsdb!
ksbINNERJOINtestONKsb.考生号=Test.考生号;
WHERETest.总成绩>
=330;
ORDERBYTest.总成绩DESC;
INTOTABLEfour
61——简单应用1（查询年份的设置在"
表达式生成器"
对话框的表达式处输入"
Year（cbc.日期）"
，在实例处输入"
2003"
）2（程序的修改）综合应用（统计按钮）--在"
中，双击统计命令按钮，在"
编辑窗口中输入SQL的SELECT命令查询语句，接着关闭编辑窗口。
输入语句如下。
UPDATECUSSET会员类型="
金卡会员"
WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）>
=15000）
银卡会员"
WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）<
15000ANDSUM（数量*单价）>
=10000）
铜卡会员"
10000ANDSUM（数量*单价）>
=5000）
普通会员"
5000）
59——简单操作2综合应用SELECTStudent.学号,Student.姓名,AVG（成绩）AS平均成绩,MIN（成绩）AS最低分;
studentINNERJOINsdb!
scONStudent.学号=Sc.学号;
GROUPBYStudent.学号HAVINGMIN（成绩）>
=60;
（最小的成绩都大于60，则其他几门课程肯定大于60）
ORDERBYStudent.学号;
INTOTABLEfour.dbf
57——基本操作2不懂inputmask按钮3readonly按钮4简单应用1不懂综合应用-----在表单的load事件中执行菜单程序mumenu.mpr-----，双击"
LoadEvent"
，在"
goods.Load"
domymenu.mpr"
InitEvent"
myform.Init"
domymenu.mprwiththis,'
xxx'
，启动菜单命令。
双击DestroyEvent，在"
myform.Destroy"
releasemenuxxxextended"
，在表单退出时释放菜单。
步骤5：
子菜单的"
结果"
中选择"
过程"
并输入命令下列语句：
myform.grid1.recordsource="
select*fromproductswhere分类编码='
4001'
intocursorlsb"
步骤6：
myform.grid1.recordsource="
1001'
步骤7：
3001'
56——简单应用1-SELECTTOP5姓名,出生日期;
FROMemployee;
ORDERBY出生日期;
（按年龄降序，即按出生日期升序）
INTOTABLEemage
2综合应用步骤4：
中，依次建立Text1、Text2和Text3三个文本框，Text3的Enable（指定表单或控件能否由用户相应引发的事件）属性选择"
.F-假
计算"
编辑窗口中输入下列程序
casethisForm.optiongroup1.value=1
thisForm.Text3.Value=val（thisForm.Text1.Value）+val（thisForm.Text2.Value）
casethisForm.optiongroup1.value=2
thisForm.Text3.Value=val（thisForm.Text1.Value）-val（thisForm.Text2.Value）
casethisForm.optiongroup1.value=3
thisForm.Text3.Value=val（thisForm.Text1.Value）*val（thisForm.Text2.Value）
casethisForm.optiongroup1.value=4
thisForm.Text3.Value=val（thisForm.Text1.Value）/val（thisForm.Text2.Value）
55——基本操作3--为“隐藏”命令按钮添加代码，使表单运行时，单击此按钮隐藏表单上标签控件label1--在"
中，双击"
隐藏"
命令按钮，在其编辑窗口中输入"
thisform.label1.visible=.F."
简单应用双击"
DestroyEvent"
操作完毕后运行表单。
综合应用
步骤4：
中，选定List1控件，在其"
对话框的RowSourceType处选择"
6－字段"
，在RowSource处选择"
课程．课程名"
，双击ClickEvent事件，在"
List1.Click"
编辑窗口中，输入下列语句：
aa＝课程．课程名----将结果存储在以课程名命名的表中
SELECTCOUNT（*）AS人数；
FROM考试成绩；
WHERE考试成绩．课程编号＝课程．课程编号；
INTOTABLE&
aa----将结果存储在以课程名命名的表中
54——基本操作4----为student表增加一个年龄字段，字段为数值型
（2）（4）在命令窗口输入以下语句。
Closeall
ALTERTABLEstudentADDCOLUMN年龄N
（2）
简单应用1----打开程序modi1.prg。
修改程序如下：
第1处：
判断是否找到，所以应改为：
DOWHILEFOUND（）
第2处：
如果是"
女"
，则继续，所以应改为：
LOOP
第3处：
继续查找下一个，所以应改为：
CONTINUE
综合应用不懂
53——基本操作4-把课程表中课程名为数据库的课程的任课教师改为“T2222”------UPDATE课程SET任课教师="
T2222"
WHERE课程名="
数据库"
简单应用-1不懂-，再双击此计时器控件，在"
Timer1.Timer"
编辑窗口中输入下列命令组，再关闭此窗口。
thisform.Label1.Left=thisform.label1.Left-10
IfTHISFORM.Label1.Left<
=-THISFORM.Label1.WidthThen
thisform.label1.Left=thisform.WIDTH
ENDIF
2-在"
函数和表达式"
文本框中输入"
count（*）as选课人数"
并单击"
添加"
按钮。
显示-常规选项-顶层表单
综合应用=在表单的表格控件中显示课程表的内容------myform.grid1.RecordSource＝"
课程"
在表单的表格控件中显示视图sview中的内容----myform.grid1.RecordSource＝"
sview"
预览报表creport----reportformcreportpreview"
步骤9：
单击常用工具栏中的"
打开"
按钮，打开myform表单。
中，在其"
的ShowWindow处选择"
2－作为顶层表单"
；
Form1.Load"
，启动菜单命令；
52——职工号的最左边四位字符是“1102”——在"
字段有效性"
框的"
规则"
中输入"
Left（职工号,4）="
1102"
x=ThisForm.Pageframe1.Pbo1.Value
ifThisForm.Pageframe1.Page2.Optiongroup1.Value=1
SELECT学院表.系名,学院表.系号,avg（教师表.工资）as平均工资;
FROM学院表,教师表;
WHERE学院表.系号=教师表.系号;
AND学院表.系名=x;
GROUPBY学院表.系号;
INTOTABLEsalary.dbf
else
SELECT学院表.系名,学院表.系号,sum（教师表.工资）as总工资;
FROM学院表,教师表;
WHERE学院表
升级会员 