+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ربط مكون treeview بقاعدة بيانات (/showthread.php?tid=2941)
ربط مكون treeview بقاعدة بيانات - محمد الدرة - 27-03-2011
السلام عليكم ورحمة الله وبركاته
لدي قاعدة بيانات اكسس مكونه من جدولين جدول المواضيع وهو الجدول الرئيسي وجدول الاكواد وهو الجدول الفرعي مربوطة عبر عنصري adoquery
بحيث العنصر الاول ربطت فيه جدول المواضيع والآخر ربطت فيه جدول الاكواد
اريط ان يظهر كل موضوع وبداخله الاكواد اللي تتبعة في المكون treeview وقد استطعت عمل ذلك عبر جملتين while
المشكلة عند الربط بين treeview وقاعدة البيانات فعندما انقر مثلاً على اسم الكود ترتبط قاعدة البيانات
لكن عن طريق اني اجعل treeview تظهر شي وتخزن شيء آخر مثلاً تظهر اسماء الاكواد ولكن تخزن بداخلها قيم id
لان مثلاً لو ظهر هناك اسماء اكواد متشابهه فان قاعدة البيانات سترتبط باول سجل يقابل نفس الاسم
لقد ساعدني احد الاخوة في هذا المنتدى بطريقة جميلة جداً عن طريق object
لكن في مكون listbox
كود :
استبدل السطر:
كود:
listbox1.Items.Add(adoquery1.Fields[3].asstring);
بـ:
كود:
listbox1.Items.AddObject(adoquery1.Fields[3].asstring, TObject(ADOQuery1.FieldByName('r').AsInteger));
و السطر:
كود:
if adoquery1.Locate('name',listbox1.Items[listbox1.ItemIndex],[]) then
بـ:
كود:
if adoquery1.Locate('r',Integer(listbox1.Items.Objects[listbox1.ItemIndex]),[]) thenولكم جزيل الشكر