فوری!! پيدا کردن فیلد های تکراري جداول 2

[alborzi_66]

من این سوال رو قبلا مطرح کردم اما جواب منطقی نگرفتم
ببینید من 3 تا جدول به نام های a,b,c دارم و اینکه این جدول ها یک فقط یک رکورد به نام id دارند.
مثال جدول a رکورد id آن شامل اعداد 5و6و7و3و2و1و...
جدول b رکورد id آن شامل اعداد 53و8و5و4و...
جدول c رکورد id آن شامل اعداد 2و1و4و5و1و...
من می خوام اعداد تکراری کل این جدول ها رو تو یه dbgrade1 و نیز یه جدول جدید به نام res نمایش بده و بعدا فیلد هایی که تکراری هستن تعداد هر کدوم و تو یه edit1 نشون بده.
برنامه من اینه

procedure TSEARCH.Button1Click(Sender: TObject);
var
query,values :string;
tedad:integer;
begin
dbgrid1.DataSource:=DataSource1;
//select on a
adoquery1.Close;
adoquery1.SQL.Clear;
query:='SELECT * FROM a WHERE (id =';
query:=query+edit1.Text+')';
adoquery1.SQL.Add(query);
DataSource1.DataSet.Active:=true;
adoquery1.ExecSQL;
tedad:=adoquery1.RecordCount;
//select on b
adoquery1.Close;
adoquery1.SQL.Clear;
query:='SELECT * FROM b WHERE (id =';
query:=query+edit1.Text+')';
adoquery1.SQL.Add(query);
DataSource1.DataSet.Active:=true;
adoquery1.ExecSQL;
tedad:=tedad+adoquery1.RecordCount;
//select on c
adoquery1.Close;
adoquery1.SQL.Clear;
query:='SELECT * FROM c WHERE (id =';
query:=query+edit1.Text+')';
adoquery1.SQL.Add(query);
DataSource1.DataSet.Active:=true;
adoquery1.ExecSQL;
tedad:=tedad+adoquery1.RecordCount;
edit2.Text:=inttostr(tedad);
//inset to res
query:='INSERT INTO res (id, tedad) VALUES (';
query:=query+edit1.Text+','+inttostr(tedad)+')';
adocommand1.CommandText:=(query);
DataSource1.DataSet.Active:=true;
adocommand1.Execute;
end;
تعداد تکراری ها رو نوشتم من قسمت جستجو رو لازم دارم اگه میشه کمکم کنید.
اگه برنامه آماده در این رابطه دارید ممنون میشم

[amin_alexi]

من این سوال رو قبلا مطرح کردم اما جواب منطقی نگرفتم

به غیر از این سوال تا حالا سوال دیگه ای پرسیدی ؟!!!!!
واسه این سوال تا حالا 5 یا 6 تا پست جدید زدی ؟!!
همه تکراری ...
در همه موارد هم قوانین سایت رو رعایت نکردی ...