首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设计一个表单表和文件名均为currency—form的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为:“外币市值情况”。表单中有两个文本框(textl和text2)和两个命令按钮:“查询”(commandl)与“退出”(command2
设计一个表单表和文件名均为currency—form的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为:“外币市值情况”。表单中有两个文本框(textl和text2)和两个命令按钮:“查询”(commandl)与“退出”(command2
admin
2016-10-30
31
问题
设计一个表单表和文件名均为currency—form的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为:“外币市值情况”。表单中有两个文本框(textl和text2)和两个命令按钮:“查询”(commandl)与“退出”(command2)。
运行表单时,在文本框text1中输入某人的姓名,然后单击“查询”,则text2中会显示出他所持有的全部外币相当于人民币的价值数量。注意:某种外币相当于人民币数量的计算公式:人民币价值数量=该种外币的“现钞买入价”*该种外币“持有数量”。
单击“退出”按钮时关闭表单。
选项
答案
【操作步骤】 步骤1:在命令窗口执行命令:CREATE FORM CURRENcY FORM,打开表单设计器新建表单。向表单添加两个文本框和两个命令按钮控件。 步骤2:在“属性”面板的下拉框中选择表单对象,在“全部”选项卡中修改列象属性值,见表4.31。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。各按钮代码如下: *****“查询”按钮的click事件代码(以下SQL查询语句是通过鱼询设计器,丰成)***** NAME= ALLTRIMfTHISFORM.TEXT1.VALUE) OPEN DATABASE IRATE USE CURRENCY SL L0cATE FOR姓名=NAME SUMM=0 DO WHILE NOT EOF() SELECT现钞买入价 FROM RATE EXCHANGE: WHERE RATE ExcHANGE.外币代码 =CURRENCY SL.外币代码; INTO ARRAY A SUMM=SUMM+A[1]*cuRRENcY SL. 持有数量 CONTINUE ENDDO THISFORM.TEXT2.VALUE=SUMM *****“退出”按钮的click事件代码***** THIS.FORM.REIEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,将表单文件保存到考生文件夹下。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/UHIp777K
本试题收录于:
二级VF题库NCRE全国计算机二级分类
0
二级VF
NCRE全国计算机二级
相关试题推荐
不可以作为文本框控件数据来源的是()。
执行以下命令,输出结果是()。SETEXACTOFFA=“计算机”B=“计算机等级考试”?A=B
在数据库系统中,数据独立性是指()。
对象的相对引用中,要引用当前操作的对象,可以使用的关键字是()。
SQL命令中的HAVING短语必须与()结合使用,不能单独使用。
在当前表中,查找第2个男同学的记录,应使用命令()。
如果学生表student是使用下面的SQL语句创建的:CREATETABLEstudent(学号C(6)PRIMARYKEYNOTNULL,姓名C(8),性别C(2),年龄N(2)CHECK(年龄>15AND年龄
执行命令MyForm=CreateObject("Form")可以建立一个表单,为了让该表单在屏幕上显示,应该执行命令( )。
消除SQLSELECT查询结果中的重复记录,可采取的方法是( )。
使用索引的主要目的是( )。
随机试题
下列乳房疾病中,需行手术治疗的是()。
在子宫内膜癌的治疗中,常用治疗手段不包括
由“土壤-人”危害途径传播.的疾病是
使用氢氯噻嗪时加用螺内酯的主要目的是
患者女,57岁。胆总管结石。入院行胆总管切开探查,T型管引流术。若患者出院时仍然不能将T型管拔除,不妥的出院指导是
(2011年)甲病危。欲将部分财产留给保姆,咨询如何处理。下列哪一意见是正确的?()
下列关于保险合同的表述,正确的是()。
在反对南方蓄奴制的斗争中形成的_______,标志着美国现实主义文学的萌芽。
Whatistheproblemwiththewoman’swatch?
Whatapity!Ifonlythey______herenow,wewouldbeabletocelebratetheirweddinganniversary.
最新回复
(
0
)