ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase

[معمر محسن]

لااعلم ان كان هذا هو المكان الصحيح لهذه المشاركة ولكنها ليست برنامج كامل حتى اضعها في قسم برامج الاعضاء
انتبهت اخيرا للدروس التى بهذا المنتدى عندما كان الدرس الاخير هو الدرس السابع ووجدتها ممتازة في المعلومات وفي التصميم والتقديم و انتهز هذه الفرصة لاتقدم بالتحية لكل من ساهم فيها واكثر ما شد انتباهي هو درس الاجراءات والدوال وقد قمت بهذه المحاولة التطبيقية
حيث انني استخدم كثيرا كود لملء مكونات الكمبوبوكس بعناصر من جداول قاعدة بيانات مستخدما مكون كويري في ذلك فاي برنامج من برامج قواعد البيانات مبيعات ومخزون مثلا يتطلب ملء كمبو باسماء الاصناف المباعة والمشتراة واسماء الزبائن واسماء الموردين والمصارف والمستخدمين والحسابات وغيرها واجد ان جزء كبير من الكود في البرنامج هو ملء الكمبو فقمت بكتابة هذا الاجراء للقيام بذلك
procedure fillcombo(cmb:tcombobox;q:tibquery ; tbl,fld:string);
begin
q.SQL.Clear;
q.SQL.Add('select * from "'+tbl+'"');
q.Open;
if q.RecordCount<>0 then
begin
cmb.Items.Clear;
Cmb.Text:='';
q.First;
while not q.Eof do
begin
Cmb.Items.Add(trim(q[fld]));
q.Next;
end;
end;
end;

علما باني استعمل قاعدة بيانات انتربيز
وعند استدعاء الاجراء

fillcombo(combobox1,ibquery1 , 'custs','custname');

وتم بالفعل ملء الكمبو 1 بالحقل custname من الجدول custs وبهذا يمكن توفير الوقت والجهد في كتابة كود لملء كل كمبو في البرنامج كما قلت كمية الكود فتسهل قراءته
اكرر شكري للاخوة القائمين على الدروس

[gigi]

مجهود رائع منك اخي وقد سبقتني لوضع ه>ا الكود هنا مع العلم اني قد وضعت هدا الكود في المنتدى التالي مند فترة طويلة


http://www.arabteam2000-forum.com/index.php?showtopic=158826

[alnazzal]

procedure fillcombo(List : TStringlist ;q:tibquery ; tbl,fld:string);
begin
q.SQL.Clear;
q.SQL.Add('select * from "'+tbl+'"');
q.Open;
if q.RecordCount<>0 then
begin
List.Items.Clear;
Cmb.Text:='';
q.First;
while not q.Eof do
begin
List.Items.Add(trim(q[fld]));
q.Next;
end;
end;
end;

[kachwahed]

السلام عليكم
بصراحة... أنا ضد هذا النوع من الأكواد التي تستهلك أكثر مما تنتج...
استخدم كبديل عن ذلك مكون TDBLookupComboBox وهو يتولى الأمر
صحيح أن به بعض العيوب لكنه يفي بالغرض.
شكرا كثيرا.

[gigi]

بصراحة... أنا ضد هذا النوع من الأكواد التي تستهلك أكثر مما تنتج...
استخدم كبديل عن ذلك مكون tdblookupcombobox وهو يتولى الأمر

مع احترامي الشديد لرأيك الا ان هذا ماجعل منا نحن العرب سوق استهلاكية ممتازة لابداعات ومحاولات الآخرين
تم اني ارى ان هكذا اكواد هي فهم مبدئي لالية وخوارزمية صنع المكونات
والى الامام ياعرب

[saber-bsa]

بارك الله فيك اخي الكريم على هذا المثال لكن اخي لم امفهمه لأنني مبتدأ في الدلفي
والحمد لله انني وجدت هذا المنتدى الرائع