28-01-2016, 08:38 AM
جرب ما يلي مع تغيير Table1 بإسم الجدول أو Query الذي ربطته مع المكون DBLookupComboBox1
كود :
procedure TForm5.DBLookupComboBox1Click(Sender: TObject);
Var ch, id: string;
begin
id:=Table1.Fieldbyname('codcentr').AsString;
ch:='select nom,prenom from fonctionnaire where codcentr ='+Quotedstr(id);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(ch);
ADOQuery1.Open;
End;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ