的过程编写如下代码:select year(出生日期) as 年份,count(*) as 人数 from customers group by 年份 order by 年份 into table tablethree 将菜单“退出”的代码编写为:myform.release 保存菜单 mymenu 并生成 mymenu.mpr 的菜单程序文件 新建表单 myform,将表单的属性 showwindow 属性改为 2-作为顶层表单,在表单的 load 事件中编写如下代码: do mymenu.mpr with this,表单的其余设置根据题目要求完成。
第4套
答案:2. update client set 性别="男" where 客户号="061009" 3.insert into client values(“071009”,“杨晓静”,“女”,{^1991-01-01}) 4.alter table client alter 性别 set check 性别=“男” or 性别=“女”
答案: 2 题答案与第 2 套题的第二答题的做法类似。 第 该题将按钮的标题改为 “退出” 后, 再双击 “退出” 进入其 Click 代码,编写如下代码:thisform.release.然后保存。再新建表单将其添加到表单上。
答案:打开菜单,将统计和退出菜单的过程编写如上图,保存并生成菜单。 表单中“确定”按钮的单击事件编写如下代码: x=val(thisform.text1.value) select orders.订单号,客户号,签订日期,sum(数量*单价) as 金额 from orderitems,orders,goods where orderitems. 订单号=orders.订单号 and orderitems.商品号=goods.商品号 group by orders.订单号 having sum(数量*单价)>=x order by 金额 desc,orders.订单号 into table tabletwo “关闭”按钮的单击事件代码如下: thisform.release
第5套
答案:1. select 编号,,出生日期,名称 as 部门名称 from 职工,部门 where 职工.部门编号=部门.部门编号 and year(出生日期)>=1985 and year(出生日期)<=1989 and 名称="销售部" order by 出生日期,编号 into table cyqk 2.该题做法与第 2 套第 4 套类同
答案:该题一定注意所有表单中的控件的 name 属性修改为题目中要求的。 按钮“查询”的 Click 事件代码入下: x=alltrim(thisform.text1.value) thisform.gridone.recordsource="select ,性别,出生日期,编号 from 部门,职工 where 部门.部门编号=职工. 部门编号 and 名称=x order by 编号 into table tableone"
第6套
答案:4 题原程序如下
改为: 保存并运行程序
答案:1.原程序 temp 为
修改为: 2.该题做法与第 2 套第 4 套第 5 套类同
答案:
列表框的 Dblcilck 事件的代码如下: x=alltrim(thisform.list1.value) select 职工号,,课时 from 表,教师表 where 表.系号=教师表.系号 and 系名=x order by 职工号 desc into table two
第7套
答案:二.1.文件-新建-查询,向查询设计器中添加: 电影.dbf , 公司.dbf,字段: 添加影片名,导演,电影公司 三个字段, 筛选:创立日期>=1910 and 创立日期<=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) order by 发行年份 desc into table tabletwo”,保存并运行.
第8套
答案:3. alter table orderitem alter 数量 set check 数量>=0
答案:二 1.根据要求建立完视图 myview。然后写如下 select 语句 Select * from myview where left(,2)=”吴” order by 客户名,订单号,图书名 into table mytable 二 2. 1)表单表题 caption 为”简单应用” 2)表单属性 Autocenter 改为.T. 3)退出 的 click 事件:thisform.release 4)表单右单击->数据环境->添加->选择 单选按钮 视图->将当前数据库的视图 myview 添加进去 5)在数据环境中选中视