zjcx.txt

来自「主要实现逐键查询功能」· 文本 代码 · 共 37 行

　　表单 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