第 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:運行表單,并按題目要求進行查詢。
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |