如何实现在表单select中输入文字

Posted 2023-04-15

我的想法是这样的，从数据库中读取记录，显示在下拉列表中，下拉列表中的数据量非常大，能否在列表中输入一个字母然后显示的是以这个字母开头的记录，如果还是非常多在输入第二个字母显示以这两个字母开头的记录，不知道这个能实现吗？
谢谢你的回答，不过我是想在asp的Select下拉类表中选择数据，首先要先实现的是select列表中可以输入文字，然后自动弹出和输入文字相匹配的内容，想通过vbscript来实现

参考技术A 可以实现的
在SQL建
如下：
SQL取汉字拼音首字母

create proc pinyin @var varchar(100)
as
begin
set @var=ltrim(rtrim(@var))
declare @i int,@v varbinary(2),@varchar varchar(100),@pinyin varchar(100)
set @pinyin=''
set @i=1
while @i<=len(@var)
begin
set @v=cast(substring(@var,@i,1) as varbinary)

if @v<0xB0A1 or @v>0xD7FD
begin
print '含有非法字符'
return
end

if @v>=0xB0A1 and @v<=0xB0C4
begin
set @varchar='A'
end
else if @v>=0xB0C5 and @v<=0xB2C0
begin
set @varchar='B'
end
else if @v>=0xB2C1 and @v<=0xB2C0
begin
set @varchar='C'
end
else if @v>=0xB4EE and @v<=0xB6E9
begin
set @varchar='D'
end
else if @v>=0xB6EA and @v<=0xB7A1
begin
set @varchar='E'
end
else if @v>=0xB7A2 and @v<=0xB8C0
begin
set @varchar='F'
end
else if @v>=0xB8C1 and @v<=0xB9FD
begin
set @varchar='G'
end
else if @v>=0xB9EE and @v<=0xBBF6
begin
set @varchar='H'
end
else if @v>=0xBBF7 and @v<=0xBFA5
begin
set @varchar='J'
end
else if @v>=0xBFA6 and @v<=0xC0AB
begin
set @varchar='K'
end
else if @v>=0xC0AC and @v<=0xC2E7
begin
set @varchar='L'
end
else if @v>=0xC2E8 and @v<=0xC4C2
begin
set @varchar='M'
end
else if @v>=0xC4C3 and @v<=0xC5B5
begin
set @varchar='N'
end
else if @v>=0xC5B6 and @v<=0xC5BD
begin
set @varchar='O'
end
else if @v>=0xC5BE and @v<=0xC6D9
begin
set @varchar='P'
end
else if @v>=0xC6DA and @v<=0xC8BA
begin
set @varchar='Q'
end
else if @v>=0xC8BB and @v<=0xC8F5
begin
set @varchar='R'
end
else if @v>=0xC8F6 and @v<=0xCBF9
begin
set @varchar='S'
end
else if @v>=0xCBFA and @v<=0xCDD9
begin
set @varchar='T'
end
else if @v>=0xCDDA and @v<=0xCEF3
begin
set @varchar='W'
end
else if @v>=0xCEF4 and @v<=0xD1B8
begin
set @varchar='X'
end
else if @v>=0xD1B9 and @v<=0xD4D0
begin
set @varchar='Y'
end
else if @v>=0xD4D1 and @v<=0xD7FD
begin
set @varchar='Z'
end
else
begin
print 'error'
return
end
set @pinyin=@pinyin+@varchar
set @i=@i+1
end
print @pinyin
end
--drop proc pinyin

exec pinyin '中国人' 参考技术B 查不多这样

dim string1 = list1.text+ "%"

dim string2="select * from table_1 where text like '+string1

connect to database
result = excutecommand (string2)

insert result into list1

【QT画图】怎么实现在画布上输入文字功能

如何实现像WINDOWS自带画图那样，由用户在画布上自定义输入本文功能。
初学QT，请多多指教

新建一个QGraphicsScene 作为画板 ，画板中可以加入的元素是QGraphicsItem，文本则利用QGraphicsTextItem就行了 参考技术A EGG 库有画笔功能的函数