2023年计算机二级答案.doc

第 1 套

基本操作：用命令新建一种名为"外汇"数据库，并将该命令存储于 one.txt 中。

1.1 create database 外汇（要保存到 one.txt 中）

1.3 create table rate (币种 1 代码 c(2),币种 2 代码 c(2),买入价 n(8,4),卖出价 n(8,4))(要保存到 two.txt 中)

1.4 选中编辑框控件属性：scrollbars 为 0-无

2.1 新建程序 three.prg 输入：

3 双击"查询"按钮输入：thisform.grid1.recordsource="select * from 外汇账户 where 钞汇标志='"+iif(thisform.myOption.value=1，"现汇","现钞")+"'

into cursor lsb"

双击"退出"按钮输入：thisform.release

if used("外汇代码")

select 外汇代码

else

use 外汇代码

endif

locate for 外币名称=thisform.Combo1.value

mm1=外币代码

locate for 外币名称=thisform.Combo2.value

mm2=外币代码

select * from rate where 币种 1 代码=mm1 and 币种 2 代码=mm2 into table tmp_rate

中，单击“下一步”按钮。

4. 在“报表向导”对话框“环节2-分组记录”中，单击“下一步”按钮。

5. 在“报表向导”对话框“环节3-选取报表样式”中，在“样式”中选取“经营式”，单击“下一步”按钮。

6. 在“报表向导”对话框“环节4-定义报表布局”中，单击“下一步”按钮。

7. 在“报表向导”对话框“环节5-排序顺序”中，选定“商品编码”字段并选取“升序”，再单击“添加”按钮，

单击“完毕”按钮。

8. 在“报表向导”对话框“环节6-完毕”中，单击“完毕”。

9. 在“另存为”对话框中，输入保存报表名“report_a”，再单击“保存”按钮，最后报表就生成了。

2.1 1. 单击“工具\向导\表单”菜单项，并显示“向导选用”对话框。

2. 在“向导选用”对话框中，选取“表单向导”并单击“拟定”按钮，并显示“表单向导”对话框。

再单击“下一步”按钮。

6. 在“表单向导”对话框“环节4-完毕”中，在“请输入表单标题”文本框中输入“商品数据”，再单击“完

毕”。

7. 在“另存为”对话框中，输入保存表单名“good_form”，再单击“保存”按钮，最后表单就生成了。

2.2 update 商品 set 销售价格=进货价格*(1+0.2268) where substr(商品编码,1,1)="3"（保存到 cmd_ab.txt 中）

3.1 选项按钮组属性：buttoncount 为 4

3.2 双击"拟定"按钮输入：

DO CASE

CASE THISFORM.OPTIONGROUP1.VALUE=1

SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="饮料")

CASE THISFORM.OPTIONGROUP1.VALUE=2

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

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

基本操作：建立数据库 orders_manage。

2.1 select * from orders order by 金额 where 职工号+str(金额,10,0) in (select 职工号+str(max(orders.金额),10,0) from orders group by 职工号) into

table results

2.2 create view view_b as select * from employee where 职工号 not in (select 职工号 from orders) order by 仓库号 desc(注：要保存到 view_b.txt

中

3 1. 建立表单

CREATE FORM myform_b

2. 在“表单设计器”中，在“属性”Caption处输入“订单管理”，在Name处输入“myform_b”。

3.在“表单设计器”中，单击鼠标右键，在弹出菜单中选取“数据环境”，在“数据环境设计器

-myform_b.scx”中，在“打开”对话框中，选取“employee.dbf”表，接着在“添加表或视图”对话框中，双击

加一种表格控件Grid1，在Grid1“属性”RecordSourceType处选取“4－SQL阐明”，在RecordSource处输入

=orders.职工号 group by orders.职工号 into cursor temp”。

)

3 在页框里添加表格，选中页框点右键选编辑才干添加表格。

额 from employee,orders where employee.职工号=orders.职工号 group by orders.职工号 into cursor temp”。

并选中“降序”单选钮。

4. 保存该视图，输入视图名为“view_ca”，再单击“拟定”按钮。

2.2 create view view_cb as select employee.职工号,姓名,sum(金额) as 总金额 from employee,orders where employee.职工号=orders.职工号 group by

employee.职工号 having sum(金额)>=15000 order by 总金额 asc(要保存到 cmd_cb.txt 中)

3.1 添加一种表格 Grid1，在其“属性”Name 处输入“Grdorders”，在 RecordSourceType 处选取“4－SQL 阐明”。

双击"DO"按钮输入：

zgh=ALLTRIM(ThisForm.Text1.Value)

If Used("employee")

SELECT employee

ELSE

USE employee

ENDIF

LOCATE FOR 职工号=zgh

ThisForm.Text2.Value=姓名

ThisForm.Text3.Value=性别

ThisForm.Grdorders.RecordSource="SELECT * FROM orders WHERE 职工号=='"+zgh+"' INTO CURSOR LSB"

双击表单：在"过程"Rigtclick 输入：do scmenu_d.mpr

2.2 select top 3 职工号,姓名,出生日期 from worker order by 出生日期 into table infor_db

3.3 双击"拟定"按钮输入：

IF thisform.check1.value=1

IF thisform.check1.value=2

SELECT * FROM orders INTO TABLE temp