ขอถามเกี่ยวการ insert ข้อมูลที่ไม่ซ้ำหน่อยครับ คือว่า...

$Name=$_POST['Name'];
$Result=mysql_query("SELECT * FROM tb_member WHERE Name='".$Name."'") or die (mysql_error());
$Num_Rows=mysql_num_rows($Result);

if($Num_Rows==0){
  echo "ท่านสามารถเพิ่มได้";
}else{
 echo "มีรายละเอียดอยู่ในระบบแล้ว";
}

Function TForm3.selete_ADO(const ta,va:string):boolean;
var I:integer;
begin
  with ADOQuery1 do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select '+ ta);
    ADOQuery1.SQL.Add('from songx');
    ADOQuery1.SQL.Add('where ' + ta +' = ' + QuotedStr(va));
    ADOQuery1.Open;
    I:=ADOQuery1.RecordCount;
    if (I = 0) then
    begin
      Result := False;
      count5:=count5+1;//ไม่ซ้ำ
    end;
    if (I > 0) then
    begin
       Result := True;
       Count6:=Count6+1; //ซ้ำ
    end;
    ADOQuery1.Close;
  end;
end;

Function TForm3.selete_ADO2(const ta1,va1,ta2,va2:string):boolean;
var I:integer;
begin
  with ADOQuery1 do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT COUNT(*) as xxxx');
    ADOQuery1.SQL.Add('from songx');
    ADOQuery1.SQL.Add('where ' + ta1 +' = ' + QuotedStr(va1));
    ADOQuery1.SQL.Add('AND ' + ta2 +' = ' + QuotedStr(va2));
    ADOQuery1.Open;
    I:=ADOQuery1.FieldByName('xxxx').AsInteger ;
    if (I = 0) then
    begin
      Result := False;
      count5:=count5+1;//ไม่ซ้ำ
    end;
    if (I > 0) then
    begin
       Result := True;
       Count6:=Count6+1; //ซ้ำ
    end;
    ADOQuery1.Close;
  end;
end;