2011年计算机二级VFP上机考试冲刺模拟试题（28）
第28套一、
1. 打开数据库
OPEN DATABASE stock
2. 移去表
REMOVE TABLE stock_fk
如果提示信息，那么单击“是”按钮。
可以有两种方法：一是命令方法，二是菜单方法。
命令方法：
OPEN DATABASE stock
ADD TABLE stock_name
菜单方法：
1. 单击“文件\打开”命令项，选择“文件类型”为数据库，打开“stock”。
2. 在“数据库设计器-stock”中单击鼠标右键，显示右击菜单，选择“添加表”命令，并选择相应的表文件即可(stock_name)。
方法一：
1. 打开并修改数据库
MODIFY DATABASE stock
2. 在“数据库设计器-stock”中，选择表“stock_sl”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-stock_sl.dbf”窗口，单击“索引”选项卡，然后输入索引名“股票代码”，选择类型为“主索引”，表达式为“股票代码”，最后单击“确定”按钮，再单击“是(Y)”就可以建立主索引了。
方法二：
使用命令生成主索引
ALTER TABLE stock_sl ADD PRIMARY KEY 股票代码 TAG 股票代码
1. 在“数据库设计器-stock”中，选择表“stock_name”并单击鼠标右键，选择“修改”命令项。
2. 在“表设计器-stock_name.dbf”中，选择“股票代码”字段，在“字段有效性”标签的“规则”中输入“left(股票代码,1)="6"”，在“信息”中输入“"股票代码的第一位必须是6"”，最后单击“确定”按钮即可。
2011年计算机二级VFP上机考试冲刺模拟试题（28）
</p> 二、SELECT stock_name.股票简称,stock_sl.现价,stock_sl.买入价,stock_sl.持有数量;
FROM stock_name,stock_sl;
WHERE stock_sl.股票代码=stock_name.股票代码 And stock_sl.现价>stock_sl.买入价 ;
ORDER BY stock_sl.持有数量 DESC;
INTO TABLE stock_temp
1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
2. 在“向导选取”对话框中，选择“一对多报表向导”并单击“确定”按钮，并显示“一对多报表向导”对话框。
3. 在“一对多报表向导”对话框的“步骤1-从父表选择字段”中，首先要选取表“stock_name”，在“可用字段”列表框中显示表stock_name的所有字段名，并选定“股票简称”添加到“选定字段”列表框中，单击“下一步”按钮。
4. 在“一对多报表向导”对话框的“步骤2-从子表选择字段”中，选取表“stock_sl”，在“可用字段”列表框中显示表stock_sl的所有字段名，并选定所有的字段添加到“选定字段”列表框中，单击“下一步”按钮。
5. 在“一对多报表向导”对话框的“步骤3-为表建立关系”中，单击“下一步”按钮。
6. 在“一对多报表向导”对话框的“步骤4-排序记录”中，选定“股票代码”字段并选择“升序”，再单击“添加”按钮，单击“完成”按钮。
7. 在“一对多报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“股票持有情况”，单击“完成”。
8. 在“另存为”对话框中，输入保存报表名“stock_report”，再单击“保存”按钮，最后报表就生成了。
三、
1. 在命令窗口中输入建立表单命令
CREATE FORM mystock
2. 在“表单设计器-mystock.scx”中，在“属性”的Caption处输入“股票持有情况”，在Name处输入“mystock”。
3. 在“表单设计器-mystock.scx”中，添加两个文本框(“Text1”和“Text2”)。
4. 在“表单设计器-mystock.scx”中，添加两个命令按钮，单击第1个命令按钮在“属性”的Caption处输入“查询”，单击第2个命令按钮在“属性”的Caption处输入“退出”。
5. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入命令组，接着关闭编辑窗口。
pinyin= alltrim(thisform.text1.value)
open database stock
use stock_name
locate for 汉语拼音=pinyin
if found()
select 持有数量,股票简称 from stock_sl,stock_name ;
where 汉语拼音=pinyin and stock_sl.股票代码=stock_name.股票代码;
into array a
thisform.text1.value=a
thisform.text2.value=a
else
wait "没有查询到,请重输" window timeout 2
endif
6. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。
页:
[1]