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