设计一个表单名和文件名均为form_item的表单,其中,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有一个组合框(Combol)、一个文本框(Text1)、两个命令按钮“统计”(Command1)和“退出”(

admin2016-05-07  31

问题 设计一个表单名和文件名均为form_item的表单,其中,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有一个组合框(Combol)、一个文本框(Text1)、两个命令按钮“统计”(Command1)和“退出”(Command2)。
    运行表单时,组合框中有3个条目“s1”、“s2”和“s3”(只有3个,不能输入新的,RowSourceType的属性为“数组”,Style的属性为“下拉列表框”)可供选择,单击“统计”命令按钮后,则文本框显示出该项目所使用零件的金额合计(某种零件的金额=单价木数量)。
    单击“退出”按钮关闭表单。
    注意:完成表单设计后要运行表单的所有功能。

选项

答案步骤1:按照题目的要求新建表单,表单的新建可以通过常用工具栏中的“新建”按钮来实现(操作步骤在前面的解析中已经讲到),也可以在命令窗口中输入“Crea Form form_item”,然后按回车键,设置表单的Caption属性为“使用零件情况统计”。 步骤2:从表单控件工具栏向表单添加一个组合框、一个文本框和两个命令按钮,然后在属性窗口中修改各控件的相关属性,如图3.39所示。 [*] 步骤3:按照题目的要求设置组合框的数据源,如图3.40所示。 [*] 步骤4:分别双击命令按钮“统计”和“退出”,为它们编写Click事件代码,如图3.41所示。 [*] 其中,“统计”按钮的Click事件代码如下。 ******“统计”按钮的click事件代码****** x=allt(thisform.combol.value) SELECT SUM(使用零件.数量*零件信息.单价)as je; FROM使用零件情况!使用零件INNER JOIN使用零件情况!零件信息; ON使用零件.零件号=零件信息.零件号; WHERE使用零件.项目号=x into array b thisform.textl.Value=allt(str(b[1])) *************************************** “退出”按钮的Click事件代码如下。 ******“退出”按钮的Click事件代码****** ThisForm.Release *************************************** 步骤5:保存并运行表单,如图3.42所示。 [*]

解析 新建表单并按要求添加控件,设置控件属性,为组合框新建数组,最后完成命令按钮的语句编写。组合框的RowSourceType属性表示数据源的类型,RowSource属性表示数据来源,Style表示组合框控件的样式。Caption属性表示控件的标题。
转载请注明原文地址:https://jikaoti.com/ti/iRr0FFFM
0

相关试题推荐
最新回复(0)