【聚杰网数据库编程】VFP中使用Grid控件设计通用录入界面
该表单虽已可顺利运行,但却存在着如下两个主要不足之处:
1.输入焦点不能自动下移，即在第一行最后一个字段上打回车键,焦点不能自动转到下一行的第一个字段上，而是回到第一行的第一个字段上。
2.信息提示列(最左一列)无法固定,即随着输入焦点的右移，信息提示列将移出屏幕而不再可见，失去其信息提示的作用。
下面我们就来详细讨论并解决这两个难题。
(一) 输入焦点自动下移
解决此问题可用的方法较多。经过多方比较、测试，我们认为采用表单的KeyPress事件解决这个问题较为合适(当然采用Grid控件的BeforeRowColChange事件或AfterRowColChange事件也完全可以)。KeyPress事件在用户按下并释放某键时发生,由具有焦点的对象接收。表单可在下列两种情况下接收KeyPress事件：
(1)表单中不包含任何控件或所有控件都不可见或都未激活。(2)表单的KeyPreview 属性设置为.T.。
显然本例不适用情况(1)，只适用情况(2)。为此，需在表单的Init事件代码中增加如下代码：
ThisForm.KeyPreview=.T.
然后在表单的KeyPress事件中写入如下代码：
至此, 输入焦点自动下移的问题基本解决。
(二) 固定信息提示列(最左一列)
一般情况下,第一列往往是整条记录的提示信息。Foxpro的Browse命令有Lock参数，可指定在浏览窗口左分区中可见字段数,这样在数据浏览时,可保证当发生水平滚动而使最左几列不可见时,仍能在浏览窗口的左分区中看到这几列的内容。这在输入带有较多字段的数据情况下非常有用。
在Grid控件中可通过设置其Panel、Partition及PanelLink属性解决这个问题。这里我们要解决更难些的问题: 当Grid控件右面板的第一列可见时,左面板第一列消失，因为这时不需要显示两个第一列；而当Grid控件右面板的第一列不可见时，左面板显示第一列的内容。也即所谓的固定信息提示列(最左一列)。
解决此问题的方法也很多，为简化编程，我们仍采用表单的Init事件及KeyPress事件(当然也可采用Grid控件的BeforeRowColChange事件或AfterRowColChange事件)。
在表单的Init事件代码中增加如下代码：
注：Partition属性指定一个表格是否拆分为两个分区，并且指定相对于表格左分区的拆分位置。当Partition设置为零时，表示不拆分表格；为非零时表示拆分位置的值(实际上就是左分区的宽度)。这里我们判断一下该Grid控件的宽度是否超过表单宽度(实际上是表单宽度乘0.95,以使Grid左右留有一定空白，以美化界面)，是则Partition设置为信息提示列的宽度,以适应前面提出的固定信息提示列的要求；否则Partition设置为零(因为此时已不需要分区)。
(三)其他细节问题
经过上述一系列改进后，报表通用录入界面已基本实现，但仍存在着几个细节问题：
（1） 初始进入该界面及录完一行进入下一行时，信息提示列会出现重复显示，如附图1示，解决方法：分别在表单的Init事件及KeyPress事件代码中适当位置增加如下代码即可： KeyBoard "{TAB}{BACKTAB}" Plain
（2） 我们希望在最后一行的最后一列数据在打回车后,焦点能自动移到命令按钮上,以便我们选择进行下一步工作, 如”存盘退出”. “继续录入”. “放弃关闭”等等,实践中发现在KeyPress事件代码中适当位置增加ThisForm.CmdExit.SetFocus()不行,只能用KeyBoard "{Ctrl+Tab}" Plain实现。
（3） 不设置水平及垂直滚动条的优点显而易见,一是界面简洁美观,如附图2示, 带有水平及垂直滚动条的录入界面显得不简洁,有些拖泥带水，且右分区的左下端垂直滚动条上的那个细黑条是分区标志，拉动它可以重新调整左右分区，以致破坏业已设计好的录入界面；二是编程大大简化，如单击水平滚动条时左右分区的拆分会出现问题(当然可通过Grid控件的Scrolled事件编程解决)。但不可否认也带来上下左右翻屏的不便，主要是上下翻屏的不便(左右滚屏可通过连续按TAB键、Shift+TAB组合键实现)。上下翻屏原可通过PgUp/PgDn键解决，但此时使用PgUp/PgDn会出现信息提示列与右分区的数据列不相对应的情况，因此我们重新定义PgUp/PgDn键，在表单的Init事件代码中增加如下2行代码：
注：通过DoCmd函数、MessageBox函数实现以下功能：
按PgUp向上滚动12行，若已到首行则提示“已是第一条记录！”；按PgDn向下滚动12行，若已到末行则提示“已是最后一条记录！”。
五、结束语
至此,我们已较为圆满的实现了使用Grid控件设计通用录入界面。应该指出的是，可以进一步完善的地方仍很多：
1．信息提示列及各数据列的宽度设置。可用RowMsg.DBF及ColMsg.DBF中的相应字段长度乘上某一系数得到，也可在RowMsg.DBF及ColMsg.DBF中设置相应字段直接确定其宽度。我们采用了前法。
2.水平及垂直滚动条的设置。当数据列超过30列后，有水平滚动条就显得较为方便。遗憾的是,VFP本身未提供单独的滚动条控件（当然损失一些界面的美观简洁,使用Grid控件自身的滚动条完全可以实现），因此，我们只能使用OLE控件,如MicroSoft Forms 2.0 ScrollBar，并通过设置其相应的属性及事件编程,解决这个问题。本文限于篇幅，不再讨论。另外，不使用Grid控件而直接使用已较好解决这些问题第三方OLE控件，如TrueDBGrid、FlexGrid、MicroSoft DataGrid Control等等，也是一种解决方法，但已不属本文范围，不再讨论。
本例在Windows9x/WindowsXP、Visual Foxpro 5.0/6.0下调试通过。本例所有事件的完整代码附下。
表单的Init事件完整代码如下：
附图1信息提示列出现重复显示的通用录入界面
附图2 带有水平及垂直滚动条的通用录入界面
附图3最终实现的较为完善的通用录入界面
1
以下相关文章您是否也应该阅读一下
VFP中状态栏控件的使用说明 VFP中多条件数据查询程序的实现
