</p> 二、9 k* P3 ^0 Y4 t0 K5 H3 a
SELECT stock_name.股票简称,stock_sl.现价,stock_sl.买入价,stock_sl.持有数量;
6 { s5 ]/ |; `9 l9 M FROM stock_name,stock_sl;
' m0 c! y% B j1 E: s WHERE stock_sl.股票代码=stock_name.股票代码 And stock_sl.现价>stock_sl.买入价 ;
4 w0 M# X; a0 Z/ L4 p8 a ORDER BY stock_sl.持有数量 DESC;
" \6 C4 R) S' i5 n$ f6 h) v INTO TABLE stock_temp7 P' U& K0 x0 L% m
1. 单击“工具\向导\报表”菜单项,并显示“向导选取”对话框。' ^) ^% K4 d; Y5 Z3 P* S0 B
2. 在“向导选取”对话框中,选择“一对多报表向导”并单击“确定”按钮,并显示“一对多报表向导”对话框。9 D& M' S% V. @' ]4 Z
3. 在“一对多报表向导”对话框的“步骤1-从父表选择字段”中,首先要选取表“stock_name”,在“可用字段”列表框中显示表stock_name的所有字段名,并选定“股票简称”添加到“选定字段”列表框中,单击“下一步”按钮。
1 T5 m8 J& t2 F 4. 在“一对多报表向导”对话框的“步骤2-从子表选择字段”中,选取表“stock_sl”,在“可用字段”列表框中显示表stock_sl的所有字段名,并选定所有的字段添加到“选定字段”列表框中,单击“下一步”按钮。
- G+ y/ g/ q2 Z# c 5. 在“一对多报表向导”对话框的“步骤3-为表建立关系”中,单击“下一步”按钮。2 L/ K$ ~9 T4 d8 p/ h/ {
6. 在“一对多报表向导”对话框的“步骤4-排序记录”中,选定“股票代码”字段并选择“升序”,再单击“添加”按钮,单击“完成”按钮。* I' ?, ^# H( q+ S& a: ]
7. 在“一对多报表向导”对话框的“步骤6-完成”中,在“报表标题”文本框中输入“股票持有情况”,单击“完成”。
6 T) R# W4 l) I% }4 n7 p9 L9 k: L 8. 在“另存为”对话框中,输入保存报表名“stock_report”,再单击“保存”按钮,最后报表就生成了。+ p( X! ^" M, K3 e( w
三、' g$ H( H( N' o5 Q9 M- u, Y* d
1. 在命令窗口中输入建立表单命令
$ {* o7 `* K. m; B3 R" R. r6 \ CREATE FORM mystock
& W" g$ y: ^5 c N: [% p, P 2. 在“表单设计器-mystock.scx”中,在“属性”的Caption处输入“股票持有情况”,在Name处输入“mystock”。
: c* z8 w# E2 i7 }& n% W 3. 在“表单设计器-mystock.scx”中,添加两个文本框(“Text1”和“Text2”)。/ W9 ~3 \$ r: e9 }. s4 ~
4. 在“表单设计器-mystock.scx”中,添加两个命令按钮,单击第1个命令按钮在“属性”的Caption处输入“查询”,单击第2个命令按钮在“属性”的Caption处输入“退出”。
7 Q% D d8 T" B# K 5. 双击“查询”命令按钮,在“Command1.Click”编辑窗口中输入命令组,接着关闭编辑窗口。
5 ~/ ?% p; T2 E) N pinyin= alltrim(thisform.text1.value). f K# @4 j2 H1 i
open database stock
! e) e$ a/ |' a6 S use stock_name: g, @( n* h: Q& j$ v
locate for 汉语拼音=pinyin U: N) q( O! k7 e8 I2 v/ q
if found()" p5 ?2 c0 C8 l& I
select 持有数量,股票简称 from stock_sl,stock_name ;/ a- t: O; A# ^; c
where 汉语拼音=pinyin and stock_sl.股票代码=stock_name.股票代码;. I/ w- `8 S: T& M" A
into array a) s# w9 C z" _) o" V# [/ d
thisform.text1.value=a[2]: U" a% ]6 M, u$ r; Z
thisform.text2.value=a[1]
5 j/ n5 ^5 S8 s else- G( P& P' `% S( h( G
wait "没有查询到,请重输" window timeout 2
) e6 P1 m3 p' x% v endif Y s- V4 K6 k: ] k( q
6. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。 |