用VFP6的组合框实现逐键显示查询 黎兵 1999年 第44期 13版 　　在Windows环境的应用程序中，随处可见组合框的使用，它主要用于多选一的选择项。在数据库的应用程序中，不论是输入输出还是查询界面，更是经常使用组合框与用户交互，并且其选项往往具有较多的条目，这就产生了如何更快地定位所需选项的问题。在见过国内的多种商业管理软件中，组合框中的选择项都是一条条地浏览查找，当你试用软件或使用它提供的例子时，由于列表项不多（几条或十几条），不会觉得有问题，但投入一个使用的实际系统时，会感到很不方便。 　　Visual Foxpro 6.0的组合框有两种型式，由Style属性决定：Style=0为缺省值。下拉组合框，它允许不下拉直接输入值或下拉后从列表中选择值，这对于查询等不需精确控制输入值时可采用。但是要保证数据参照完整性时，都建议采用另一种型式，Style=2。下拉列表，只能选择输入，这时用户可能选择不正确的值，但是他不能输入不存在的值，这样可以保证数据的参照完整性。 　　组合框的数据源一般是一个表，视图或数组，在数据库应用中选择项较多的情况可能是选择客户名、商品名等。组合框本身不提供过滤（Filter）的查找方式，只提供两种定位方法，由它的IncrementalSearch属性决定：IncrementalSearch=.T.，首字符匹配，IncrementalSearch=.F.，渐进式查找，这对于英文还是相当快捷。遗憾的是，这两种都不接受汉字，并且许多用户对输入汉字查找有意见，对于模糊的或反复的查找很不方便。实践证明，采用汉字拼音首字母输入作为查询值，可以过滤到匹配的记录，具体作法，结合一个员工登录表单的组合框为例进行说明。 　　在建立员工的基本资料表时，建一个字段 Namp，C型，每当新增员工或更改姓名后，根据姓名产生一个拼音码：汉字拼音首字母串，如“黎兵”，就把“LB”存入相应记录的 Namp 字段中。 　　在登录表单的数据环境中加入员工基本资料表，使用下拉列表框（Style=0）接受用户名的输入，且设置员工基本资料表的姓名字段为其数据源。在组合框的 Keypress 事件中接受用户的输入值：可视键盘字符，一般只用26个字母，10个阿拉伯数字符及其它常用字符。用户的输入值应该要在表单上显示，当然可以在旁边用一个标签或文本框显示，但界面不美观，可以利用下拉组合框的Displayvalue属性显示输入值。使用效果见^441301a^1和^441301b^2，程序代码如后。 　　登录表单组合框程序代码：（注意：刷新列表项，不能用Refresh 方法） 　　表单 Iinit 事件中： 　　Set Exact OFF　 ＆＆过滤时模糊匹配 　　public m_namp　 ＆＆用于保存输入值 　　m_namp=′′ 　　thisform.dataenvironment.cursor1.filter=′namp=m_namp′ ＆＆设置基本资料库过滤条件 　　组合框　Dropdown　（下拉）事件中： 　　this.style=0 ＆＆改为下拉组合框以显示输入值 　　this.displayvalue=m_namp ＆＆显示输入值 　　this.tag=′.t.′ ＆＆置下拉标志 　　组合框　Click　（回收）事件中： 　　this.style=2＆＆恢复为下拉列表框 　　this.tag=′.f.′ ＆＆删除下拉标志 　　组合框　Keypress　（按键）事件中： 　　LPARAMETERS nKeyCode， nShiftAltCtrl ＆＆接收系统传来的按键参数 　　k=nkeycode 　　if （between（k，33，127） or k=7） and this.tag=′.t.′ ＆＆下拉状态 　　if k=127 or k=7 　　m_namp=left（m_namp，len（m_namp）－1） ＆＆Backspace　或　Del　键 　　else 　　m_namp=m_namp＋upper（chr（k）） ＆＆字符键，合成查询值 　　endi 　　this.displayvalue=m_namp ＆＆显示输入值 　　nowno=recno（） 　　this.requery＆＆刷新列表项 　　if this.listcount=0 ＆＆无符合条件的，清空输入值且全部显示 　　m_namp=′′ 　　this.displayvalue=′′ 　　this.requery 　　? chr（7） 　　wait window ′没有符合条件的记录! ′ timeout（1） 　　if nowno>；0 and nowno<；=recc（） 　　go nowno 　　endi 　　endif 　　nodefault ＆＆不执行父类代码（首字符匹配，或渐进式查找） 　　endif 　　每键入一个拼音码，列表的内容就缩小到匹配的记录，择一项就很容易了。因为很多地方都需使用组合框选择客户名，商品名等，可以把这种组合框定义为一个类。 　　这个方法在奔腾计算机，五千条记录的情况下，逐字符过滤库，刷新列表，速度相当快，不会有停顿的感觉，效果很好。