在用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对象来美化界面,保存起来,这个类就可以使用了,另外,以上程序中包括了一些有关文件操作和列表框(组合框)对象的关键用法,如果能够加以灵活使用,对以后的程序设计会有很大的帮助
[文章录入员:nancy] |
