+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي و التعامل مع قواعد البيانات (https://delphi4arab.net/forum/forumdisplay.php?fid=23)
+--- الموضوع : ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase (/showthread.php?tid=647)
ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - معمر محسن - 02-03-2009
لااعلم ان كان هذا هو المكان الصحيح لهذه المشاركة ولكنها ليست برنامج كامل حتى اضعها في قسم برامج الاعضاء
انتبهت اخيرا للدروس التى بهذا المنتدى عندما كان الدرس الاخير هو الدرس السابع ووجدتها ممتازة في المعلومات وفي التصميم والتقديم و انتهز هذه الفرصة لاتقدم بالتحية لكل من ساهم فيها واكثر ما شد انتباهي هو درس الاجراءات والدوال وقد قمت بهذه المحاولة التطبيقية
حيث انني استخدم كثيرا كود لملء مكونات الكمبوبوكس بعناصر من جداول قاعدة بيانات مستخدما مكون كويري في ذلك فاي برنامج من برامج قواعد البيانات مبيعات ومخزون مثلا يتطلب ملء كمبو باسماء الاصناف المباعة والمشتراة واسماء الزبائن واسماء الموردين والمصارف والمستخدمين والحسابات وغيرها واجد ان جزء كبير من الكود في البرنامج هو ملء الكمبو فقمت بكتابة هذا الاجراء للقيام بذلك
كود :
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 وبهذا يمكن توفير الوقت والجهد في كتابة كود لملء كل كمبو في البرنامج كما قلت كمية الكود فتسهل قراءته
اكرر شكري للاخوة القائمين على الدروس
ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - gigi - 21-10-2009
مجهود رائع منك اخي وقد سبقتني لوضع ه>ا الكود هنا مع العلم اني قد وضعت هدا الكود في المنتدى التالي مند فترة طويلة
كود :
http://www.arabteam2000-forum.com/index.php?showtopic=158826ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - alnazzal - 02-11-2009
كود :
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;ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - kachwahed - 03-11-2009
السلام عليكم
بصراحة... أنا ضد هذا النوع من الأكواد التي تستهلك أكثر مما تنتج...
استخدم كبديل عن ذلك مكون TDBLookupComboBox وهو يتولى الأمر
صحيح أن به بعض العيوب لكنه يفي بالغرض.
شكرا كثيرا.
ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - gigi - 08-11-2009
kachwahed كتب :بصراحة... أنا ضد هذا النوع من الأكواد التي تستهلك أكثر مما تنتج...
استخدم كبديل عن ذلك مكون tdblookupcombobox وهو يتولى الأمر
مع احترامي الشديد لرأيك الا ان هذا ماجعل منا نحن العرب سوق استهلاكية ممتازة لابداعات ومحاولات الآخرين
تم اني ارى ان هكذا اكواد هي فهم مبدئي لالية وخوارزمية صنع المكونات
والى الامام ياعرب
ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - saber-bsa - 02-06-2010
بارك الله فيك اخي الكريم على هذا المثال لكن اخي لم امفهمه لأنني مبتدأ في الدلفي
والحمد لله انني وجدت هذا المنتدى الرائع
ملء مكون كمبوبوكس ComboBox بعناصر من جدول قاعدة بيانات Interbase - مبتدا - 24-02-2011
gigi كتب :مع احترامي الشديد لرأيك الا ان هذا ماجعل منا نحن العرب سوق استهلاكية ممتازة لابداعات ومحاولات الآخرين
تم اني ارى ان هكذا اكواد هي فهم مبدئي لالية وخوارزمية صنع المكونات
والى الامام ياعرب
نعم معاك في الراي