当前位置:主页   - 电脑 - 程序设计 - VFP
看实例学VFP:表单集的例子
来源:网络   作者:www.bianceng.cn 老马    更新时间:2010-09-26
收藏此页】    【字号    】    【打印】    【关闭

本文是一个关于表单集的小实例。本例运行时表单集中的表单form2的状态是隐藏,表单form1上面的表格显示的是“网站信息表”中的数据,如下图:

单击了“显示附加信息”命令按钮后,该按钮上面的文字变为“隐藏附加信息”,同时表单form2显示出来,它上面的表格显示的是“附加信息表”中的数据;并且form1和form2上面的两个表格中的数据能实现数据联动,即在form1的表格中单击一个网站的记录,在form2的表格中会显示该网站的附加信息。当命令按钮上的文字变为“隐藏附加信息”时,单击该命令按钮可将form2再次隐藏。如下图

本例用到了“数据1”数据库中的“网站信息表”和“附加信息表”,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出。本例制作步骤如下:

一、新建表单,将其保存为“表单集的例子.scx”。在表单设计器打开的状态下,单击菜单栏中“表单”→“创建表单集”,这样就创建了一个表单集FormSet1,其中包含了一个表单form1。我们接着向这个表单集中再添加一个表单,方法是在表单设计器打开的状态下单击菜单栏中“表单”→“添加新表单”,此时表单设计器中又会多了一个表单form2,刚添加上去时它是把原来的表单form1盖住的,你可以拖动form2的标题栏向下来一点儿,就可以看到这两个表单了。

二、设置两个表单的属性,将form1的Caption属性设置为“网站信息表”,form2的Caption属性设置为“附加信息表”,form1和form2的width属性值均设为300,Height属性值均设为168,设置完毕的表单设计器如下图:

三、添加数据环境:右击form1空白处,选“数据环境”命令,将“数据1”中的“网站信息表”及“附加信息表”这两个表添加到表单的数据环境中。

四、在“数据环境设计器”中,拖动“网站信息表”的“编号”字段到“附加信息表”的“网站编号”索引标识上,这时在“数据环境设计器”中“网站信息表”及“附加信息表”之间会出现一条单线,表明这两个表之间已经建立起了一对一的临时关系(如下图),该关系在表单启动时被建立,表单关闭时释放。

五、从“数据环境设计器”中拖动“网站信息表”的标题栏到form1上,自动生成一个表格,并按照表1设置该表格的属性:

属性名 属性值
width 294
height 137
top 0
left 0

表1

然后在该表格的右下角添加一个命令按钮command1,并将该命令按钮的Caption属性设置为“显示附加信息”;类似的方法,从“数据环境设计器”中拖动“附加信息表”的标题栏到form2上,自动生成一个表格,并按照表1设置该表格的属性。设置完毕的表单设计器如下图:

六、添加事件代码:

(1).表单form1的Unload事件代码:close data

(2).表单form1的Init事件代码:thisform.Parent.form2.Hide

(3).表单form1的QueryUnload事件代码:thisform.Release

(4).命令按钮command1的click事件代码:

IF this.Caption='显示附加信息'
   this.Caption='隐藏附加信息'
   thisform.Parent.form2.Show
ELSE
   this.Caption='显示附加信息'
   thisform.Parent.form2.Hide
ENDIF
  七、运行“表单集的例子.scx”。

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟<学VFP”教程

其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明