1187
社区成员
我想做一个自动查询，帮我！
我想做一个自动查询，textbox控件获得焦点，刷卡，textbox的内容为卡内信息。我想要刷完卡无须任何操作，自动在数据库里查询该卡所对应的记录。请问该怎么做（是用text的什么事件还是其它的方法？）？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
apple_001 2003-04-06
问题解决了吧？别忘了给我加分阿
apple_001 2003-04-06
你的条码一定有一定的长度，那么我们就可以在change事件中对他的长度进行检测，如果达到我们要求的长度了，那么我们就有理由认为刷卡结束了，然后对其进行处理，同时还可以用一个timer，对一次刷卡的时间进行检测，如果时间过长，就认为刷卡失败，然后进行相应的处理，我觉得这样做是比较完善的。
quji8104 2003-04-06
这个问题我个人认为apple_001(天堂里的狼) 的办法比较好一点！
wangluonanhai(网络男孩) 说的也没有错，不过这样做还是要有一步操做来使TEXTBOX失去焦点才能够查询的，而CHANGE事件是每有一个字符的变动都会触发的，可是只要限制了长度就不用每输入一个字符就去查一次了。整个输入完成后才会自动查询。这样我的20分就给wangluonanhai(网络男孩) 5分、给apple_001(天堂里的狼) 15分了，同意吗？
wangluonanhai(网络男孩) 说的也没有错，不过这样做还是要有一步操做来使TEXTBOX失去焦点才能够查询的，而CHANGE事件是每有一个字符的变动都会触发的，可是只要限制了长度就不用每输入一个字符就去查一次了。整个输入完成后才会自动查询。这样我的20分就给wangluonanhai(网络男孩) 5分、给apple_001(天堂里的狼) 15分了，同意吗？
victorycyz 2003-04-05
validate事件
quji8104 2003-04-05
TEXTBOX的CHANGE事件是每输入或删除一个字符都要触发的可我要输入的是一个字符串呀！
chenyu5188 2003-04-05
我同意楼上的说法。一般用回车来标识。
也就是用按回车后就开始执行你的代码。
也就是用按回车后就开始执行你的代码。
网络老男孩了 2003-04-05
一般来说，刷卡后输入的字符串都有一个结束字符，或者是Tab或者是enter.
你试试
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
msgbox "this is enter"
End If
debug.print keyascii
End Sub
另外：字符集如下：字符集 (0–127)
0 ?/FONT> 32 [space] 64 @ 96 `
1 · 33 ! 65 A 97 a
2 · 34 " 66 B 98 b
3 · 35 # 67 C 99 c
4 · 36 $ 68 D 100 d
5 · 37 % 69 E 101 e
6 · 38 & 70 F 102 f
7 · 39 ' 71 G 103 g
8 * * 40 ( 72 H 104 h
9 * * 41 ) 73 I 105 i
10 * * 42 * 74 J 106 j
11 · 43 + 75 K 107 k
12 · 44 , 76 L 108 l
13 * * 45 - 77 M 109 m
14 · 46 . 78 N 110 n
15 · 47 / 79 O 111 o
16 · 48 0 80 P 112 p
17 · 49 1 81 Q 113 q
18 · 50 2 82 R 114 r
19 · 51 3 83 S 115 s
20 · 52 4 84 T 116 t
21 · 53 5 85 U 117 u
22 · 54 6 86 V 118 v
23 · 55 7 87 W 119 w
24 · 56 8 88 X 120 x
25 · 57 9 89 Y 121 y
26 · 58 : 90 Z 122 z
27 · 59 ; 91 [ 123 {
28 · 60 < 92 \ 124 |
29 · 61 = 93 ] 125 }
30 · 62 > 94 ^ 126 ~
31 · 63 ? 95 _ 127 ·
*·Microsoft Windows.不支持这些字符。
* *值 8、9、10 和 13 分别转换为退格、制表、换行和回车字符。它们并没有特定的图形显示，但会依不同的应用程序，而对文本显示有不同的影响。
字符集 (128 – 255)
128 · 160 [space] 192 à 224 à
129 · 161 ?/FONT> 193 á 225 á
130 · 162 ￠ 194 ?/FONT> 226 a
131 · 163 ￡ 195 ?/FONT> 227 ?/FONT>
132 · 164 ¤ 196 ?/FONT> 228 ?/FONT>
133 · 165 ￥ 197 ?/FONT> 229 ?/FONT>
134 · 166 | 198 ?/FONT> 230 ?/FONT>
135 · 167 § 199 ?/FONT> 231 ?/FONT>
136 · 168 ¨ 200 è 232 è
137 · 169 © 201 é 233 é
138 · 170 a 202 ê 234 ê
139 · 171 ?/FONT> 203 ?/FONT> 235 ?/FONT>
140 · 172 ?/FONT> 204 ì 236 ì
141 · 173 - 205 í 237 í
142 · 174 ® 206 ?/FONT> 238 ?/FONT>
143 · 175 ˉ 207 ?/FONT> 239 ?/FONT>
144 · 176 ° 208 D 240 e
145 ‘ 177 ± 209 ?/FONT> 241 ?/FONT>
146 ’ 178 2 210 ò 242 ò
147 · 179 3 211 ó 243 ó
148 · 180 ′ 212 ?/FONT> 244 ?/FONT>
149 · 181 μ 213 ?/FONT> 245 ?/FONT>
150 · 182 ?/FONT> 214 ?/FONT> 246 ?/FONT>
151 · 183 · 215 × 247 ÷
152 · 184 ?/FONT> 216 ?/FONT> 248 ?/FONT>
153 · 185 1 217 ù 249 ù
154 · 186 o 218 ú 250 ú
155 · 187 ?/FONT> 219 ?/FONT> 251 ?/FONT>
156 · 188 ?/FONT> 220 ü 252 ü
157 · 189 ?/FONT> 221 Y 253 y
158 · 190 ?/FONT> 222 T 254 t
159 · 191 ?/FONT> 223 ?/FONT> 255 ?
·Microsoft Windows 并不支持这些字符。
本表中的值是 Windows 的默认值。 ANSI 特征集中 127 以上的值是由与操作系统有关的代码页决定的。
你试试
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
msgbox "this is enter"
End If
debug.print keyascii
End Sub
另外：字符集如下：字符集 (0–127)
0 ?/FONT> 32 [space] 64 @ 96 `
1 · 33 ! 65 A 97 a
2 · 34 " 66 B 98 b
3 · 35 # 67 C 99 c
4 · 36 $ 68 D 100 d
5 · 37 % 69 E 101 e
6 · 38 & 70 F 102 f
7 · 39 ' 71 G 103 g
8 * * 40 ( 72 H 104 h
9 * * 41 ) 73 I 105 i
10 * * 42 * 74 J 106 j
11 · 43 + 75 K 107 k
12 · 44 , 76 L 108 l
13 * * 45 - 77 M 109 m
14 · 46 . 78 N 110 n
15 · 47 / 79 O 111 o
16 · 48 0 80 P 112 p
17 · 49 1 81 Q 113 q
18 · 50 2 82 R 114 r
19 · 51 3 83 S 115 s
20 · 52 4 84 T 116 t
21 · 53 5 85 U 117 u
22 · 54 6 86 V 118 v
23 · 55 7 87 W 119 w
24 · 56 8 88 X 120 x
25 · 57 9 89 Y 121 y
26 · 58 : 90 Z 122 z
27 · 59 ; 91 [ 123 {
28 · 60 < 92 \ 124 |
29 · 61 = 93 ] 125 }
30 · 62 > 94 ^ 126 ~
31 · 63 ? 95 _ 127 ·
*·Microsoft Windows.不支持这些字符。
* *值 8、9、10 和 13 分别转换为退格、制表、换行和回车字符。它们并没有特定的图形显示，但会依不同的应用程序，而对文本显示有不同的影响。
字符集 (128 – 255)
128 · 160 [space] 192 à 224 à
129 · 161 ?/FONT> 193 á 225 á
130 · 162 ￠ 194 ?/FONT> 226 a
131 · 163 ￡ 195 ?/FONT> 227 ?/FONT>
132 · 164 ¤ 196 ?/FONT> 228 ?/FONT>
133 · 165 ￥ 197 ?/FONT> 229 ?/FONT>
134 · 166 | 198 ?/FONT> 230 ?/FONT>
135 · 167 § 199 ?/FONT> 231 ?/FONT>
136 · 168 ¨ 200 è 232 è
137 · 169 © 201 é 233 é
138 · 170 a 202 ê 234 ê
139 · 171 ?/FONT> 203 ?/FONT> 235 ?/FONT>
140 · 172 ?/FONT> 204 ì 236 ì
141 · 173 - 205 í 237 í
142 · 174 ® 206 ?/FONT> 238 ?/FONT>
143 · 175 ˉ 207 ?/FONT> 239 ?/FONT>
144 · 176 ° 208 D 240 e
145 ‘ 177 ± 209 ?/FONT> 241 ?/FONT>
146 ’ 178 2 210 ò 242 ò
147 · 179 3 211 ó 243 ó
148 · 180 ′ 212 ?/FONT> 244 ?/FONT>
149 · 181 μ 213 ?/FONT> 245 ?/FONT>
150 · 182 ?/FONT> 214 ?/FONT> 246 ?/FONT>
151 · 183 · 215 × 247 ÷
152 · 184 ?/FONT> 216 ?/FONT> 248 ?/FONT>
153 · 185 1 217 ù 249 ù
154 · 186 o 218 ú 250 ú
155 · 187 ?/FONT> 219 ?/FONT> 251 ?/FONT>
156 · 188 ?/FONT> 220 ü 252 ü
157 · 189 ?/FONT> 221 Y 253 y
158 · 190 ?/FONT> 222 T 254 t
159 · 191 ?/FONT> 223 ?/FONT> 255 ?
·Microsoft Windows 并不支持这些字符。
本表中的值是 Windows 的默认值。 ANSI 特征集中 127 以上的值是由与操作系统有关的代码页决定的。
pcwak 2003-04-05
CHANGE
sakabi 2003-04-05
up
quji8104 2003-04-05
validate事件怎么做呀？
LichKingSZ 2003-04-04
在TEXTBOX的CHANGE事件里添加你需要的代码
kongwzg 2003-04-04
TEXTBOX的CHANGE事件
解决win10 自动修复失败电脑无法开机问题 各种搜索解决办法，不想重装系统，手上也没有任何U盘等修复工具，经过一番搜索终于完美解决我的问题。 自动修复失败 首先点击重新启动，可以多次点击，若幸运的话，电脑可能成功开机，可惜我的无论是重新启动还是...
2019最新Web前端经典面试试题及答案-史上最全前端面试题(含答案) 近期总结一一些面试题 都是企业的面试题笔记题 感觉薪资10k下的都会出笔试题 ...同时分享一个自己录制的CSS3动画特效经典案例【推荐教程】--后期会更新vue框架 微信小程序等内容。 https://ke.qq.com/cou...
小甲鱼零基础入门学习python笔记 小甲鱼老师零基础入门学习Python全套资料百度云(包括小甲鱼零基础入门学习Python全套视频+全套源码+全套PPT课件+全套课后题及Python常用工具包链接、电子书籍等）请往我的资源... 000 愉快的开始 ...
【课设生成器】我做了一个代码生成器 我是一个已经毕业的学长，大三发现定做课程设计，可以帮自己赚取生活费，又巩固了基础知识，可以说是自身双赢了。在大四实现完全经济独立。 现在已经出来工作，已经没什么经历做课设了，如果你对生成器感兴趣，或者...
C#基础教程-c#实例教程，适合初学者 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...
软件测试面试题汇总 12、使用QTP做功能测试，录制脚本的时候，要验证多个用户的登录情况/查询情况，如何操作？ ......... 6 13 、 QTP 中的 Action 有什么作用？有几种？ ............................................................
mybatis mybatis第一天 1.mybatis概述和环境搭建 mybatis概述 mybatis环境搭建 1. 创建maven工程、添加开发依赖、创建数据库和表； 2. 创建domain实体类和dao mybatis是一门java语言编写持久层框架，大大简化了...
Springboot # 0.学习目标 - 了解SpringBoot的作用 - 掌握java配置的方式 - 了解SpringBoot自动配置原理 ...在这一部分，我们主要了解以下3个问题： - 什么是SpringBoot - 为什么要学习SpringBoot - SpringBoot的特点 ## 1....
我在校园自动打卡v2.0 我应该在校园(我在校园自动打卡超详细流程)) 出现服务器请求超时 代码10的情况将函数服务->函数管理->函数配置->执行超时时间设置至30秒 import json import logging import requests, time, random ...
在浏览器输入一个网址到得到页面的过程（详细） 本文将更深入的研究当你输入一个网址的时候，后台到底发生了一件件什么样的事～1. 首先嘛，你得在浏览器里输入要网址:2. 浏览器查找域名的IP地址导航的第一步是通过访问的域名找出其IP地址。DNS查找过程如下：* ...
Tomcat面试题+http面试题+Nginx面试题+常见面试题 可以是一块盘和N个盘组合 其优点读写快，是RAID中最好的 缺点：没有冗余，一块坏了数据就全没有了 RAID 1，只能2块盘，盘的大小可以不一样，以小的为准 10G+10G只有10G，另一个做备份。它有100%的冗余，缺点：浪费...
自学Java半年多，我掌握了这些技术！！！ 1.写在前面 今天是2021年10月24日，在...好了，下面我们言归正传，来聊聊这篇文章想和大家分享点什么。 首先呢，走到2021年10月24日，回顾2021这一路走来，自己成长了很多、进步了很多、学到了很多。从今年2月份
MyBatis配置文件mybatis-config详解 文章目录MyBatis配置文件mybatis-config.xml内容详解一、略解mybatis-config.xml二、详解mybatis-config.xml1. configuration2. properties3. settings4. typeAliases5. typeHandlers6. objectFactory...
一个模版让报表自动生成，领导：这才是数据分析人该干的事 大部分的数据分析师都或多或少掉入这样的陷阱：每天大部分的工作都花在查数上，干着干着变成了“查数菇”。...产品新上线了一个新功能，想第一时间看看功能的使用数据；老板在做决策缺一项数做判断依据，要快速查询...
基于物品的协同过滤算法实现图书推荐系统 本文旨在利用基于物品的协同过滤算法，来实现一个图书推荐系统。 本文首先介绍了推荐系统的发展历史，及目前常用的几种推荐算法的介绍与比较，然后以基于物品的协同过滤算法为基础，详细介绍图书推荐系统的构建。在...
博士五年，我在清华做时序数据库 15年在西安神州数码实习，7人一组，两周做一个银行贷款系统，也是第一次领略到做系统的魅力，当把系统从用户到后台每一步都调通的时候，就像打通了任督二脉，这种爽劲也支撑我演示前一晚写代码写到2点多。...
拜托，大厂做项目可不简单！ 但企业中开发项目是开团打本，大家是一根绳上的蚂蚱，每个人都会影响整个项目。 我自己也在几家公司实习过，不得不说，大厂和其他公司的研发流程也有很大的区别。 因此，对于大多数同学，如果没有在大厂工作过，对...
