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