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

admin2013-04-27  29

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

选项

答案【操作步骤】 步骤1:在命令窗口中输入 crea form form_item,然后按回车键,在表单设计器的"属性"对话框中设置表单的Caption属性为"使用零件情况统计",Name属性为form_item。 步骤2:从"表单控件"工具栏向表单添加一个组合框、一个文本框和两个命令按钮,设置组合框的RowSourceType属性为 "5-数组"、Style属性为"2-下拉列表框"、RowSource属性为A,设置命令按钮Command1的Caption属性为"统计",设置命令按钮Command2的Caption为"退出"。 步骤3:双击表单空白处,在表单的Init事件中输入如下代码: Public a(3) A(1) = "s1" A(2) = "s2" A(3) = "s3" 步骤4:分别双击命令按钮"统计"和"退出",为它们编写Click事件代码。其中,"统计"按钮的Click事件代码如下: x=allt(thisform.combo1.value) SELECT SUM(使用零件.数量*零件信息.单价) as je; FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ; ON 使用零件.零件号 = 零件信息.零件号; WHERE 使用零件.项目号 = x into array b thisform.text1.value=allt(str(b[1])) "退出"按钮的Click事件代码如下: thisform.release 步骤5:单击工具栏中的"保存"按钮,再单击"运行"按钮运行表单,并依次选择下拉列表框中的项运行表单的所有功能。

解析
转载请注明原文地址:https://kaotiyun.com/show/Igsp777K
0

最新回复(0)