VFP上机题库及答案.docx
- 文档编号:30273168
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:20
- 大小:2.35MB
VFP上机题库及答案.docx
《VFP上机题库及答案.docx》由会员分享,可在线阅读,更多相关《VFP上机题库及答案.docx(20页珍藏版)》请在冰豆网上搜索。
VFP上机题库及答案
VF资料上的题号:
8、9、59-66、68-74、76、83-88、90-107
VF新题第1套
答案:
1.先建一个表,appendfrom歌手信息
第2小题操作完菜单后要保存菜单,并选择“菜单”下的“生成”
第3小题的报表向导是一对多报表向导。
第4小题updatetempset年龄=20where歌手编号=111
原程序如下:
答案:
简单应用题1题答案第一行改为createtableprime(datf)
第九行填写为loop
第12行填写为exit
第16行改为insertintoprimevalues(n)
简单应用题2题答案
select姓名,打分表.歌手编号,avg(分数)as平均分from歌手信息,打分表where歌手信息.歌手编号=打分表.歌手编号groupby姓名havingavg(分数)>8.2orderby平均分descintotableresult
答案:
3小题建立类的步骤见第2套题
5小题先往该表单的数据环境中添加“选送单位”表,再修改题目要求的属性。
6小题DblClick(右单击)事件中的代码如下:
x=alltrim(thisform.list1.value)
select单位名称,max(分数)as最高分,min(分数)as最低分,avg(分数)as平均分from选送单位,歌手信息,打分表where选送单位.单位号=歌手信息.选送单位号and歌手信息.歌手编号=打分表.歌手编号and单位名称=xintotabletwo
selectmax(分数)as最高分,min(分数)as最低分,avg(分数)as平均分from选送单位,歌手信息,打分表where选送单位.单位号=歌手信息.选送单位号and歌手信息.歌手编号=打分表.歌手编号and单位名称=xintoarrayab
thisform.text1.value=ab
(1)
thisform.text2.value=ab
(2)
thisform.text3.value=ab(3)
第2套
答案:
第2小题操作完菜单后要保存菜单,并选择“菜单”下的“生成”。
其中退出菜单的菜单名称里这样填写:
退出(\ 第4小题createtable学生(学号C(10)primarykey,姓名C(16),年龄I) 答案: 1.原程序test如下 改为 2.新建类的窗口如下 单击上图的“确定”按钮后弹出新类的窗口如下 然后在属性窗口中将command1对象的标题(caption)改为打开。 保存后关闭改类设计器。 然后新建一个表单保存的文件名为myform,如下图 单击上图中表单控件中的“添加”,弹出 ,单击白色鼠标所指的对象,将其放入表单中即可。 保存表单。 答案: 5小题先将表“部门”添加到表单的数据环境中,再修改题目要求的属性。 7小题DblClick事件代码如下: x=alltrim(thisform.list1.value) select职工号,姓名,工资from部门,职工where职工.部门号=部门.部门号and部门名=xorderby职工号descintotablethree 第3套 答案1.2.3题直接在表中修改就行,如果有些题目要求用命令如下: 1.insertintoordersvalues(“0050”,”061002”,{^2010-10-10}) 2.updateordersset订单日期={^2010-10-10}where订单号=”0025” 3.altertableordersadd金额Y 4.deletefromorderitemswhere订单号=”0032”and商品号=”C1003” 注意第四小题的商品号“C1003”字母必须和表中的大小写一致。 答案: 1.select客户号,姓名,性别,联系电话fromcustomerswhere客户号notin(select客户号fromorderswhereyear(签订日期)=2008andmonth(签订日期)=2)and 客户号in(select客户号fromorders)orderby客户号descintotabletableone 2.用视图设计器做完视图后,根据视图中的全部信息查询存放到表tabletwo中的命令: Select*fromviewoneintotabletabletwo 答案: 建立菜单,菜单的菜单项书写为: 统计(\ 退出(\ 其中“统计”菜单的过程编写如下代码: selectyear(出生日期)as年份,count(*)as人数fromcustomersgroupby年份orderby年份intotabletablethree 将菜单“退出”的代码编写为: myform.release 保存菜单mymenu并生成mymenu.mpr的菜单程序文件 新建表单myform,将表单的属性showwindow属性改为2-作为顶层表单,在表单的load事件中编写如下代码: domymenu.mprwiththis,表单的其余设置根据题目要求完成。 第4套 答案: 2.updateclientset性别="男"where客户号="061009" 3.insertintoclientvalues(“071009”,“杨晓静”,“女”,{^1991-01-01}) 4.altertableclientalter性别setcheck性别=“男”or性别=“女” 答案: 第2题答案与第2套题的第二答题的做法类似。 该题将按钮的标题改为“退出”后,再双击“退出”进入其Click代码,编写如下代码: thisform.release.然后保存。 再新建表单将其添加到表单上。 答案: 打开菜单,将统计和退出菜单的过程编写如上图,保存并生成菜单。 表单中“确定”按钮的单击事件编写如下代码: x=val(thisform.text1.value) selectorders.订单号,客户号,签订日期,sum(数量*单价)as金额fromorderitems,orders,goodswhereorderitems.订单号=orders.订单号andorderitems.商品号=goods.商品号groupbyorders.订单号havingsum(数量*单价)>=xorderby金额desc,orders.订单号intotabletabletwo “关闭”按钮的单击事件代码如下: thisform.release 第5套 答案: 1.select编号,姓名,出生日期,名称as部门名称from职工,部门where职工.部门编号=部门.部门编号andyear(出生日期)>=1985andyear(出生日期)<=1989and名称="销售部"orderby出生日期,编号intotablecyqk 2.该题做法与第2套第4套类同 答案: 该题一定注意所有表单中的控件的name属性修改为题目中要求的。 按钮“查询”的Click事件代码入下: x=alltrim(thisform.text1.value) thisform.gridone.recordsource="select姓名,性别,出生日期,编号from部门,职工where部门.部门编号=职工.部门编号and名称=xorderby编号intotabletableone" 第6套 答案: 4题原程序如下 改为: 保存并运行程序 答案: 1.原程序temp为 修改为: 2.该题做法与第2套第4套第5套类同 答案: 列表框的Dblcilck事件的代码如下: x=alltrim(thisform.list1.value) select职工号,姓名,课时from学院表,教师表where学院表.系号=教师表.系号and系名=xorderby职工号descintotabletwo 第7套 答案: 二.1.文件-新建-查询,向查询设计器中添加: 电影.dbf,公司.dbf,字段: 添加影片名,导演,电影公司三个字段,筛选: 创立日期>=1910and创立日期<=1920,排序依据: 导演升序,电影公司降序,查询-查询去向,表输入: tableb,保存为queryb.qpr并运行. 2.文件-新建-类-新建文件,类名输入: mycheckbox,派生于: checkbox,存储于: myclasslib,点击确定,属性窗口中height改为30,width改为60.保存. 答案: 三.按照题目要求建立如图表单界面,将表格控件grid1的recordsourcetype属性修改为: 4-SQL说明,查询的click中: thisform.grid1.recordsource=”select影片名,导演,发行年份; where影片分类=alltrim(thisform.text1.value)orderby发行年份descintotabletabletwo”,保存并运行. 第8套 答案: 3.altertableorderitemalter数量setcheck数量>=0 答案: 二1.根据要求建立完视图myview。 然后写如下select语句 Select*frommyviewwhereleft(姓名,2)=”吴”orderby客户名,订单号,图书名intotablemytable 二2.1)表单表题caption为”简单应用” 2)表单属性Autocenter改为.T. 3)退出的click事件: thisform.release 4)表单右单击->数据环境->添加->选择单选按钮视图->将当前数据库的视图myview添加进去 5)在数据环境中选中视图的蓝色标题,拖拽到表单中,保存,完成。 答案: 2.select客户名,图书名,数量,单价,(单价*数量)金额fromgoodsa,orderitemb,ordercwherea.图书号=b.图书号andb.订单号=c.订单号andmonth(签订日期)>=7orderby客户名,图书名intotablemysqltable 3.菜单项: 运行表单doformmyform 执行程序dosql 退出setsysmenutodefault clearevents 4.main程序: domymenu.mpr Readevents 5.在项目管理器中右下角单击“连编”,选择第二个选项“连编应用程序”,写上程序名: myproject.app 6.选择VF菜单中的“程序”,运行刚生成的应用程序文件: myproject.app 第9套 答案: 一.4.文件-新建-程序,命令: altertableemployeealter性别setcheck性别$”男女”,保存为sone,并运行. 答案: 二.1程序修改为: SELECTDepartment.部门名,count(*)as总人数; FROMemployee_m! departmentINNERJOINemployee_m! employee; ONDepartment.部门号=Employee.部门; groupbyEmployee.部门; INTOTABLEtone.dbf SELECTDepartment.部门名,count(*)as人数_男; FROMemployee_m! departmentINNERJOINemployee_m! employee; ONDepartment.部门号=Employee.部门; where性别="男"; groupbyEmployee.部门; INTOTABLEttwo.dbf SELECTtone.部门名,ttwo.人数_男,tone.总人数-ttwo.人数_男as人数_女,tone.总人数; FROMtoneINNERJOINttwo; ontone.部门名=ttwo.部门名; orderbytone.部门名desc; INTOTABLEtableone 保存并运行。 答案: 文件-新建-表单,保存为formone,文本框的value属性改为=date(),查询的click事件中: SELECT职员号,姓名,性别,出生日期,部门名FROMdepartment,employee; WHEREDepartment.部门号=Employee.部门AND出生日期>=ctod(thisform.text1.value); ORDERBY部门名DESC,Employee.职员号INTOTABLEtablethree
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 上机 题库 答案