أنا أقوم بإنشاء العديد من الـ List Item كـ ComboBox ، مثلاً 100 Combo بالمشروع ككل !!!

لكل Combo يحتوي علي بيانات مخزنة بقاعدة البيانات !!!

في هذه الحالة يجب علي إنشاء أكثر من Loop علي كل آداة كما يلي كعلي سبيل المثال :

Declare
 I	  Number := 0;
Begin
 Clear_List(' List_Name ');
 For Cur In (Select TBL_PK,TBL_Desc From Tab)
 Loop
	  I := I + 1;
	  Add_List_Element(' List_Name', I, Cur.TBL_Desc, Cur.TBL_PK);
 End Loop;
End;

وهكذا لبقية القوائم List_Items !!!

كيف يمكنني صناعة Procedure يساعدني علي إدخال مجموعة من الباراميترات التي تساعد علي تسهيل كتابة العديد من الأكواد ، مثال :

Fill_Combo(<ComboName>,<SQL String>,<Field Serial>,<Field Descriptin>);

بحيث أن Combo Name هو إسم القائمة ، و SQL String هو جملة الإستعلام ، و Field Serial هو إسم حقل المفتاح الرئيسي Value ، أما الـ Field Description هو خاص بحقل المعلومات الظاهرة للمستخدم .


كيف يتم ذلك

شكراً

الطريقة ﻻ تحضرني اﻵن ولكني أنصحك باﻻبتعاد عن ComboBox قدر اﻹمكان والسبب في ذلك أن المستخدم النهائي يقوم بتغيير القيمة وهو ﻻ يقصد
مثﻻ إذا ضغط على السهم الى أسفل وقصده اﻻنتقال إلى السجل التالي والمؤشر على ComboBox تتغير القيمة .

أخي ، أشكرك كثيراً علي الرد ،

ولكن أنا في بدايتي ، فرجاء التوضيح أكثر !!!

أنصحك باﻻبتعاد عن ComboBox قدر اﻹمكان

فعلاً أخي ، أنا كنت في الفيجوال بيزيك 6.0 مصمم آداة OCX تقوم بهذه المهمة بحيث أن تحتوي علي 3 مربعات نص و زر أمر بجوارها عند النقر علية يظهر لي نافذة بحث كديالوج ، يختار منها المستخدم ما يشاء ، وهذه الآداة تدعي Finder بحيث أن تمثل حقل الـ FK فقط لا غير .

لكن أخي المشكلة أنني مصممها بالفيجوال 6.0 ، والفيجوال 6.0 لا يتعامل مع كل أنظمة التشغيل ، لذلك علي اللجوء الي الديفيلوبار !!!

فرجاء تحديد ماذا أستخدم بدلاً من Combo بالديفيلوبار ؟؟؟

شكراً

تم تعديل 1 فبراير 200818 سنة بواسطة MMA

رجاء المساعدة

شكراً

طلبك موجود تحت عنوان Dynamic SQL
إبحث فى هذا الأتجاه وستجد ما يسرك

السلام عليكم
أخى الكريم ارجو منك توضيح لماذا تريد استخدام 100 لست كى استطيع مساعدتك

وعلى العموم ممكن تستخدم CREATE_GROUP_FROM_QUERY
وبعد ذلك populate_list

تم تعديل 27 نوفمبر 200817 سنة بواسطة msayed.evara

declare
r_id recordgroup;
n number;
begin r_id:=create_group_from_query('q2','select stok_name ,to_char(stok_no) from stok'); n:=populate_group(r_id);
populate_list('HEAD.ITEM9','q2'); --list1
populate_list('HEAD.stok','q2');	--list2
                                   --more

end;

تم تعديل 27 نوفمبر 200817 سنة بواسطة hossam160