【access源码】Access超强通用窗体数据筛选器ActiveFormFilter

时　间:2010-03-31 15:45:26
作　者:红尘如烟   ID：10768  城市：成都
摘　要:通用数据窗体筛选器、查询器，可作为通用查询功能模块使用。
正　文:

1.用于在绑定了数据源的窗体（或子窗体）中进行数据筛选，完全可以作为通用查询功能来使用。
2,在需要进行数据筛选查询的窗体中创建一个按钮，然后通过该按钮来打开ActiveFormFilter窗体，示例代码如下：
    Private Sub 筛选按钮_Click()
        'Me.子窗体.SetFocus   '如果要对子窗体的数据进行筛选才用这一句
        DoCmd.OpenForm "ActiveFormFilter"
    End Sub
3.子窗体优先于窗体，但如果子窗体未绑定记录集，则即使将焦点移到子窗体再打开筛选器，也会是对窗体数据进行筛选。
4.能够自动识别各种数据类型，动态显示各个字段的所有值（排除重复值和空值，可选功能），只需用鼠标点击即可完成筛选查询，而且可以对条件代码进行手动编辑，进行更加复杂的筛选查询。
5.可以对筛选方案进行保存、添加、删除操作，只需在已保存的方案列表中双击方案名称，或者选中方案名称后点击【筛选】按钮即可应用已保存的筛选方案。
6.关于筛选方案的编辑，筛选方案列表处于选中状态时，点【保存】按钮会保存并覆盖到已有方案记录中，否则保存为新记录。筛选方案必须点击【保存】按钮才能保存，临时筛选只需添加条件后点击【应用筛选】按钮即可。要清除当前已输入的条件，只需点击方案列表下边的【新建】按钮。
7.多条件时需要点【添加】按钮将条件加入到条件框中，如果只有一个条件，则可以直接点【应用筛选】按钮进行筛选。
8.筛选方案数据保存在表USysFilterSchemes中，这个表在打开筛选器时如果不存在会自动创建，所以大家在使用时只需要把窗体AcitveFormFilter导入你自己开发的系统中即可。

本人技术水平有限，遗漏之处难免，有什么bug或改进建议欢迎大家向我提出……

附   件:

点击下载此附件