1. 程式人生 > >delphi數據庫進行增加操作時,怎麽判斷插入的這個值是否已經存在?

delphi數據庫進行增加操作時,怎麽判斷插入的這個值是否已經存在?

span 數據 for sage dcl 進行 emp rom trim

//
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;

delphi數據庫進行增加操作時,怎麽判斷插入的這個值是否已經存在?