如题

解决方案 »

  1.   

    应该说是一个表,在edit1中输入一个数据,看在表中的一个字段ID的数据是否与edit1.text相同。如果相同,则showmessag...,如果不同,则在表中添加这个数据
      

  2.   

    var name:string
    with adoquey1 do
      begin
      close;
      sql.clear;
      sql.add('select * from sjblist where name = '''+edit1.text+'''')
      open;
      if recordcount>0 then
        messagedlg('sjb alreday exist',mtinformation,[mbok],0)
      else
        begin
        close;
        sql.clear;
        sql.add('insert into sjblist (name) values ('''+edit1.text+''')');
        execsql;
        end;
      end;
      

  3.   

    to foxe(火狐) 
     谢谢。
     但你的程序不行,当edit1.text=表中数据时,还是会写到数据库中。请大家继续关注我的问题,分数不够可以再加
      

  4.   

    对不起试我看错了。谢谢foxe(火狐)