Access编程交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

培训

Access企业培训(现场)
Access在线培训

Access中级培训

Access高级培训

Access定制培训

Access树控件与BOM高级技巧

Access公开课
Access免费公开课视频
Access培训(VIP)
Access培训优惠信息

热门文章

最新文章

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 培训 > Access培训(VIP)
Access培训(VIP)

Access智能搜索组合框-Access经典源码剖析

 
Access主题 主题:Access智能搜索组合框-高手之路                  听课人数:90人      
Access主讲 主讲:王宇虹                       演讲时间:2014-08-06 15:30 至 2014-08-06 16:30
Access培训内容 讲课内容简介:                   Access培训报名: http://www.office-cn.net/thread-118946-1-1.html
  讲解如何智能搜索组合框的设计使用,在录入数据时能快速搜索,模糊搜索,智能搜索出需要的用户名或者其他需要录入的数据。能拼音中文复合搜索录入。非常的方便快捷
 培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件  培训
 培训目标:让你 听得懂 学得会 记得住 用得上             要求:有一定的Access 或 VBA的基础 
 

 

clip0058

Access智能搜索组合框


 

 

application_key 功能描述:

 

  • 模糊搜索

  • 智能搜索

  • 拼音 中文复合搜索

 

 

application_key  行业应用场景:

 
  •  人事,考勤管理系统

            员工信息快速录入

             其它信息快速录入的需求

  • 其它管理系统信息快速查找录入

  • 其它系统数据模糊搜索选择

 

 

application_key  界面预览:

 

     access数据库

      access数据库

 

application_key  源码思维导图(脑图):

 

     access数据库

 

Access教程视频Access智能搜索组合框 -- Access经典源码剖析思维导图在线播放

可直接展开和收缩思维导图中的每个节点来浏览,也可使用下面的放大 缩小 折叠 定位焦点 全页显示 查找关键字等功能
 

 

 

application_key  Access培训笔记:

 

  经典源码剖析系列 智能搜索组合框 Office中国-王宇虹

1 应用场景

1.1 模糊搜索

1.2 智能搜索

1.3 拼音 中文复合搜索

 

2 模块 源码剖析

2.1 客户名称 组合框

2.1.1 cboCustomer

2.1.1.1 匈牙利命名法

2.1.1.1.1 前缀cbo

2.1.2 多列显示

2.1.2.1 5列

2.1.2.2 模糊搜索所需要的字段

2.1.3 行来源类型

2.1.3.1 表/查询

2.1.4 行来源

2.1.4.1 SELECT CustName, CustNo, Contact, Phone, Address FROM tblCustomer;

2.1.5 隐藏列

2.1.5.1 列宽设置为0

2.1.5.2 列表总宽度=各列宽度之和

2.1.6 更新后事件

2.1.6.1 列的索引号是从0开始

2.1.6.1.1 Column(1)

2.1.6.1.2 第2列

2.1.7 KeyPress

2.1.7.1 如果按下TAB键或者回车键,不处理

2.1.7.2 设置txtKey 显示

2.1.7.2.1 如果txtKey原来是隐藏才设置

2.1.7.3 是退格键

2.1.7.3.1 把关键字 退格删除

2.1.7.4 不是退退格键

2.1.7.4.1 把输入内容累加到关键字文本框

2.1.7.5 根据关键字

2.1.7.5.1 模糊搜索

2.1.7.5.2 把获得的客户名称回填到组合框里

2.1.7.5.2.1 cboCustomer.Text

2.1.7.5.2.2 Value是更新后的值

2.1.7.5.2.3 在某些时候text与value是不一致

2.1.7.6 把组合框打开

2.1.7.6.1 Dropdown

2.1.7.6.2 便于观察模糊搜索的过程

2.2 搜索关键字 文本框

2.2.1 txtKey

3 2001年写的智能组合框

3.1 比较实用

3.2 应用广泛

3.3 普适性强

3.4 容易扩展

 

 

application_key  相关链接:

 

1. 直接超值购买:

       点击购买:  Button 

       包含:Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

 

2. 购买前咨询:

    

    在线咨询QQ:1918333016

    企业热线QQ:4008553990 (使用QQ搜索: 搜索服务)

    更多联系方式:http://www.office-cn.net/t/training/officecontact.htm

 

application_key  部分源码预览:

 

   access数据库

   access数据库

 
Option Compare Database
'===============================================================================
'-函数名称:         gfChkNullEmpty
'-功能描述:         校验指定的控件内容是否为空或空白,并显示相应的提示信息
'-输入参数:         参数1:rctlInput As Control 控件对象
'-                  参数1:rstrCCtrName As String 控件描述(用于提示信息)
'-返回参数:         逻辑值(True 或 False) 如果为空,则返回True
'-使用示例:         gfChkNullEmpty txtCustomer,"客户"
'-相关调用:         无
'-使用注意:         适用TextBox ComboBox OptionButton CheckBox
'-兼 容 性:         97,2000,XP compatible
'-参考资料:
'-作    者:         王宇虹  修改:王宇虹
'-创建日期;         2002-11-10  更新日期: 2002-11-12 ,2002-11-15
'-图    解:
'===============================================================================
 
Public Function gfChkNullEmpty(rctlInput As Control, rstrCCtrName As String) As Boolean
    On Error Resume Next
    gfChkNullEmpty = False  '设置返回初始值为False
    If (IsNull(rctlInput)) Or rctlInput = "" Then    '如果指定的控件内容为空或空白
        '显示提示信息,说明此控件内容不能为空
        MsgBox rstrCCtrName & "不能为空", vbCritical, "ACCESS中国"
        rctlInput.SetFocus  '并将光标定位到内容为空的控件上,以便用户继续输入
        gfChkNullEmpty = True    '返回True
    End If
 
End Function
 
 
'===============================================================================
'-函数名称:         gfGetHzPy
'-功能描述:         一种取拼音首字的方法,根据ASCII落在哪在区里来判断首字是什么
'-输入参数:         参数1:rstrHz As String 汉字字符串
'-
'-返回参数:         字符值,取得的拼音首字
'-使用示例:         gfGetHzPy "客户"
'-相关调用:         无
'-使用注意:         有极少量汉字可能取不到
'-兼 容 性:         97,2000,XP compatible
'-参考资料:
'-作    者:         王宇虹  修改:王宇虹
'-创建日期;         2001-05-10  更新日期: 2002-11-12 ,2002-11-15
'-图    解:
'===============================================================================
Public Function gfGetHzPy(rstrHz As String) As String
    Dim rstrHzTemp As String
    If Asc(rstrHz) < 0 Then '属于中文
        '汉字由两个字节组成,取第1个判断
        rstrHzTemp = Left(rstrHz, 1)
        If Asc(rstrHzTemp) < Asc("啊") Then
            GetPy = "0"
            Exit Function
        End If
        '属于拼音为A的区内
          '.................................
            '.................................
End Function
 
 
'===============================================================================
'-窗体名称:   frmSearchCust
'-窗体描述:   根据拼音码来检索客户名称,然后根据客户名称来搜索客户其它相关信息
'-主要函数与事件:   下拉框的更新事件,文本框的按键事件
'
'-版  本:           2.0
'-参考文献:
'-测试用例:
'-使用注意:
'-兼容性:           97,2000,XP compatible
'-作者:             王宇虹,改进:王宇虹
'-创建日期::        2001/05/01  修改日期:2002/11/15
'===============================================================================
Option Compare Database
 
Private Sub cboCustomer_AfterUpdate()
    If Not IsNull(cboCustomer) Then    '选择客户后,如果选择的客户名称不为空
        txtContact = Nz(cboCustomer.Column(1))    '由客户下拉框隐藏的三栏来获得联系人 _
                                                  电话和地址
        txtPhone = Nz(cboCustomer.Column(2))
        txtAddress = Nz(cboCustomer.Column(3))
    End If
End Sub
 
Private Sub cboCustomer_KeyPress(KeyAscii As Integer)
    
    On Error Resume Next
    '如果按下TAB键或者回车键,不处理
    
    If KeyAscii = 9 Or KeyAscii = 13 Then Exit Sub
    
    If txtKey.Visible = False Then
        txtKey.Visible = True
        
    End If 
     '.................................
     '.................................
     cboCustomer.Dropdown    '并自动下拉客户下拉框,显示符合条件的客户
       
 '   End If
 
 
End Sub
 
Private Sub cmdEdit_Click()
    DoCmd.OpenForm "frmCustomer"    '打开客户录入与编辑窗体
End Sub
 
Private Sub Form_Load()
    DoCmd.Restore               '还原窗体大小,避免窗体充满整个屏幕,影响美观
End Sub
 
Private Sub txtKey_Enter()
cboCustomer.SetFocus
End Sub
 

 

发布人:zstmtony  
分享到:
点击次数:  更新时间:2018-02-28 11:18:01  【打印此页】  【关闭】
上一条:Access自动播音员-Access经典源码剖析  下一条:Access自动执行宏的妙用-Access经典源码剖析



相关文章

  • • Access多层架构开发思路-Access经典源码剖析
  • • 数据自动导出多个Excel或者多个工作表-Access经典源码剖析
  • • 网站数据提取与采集-Access经典源码剖析
  • • Access控制outlook自动处理邮件-Access经典源码剖析
  • • VBA开发神器发布及培训--完全颠覆Access VBA的开发方式--平台插件VBA伴侣-Access经典源码剖析
  • • 能排序的列表框-Access经典源码剖析
  • • Access专业工资条打印-Access经典源码剖析
  • • Access调用网页功能-中英自动翻译功能-Access经典源码剖析

热门文章

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2023 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn