在考生文件夹下完成下列操作:
1.用命令新建一个名为"外汇"的数据库,并将该命令存储于one.txt中;
2.将自由表"外汇汇率"、"外汇账户"、"外汇代码"加入到新建的"外汇"数据库中;
3.用SQL语句在"外汇"数据库中新建一个数据库表rate,其中包含4个字段“币种1代码”C(2)、“币种2代码”C(2)、“买入价”N(8,4)、“卖出价”N(8,4),请将SQL语句存储于two.txt中。
4.表单文件test_form中有一个名为form1的表单(如图),请将编辑框控件Edit1的滚动条去掉。
1.用MODI COMM ONE.TXT (扩展名不能省略)建立文本文件,在编辑窗口中输入代码:
crea data 外汇
2.使用命令:
OPEN DATA
ADD TABLE外汇汇率
ADD TABLE外汇账户
ADD TABLE外汇代码
3. 用MODI COMM TWO.TXT (扩展名不能省略)建立文本文件,在编辑窗口中输入代码:
crea table rate(币种1代码 C(2),币种2代码 C(2),买入价 N(8,4),卖出价 N(8,4))
4.打开表单,进入表单设计器,将Edit1的ScollBar属性改为0.
在考生文件夹下完成如下简单应用:
1.编写程序three.prg完成下列操作:根据"外汇汇率"表中的数据产生rate表中的数据。
要求:将所有"外汇汇率"表中的数据插入rate表中并且顺序不变,由于"外汇汇率"中的币种1和币种2存放的是外币名称,而rate表中的币种1代码和币种代码应该存放外币代码,所以插入时要做相应的改动,外币名称与外币代码的对应关系存储在"外汇代码"表中。
注意:程序必须执行一次,保证rate表中有正确的结果。
2.使用查询设计器建立一个查询文件four.qpr。查询要求:外汇帐户中有多少日元和欧元。查询结果包括了外币名称、钞汇标志、金额,结果按外币名称升序排序,在外币名称相同的情况下按金额降序排序,并将查询结果存储于表five.dbf中。
解答:
1.在命令窗口中输入命令MODI COMM THREE,进入代码窗口后,输入代码:
sele 1
use 外汇汇率
do while !eof()
sele 2
use 外汇代码
loca for 外币名称=a.币种1
a=外币代码
loca for 外币名称=a.币种2
b=外币代码
sele 3
use rate
appe blank
repl 币种1代码 with a,币种2代码 with b,买入价 with a.买入价,卖出价 with a.卖出价
sele 1
skip
enddo
代码输入后,保存、运行。
2.新建查询,添加文件“外汇账户”、“外汇代码”,通过“外币代码”建立联系,选取字段、排序依据、分组依据如下图:

设置查询去向,保存该查询,运行结果如下: 
设计一个文件名和表单名均为myaccount的表单。表单的标题为"外汇持有情况"。表单中有一个选项按钮组控件(myOption)、一个表格控件(Grid1)以及两个命令按钮"查询"(Command1)和"退出"(Command2)。其中,选项按钮组控件有两个按钮"现汇"(Option1)、"现钞"(Option2)。
运行表单时,首先在选项组控件中选择"现钞"或"现汇",单击"查询"命令按钮后,根据选项组控件的选择将"外汇账户"表的"现钞"或"现汇"(根据钞汇标志字段确定)的情况显示在表格控件中。
单击"退出"按钮,关闭并释放表单。
注:在表单设计器中将表格控件Grid1的数据源类型设置为"SQL说明"。
解答:
新建表单,保存,表单文件名为“myaccount”,表单的name属性也为“myaccount”,表单的Caption属性改为“外汇持有情况”,在表单上添加选项按钮组Optiongroup1,将其name属性改为“myOption”,用鼠标右键单击myOption,在快捷菜单中选择“生成器”,在生成器窗口中设置两个按钮,标准设置为"现汇"(Option1)、"现钞"(Option2)。添加表格控件,将其Recordsourcetype属性设为4;添加两个命令按钮,分别设置其Caption,如下图: 
为“查询”按钮设置Click事件代码为:
if thisform.myoption.value=1
thisform.grid1.recordsource="sele * from 外汇账户 where 钞汇标志='现汇' into curs t1"
else
thisform.grid1.recordsource="sele * from 外汇账户 where 钞汇标志='现钞' into curs t2"
endif
为“退出”按钮设置Click事件代码为:
thisform.release
附:本题相关表

| 广告合作:400-664-0084 全国热线:400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved
|