VFP中的Grid表格设计技巧四则

曾庆祝
1999年 第39期 17版


    使用VFP中表格设计浏览界面，给人简捷方便直观的感觉。下面向你介绍几例操作小技巧，希望喜欢。
#1    一、快速建立Grid表格
    对于字段较多的表，要制作Grid表格非常麻烦。在这里，你只要能灵活地利用VFP的“表单生成器”，就能大大提高Grid表格的制作效率。假设需要以A.dbf为处理对象建立一个Grid表格，其建立步骤如下：
    （1）建立一个只有两个字段的自由表B.dbf，并使其中的一个字段能与A.DBF中的某个字段相关；
    （2）启动“表单生成器”，选择“向导方式”中的“一对多表单向导”；
    （3）在“一对多表单向导”的操作引导下，以B.dbf为父表、A.dbf为子表的基本模式制作表单。在选择子表字段时，以未来Grid表格的需要来进行A.dbf字段的选取；
    （4）打开由第（3）步制作的表单，剪切表单上的Grid表格，然后再退出该表单；
    （5）打开您程序中需要使用Grid表格的表单，把在第（4）步上剪切的Grid表格复制到当前表单上。
    这样，一个符合程序要求的Grid表格即制作完毕。用此方法制作Grid表格，表格字段越大，本方法的效率就越高。 
#1    二、用Grid模拟Browse窗口
    可以将Grid结合在Form对象中，模拟成一个Browse命令窗口，可以自由调整Form大小，而Grid对象也会自动调整大小。用下面方法可以实现：
    （1）首先设定一个Form对象，该对象必须保留其BorderStyle为3－可调边框，这样可自由调整大小之边线属性；同时设定Resize事件程序如下：
    Thisform.Grid1.Width=this.width
    Thisform.Grid1.Height=this. Height
    （2）设计一个Grid对象于Form对象中，并设定其属性如下：
    RecordSource－目前“数据环境”中所设定的工作区别名
    Top与Left均为0，表示该对象左上端坐标为0，0
    Width=Thisform.Width
    Height=Thisform.Height
    这样，已经设定好的Grid对象和Browse窗口一般，当对Form对象进行大小调整时，对象的高度与宽度就可以随之调整了。 
#1    三、在Grid中删除记录后立即移出显示
    如不进行特殊设置，Grid删除记录后只是在Grid的删除记号区打上黑点，而不会立即移出显示。进行以下设置可立即移出：
    （1）在主程序或Form对象的Load事件写下代码:SET DELETE ON
    （2）在删除记录按钮对象的Click事件中加入代码:
    DELETE
    THISFORM.GRID1.COLUMN1.SETFOCUS 
#1    四、设计Grid记录层次检核程序
    在Grid对象中没有Valid事件程序设定位置，我们可以借助Grid对象的AfterRowColChange作为当记录指针移开时的记录检核程序，该事件当你将光标焦点移开某一列或某一栏时可以被触发。你只需在AfterRowColChange事件中加入以下代码即可：
    LPARAMETERS nColIndex
    IF INLIST（LASTKEY（），24，5）
    ?? CHR（7）
    =MESSAGEGOX（″触发记录检核程序！″）
    ENDIF　　
     

 