VF试题.docx

VF试题.docx

《VF试题.docx》由会员分享，可在线阅读，更多相关《VF试题.docx（22页珍藏版）》请在冰豆网上搜索。

VF试题

85基本操作4-

864--文本框中输入负数时，命令按钮无效，即不能响应--ifthisform.Text1.value<0

mand1.enabled=0endif

2-----文本框的默认值设置为0即value属性为0

84简单应用2综合应用

83综合应用-------SELECTcust.顾客号,顾客名,地址,order.商品号,商品名,单价,数量,单价*数量AS金额FROMcomm,cust,order;

WHEREcomm.商品号=order.商品号ANDcust.顾客号=order.顾客号ANDcust.顾客号=THISFORM.TEXT1.VALUE;

INTOCURSORLSB

SELECTDIST顾客号,顾客名,地址FROMLSBINTODBFTABB

SELECT商品号,商品名,单价,数量,金额FROMLSBINTODBFTABC

THISFORM.GRID1.RECORDSOURCE="SELE*FROMTABBINTOCURSORA"

THISFORM.GRID2.RECORDSOURCE="SELE*FROMTABCINTOCURSORb"

82------SELECT学生.学号,姓名,AVG（成绩）AS平均分,COUNT（*）AS选课门数;

FROM学生,选课;

WHERE学生.学号=选课.学号;

GROUPBY选课.学号HAVINGCOUNT（*）>=5;

ORDERBY平均分DESC;

INTODBFstu_temp

Update表名set字段名=（正确的名字）

Ifelseendif（不能分开）

修改过的程序最后一定要运行一遍

80套基本操作1SELECT*FROM销售表INTOdbf销售表2001WHERE日期<={^2000-12-31}2题物理删除

CLOSEALL

DELETEfrom销售表WHERE日期<={^2000-12-31}

pack

综合应用1

79套简单应用2---

在"数据环境设计器-form1.scx"中选定表"salarys"并按住鼠标不放，拖至"表单设计器"窗口中，释放鼠标，即可生成表格名称为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

ELSE

IFthisform.check1.value=2

SELECT*FROMordersINTOTABLEtemp

ELSE

SELECT*FROMorders

ENDIF

ENDIF

70套综合应用1不懂

69套简单应用1不懂--【操作步骤】

在命令窗口输入以下语句。

SELECT*;

FROMorders;

ORDERBY金额;

WHERE职工号+str（金额,10,0）IN;

（SELECT职工号+str（MAX（orders.金额）,10,0）;

FROMorders;

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

SELECT*FROM商品WHERE分类编码=ANY（SELECT分类编码FROM分类WHERE分类名称="调味品"）

CASETHISFORM.OPTIONGROUP1.VALUE=3

SELECT*FROM商品WHERE分类编码=ANY（SELECT分类编码FROM分类WHERE分类名称="酒类"）

CASETHISFORM.OPTIONGROUP1.VALUE=4

SELECT*FROM商品WHERE分类编码=ANY（SELECT分类编码FROM分类WHERE分类名称="小家电"）

ENDCASE

67——基本操作3，为“文件”下的子菜单项“查找”设置访问键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——综合应用（查询按钮）不懂在"表单设计器"中，双击查询命令按钮，在"Command1.Click"编辑窗口中输入下列语句，接着关闭编辑窗口。

输入语句如下所示。

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

docase

casekscjb->考试科目="101"

replace政治成绩withkscjb->成绩

casekscjb->考试科目="102"

replace外语成绩withkscjb->成绩

casekscjb->考试科目="103"

replace高数成绩withkscjb->成绩

casekscjb->考试科目="104"

replace专业课成绩withkscjb->成绩

endcase

selectkscjb

skip

enddo

closeall

updatetestset总成绩=政治成绩+外语成绩+高数成绩+专业课成绩

SELECTKsb.考生号,Ksb.姓名,Ksb.性别,Ksb.单位,Test.政治成绩,;

Test.外语成绩,Test.高数成绩,Test.专业课成绩,Test.总成绩;

FROMsdb!

ksbINNERJOINtestONKsb.考生号=Test.考生号;

WHERETest.总成绩>=330;

ORDERBYTest.总成绩DESC;

INTOTABLEfour

61——简单应用1（查询年份的设置在"表达式生成器"对话框的表达式处输入"Year（cbc.日期）"，在实例处输入"2003"。

）2（程序的修改）综合应用（统计按钮）--在"表单设计器"中，双击统计命令按钮，在"Command1.Click"编辑窗口中输入SQL的SELECT命令查询语句，接着关闭编辑窗口。

输入语句如下。

UPDATECUSSET会员类型="金卡会员"WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）>=15000）

UPDATECUSSET会员类型="银卡会员"WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）<15000ANDSUM（数量*单价）>=10000）

UPDATECUSSET会员类型="铜卡会员"WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）<10000ANDSUM（数量*单价）>=5000）

UPDATECUSSET会员类型="普通会员"WHERE会员号=ANY（SELECT会员号FROMcbcGROUPBY会员号HAVINGSUM（数量*单价）<5000）

59——简单操作2综合应用SELECTStudent.学号,Student.姓名,AVG（成绩）AS平均成绩,MIN（成绩）AS最低分;

FROMsdb!

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="select*fromproductswhere分类编码='1001'intocursorlsb"

步骤7：

在"酒类"子菜单的"结果"中选择"过程"并输入命令下列语句：

myform.grid1.recordsource="select*fromproductswhere分类编码='3001'intocursorlsb"

56——简单应用1-SELECTTOP5姓名,出生日期;

FROMemployee;

ORDERBY出生日期;（按年龄降序，即按出生日期升序）

INTOTABLEemage

2综合应用步骤4：

在"表单设计器"中，依次建立Text1、Text2和Text3三个文本框，Text3的Enable（指定表单或控件能否由用户相应引发的事件）属性选择".F-假

双击"计算"按钮，在"Command1.Click"编辑窗口中输入下列程序

docase

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）

endcase

55——基本操作3--为“隐藏”命令按钮添加代码，使表单运行时，单击此按钮隐藏表单上标签控件label1--在"表单设计器"中，双击"隐藏"命令按钮，在其编辑窗口中输入"thisform.label1.visible=.F."。

简单应用双击"InitEvent"，在"myform.Init"编辑窗口中输入"domymenu.mprwiththis,'xxx'"，启动菜单命令。

双击"DestroyEvent"，在"myform.Destroy"编辑窗口中输入"releasemenuxxxextended"，在表单退出时释放菜单。

操作完毕后运行表单。

综合应用

步骤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－作为顶层表单"；双击"LoadEvent"，在"Form1.Load"编辑窗口中输入"domymenu.mpr"；双击"InitEvent"，在"myform.Init"编辑窗口中输入"domymenu.mprwiththis,'xxx'"，启动菜单命令；双击"DestroyEvent"，在"myform.Destroy"编辑窗口中输入"releasemenuxxxextended"，在表单退出时释放菜单。

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学院表