VFP信息的浏览之焦点行的动态显示

文章作者 100test 发表时间 2008:02:01 15:46:22
来源 100Test.Com百考试题网

在用VFP设计一个应用系统时，信息的浏览是其中一个相当重要的功能。人们一般用Grid对象来显示数据信息，但该对象在使用功能上却存在一些不足。

提出问题
　　当使用者在记录之间移动焦点时，只有获得焦点的记录的某一个字段以不同于Grid背景的颜色显示。为使整条记录均用同一种颜色突出显示（本文示例为蓝色背景），即当数据记录移动时，用颜色动态变化显示相对光标所在记录的位置，可以在Grid对象的afterRowColChange事件过程中加入如下内容：

　　this.setall(“dynamicbackcolor”,“iif(this.activerow=recno(),rgb(0,0,255),rgb(255,255,255))”,“column”)。

　　在使用中发现：如果设置了Set 0delete on环境参数，则当逻辑删除记录后，动态背景的颜色显示就会出现混乱。

分析问题
　　这种情况一般有两种解决方法：
　　●执行pack命令，再重新创建和设置Grid的各项属性；

　　●先将没有删除标志的记录复制到一个临时表中，用zap命令删除源表中所有记录，再将没有删除标志的记录从临时表追加到源表中。

　　这两种方法实质上都是把已逻辑删除的记录从数据表中真正删除，缺点是两种方式都要求该表必须以独占方式打开。

　　如果表是以共享方式使用，那么又该如何处理呢？其实，动态背景颜色不能正确显示的原因是由于逻辑删除记录，该操作造成光标所在的行activerow()不等于数据的记录号recno()，从而导致了动态背景颜色的显示出现混乱。笔者通过两个表的关联成功地解决了这一难题。

解决问题
　　我们以一个实际的例子来说明如何解决这一问题。设有一个表cenji.dbf，表的字段分别为：学号、姓名、姓别、成绩。新建一个表单，并创建一个Grid对象，设置Grid对象的recordsource属性为cenji,在Grid对象的afterRowColChange事件过程中添加如下代码：

　　LPARAMETERS nColIndex
　　if this.activerow = recno()
　　this.setall(“dynamicbackcolor”, “iif
　　(this.activerow=recno(), rgb(0,0,255),rgb(255,255,255))”,“column”)
　　else
　　0select 学号from cenji where .not. 0deleted() into cursor temp_table
　　0select temp_table
　　index on 学号 tag xh
　　set relation to 学号 into temp_table in cenji
　　sele cenji
　　this.setall(“dynamicbackcolor”,“iif(this.
　　activerow=recno(‘temp_table’), rgb(0,0,255),rgb(255,255,255))”,“column”)
　　endif
　　thisform.refresh

　　在上述代码中，当逻辑删除记录造成光标所在的行activerow()不等于数据的记录号recno()时，只需对数据建立一个关联子表，当记录指针在父表cenji中移动时，子表temp_table的记录指针移到学号相同的记录上。子表的记录号是不包括逻辑删除记录的，保证了光标所在行的子表记录号recno(‘temp_table’)等于光标所在的行activerow()，从而使该行动态背景颜色能正确显示。本文为了说明方便, 在afterRowColChange事件过程中建立子表，实际上最好在Delete等命令之后建立。

　　另外，当activerow属性与recno()函数配合使用动态显示背景颜色时，一般会提示用户“请不要在所显示的记录中设定主索引”，否则不能正确动态显示。实际上，按照如上方法，同样可以解决这一问题。

　　设表cenji.dbf中，按成绩字段建立一个主索引,在Grid对象的afterRowColChange事件过程中写下如下代码：
　　LPARAMETERS nColIndex
　　0select 学号 from cenji into cursor temp_table order by 成绩 desc
　　0select temp_table
　　index on 学号 tag xh
　　set relation to 学号 into temp_table in cenji
　　this.setall(“dynamicbackcolor”,“iif
　　(this.activerow=recno(‘temp_table’), rgb(0,0,255),rgb(255,255,255))”,“column”)
　　thisform.refresh

　　同样，不一定要在Grid对象的afterRowColChange事件过程中建立关联子表temp_table。

　　本文代码在中文版Windows 98和Visual Foxpro 6.0中运行通过。