تغير محتوى ComboBox تبعاً لتغير محتوى ComboBox أخرى

[alouma]

السلام عليكم
صح عيدكم وكل عام وانتم بخير
يبدو أنه لم يتم فهم السؤال
على العموم وجدت طريقة بعد المحاولات العديدة أفيدكم بها وهي كالتالي:
1- أقوم بملء ComboBox1 أو DBComboBox حسب ما نريد بمحتوى الأب كالتالي:

PHP كود :

While not ADOTable1.Eof do
begin
DBComboBox1.Items.Add(ADOTable1.FieldByName('NomPrograme').AsString);
ADOTable1.Next;
end; 


هذ في الحدث عند فتح النموذج

2- نقوم بالاستعلام من الجدول الثاني حسب رقم الفصل:
بعد إدراج ADOQurey حيث أولا نكتب في SQL الخاصة بالـ ADOQurey التعليمات التالية:

PHP كود :

select NART
from ARTICLE
where NCHPT=:x 


في الحدث عند التغيير للـ DBComboBox الأولى نكتب التالي

PHP كود :

//
ADOQuery1.Active:=true;
ADOQuery1.close;
ADOQuery1.Parameters.ParamByName('x').Value:=strtoint(ComboBox3.Text);
ADOQuery1.open;
// 
ComboBox4.Clear;
While not ADOQuery1.Eof do
begin
ComboBox4.Items.Add(ADOQuery1.FieldByName('NART').Value);
ADOQuery1.Next;
end;