-
vfp教程之VFP中焦点行的动态显示
李明亮
在用VFP设计一个应用系统时,信息的浏览是其中一个相当重要的功能。人们一般用Grid对象来显示数据信息,但该对象在使用功能上却存在一些不足。
提出问题
当使用者在记录之间移动焦点时,只有获得焦点的记录的某一个字段以不同于Grid背景的颜色显示。为使整条记录均用同一种颜色突出显示(本文示例为蓝色背景),即当数据记录移动时,用颜色动态变化显示相对光标所在记录的位置,可以在Grid对象的afterRowColChange事件过程中加入如下内容:
this.setall(“dynamicbackcolor”,“iif(this.activerow=recno(),rgb(0,0,255),rgb(255,255,255))”,“column”)。
笔者在使用中发现:如果设置了Set delete 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
select 学号from cenji where .not. deleted() into cursor temp_table
select 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
select 学号 from cenji into cursor temp_table order by 成绩 desc
select 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中运行通过。
在用VFP设计一个应用系统时,信息的浏览是其中一个相当重要的功能。人们一般用Grid对象来显示数据信息,但该对象在使用功能上却存在一些不足。
提出问题
当使用者在记录之间移动焦点时,只有获得焦点的记录的某一个字段以不同于Grid背景的颜色显示。为使整条记录均用同一种颜色突出显示(本文示例为蓝色背景),即当数据记录移动时,用颜色动态变化显示相对光标所在记录的位置,可以在Grid对象的afterRowColChange事件过程中加入如下内容:
this.setall(“dynamicbackcolor”,“iif(this.activerow=recno(),rgb(0,0,255),rgb(255,255,255))”,“column”)。
笔者在使用中发现:如果设置了Set delete 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
select 学号from cenji where .not. deleted() into cursor temp_table
select 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
select 学号 from cenji into cursor temp_table order by 成绩 desc
select 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中运行通过。
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到