具有模糊查询功能的类似百度的窗体设计

时　间:2011-03-09 14:19:53
作　者:云中老鼠   ID：17697  城市：广州
摘　要:用文本框和列表框制作模糊查询窗体，重点解决文本框处于删除修改状态下的查询问题。仅供参考，望各位老师指正！
正　文:

点击下载此附件

Q问题的提出：

在数据录入窗口，录入的内容只录入前几个字，就会像在百度搜索的时候把以前录入过的全部内容自动提示出来。

比如以前曾经录入过:
天津市南开区
天津市和平区
天津市河西区
天津市河北区
北京市朝阳区

在录入新内容的时候当打完“天津市”，前4行字就以下拉菜单的形式提示出来，当再打一个字“河”等于已经录入“天津市河”会这四个字后，又只提示：“天津市河西区”“天津市河北区”这2行。
或者录入：“河西区”，就会提示“天津市河西区”。就是说关键字并不一定是在录入字符的开头，中间的也会提示。

A问题的解答：

类似百度的窗体，可以这样设计，制作一个文本框，用来录入信息，做一个列表框，通过文本框的信息模糊查询以前的信息，当信息条数小于某个值（如1000）的时候，列表框隐藏；信息条数大于等于那个值时，列表框显示。
用access开发数据录入窗体，不必这么复杂，做了文本框和列表框就可以了，不需要根据信息量进行判断、隐藏。

例如“窗体1”中的文本框叫“text0”，列表框叫“list0”，以前录入的信息记录在“表1”的“地段”里面。

那么，在list0的行来源输入：
Select 表1.地段 FROM 表1 Where (((表1.地段) Like "*" & [forms]![窗体1]![text0] & "*"));

在text0的“更新后”的事件中插入以下代码：
List0.Requery  '每次写信息在text0里面后，用回车或者tab键，就更新list2的查询结果

在list0的“双击”事件中插入以下代码：
text0.Value = List0.Value  '每次双击列表框的一行，就用这行改写文本框的内容

（增加附件中主任务表的记录，可以扩大模糊查询的内容）