一、
可以有兩種方法:一是命令方法,二是菜單方法。
命令方法:
OPEN DATABASE rate
ADD TABLE rate_exchange
ADD TABLE currency_sl
菜單方法:
1. 單擊“文件\打開”命令項(xiàng),選擇“文件類型”為數(shù)據(jù)庫(kù),打開“rate”。
2. 在“數(shù)據(jù)庫(kù)設(shè)計(jì)器-rate”中單擊鼠標(biāo)右鍵,顯示右擊菜單,選擇“添加表”命令,并選擇相應(yīng)的表文件即可(rate_exchange和currency_sl)。
1. 打開并修改數(shù)據(jù)庫(kù)
MODIFY DATABASE rate
2. 在“數(shù)據(jù)庫(kù)設(shè)計(jì)器-rate”中,選擇表“rate_exchange”并單擊鼠標(biāo)右鍵,選擇“修改”命令,在屏幕上顯示“表設(shè)計(jì)器-rate_exchange.dbf”窗口,單擊“索引”選項(xiàng)卡,然后輸入索引名“外幣代碼”,選擇類型為“主索引”,表達(dá)式為“外幣代碼”,最后單擊“確定”按鈕。
3. 在“數(shù)據(jù)庫(kù)設(shè)計(jì)器-rate”中,選擇表“currency_sl”并單擊鼠標(biāo)右鍵,選擇“修改”命令,在屏幕上顯示“表設(shè)計(jì)器-currency_sl.dbf”窗口,單擊“索引”選項(xiàng)卡,然后輸入索引名“外幣代碼”,選擇類型為“普通索引”,表達(dá)式為“外幣代碼”,最后單擊“確定”按鈕。
1. 在“數(shù)據(jù)庫(kù)設(shè)計(jì)器-rate”中,選擇表“currency_sl”并單擊鼠標(biāo)右鍵,選擇“修改”命令項(xiàng)。
2. 在“表設(shè)計(jì)器-currency_sl.dbf”中,選擇“持有數(shù)量”字段,在“字段有效性”標(biāo)簽的“規(guī)則”處輸入“持有數(shù)量<>0”,在“信息”處輸入“"持有數(shù)量不能為0"”,最后單擊“確定”按鈕即可。
1. 打開并修改表單
MODIFY FORM test_form
2. 單擊“登錄”按鈕,在“屬性”對(duì)話框中,在Enable處選擇“.T.”項(xiàng)。
二、
select 外幣名稱,持有數(shù)量 from currency_sl,rate_exchange ;
where 姓名='林詩(shī)因' and currency_sl.外幣代碼=rate_exchange.外幣代碼;
order by 持有數(shù)量 into dbf rate_temp
1. 單擊“工具\(yùn)向?qū)報(bào)表”菜單項(xiàng),并顯示“向?qū)нx取”對(duì)話框。
2. 在“向?qū)нx取”對(duì)話框中,選擇“一對(duì)多報(bào)表向?qū)А辈螕簟按_定”按鈕,并顯示“一對(duì)多報(bào)表向?qū)А睂?duì)話框。
3. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟1-從父表選擇字段”中,首先要選取表“rate_exchange”,在“可用字段”列表框中顯示表rate_exchange的所有字段名,并選定“外幣名稱”添加到“選定字段”列表框中,單擊“下一步”按鈕。
4. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟2-從子表選擇字段”中,選取表“currency_sl”,在“可用字段”列表框中顯示表currency_sl的所有字段名,并選定所有的字段添加到“選定字段”列表框中,單擊“下一步”按鈕。
5. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟3-為表建立關(guān)系”中,單擊“下一步”按鈕。
6. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟4-排序記錄”中,選定“外幣代碼”字段并選擇“降序”單選鈕,再單擊“添加”按鈕,單擊“下一步”按鈕。
7. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟5-選擇報(bào)表樣式”中,在“樣式”中選擇“經(jīng)營(yíng)式”,在“方向”框中,單擊“橫向”單選鈕,再單擊“下一步”按鈕。
8. 在“一對(duì)多報(bào)表向?qū)А睂?duì)話框的“步驟6-完成”中,在“報(bào)表標(biāo)題”文本框中輸入“股票持有情況”,單擊“完成”。
9. 在“另存為”對(duì)話框中,輸入保存報(bào)表名“currency_report”,再單擊“保存”按鈕,最后報(bào)表就生成了。
三、
1. 在命令窗口中輸入建立表單命令
CREATE FORM currency_form
2. 在“表單設(shè)計(jì)器”中,在“屬性”的Caption處輸入“外幣市值情況”,在Name處輸入“currency_form”。
3. 在“表單設(shè)計(jì)器”中,添加兩個(gè)文本框,名稱分別為Text1和Text2。
4. 在“表單設(shè)計(jì)器”中,添加兩個(gè)命令按鈕,單擊第1個(gè)命令按鈕在“屬性”的Caption處輸入“查詢”,單擊第2個(gè)命令按鈕在“屬性”的Caption處輸入“退出”。
5. 雙擊“查詢”命令按鈕,在“Command1.Click”編輯窗口中輸入命令,接著關(guān)閉編輯窗口。
name= alltrim(thisform.text1.value)
open database rate
use currency_sl
locate for 姓名=name
summ=0
do while not eof()
select 現(xiàn)鈔買入價(jià) from rate_exchange;
where rate_exchange.外幣代碼=currency_sl.外幣代碼;
into array a
summ=summ+a[1]*currency_sl.持有數(shù)量
continue
enddo
thisform.text2.value=summ
6. 雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入“Release Thisform”,并關(guān)閉編輯窗口。
相關(guān)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |