其中“统计”菜单的过程编写如下代码：
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
升级会员 