您的位置：首页 >> vfp教程 >> 网上文摘 >> 控件使用 >> 正文| 网络开发 | 调用API函数 | 报表打印 | 常用技术 | 经验汇总 | 控件使用 | 软件工程 | 数据处理 |
|
您的位置：首页 >> vfp教程 >> 网上文摘 >> 控件使用 >> 正文 |
|
VFP中使用Grid控件设计通用录入界面 Grid是VFP功能强大的表格(或者说网格)控件,它提供了比Browse窗口强大得多的控制方式。Grid是包含列对象的容器对象,而列对象包含了列标题对象及列控件对象,均有各自相应的属性集,因此我们可以完全控制表格中的任何一个元素,设计出通用的报表录入界面。下面我们就详细讨论如何使用Grid控件设计通用录入界面，并解决几个设计过程中经常碰到的问题。 一、基本原理思路 设计灵活性、通用性较强的录入界面较为合适的方法是：采用数据表(DBF文件)控制Grid控件的行列显示信息、显示方式。因此，我们将Grid控件的数据源RecordSource设为数据表(DBF文件)，其数据格式、显示方式及行列提示信息则分别由数据表RowMsg.DBF(控制表格的行即记录方面信息)、ColMsg.DBF(数据格式并控制Grid控件的列方面信息)进行控制。另外，一般来说指定Grid控件第一列显示行提示信息，若有多个提示信息字段，可连接处理为一列。 二、前期准备工作 1.创建表RowMsg.DBF,该表有2个字段,用于显示Grid控件行信息: Create Table RowMsg(Code C(5),Name C(33)) 2. 创建表ColMsg.DBF,该表有6个字段,用于控制、显示表格各列信息: Create Table ColMsg(Code C(5),Name C(20),NeedIn L(1),Field_Name C(10),Field_Type C(1),Field_Len N(3),Field_Dec N(3)) 3.创建表单In_Grid，将其属性Name改为“FrmGrid”, Caption改为“数据录入/修改窗口”；在表单上放置Grid控件,将其属性Name改为“GridDat”；在表单上放置Command控件,将其属性Name改为“CmdExit”, Caption改为“关闭退出”。 三、初步设计工作 1.先在表单的Init事件中写入如下代码： Set Talk Off Set Safe Off CLOSE ALL .AutoCenter=.T. &&表单自动居中 .ControlBox=.F. &&去除表单的控制框 .Width=_Screen.Width &&表单宽度同屏幕 EndWith Sele 0 Use ColMsg Copy To TmpStru Field Field_Name,Field_Type,Field_Len,Field_Dec Copy To TmpColMsg For NeedIn Eras TmpStru.DBF Use TmpColMsg Alias ColMsg Sele 0 Use RowMsg Index On AllTrim(Code) To TmpRowMsg Scan Insert Into Dat(Code) Values (RowMsg.Code) &&由RowMsg.DBF生成Dat.DBF的所有记录 EndScan Go Top Set Rela To AllTrim(Code) Into RowMsg .FontName="宋体" .FontSize=10 .DeleteMark=.F. &&去除Grid的删除标记列,以美化界面 .RecordMark=.F. &&去除Grid的记录选择标记列,以美化界面 .ScrollBars=0 &&去除Grid的水平及垂直滚动条,以美化界面 .AllowHeaderSizing=.F.&&设定Grid的标题栏的高度不可改变 .AllowRowSizing=.F. &&设定Grid的各行高度不可改变 .ColumnCount=Recc("ColMsg")+1 .RecordSourceType=2 .RecordSource="Dat" **/下面指定表格第一列显示行提示信息，并设置该列有关属性。/** .Column1.ControlSource="Code+RowMsg.Name" &&将2个提示信息字段连接处理为一列 .Column1.Enabled=.F. &&该列不能编辑,焦点也不能移入 .Column1.Width=300 .Column1.BackColor=RGB(192,192,192) .Column1.Header1.Caption="指标代码及名称" Sele ColMsg Scan lcCol=AllTrim(Str(Recn()+1,5)) With .Column&lcCol. .ControlSource="Dat."+Alltrim(Field_Name) .Header1.Caption=AllTrim(Name) .Width=90 EndWith EndScan lnGridLen=.Column1.Width+Recc("ColMsg")*.Column2.Width+10 .Width=IIF(m.lnGridLen>ThisForm.Width*0.95,ThisForm.Width*0.95,m.lnGridLen) .Left=(ThisForm.Width - .Width)/2 ThisForm.CmdExit.Left= (ThisForm.Width - ThisForm.CmdExit.Width)/2 &&使命令按钮水平居中 EndWith
至此, 该表单已可顺利运行。 四、进一步完善 该表单虽已可顺利运行,但却存在着如下两个主要不足之处: 1.输入焦点不能自动下移，即在第一行最后一个字段上打回车键,焦点不能自动转到下一行的第一个字段上，而是回到第一行的第一个字段上。 2.信息提示列(最左一列)无法固定,即随着输入焦点的右移，信息提示列将移出屏幕而不再可见，失去其信息提示的作用。 下面我们就来详细讨论并解决这两个难题。 (一) 输入焦点自动下移 解决此问题可用的方法较多。经过多方比较、测试，我们认为采用表单的KeyPress事件解决这个问题较为合适(当然采用Grid控件的BeforeRowColChange事件或AfterRowColChange事件也完全可以)。KeyPress事件在用户按下并释放某键时发生,由具有焦点的对象接收。表单可在下列两种情况下接收KeyPress事件： (1)表单中不包含任何控件或所有控件都不可见或都未激活。(2)表单的KeyPreview 属性设置为.T.。 显然本例不适用情况(1)，只适用情况(2)。为此，需在表单的Init事件代码中增加如下代码： ThisForm.KeyPreview=.T. 然后在表单的KeyPress事件中写入如下代码： **/判断当前焦点是否在Grid控件上及按键是否是回车键或TAB键**/ With ThisForm.ActiveControl IF Upper(.Name)='GRIDDAT' And (m.nKeyCode=13 OR m.nKeyCode=9) if .ActiveColumn=Recc("ColMsg")+1 &&判断当前焦点是否在Grid控件的最后一个字段上 KeyBoard "{DnArrow}" Plain &&是则下移一行 Endif ENDIF EndWith 至此, 输入焦点自动下移的问题基本解决。 (二) 固定信息提示列(最左一列) 一般情况下,第一列往往是整条记录的提示信息。Foxpro的Browse命令有Lock参数，可指定在浏览窗口左分区中可见字段数,这样在数据浏览时,可保证当发生水平滚动而使最左几列不可见时,仍能在浏览窗口的左分区中看到这几列的内容。这在输入带有较多字段的数据情况下非常有用。 在Grid控件中可通过设置其Panel、Partition及PanelLink属性解决这个问题。这里我们要解决更难些的问题: 当Grid控件右面板的第一列可见时,左面板第一列消失，因为这时不需要显示两个第一列；而当Grid控件右面板的第一列不可见时，左面板显示第一列的内容。也即所谓的固定信息提示列(最左一列)。 解决此问题的方法也很多，为简化编程，我们仍采用表单的Init事件及KeyPress事件(当然也可采用Grid控件的BeforeRowColChange事件或AfterRowColChange事件)。 在表单的Init事件代码中增加如下代码： ThisForm.GridDat.Panel=1 &&指定右分区活动 ThisForm.GridDat.PanelLink=.T. &&左右分区相关联 ThisForm.GridDat.Patition= ThisForm.GridDat.Column1.Width **/注：m.lnGridLen是该Grid控件信息提示列及各数据列的宽度之和**/ This.GridDat.Width=IIF(m.lnGridLen>This.Width*0.95,This.Width*0.95,m.lnGridLen) This.GridDat.Left=(ThisForm.Width - This.GridDat.Width)/2 &&使Grid控件居中 This.GridDat.Partition=IIF(m.lnGridLen>This.Width*0.95,This.GridDat.Column1.Width,0)
(三)其他细节问题 经过上述一系列改进后，报表通用录入界面已基本实现，但仍存在着几个细节问题： （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行代码： ON KEY LABEL PgUp IIF(Bof("Dat"),Application.DoCmd("=MessAgeBox('已是第一条记录!',； '提示信息')"),Application.DoCmd("SKIP -12")) ON KEY LABEL PgDn IIF(EoF("Dat"),Application.DoCmd("=MessAgeBox(‘已是最后一条记录!’，； ’提示信息’)"),Application.DoCmd("SKIP 12"))
按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事件完整代码如下： Set Talk Off Set Safe Off CLOSE ALL ON KEY LABEL PgDn IIF(EoF("Dat"),Application.DoCmd("=MessAgeBox(‘已是最后一条记录!’，’提示信息’)"),Application.DoCmd("SKIP
12")) .KeyPreview=.T. .AutoCenter=.T. .ControlBox=.F. .Width=_Screen.Width EndWith Use ColMsg Copy To TmpStru Field Field_Name,Field_Type,Field_Len,Field_Dec Copy To TmpColMsg For NeedIn Eras TmpStru.DBF Use TmpColMsg Alias ColMsg Use RowMsg Index On AllTrim(Code) To TmpRowMsg Scan Insert Into Dat(Code) Values (RowMsg.Code) EndScan Go Top Set Rela To AllTrim(Code) Into RowMsg .FontName="宋体" .FontSize=10 .DeleteMark=.F. .ScrollBars=0 .ColumnCount=Recc("ColMsg")+1 .RecordSourceType=2 .RecordSource="Dat" .Column1.Enabled=.F. .Column1.Width=Len(Code+RowMsg.Name)*8 .Column1.BackColor=RGB(192,192,192) .Column1.Header1.Caption=" 指标代码及名称 " .PanelLink=.T. lnGridLen=.Column1.Width+10 Scan lcCol=AllTrim(Str(Recn()+1,5)) With .Column&lcCol. .ControlSource="Dat."+Alltrim(Field_Name) .Header1.Caption=AllTrim(Name) .Width=Len(.Header1.Caption)*7 lnGridLen=m.lnGridLen+.Width EndWith EndScan .Width=IIF(m.lnGridLen>ThisForm.Width,ThisForm.Width*0.95,m.lnGridLen) .Left=(ThisForm.Width - .Width)/2 .Partition=IIF(m.lnGridLen>ThisForm.Width*.95,.Column1.Width,0) ThisForm.CmdExit.Left= (ThisForm.Width - ThisForm.CmdExit.Width)/2 EndWith KeyBoard "{Tab}{BackTab}" Plain LPARAMETERS nKeyCode, nShiftAltCtrl With ThisForm.ActiveControl IF Upper(.Name)='GRIDDAT' And (m.nKeyCode=13 OR m.nKeyCode=9) IF .ActiveColumn=Recc("ColMsg")+1 KeyBoard "{DnArrow}" Plain KeyBoard "{Tab}{BackTab}" Plain If .ActiveRow=Recc("RowMsg") KeyBoard "{Ctrl+Tab}" Plain Endif ENDIF ENDIF EndWith ON KEY LABEL PgUp ON KEY LABEL PgDn Eras TmpColMsg.DBF Eras TmpRowMsg.IDX 附图1信息提示列出现重复显示的通用录入界面 附图2 带有水平及垂直滚动条的通用录入界面 附图3最终实现的较为完善的通用录入界面 | ||||
