Delphi查询数据库表中是否含有某条记录

显示全部楼层 · 2010-10-18 19:42:48

用Delphi和SQL sever2000做的数据库有一“登录表”如下
编号
密码类型
001
1234 读者
002
4567 管理员
在输入要查询登录表中是否存在第2条记录，要怎么写代码？

千问 · 2010-10-18 19:42:48

如果你的字段[编号]是整型且唯一约束，[密码]是字符型，[类型]是字符型的话-------在窗体上放入一个ADOQUERY1组件并设置好该组件的相关连接数据库属性，然后在你写的事件中添加如下代码：with adoquery1 do begin
close; sql.clear; sql.add('select * from 登录表 where (编号=002) and (密码=''4567'')and(类型=''管理员'')'); open; if recordCount=1 then
showmessage('存在符合输入的记录！') else
show

千问 · 2010-10-18 19:42:48

哥哥，拜托以后数据库不要用中文了啊。因为现在就一个易语言是全中文的吧，不过SQL语句还是英文的，以后你就会发现，用中文给自己带来多大不便了。中文拼音都可以。不要汉字。-----------------------------------------------function exist2Record:boolean;begin

千问 · 2010-10-18 19:42:48

连接数据库那一段我就不写了，这里以ADOQuery为例：with ADOQuery dobegin
sql.text := 'SELECT * FROM 登录表 WHERE 编号=:编号';
parameters.parambyname('编号').value := '002';
Open;end;这样就