使用edit 往数据库存数据 判断是否有重复的

Question

在edit1 中输入学号
来判断是否有重复的数
有则弹出提示该生已存在
要怎么写

Answer 1

with ADOQuery1 do
begin
  close;
  sql.text:='select 1 from 表t where 学号='+Quotedstr(Edit1.Text);
  open;
  if not isempty then
     showmessage('学号重复!')
  else
    {... 做其它事}
end;

Answer 2

你这个select ‘1’   1是哪的数据  

Answer 3

1就是1啊..当数据符合where条件的时候,才会有1,没有就是空locate方法就是 dateset.locate('字段名',[Edit1.Text]) 返回布尔型

Answer 4

if ADOQuery1.fieldby('字段').asboolean then
    a:=男
else  
    a:=女;

Answer 5

我的列表名为 SEX
你那么a:=男
要怎么替换成我的

Answer 6

恩 就是转化成 男女显示
求助怎么改呢
之前是false true
现在要改成 男 女  
求助要怎么做

Answer 7

求判断
我现在是不知道你那个男要赋值给谁 、
我现在是 表person    其中SEX 列
要怎么写代码

Answer 8

locate在这儿用是不恰当的,数据是实时变化的,并且数据库中增加学号未必只有一个人在操作.with ADOQuery1 do
begin
close;
sql.text:='select count(*) from 表t where 学号=:学号');
parambyname('学号'').asstring := edit1.text;
try
 open
except
end;
 if fields[0].Asinteger > 0 then showmessage('此学号已经存在!')
end;
//男女赋值问题if ADOQuery1.fieldby('sex).asboolean then
    edit2.text:='男'
else  
     edit2.text:='女';

Answer 9

那个男女
是在编程时
在gird控件上显示成男女
不是最终程序完成时的显示
求助怎么做

Answer 10

求助  Add all fields 这个选项在哪

Answer 11

请问  如何固定光标
除非点到其他edit上