怎样检测某个字段的记录是否重复?

Question

我想写在一段添加用户的函数，想在数据保存之前先检测数据库里是否有相同的用户名，
如果用户名已存在，则弹出提示，请问这代码如何写?

Answer 1

if exists(select 1 from table1 where loginname='')
....

Answer 2

有关重复记录的删除   有两个意义上的重复记录，一是完全重复的记录，也即所有字段均重复的记录，二是部分关键字段重复的记录，比如Name字段重复，而其他字段不一定重复或都重复可以忽略。1、对于第一种重复，比较容易解决，使用
    select distinct * from tableName
就可以得到无重复记录的结果集。
   如果该表需要删除重复的记录（重复记录保留1条），可以按以下方法删除
    select distinct * into #Tmp from tableName
    drop table tableName
    select * into tableName from #Tmp
    drop table #Tmp
发生这种重复的原因是表设计不周产生的，增加唯一索引列即可解决。2、这类重复问题通常要求保留重复记录中的第一条记录，操作方法如下假设有重复的字段为Name,Address，要求得到这两个字段唯一的结果集
    select identity(int,1,1) as autoID, * into #Tmp from tableName
    select min(autoID) as autoID into #Tmp2 from #Tmp group by Name,autoID
    select * from #Tmp where autoID in(select autoID from #tmp2)
最后一个select即得到了Name，Address不重复的结果集（但多了一个autoID字段，实际写时可以写在select子句中省去此列） 详细参照：http://www.delphibbs.com/keylife/iblog_show.asp?xid=4556

Answer 3

以下是我的一一个程序中的代码：
一般把这种判断放在数据集的BeforePost事件中，在判断时要分成两个情况，
1）新增的情况下
2）在编辑的情况，而且该字段的值已经更改。
用数据集.State来判断数据集的状态，用数据集字段的OldValue和NewValue来判断该值是否背修改。procedure TfrmAssetFamily.ADOQAssetFamilyBeforePost(DataSet: TDataSet);
begin
if (ADOQAssetFamily.State=dsInsert) or ((ADOQAssetFamily.State=dsEdit) and (ADOQAssetFamilyFamilyNo.OldValue<>ADOQAssetFamilyFamilyNo.NewValue)) then
 begin
    if ADOQTmp.Active then
       ADOQTmp.Close;
    ADOQTmp.SQL.Clear;
    ADOQTmp.SQL.Add('Select 1 from AssetFamily where FamilyName='''+ADOQAssetFamilyFamilyName.AsString+''' and CompanyID='''+frmGDZC.StrCompanyID+'''');
    ADOQTmp.Open;
    if Not ADOQTmp.IsEmpty then
      begin
       MessageDlg('该分类名称已经存在，系统是不允许重名的!',mtInformation,[mbOk],0);
       DBEditFamilyName.SetFocus;
       abort;
       exit;
      end;
end;