niusouti.com

设计名为mystock的表单(控件名、文件名均为mystock)。表单的标题为“股票持有情况”。表单中有两个文本框(Text1和Text2)和3个命令按钮“查询”(名称为Command1)、“退出”(名称为Command2)和“清空”(名称为Command3)。 运行表单时，在文本框Text1中输入某一股票的汉语拼音，然后单击“查询”按钮，则Text2中会显示出相应股票的持有数量，并计算相应股票的浮亏信息追加到stock—fk表中，计算公式是浮亏金额=(现价一买入价)×持有数量。 单击“清空”按钮可物理删

题目

设计名为mystock的表单(控件名、文件名均为mystock)。表单的标题为“股票持有情况”。表单中有两个文本框(Text1和Text2)和3个命令按钮“查询”(名称为Command1)、“退出”(名称为Command2)和“清空”(名称为Command3)。 运行表单时，在文本框Text1中输入某一股票的汉语拼音，然后单击“查询”按钮，则Text2中会显示出相应股票的持有数量，并计算相应股票的浮亏信息追加到stock—fk表中，计算公式是浮亏金额=(现价一买入价)×持有数量。 单击“清空”按钮可物理删除表stock_fk的全部记录。 单击“退出”按钮则关闭表单。 请运行表单，单击“清空”按钮后，依次查询qlsh、shjc和bggf的股票持有数量，同时计算浮亏金额。

相似考题

1.设计名为“mysupply”的表单。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“退出”。 运行表单时，单击“查询”命令按钮后，表格控件中显示工程号“J1”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。

2.设计一个文件名和表单名均为“bdl”的表单。表单的标题为“外汇持有情况”。表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中，选项按钮组控件有3个按钮“美元”、“英镑”和“港币”。运行表单时，在选项组控件中选择“美元”、“英镑”和“港币”，单击“查询”命令按钮后，根据选项组控件的选择将“外汇账户”表的情况显示在表格控件中。单击“关闭”按钮，关闭并释放表单。

3.对考生文件夹下的“产品”数据库及其中的“产品”表和“零件”表建立如下表单：设计名为“bd2”的表单。表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时，单击“查询”命令按钮后，表格控件中显示了使用零件编号为“000005”的产品的所有信息。单击“关闭”按钮关闭表单。

4.设计名为mysupply的表单(表单的控件名和文件名均为mysupply)。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”(名称为Command1)和“退出” (名称为Command2)。运行表单时，单击“查询”命令按钮后，表格控件(名称grid1)中显示了工程号“J4”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。

参考答案和解析
正确答案：
【操作步骤】
步骤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)
open database stock use stock_name
locate for汉语拼音=pinyin iffound
SELECT持有数量，股票简称；
FROM stock_sl，stock_name；
WHERE汉语拼音=pinyin and stock_sl．股票代码=stock-naine．股票代码；
INTO array a thisform．Text1．value=a[2]
thisform.text2.value=a[1]
else
wait”没有查询到，请重输”window timeout 2
endif
步骤5：双击“清空”命令按钮，在“Command2．Click”编辑
窗口中输入命令组，接着关闭编辑窗口。thisform．textl．value=””
thisform．text2．value=”“
步骤6：双击“退出”命令按钮，在“Command3．Click”编辑
窗口中输入“Thisform．Release”，接着关闭编辑窗口。
步骤7：运行表单，并按题目要求进行查询。
更多“设计名为mystock的表单(控件名、文件名均为mystock)。表单的标题为“股票持有情况”。表单中有两个文 ”相关问题

  • 第1题：

    设计名为my的表单。表单标题为“学习情况浏览”。表单中有1个选项组控件(名为myop)、2个命令按钮“成绩查询”和“关闭”。其中，选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件，将选修了“数据结构”的学生的“学号”和“成绩”分别存入new1. dbf和new2.dhf文件中。


    正确答案：在命令窗口中输入命令：CREATE FORMmy打开表单设计器新建表单。 从表单控件工具栏中向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意在属性面板中修改表单的Caption属性值为“学习情况浏览”修改命令按钮Command1的Caption属性值为“成绩查询”修改命令按钮Command2的Caption属性值为“关闭”修改选项按钮组(Optiongroup1)的Name属性值为“myop”然后右击选项按钮组选择“编辑”快捷菜单命令在此状态下(编辑状态下控件四周出现蓝色框线)分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮编写Click事件代码内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单结果如图3-139所示保存表单设计到考生文件夹下。
    在命令窗口中输入命令：CREATE FORMmy，打开表单设计器，新建表单。 从表单控件工具栏中，向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意，在属性面板中，修改表单的Caption属性值为“学习情况浏览”，修改命令按钮Command1的Caption属性值为“成绩查询”，修改命令按钮Command2的Caption属性值为“关闭”，修改选项按钮组(Optiongroup1)的Name属性值为“myop”，然后右击选项按钮组，选择“编辑”快捷菜单命令，在此状态下(编辑状态下，控件四周出现蓝色框线)，分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮，编写Click事件代码，内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，结果如图3-139所示，保存表单设计到考生文件夹下。 解析：本大题考查宁表单设计，在设计控件属性时，不要将控件的标题和名称属性弄混淆了；程序部分可利用DO CASE的分支语句，每个分支语句包含一个相应的SQL查询语句，根据选项组中单选项的内容，查找相应的数据记录存入新表中。

  • 第2题：

    设计一个表单名和文件名均为“bd2”的表单，所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为“外币市值情况”。表单中有一个文本框、一个表格和两个命令按钮“查询”和“关闭”。

    运行表单时，在文本框text1中输入货币代码，然后单击“查询”，则表格中会显示出外汇账户相应的账户信息及持有外币相当于人民币的价值数量。注意，某种外币相当于人民币数量的计算公式：人民币价值数量一该种外币的“买入价”*该种外币的“数量”。

    单击“关闭”按钮关闭表单。


    正确答案：

    【考点指引】本大题主要考查表单的设计，重点是文本框和表格控件的使用和命令按钮事件代码的编写。
    【操作步骤】
    ①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“外币市值情况”；单击表单控件工具栏上的“文本框”控件图标，为表单添加l个文本框Textl，单击表单控件工具栏上的“命令按钮”
    控件图标，为表单添加两个命令按钮Command1和Command2，单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件。
    ②分别选择两个命令按钮，在按钮属性窗口中将Command1的Caption属性值修改为“查询”、Command2的Caption属性值修改为“关闭”，如图98-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm. Release，用来关闭表单。


    ③选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。
    ④双击“查询”命令按钮，在Click事件中输入代码：
    SELECT*，买入价*数量AS价值INTO CURSOR tmp FROM外汇账户WHERE货币代码=ThisForm．Textl．Value
    ThisForm．Grid1．RecordSourceType=1
    ThisForm．Grid1．RecordSource="tmp"
    ThisForm．Grid1．Refresh
    ⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

  • 第3题：

    设计一个文件名和表单名均为currency_form的表单，所有控件的属性必须在表单设计器的属性窗口中设置完成。表单的标题为“外币市值情况”。表单中有一个“姓名”标签控件Labell、一个文本框控件Textl、一个表格控件Gridl和两个命令按钮“查询”(Commandl)和“退出”(Command2)，如下图所示。运行表单时，在文本框Text1中输入姓名，然后单击“查询”命令按钮，则在表格控件Grid1中会显示出他所持有的全部“外币名称”及对应的“人民币数量”，并按人民币数量降序排序，同时将结果存储到自由表 DBFA中。 注意，某种外币相当于人民币数量的计算公式：人民币数量=该种外币的“现钞买人价”*该种外币的“持有数量”。 单击“退出”按钮时关闭并释放表单。 运行该表单，查询“林诗因”持有的外币的市值情况。


    正确答案：
    【操作步骤】
    步骤1：在命令窗口输入命令“Create Form. currency_form”，
    并按回车键新建一个表单。
    步骤2：在属性窗口中修改表单的Name属性为C urrency_form，Caption属性为“外币市值情况”。在表单设计器中为表单添加一个标签控件Labell(Caption属性为“姓名”)，一个文本框控件Text1，一个表格控件Grid1和两个命令按钮Com． mand1(Caption属性为“查询”)、Command2(Caption属性为“退出”)。
    步骤3：在表单空白处右击，在弹出的快捷菜单中选择“数据环境”命令，将表rate_exchange和currency_s1添加到表单的数据环境中。
    步骤4：双击“查询”按钮，编写Click事件代码如下：
    *********查询按钮的Click事件代码*********
    select外币名称，现钞买人价*持有数量as人民币数量；from rate_exchange，currency_sl；
    where rate_exchange．外币代码=currency_sl．外币代码
    and currency_sl．姓名=thisform．text1．value；
    order by人民币数量desc；into dbf dbfa
    thisform．grid1．recordsouree=”dbfa”
    **************************
    步骤5：双击“退出”按钮，编写Click事件代码如下：ThisForm．Release
    步骤6：保存表单，并按题目要求运行表单。

  • 第4题：

    在考生文件夹下设计名为supper的表单(表单名和文件名均为supper)，表单的标题为“零件供应情况”。表单中有1个表格控件和2个命令按钮查询和退出。

    运行表单时单击查询命令按钮后，表格控件中显示“供应”表工程号为“A1”所使用的零件的“零件名”、“颜色”、和“重量”。并将结果放到表jie中。

    单击“退出”按钮关闭表单。


    正确答案：在命令窗口中输入命令：CREATE FORM supper打开表单设计器通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单在属性面板中修改Name的属性值为supper将Caption的属性值改为“零件供应情况”然后在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“查询”以同样的方法将第二个命令按钮设置Caption属性值改为“退出”如图2-135所示。 双击命令按钮“查询”编写该控件的Click事件程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名颜色重量； FROM零件供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计查看表单运行结果如图3-136所示。
    在命令窗口中输入命令：CREATE FORM. supper，打开表单设计器，通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单，在属性面板中修改Name的属性值为supper，将Caption的属性值改为“零件供应情况”，然后在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“查询”，以同样的方法将第二个命令按钮设置Caption属性值改为“退出”，如图2-135所示。 双击命令按钮“查询”，编写该控件的Click事件，程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名，颜色，重量； FROM零件，供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计，查看表单运行结果，如图3-136所示。 解析：本大题考查的是表单设计，在设计控件属性中，不要将控件的标题和名称属性弄混淆，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询。

  • 第5题：

    设计一个名为“bd2”的表单，表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时，单击“查询”命令按钮后，要求表格中显示产品编号“0003”所使用的零件的零件名称、规格和数量。单击“关闭”按钮关闭表单。


    正确答案：

    【考点指引】本大题主要考查表单的建立和表格控件的使用，重点是表格控件数据源的设置。
    【操作步骤】
    ①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为”零件装配情况”；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1、Command2；单击表单控件工具栏上的“表格控件图标，再添加一个表格控件。
    ②分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，将命令按钮Command2的Caption属性值修改为“关闭”，如图31–1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。


    ③选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″’，将“RecordSourceType”属性值修改为“1”。
    ④双击“查询”命令按钮，在Click事件中输入代码：
    SELECT零件名称，规格，数量INTO CURSOR tmp FROM产品，零件WHERE产品．零件编号=零件．零件编号AND产品．产品编号=〝0003″
    ThisForm．Grid1．ReeordSourceType=1
    ThisForm．Grid1．RecordSource=〝tmp″
    ThisForm．Grid1．ReFresh
    ⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

相关内容