UC知道vb6.0 拼音检索代码
来源：百度知道 编辑：UC知道 时间：2024/06/01 21:37:46
为各位高手献上100分！
请各位高手帮个忙用vb写一个小程序，请把程序发给我（包括代码的，不是exe文件）QQ：87404914
要求：
1：在文本框里输入字母如：“z”在表里就能显示“张三”的 成绩 和 性别。当然输入“zs”也要能显示“张三”的 成绩 和 性别。
2：输入字母是查询ACCESS里的资料。
3：在没有输入查询条件以前表里什么都不显示。
请各位高手帮个忙用vb写一个小程序，请把程序发给我（包括代码的，不是exe文件）QQ：87404914
要求：
1：在文本框里输入字母如：“z”在表里就能显示“张三”的 成绩 和 性别。当然输入“zs”也要能显示“张三”的 成绩 和 性别。
2：输入字母是查询ACCESS里的资料。
3：在没有输入查询条件以前表里什么都不显示。
刚才给你写了一个汉字转拼音的例子.你可以这样.用我的那个函数将你数据库中的记录的第一个字符转换成拼音,然后再和你输入的字母对比,如果符合就列出来.代码如下,具体的操作数据库的我就不做了
Public Class Form1
Private Function GetPY(ByVal strParmeter As String) As String
Dim intTmp As String, i As Long
For i = 1 To Len(strParmeter)
intTmp = Asc(Mid(strParmeter, i, 1))
If intTmp < Asc("啊") Then
GetPY = GetPY & "*"
ElseIf intTmp >= Asc("啊") And intTmp < Asc("芭") Then
GetPY = GetPY & "A"
ElseIf intTmp >= Asc("芭") And intTmp < Asc("擦") Then
GetPY = GetPY & "B"
ElseIf intTmp >= Asc("擦") And intTmp < Asc("搭") Then
GetPY = GetPY & "C"
ElseIf intTmp >= Asc("搭") And intTmp < Asc("蛾") Then
GetPY = GetPY & "D"
ElseIf intTmp >= Asc("蛾") And intTmp < Asc("发") Then
GetPY = GetPY & &quo