用VisualFoxPro5.0设计数据文件结构浏览器

文章作者 100test 发表时间 2007:10:31 12:31:20
来源 100Test.Com百考试题网

　　在用VFP进行程序设计时，不可避免地涉及到数据表和自由表本身的操作，例如我们至少需要随时知道这些数据表的结构，尽管这些数据表是我们自己设计的，但如果文件多了，时间长了，就完全有可能记不清楚，特别是分析别人的程序时，
这个问题就显得特别突出，为此，我们可以设计一个程序来解决这个问题，由于这类程序不依赖于某一具体环境，并具有很强的独立性和灵活性，因此我们有必要将它设计成一个自定义类，从而一劳永逸地使用它：

　　一.新建一个类
　　打开"文件/新建.../类",类名为list_stru,派生于"Container"(容器),在"存储于..."中选择一个适当的目录来保存这个自定义类.然后单击"确定".

　　二.设置自定义类list_stru的属性
　　进入类设计器后,接着设置Container的属性:BackStyle为0(透明),BorderWidth为2,SpecialEffect为0(凹起)

　　三.设置显示文件名的列表框对象(LIST1)
　　添加一个名为list1的list对象,该对象用来选择需显示结构的数据表文件名.

　　再按如下方法设置该对象的一些属性:
　　(1)RowSourceType=7 (文件)
　　即该对象的内容来源于磁盘文件

　　(2)RowSource=*.dbf
　　只显示后缀名为DBF的文件

　　(3)编写当list1中的项目被选择后所要发生的代码,这可以通过InteractiveChange事件来实现:
　　InteractiveChange Event
　　Local curpath &.&. 定义一变量
　　curpath=this.list(2) &.&. 返回所选取的文件的路径
　　set defa to (curpath) &.&. 指定默认路径
　　if .not.’[’$this.value &.&. 如果所选择的项目是一个目录(即包含有’[’字符)则不执行下列操作
　　use (this.value)
　　this.parent.list2.rowsourcetype=0
　　this.parent.list2.clear this.parent.list2.rowsourcetype=8
　　this.parent.list2.rowsource=substr(this.value,1,len(this.value)-4) &.&. 用SUBSTR函数取得完整文件名
　　this.parent.list2.listindex=1
　　endif

　　下面对该程序作一些简要说明:
　　A.将LIST对象的RowSourceType属性为7(文件),显示磁盘文件时,第一列为盘符,第二列才为盘符和路径,因此需用this.list(2)来返回完整的文件路径,然后用Set defa to (curpath)来转换到相应的路径,注意此处必须用名称表达式()将curpath括起来,它相当于宏代换&.,后面的use (this.value)语句也是这个意思

　　B.在操作时我们可能要不断地选择文件名并在list2中显示其结构,因此需要不断地更新list2的RowSource内容,这是通过this.parent.list2.clear来实现的,但是在使用clear方法前,必须将RowSourceType属性设置为0 (无),否则是无效操作,清除内容后,再将RowSourceType属性设置为8(结构)即可

　　C.在设置了RowSourceType属性后,再用RowSource属性定义相应源文件名称,即substr(this.value,1,len(this.value)-4)语句

　　四.添加显示文件结构的列表框对象(LIST2)

　　添加名为LIST2的列表框对象,用于显示文件结构,但是不必再设置它的属性,因为其RowSourceType和RowSource属性已经在LIST1的InteractiveChange事件中定义了。

　　最后,我们再加上相应的说明性的标签对象和其它适当的shape对象来美化界面,保存起来,这个类就可以使用了,另外,以上程序中包括了一些有关文件操作和列表框(组合框)对象的关键用法,如果能够加以灵活使用,对以后的程序设计会有很大的帮助