第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"”，最后单击“确定”按钮即可。 [NextPage]

　　二、

　　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[2]

　　thisform.text2.value=a[1]

　　else

　　wait "没有查询到,请重输" window timeout 2

　　endif

　　6. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。