在考生文件夹下,打开销售数据库,完成如下综合应用:
设计一个名称为“bd2”的表单,表单的标题为“销售信息浏览”。表单上设计一个包含3个选项卡的“页框”和一个“关闭”命令按钮。要求如下:
①为表单建立数据环境,按顺序向数据环境添加地区表、业绩表和商品信息表。
②按从左至右的顺序,3个选项卡的标题分别为“地区表”、“业绩表”和“商品信息表”,每个选项卡上均有一个表格控件,分别显示对应表的内容。
③单击“关闭”按钮关闭表单。
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,将Caption属性值修改为“销售信息浏览”,单击表单控件工具栏上的“页框”控件图标,为表单添加一个页框PageFrame1,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加一个命令按钮Command1,单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Grid1。
②选择页框PageFrame1,在页框属性窗口中修改“PageCount”属性值为“3”,选择页框PageFrame1,单击右键,在弹出的快捷菜单中选择“编辑”,单击“Page1”,在页框属性窗口中修改“Caption”属性值为“地区表”;单击“Page2”,在页框属性窗口中修改“Caption”属性值为“业绩表”;单击“Page3”,在页框属性窗口中修改“Caption”属性值为“商品信息表”。
③选择命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“关闭”。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release.用来关闭表单
④选择页框PageFrame1,在页框属性窗口中双击“ClickEvent”打开“Click”事件代码编辑窗口,输入以下代码:
ThisForm.Grid1.RecordSourceType=0
DO CASE
CASE ThisForm.PageFrame1.Aetivepage=1
ThisForm.Grid1.RecordSource=〝地区″
CASE ThisForm.PageFrame1.Activepage=2
ThisForm.Grid1.RecordSource=〝业绩″
CASE ThisForm.PageFrame1.Activepage=3
ThisForm.Grid1.RecordSource=〝商品信息″
ENDCASE
ThisForm.Grid1.Refresh
⑤选择【表单】→【执行表单】命令,在弹出的“另存为”对话框中输入表单文件名“bd2”,保存在考生文件夹下,然后运行表单。