第6章常用表单控件的讲解.ppt

【例6.16】编一页面转换表单，有一个包含三页的页框，每页依次放入一幅图画、一张表格（含数据）、一个列表框（含数据）。 （1）基本设计步骤 ①建立数据环境。 本题目只涉及职工表，所以，将职工表添加到数据环境中。 ②选取控件、设置静态属性 设置表单的Caption属性； 从表单设计工具中选取页框，添加到表单，设置页框的属性PageCount =3； 鼠标右键点击页框，弹出快捷菜单，选择“编辑”页框，此时处于编辑状态下的页框会出现蓝色的边框，分别设置每一页面的Caption属性； 在页框编辑状态下，选中Page1，添加一张图片，并设置图片的Picture属性，选中Page2，添加一张表格，并设置表格属性RecordSourceType=1，RecordSource=职工；选中Page3，添加一个列表框，并设置列表框属性RowSourceType=6，Row Source=职工.姓名。 ③本例在运行中是通过鼠标点击来选择页面的，同时，有关对象的属性均在属性窗口设置，因此，不需要写事件代码。 （2）如果要在例6-16基础上，使页框中的页面能每隔1秒钟自动换页，如何实现？ ①问题分析：显然，这时应当引入一个计时器，设计界面如图6-41所示。如果当前的活动页面ActivePage小于PageCount，则每隔着1秒种，活动页面ActivePage属性值加1，当活动页面ActivePage =3时再返回到1。 ②增加一个计时器控件，并设置属性Interval=1000; ③编写计时器Timer1的Timer事件代码。 If ThisForm.PageFrame1.ActivePageThisForm.PageFrame1.PageCount ThisForm.PageFrame1.ActivePage=ThisForm.PageFrame1.ActivePage+1 Else ThisForm.PageFrame1.ActivePage=1 Endif ThisForm.Refresh （3）如果要在自动切换页面的基础上，使未被激活的页面自动设置成不可访问，如何实现？ ①问题分析：可以考虑设置一个新的属性P，作为活动页面的计数器，然后每隔1秒钟使P加1，并将第P页设置成活动页面；为了保证当某一页面被激活其他页面置为不可访问，可先将所有页面均置成不可访问，然后，设置第P页为可访问。 ②增加一个新属性P，用来记录当前活动页面。 ③表单Form1的初始事件。 Thisform.P=0 设活动页面计数器初值为零 ④编写计时器Timer1的Timer事件代码。 Thisform.Pageframe1.Page1.Enabled=.F. Thisform.Pageframe1.Page2.Enabled=.F. Thisform.Pageframe1.Page3.Enabled=.F. Thisform.P=Thisform.P+1 If Thisform.PThisform.Pageframe1.Pagecount Thisform.P=1 Endif **注意下面两句的位置不能互换 Thisform.Pageframe1.Pages(Thisform.P).Enabled=.T. Thisform.Pageframe1.Activepage=Thisform.P Thisform.Refresh 6.4.3 容器（Container） 容器对象是可以包含其他对象的控件，容器所包含的对象既可以是控件类对象，也可以是容器类对象。例如，要容器控件中既可以有命令按钮（控件类对象），也可以有命令按钮绷组（容器类对象）。 容器的常用属性 属性名称 功能说明 取值说明 BackColor 指定容器的背景色 BackStyle为0时，失效 BackStyle 指定容器背景是否透明 0-透明，1-不透明（默认） ControlCount 记数属性 数值，缺省为0 Controls 收集属性 数值，缺省为0 Style 指定边框是否为Windows XP主题效果 0-正常方式（默认），3-标题 SpecialEffect 在Style属性值为0时,指定容器的外观形状 0-凸起,1-凹下,2-平面（默认） 【例6.17】已知销售业绩的评价初始分为5档：优（≥6000元），良（≥4000元），中（≥2000元），合格（≥1000元），不合格（1000元）。可以根据需要对各档区间进行调整，请根据“销售”表中每个职工的总销售金额统计出各档的人数。 （1）问题分析 因为5档销售业绩的区间可以调整，因此需要人机交互，可以利用文本框实现；而统计出每一区间的人数需要显示出来，可考虑通过容器控件，在其中置入文本框循环来显示输出。 （2）设