第 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持有数量,股票简称;
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:运行表单,并按题目要求进行查询。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |