| 第 1 頁：試題 |
| 第 6 頁：參考答案 |
四、綜合應(yīng)用題
【操作步驟】 步驟1：單擊常用工具欄中的“新建”按鈕，文件類型選擇
“表單”，打開表單設(shè)計器。單擊常用工具欄中的“保存”按鈕，在彈出“保存”對話框中輸入“mystock”即可。
步驟2：在“表單設(shè)計器一mystock.SCX”中，在“屬性”的 Caption處輸入“股票持有情況”，在Name處輸入“mystock”。步驟3：在“表單設(shè)計器一myStock.SCX”中，添加兩個文本框(“Text1”和“Text2”)。在“表單設(shè)計器一mystock.SCX”中，添加3個命令按鈕，單擊第1個命令按鈕，在“屬性”的Caption處輸入“查詢”;單擊第2個命令按鈕，在“屬性”的Caption處輸入“清空”;單擊第3個命令按鈕，在“屬性”的Caption處輸入“退出”按鈕。
步驟4：雙擊“查詢”命令按鈕，在“Commandl.Click”編輯窗口中輸人命令組，接著關(guān)閉編輯窗口。
pinyin=alltrim(thisform.Text1.value)
open database stock use stock_name
locate for漢語拼音=pinyin iffound()
SELECT持有數(shù)量，股票簡稱; FROM stock—s1，stock_name;
WHERE漢語拼音=pinyin and stock—sl.股票代碼=stock—name.股票代碼;INTO array athisform.Text1.value=a E2]
thisform.text2.value=a[1]else
wait“沒有查詢到，請重輸”window timeout 2endif
步驟5：雙擊“清空”命令按鈕，在“Command2.Click”編輯
窗口中輸人命令組，接著關(guān)閉編輯窗口。
thisform.Text1.value=””
thisform.text2.value=””
步驟6：雙擊“退出”命令按鈕，在“Command3.Click”編輯
窗口中輸入“Thisform.Release”，接著關(guān)閉編輯窗口。
步驟7：運(yùn)行表單，并按題目要求進(jìn)行查詢。
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
