VFP 转豆十三

最新推荐文章于 2012-01-20 11:24:30 发布

转载最新推荐文章于 2012-01-20 11:24:30 发布 · 950 阅读

文章标签：

#input #keyboard #google #list #测试

VFP 专栏收录该内容

4 篇文章

订阅专栏

本文详细介绍了文本列表查询与组合框自动筛选的实现方法，包括表单初始化、按键事件处理、文本框交互事件及组合框的查询与自动筛选功能。通过实例代码演示了如何在表单中实现高效的数据查询与筛选，适用于数据库应用开发。

Text+List查询--设表单上的这个文本框和列表框分别为：Text1和List11、--表单Init事件代码：This.KeyPreview=.T.This.List1.Visible=.F.2、

--表单KeyPress事件代码：Lparameters nKeyCode, nShiftAltCtrlIf (nKeyCode=5 Or nKeyCode=24 Or nKeyCode=13) And This.List1.Visible And This.List1.ListItemId>0 And This.Text1.Tag='1' If nKeyCode=13 This.Text1.Value=This.List1.Value This.List1.Visible=.F. Else lnListID=Iif(nKeyCode=5,Max(This.list1.ListItemId-1,1),Min(This.list1.ListItemId+1,This.list1.ListCount)) This.list1.ListItemId=lnListID Nodefault EndifEndif3、--Text1的GotFocus事件代码：This.Tag='1'--Text1的LostFocus事件代码：*Thisform.List1.Visible=.F.This.Tag=''--Text1的InteractiveChange事件代码：If !Empty(This.Value) Thisform.list1.RowSource=Null Select 名称 From 商品名 Where Alltrim(This.Value)$拼音简码 Into Cursor t1 Order By 名称 Thisform.list1.RowSourceType=6 Thisform.list1.RowSource="t1.名称" If Reccount('t1')>0 Thisform.List1.ListItemId=1 Thisform.List1.Visible=.T. Else Thisform.List1.Visible=.F. EndifElse Thisform.List1.Visible=.F.Endif--List1 的Click事件代码：Thisform.Text1.Value=This.List1.ValueThis.Visible=.F.*-----------------------------------------------ComboBox组合框查询If !Empty(This.DisplayValue) Select 姓名 Into Cursor T1 From kq_yg Where Alltrim(This.DisplayValue)$姓名 If _Tally>0 This.RowSourceType= 6 This.RowSource='T1.姓名' This.SetFocus Keyboard '{F4}' Else Messagebox("没有你要查询的数据",48,"信息提示") This.Clear EndifEndif1 把以上代码添加组合框的： InteractiveChange 事件中！ 2 你的数据源必须来自于一个数据表！，并将表名和字段名替换正确！ *-----------------------------------------------Combobox下拉框自动筛选（如在Google中输入字符）*--------------------------------------------By：js_szy注：未测试在列表框combo 的 keypress中加如下代码：If nkeycode>0 If nkeycode=127 &&退格 If Asc(Right(Input_value,1)) <128 &&删除非汉字 Input_value=Left(Input_value,Len(Input_value)-1) Else &&删除汉字 Input_value=Left(Input_value,Len(Input_value)-2) Endif Else If nkeycode <>160 &&按的不是Alt＋↓键 Input_value=Input_value+Chr(nkeycode) &&保存输入内容 Endif Endif Sele 表名 Set Filt To Alltrim(Input_value) $ 字段名称 Count To num If num=0 Then Set Filt To Input_value='' This.Value='' Endif Thisform.Combo.Requery Keyboard '{F4}'Endif