ماهي طريقة التصفية باستعمال DBloockupbox

[فارس المطر]

السلام عليكم أحبتي


من يستطيع أن يمخمخ معي في هته المشكلة 

برنامج delphi  وقاعدة معطياتsqlserver




لدي جدولين المركز  ، الموظف

اريد تصفية أسماء الموظفين حسب اسم المركز
أي عندما أختار أسم مركز في   DBloockupbox     يتم عرض أسماء الموظفين التابعين للمركز المحدد        
مع العلم الجدولين مربوطين برمز المركز
  
ماهي طريقة التصفية الصحيحة



هدة محاولتي

كود :

procedure TForm5.DBLookupComboBox1Click(Sender: TObject); var  ch, code: string; begin      ch:='select * from centr where nomcentr ='+Quotedstr(DBLookupComboBox1.Text);      ADOQuery1.Close;      ADOQuery1.SQL.Clear;      ADOQuery1.SQL.Add(ch);      ADOQuery1.Open;      code:=ADOQuery1.Fieldbyname('codcentr').Value;      ch:='select * from fonctionnaire where codcentr ='+Quotedstr(code);      ADOQuery2.Close;      ADOQuery2.SQL.Clear;      ADOQuery2.SQL.Add(ch);      ADOQuery2.Open; end;