第 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(thisform.Text1.value)
open database stock use stock_name
locate for汉语拼音=pinyin iffound()
SELECT持有数量,股票简称; 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”编辑
窗口中输人命令组,接着关闭编辑窗口。
thisform.Text1.value=””
thisform.text2.value=””
步骤6:双击“退出”命令按钮,在“Command3.Click”编辑
窗口中输入“Thisform.Release”,接着关闭编辑窗口。
步骤7:运行表单,并按题目要求进行查询。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |