vfp9中spinner在grid中的运用

vfp9中spinner在grid中的运用

ID:33192434

大小:47.30 KB

页数:7页

时间:2019-02-21

vfp9中spinner在grid中的运用_第1页
vfp9中spinner在grid中的运用_第2页
vfp9中spinner在grid中的运用_第3页
vfp9中spinner在grid中的运用_第4页
vfp9中spinner在grid中的运用_第5页
资源描述:

《vfp9中spinner在grid中的运用》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、VFP9中Spinner在grid中的运用利用Spinner控件可以很好的来进行数据的输入控制,尤其我们利用GRID控件来输入数据时,因为GRID不能很好的进行控制,所以很多时侯需要自己对她做些"修改",那么将Spinner控件放入GRID时,就会遇到一个不能很好的进行跳行问题,除了用鼠标以外,很难找到方法使光标下移一行,因此本文在此做个介绍,以回车来使光标自动下移表格行。将一个Spinner控件放入GRID的TEXT控件位置,默认会以Spinner控件作优先控件。在该控件的KeyPress事件中,写如下代码:IfnKeyCode=13NoDefaultSele"GR

2、ID所绑定的数据源名称"SkipIfeof()ThisForm.cmd1.SetfocusEndIfEndIf这样的话,当光标在spinner中,输完数据后,按回车,就自动跳到下一行,当移到最后一行时,当然也可以做添加一行的处理,而这里是焦点聚焦到一个按纽上。关于在VFP中GRID里颜色设置问题1、只设置一条记录颜色(有选择性)主要是针对一个表GRID里,当我们选择了某个记录时,要使这个记录高亮显示,以区别其他记录,方便查看。在GRID的AfterRowColChange事件中,写入如下代码LPARAMETERSnColIndex&&系统代码Mcurrec=allt(

3、str(recn()))&&获取当前所在记录号this.setall("dynamicbackcolor",'IIF(RECNO()=&Mcurrec.,RGB(255,0,0),RGB(255,255,255))')&&设置背景色,满足条件为红色,不满足为白色this.setall("dynamicforecolor",'IIF(RECNO()=&Mcurrec.,RGB(255,255,0),RGB(0,0,0))',"column")&&设置前景色,满足条件为黄色,不满足为黑色this.refresh&&这个刷新必须要,不然不满足条件的记录所显示的高亮显示就不会

4、退去2、设置多种颜色(无规律性)主要是针对一个表GRID里,当记录很多时,而且某些记录具有特定的属性时,我们需要设置颜色来区分这些数据,如下代码可以在刷新或初始化表单时,设置其属性。thisform.Grid1.SetAll("DynamicBackColor","IIF(type>=1,iif(type>=2,iif(type>=3,rgb(0,128,0),rgb(192,192,192)),rgb(255,0,0)),rgb(255,255,255))")如上代码可以说明,如果某记录中有一个字段type,那么根据这个字段的数据值,可以显示不同颜色,可以转换成如下

5、公式:iif(条件1,iif(条件2,iif(条件3,iif(条件4,iif(条件5,[...iif(条件N,颜色N,颜色n-1)...,]颜色5,颜色4),颜色3),颜色2),颜色1),其他颜色)3、设置多种颜色(有规律性)这种就比较简单了,一般是在看较多记录时,多了让人眼花缭乱,所以每隔一行设置颜色,就是thisform.Grid1.SetAll("DynamicBackColor","IIF(MOD(RECNO(),2)=0,RGB(255,255,255),RGB(0,255,0))","Column")如何在GRID的单元格中显示列表框第一步:在属性对话框中

6、选择到GRID1某列下的TEXT1控件。第二步:用鼠标激活表单,注意点击标题栏即可。第三步:按DEL键,即删除了某个TEXT1控件,此时GRID1的某COLUMN下为空,其他的为TEXT1控件。第四步:从表单工具栏上选择一个COMBO,将鼠标移到GRID1上,鼠标成+字型,放在刚才删除TEXT1的位置上,按下鼠标左键,即可!第五步:可以到属性对话框中对此COMBO1进行属性设置!如何在GRID里控制回车事件在VFP里,GRID的默认控件都是TEXTBOX,形成了一个表格,但是在这个二维表里进行操作时,每次按回车都是往后一个单元格跳转,当到最后一列时,则继续跳到第一列,

7、进而循环,使操作很不方便,特别是一些要按照DOS的操作习惯的,希望回车时,可以往下移动单元格,或在最后一列回车时回到第一列等操作。下面说明如何在GRID里的一个列里按回车使记录连续往下跳转(或可以执行其他的操作),当跳转到最后一行时执行另一个操作。1、对GRID所在的表单新增属性:cur_recn记录当前记录号cur_recc记录最大记录号2、在表单初始化,或给GRID以数据源时,就先计算出该表的最大的记录数,如下:thisform.cur_recc=recc()为了一次得到当前GRID里的表的记录总数3、在GRID的AfterRowColChang

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。