[原创]用拼音缩写 动态模糊查询 单位信息的 源码例子。

xlonger

曾经做这个 MDB程序的原因。

原来有个支票打印软件，在收款人下拉组合框中，能够根据输入的往来单位编号，自动调出相应的往来单位信息。但是在那个软件里，没有办法快速地查询到单位编号。支票软件可以用汉字模糊查询，但是我发现出纳的打字速度并不快，就想到，是否可以用拼音缩写查询单位信息和编号，另外做个MDB程序和支票软件同时运行？

一年前，在论坛上看到trynew的拼音缩写的例子后，我做了这样的小工具，称为票据工具

经过不断的完善，最终形成如下功能。

1、在主窗体中输入单位名称的拼音缩写，子窗体动态模糊查询符合条件的单位信息记录和当前记录的编号。

2、MDB运行时，自动显示在屏幕右下角，不在任务栏显示窗口。

3、查询到需要的单位编号后，按回车，自动将支票打印软件切换成当前活动窗口（然后在支票软件里就可以根据查询到的编号，快速调出需要的往来单位了）。任何时候按F12键，自动显示票据工具窗口。

4、子窗体中有快捷菜单，既有ACCESS系统菜单项，也有我自定义的菜单项。程序编译成MDE后能设置和保存子窗体的列隐藏，列冻结设置，列宽度，列顺序4个属性。我写成了一个函数。

5、票据工具窗口运行时，不显示ACCESS主程序窗体，票据工具窗口没有边框，可以用鼠标左键按住窗口空白地方，拖动来移动窗口位置。

6、保存单位信息的文件中，原来没有编号列，票据工具运行时，自动为各个单位记录生成自动编号。

7、用代码设置ACCESS选项内容。

8、。。。。。。各个功能是为特定目的设计的（附件中也没有支票打印软件，只有MDB），但是其中的ACCESS VBA 内容，我想初学者完全可以参考一下。

我一开始学ACCESS VBA，一点都不懂，连如何往列表框中增加内容都不会，随着不断的学习，在ACCESS911.NET，和这个论坛，一点一点学，逐渐地自己也会写一些小函数，各个功能不断实现，直到稳定运行。

附件说明：将所有文件解压到相同目录下

MDB 是ACCESS 2000中文版

mytool82.mdb－ 票据工具

noteset.mdb－保存子窗体4个属性

khdw.txt －用来模糊查询的数据。

双击MYTOOL82.MDB会直接运行。

要看源码，双击时，按住键盘Shift键，再按Alt+F11。

[此贴子已经被作者于2007-1-19 14:13:39编辑过]

一点通

谢谢分享

xlonger

ACCESS VBA在桌面数据库方面是个好东西。

kingcross

ACCESS VBA在桌面数据库方面是个好东西,谢谢分享

chaojianan

收藏了。

阿六爱狗

谢谢提供

兰绫碎

很好用~~~~~~

86814898

xiexiele

cfncmjh

不错阿

ljwolf

好东西啊