批量录入数据后按保存的问题

批量录入数据后,按保存按钮,然后判断NAME字段录入有相同的数据或空值!有相同的数据或空值就作个提示.请问应该如何实现?用ADOQUERY+DBGRID; 问题点数：20、回复次数：3Top

1 楼78hgdong（赤脚）回复于 2005-11-02 14:25:39 得分 3

在保存数据之前先查询表里有没有重复的NAME值?  
  ...  
  SHOMESSAGE('重复')提示....  
  ...Top

2 楼konhon（优华）回复于 2005-11-02 15:06:47 得分 17

 
  //   這個不需要再查詢數據庫啦.  
  class   procedure   TDBFunction.CheckRepeatFieldValue(aField:   TField);  
  var  
      lInitValue:   string;  
  begin  
      if   not   (aField.DataSet   is   TADODataSet)   then   exit;  
      with   TADODataSet.Create(nil)   do  
      try  
          if   aField.DataSet.State   in   [dsEdit,   dsInsert]   then   aField.DataSet.Post;  
          Clone(TADODataSet(aField.DataSet));  
          Sort   :=   aField.FieldName   +   '   ASC';  
          First;  
          while   not   Eof   do  
          begin  
              if   lInitValue   =   FieldByName(aField.FieldName).AsString   then  
                  showmessage('重復')  
              else  
                  lInitValue   :=   FieldByName(aField.FieldName).AsString;  
              Next;  
          end;  
      finally  
          Free;  
      end;  
  end;  
  Top

3 楼xiaotao2004（郁闷中...）回复于 2005-11-02 16:05:44 得分 0

我试了,楼上的不错!结贴了!~谢谢你们俩位.Top

相关问题

• 录入
• 数据
• afield
• linitvalue
• tadodataset
• 保存
• fieldname
• dataset
• then

• 帖主：xiaotao2004
• 78hgdong
• konhon

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载