Office中国论坛/Access中国论坛

标题: [原创]用拼音缩写动态模糊查询单位信息的源码例子。 [打印本页]

作者: xlonger 时间: 2007-1-19 22:00
标题: [原创]用拼音缩写动态模糊查询单位信息的源码例子。
曾经做这个 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。

[attach]22705[/attach]
[attach]22706[/attach]

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

作者: 一点通 时间: 2007-1-19 22:19
谢谢分享

作者: xlonger 时间: 2007-1-19 22:33
ACCESS VBA在桌面数据库方面是个好东西。

作者: kingcross 时间: 2008-4-19 16:16
ACCESS VBA在桌面数据库方面是个好东西,谢谢分享

作者: chaojianan 时间: 2009-4-2 17:43
收藏了。

作者: 阿六爱狗 时间: 2009-4-3 10:49
谢谢提供

作者: 兰绫碎 时间: 2009-5-26 10:41
很好用~~~~~~

作者: 86814898 时间: 2009-9-21 16:13
xiexiele

作者: cfncmjh 时间: 2009-10-5 20:32
不错阿

作者: ljwolf 时间: 2009-10-7 14:52
好东西啊

作者: yyxtj 时间: 2011-1-4 10:00
好东西。谢谢

作者: papacy 时间: 2011-1-4 14:40
结合VBA的确用处大

作者: TKJ 时间: 2011-3-14 15:22
好东西，谢谢哈

作者: yihesmxx 时间: 2011-3-30 16:26
学习学习

作者: lulu_ye 时间: 2011-10-24 17:28
好厉害,好东西

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)