在考生文件夹下完成如下综合应用: 设计一个表单“bd1”,表单标题名为“部门年度数据查询”,要求如下: ①为表单建立数据环境,向数据环境添加部门销售表。 ②当在“年度”标签微调控件中选择年度并单击“查询”按钮,则会在下面的表格控件内

admin2010-08-26  26

问题 在考生文件夹下完成如下综合应用:
    设计一个表单“bd1”,表单标题名为“部门年度数据查询”,要求如下:
    ①为表单建立数据环境,向数据环境添加部门销售表。
    ②当在“年度”标签微调控件中选择年度并单击“查询”按钮,则会在下面的表格控件内显示该年度各部门的“销售额”和“利润”。指定微调控件上箭头按钮(SpinnerHighValue属性)与下箭头按钮(SpinnerLowValu 属性)值分别为“2008”和“2003”,缺省值(Value属性)为“2007”,增量(Increment属性)为“1”。
    ③单击“关闭”按钮,关闭表单。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“部门年度数据查询”,单击表单控件工具栏上的“标签”控件图标,为表单添加一个标签Label1,单击表单控件工具栏上的“微调控件”控件图标,为表单添加一个微调控件Spinner1,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2,单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Grid1。 ②选择标签Label1,在标签属性窗口中将标签Label1的Caption属性值修改为“年度”。 ③选择微调控件Spinner1,在微调控件属性窗口中将SpinnetHighValue属性值修改为“2008”,将SpinnerLowValue属性值修改为“2003”,将Value属性值修改为“2007”。 ④分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”,Command2的Caption属性值修改为“关闭”,如图69-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。 [*] ⑤在表单设计器中,用鼠标右键单击表单空白处,在弹出的快捷菜单中选择“数据环境”命令,打开表单的数据环境,选择数据表文件“部门销售”添加到数据环境中。 ⑥选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“""”,将“RecordSourceType”属性值修改为“1”。 ⑦双击“查询”命令按钮,在Click事件中输入代码: SELECT*INTO CURSOR tmp FROM部门销售WHERE年度=ALLTRIM(STR(INT(ThisForm.spinner1.Value))) ThisForm.Grid1.RecordSourceType=1 ThisForm.Grid1.RecordSource="tmp" ThisForm.Grid1.Refresh ⑧选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd1”,保存在考生文件夹下,然后运行表单。

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

最新回复(0)