如何检测数据的完整性

Question

表中有varchar(73)类型的字段 CODE  有int类型的字段Zhu，如果Zhu的值是一的话，那么Code字段中就应该有7个数据 如01，02，03，04，05，06，07 排列如下（01020304050607），依次类推 ，如果Zhu中的值是2 那CODE字段中就有14个数如（2324252627282939190104050602）每7个中不能有重复的数出现，否则抱错 
应该怎么实现呢  
 我现在做到把CODE和ZHU字段的内容用ADOQUERY SELECT 放到变量SCODE和IZHU 变量中去了
 谢谢  请写详细一点

Answer 1

var 
x,y:integer;
flag:integer;

flag:=0;
  while(x<length(trim(mystr)) do
  begin
  y:=x+2;
  while(y<length(trim(mystr))
  begin
  if (copy(mystr,x,2)=copy(mystr,y,2)) then
  begin
  showmessage('报错!');
  flag:=1;
  break;
  end;
  y:=y+2;
  end;
  if flag=1 then break;
  x:=x+2;
  end; ************************************************
       对不起,是我的网络慢,若有雷同请勿责怪  
              若答案正确请尽早揭帖
 ************************************************