delphi数据库进行增加操作时,怎么判断插入的这个值是否已经存在?

//
procedure TForm1.btnAddClick(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(select * from AZZ where 排名=(‘‘ + Edit1.Text + ‘‘));
    ADOQuery1.Open;
//if ADOQuery1.IsEmpty then
       ??????????????????????????
        if ADOQuery1.RecordCount = 0 then  //如果记录为空....做判断
          begin
             ADOQuery1.Close;
             ADOQuery1.SQL.Clear;
             ADOQuery1.SQL.Add(insert into AZZ(排名,名称,网址,国家) values (‘‘ + Edit1.Text + ‘‘,‘‘ + Edit2.Text + ‘‘,‘‘ + Edit3.Text + ‘‘,‘‘ + Edit4.Text + ‘‘));
       if (trim(Edit1.text)=‘‘) or (trim(Edit2.text)=‘‘) or (trim(Edit3.text)=‘‘) or (trim(Edit4.text)=‘‘) then
          begin
             showMessage(有数据输入为空,请重新输入!);
             exit  //强制跳出if语句
             end
          else
          begin
             showMessage(数据添加成功!);
          end;
            ADOQuery1.ExecSQL;
            ADOQuery1.Close;
            ADOQuery1.SQL.Clear;
            ADOQuery1.SQL.Add(select * from AZZ);
            ADOQuery1.Open;
          end
          else
          begin
             showmessage(您输入的排名已经存在,请重新输入!);
    end;
end;

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。

相关推荐