with table1 do begin
setkey;
findfield('rq').AsString:=dbedit1.Text;
findfield('xianti').AsString:=dbcombobox1.Text;
findfield('jixing').AsString:=dbedit2.Text;
if gotokey then
begin
showmessage('数据输入重复,重新输入');
exit;
end;
为什么输入两组同样的数据后不提示数据输入重复呢????
setkey;
findfield('rq').AsString:=dbedit1.Text;
findfield('xianti').AsString:=dbcombobox1.Text;
findfield('jixing').AsString:=dbedit2.Text;
if gotokey then
begin
showmessage('数据输入重复,重新输入');
exit;
end;
为什么输入两组同样的数据后不提示数据输入重复呢????
解决方案 »
- 如何实现象ide中的设计时状态
- 高手指点----delphi 如何实现整型到实型的类型转化????
- 如何取得excelworksheet的打印总页数?
- 如何用程序修改符点型字段的默认值(SQL2000)
- 全文检索 为什么没用了呀 希望它好起来的人帮忙顶啊!!!!!!!
- 组件包安装??????
- 使用dbExpress控件(CloneCursor+SQL语句)搜寻数据时如何解决产生数据重复问题
- 怎样将有密码的ACCESS数据库压缩---救命
- 您认为使用的DELPHI书哪本最好??(互相学习)
- 谁能帮帮我呀都已经三天了问题都没解决...急死了
- 关于李维写VCL一书
- 在delphi里面 null = 0 吗?
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from khda ');
adoquery1.SQL.Add(' where 客户名称='+quotedstr(edit2.Text));
adoquery1.open;
if adoquery1.RecordCount =1 then
begin
edit2.SetFocus ;
showmessage('客户名称已存在,请重新输入!');
exit;
end;你参考一下,。
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from khda ');
adoquery1.SQL.Add(' where 客户名称='+quotedstr(edit2.Text));
adoquery1.open;
while not isempty do
begin
edit2.SetFocus ;
showmessage('客户名称已存在,请重新输入!');
exit;
end;
with adoquery1 do
begin
close;
SQL.Clear;
adoquery1.SQL.Add('select * from khda ');
SQL.Add(' where 客户名称='+quotedstr(edit2.Text));
open;
while not isempty do
begin
edit2.SetFocus ;
showmessage('客户名称已存在,请重新输入!');
exit;
end;
end;