Grid控制制作数字预警

可以将那些风险系数达到警戒线的机构标为红色，这样哪些机构属于正常经营、哪些机构必须及时采取防范措施就可以一目了然了。通常的办法是编制一段程序，营造一个类似BROWS命令的浏览界面，将满足条件的记录以特殊的警戒色（比如红色）显示。

　　在Visual FoxPro环境中，数据浏览界面常常用Grid控件来实现。使用Grid控件的SetAll方法，按所需条件对控件中的Column对象的DynamicBackColor和DynamicForeColor属性进行设置，几乎不用编程就可以轻而易举地实现数字预警功能（如右图）。本文通过图示实例介绍这种功能的实现方法，例中对所有资本充足率小于8％的记录标以警戒色（红底白字）。

　　下面是实例的具体实现过程：

　　一、准备好所需的数据表:sj.dbf，假如此表包含2个字段：

　　1.表示机构名称的字符型字段jgmc；

　　2.表示资本充足率的数值型字段czl。

　　二、建立表单，将数据表sj.dbf放进此表单的数据环境中。

　　三、在表单上添加Grid控件Grid1，将其ColumnCount属性设为2（需要显示2栏）。

　　四、将对象Column1和Column2的ControlSource属性分别设为sj.jgmc和sj.czl。为了将栏目标题以汉字显示，将每列的Header1对象的Caption属性相应地设为“机构名称”和“资本充足率(％)”。

　　五、在Grid1的Init 事件中加入如下代码：

　　This.SetAll(″dynamicforecolor″, ;

　　 ″IIF(czl<8, RGB(255,255,255), RGB(0,0,0))″,″Column″)

　　This.SetAll(″dynamicbackcolor″, ;

　　 　　 ″IIF(czl<8, RGB(255,0,0), RGB(255,255,255))″,

　　 ″Column″)

　　对照实际效果，不难理解Grid控件所涉及的对象、方法、属性的使用方法。