البحث في قاعدة البيانات

اولا قم بربط DBGRID مع ADOQuery

في الحدث onChange لل EDIT اكتب الكود التالي

ADOQuery1. Close;
ADOQuery1. SQL.Clear;
ADOQuery1. SQL.Add('select * from t_city where citykey =:cid order by citykey ');
ADOQuery1. Parameters.ParamByName('cid').Value:=Edit1.Text ;
 Open;

أي قاعدة بيانات تستعمل

لأنك لو كنت تستعمل firebird مثلا كان من الأسهل استعمال الإجراء المخزن لإدخال الرقم بعد عدم الإيجاد وهذا الذي لم يذكره لك الأخ format82

على كل حال يمكنك اكمال الكود هكذا بعد ما ذكره الأخ

if ADOQuery1.FieldCount = 0 then 
  with ADOQuery2 do
    begin 
    close;
    sql.text:='inset into table_name(id) values(:cid)';
    Parameters.ParamByName('cid').Value:=Edit1.Text ;
    ExecSQL;
    SQLTransaction1.Commit;
    end;

طبعا هذا الكود تجعله بعد الحدث onEditingDone

السلام عليكم

أو يمكن استخدام الفلترة

with Table1 do begin
  Filtered:=False;
  Filter:=edit1.text;
  Filtered:=True;

if Table1.RecourdCount <1 then 
begin
عملية الاضافة ......
end;
end;