الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية عمل كمبوبوكس ويختار المستخدم منها

مغلق
بدأه a_salah_hasballa في 9 مارس 2007 · 4 رد · 615 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا عايز اعمل 3 كومبو بوكس علي سبيل المثال واحد بأسم القطاع والتاني بأسم الأدارة والثالث باسم القسم عايز أول مهختار من الكمبوبوكس الأول القطاع يظهر في الكمبو بوكس التاني الأدارات الموجود في القطاع دة واول مهختار الأدارة يظهر في الكمبو بوكس الثالث الأقسام الموجودة في الأدارة دي وهكذا

وانا اسف للأطالة بس انا محتاج دي ضروري جدا

بســم الله الـرحمــن الرحيــم

لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية

#2

عزيزي يمكن من خلال قاعدة البيانات عمل ذلك يعني عشان تسهل على حالك مثلا

سوي جدول يحتوي على الاتي

1-اسم الادارة ورقم القطاع الخاص بها يعني بمعنى مجموعات كل مجموعة ادارات لها نفس رقم القطاع

2-سوي جدل يحتوي على الاتي كمان 1-اسم القسم ورقم الادارة التايعة لها وكمان على شكل مجموعات كل مجموعة اقسام لها نفس رقم الادارة

انت بهالطريقة سهلت على نفسك كتيييير

من خلال رقم واحد يمكنك جلب كل بيانات الادارة من خلال رقم القطاع التابعة ونفس الشي بالنبة لرقم 2

*************************************************

**************************************************

مصطفى زيداني

#3

ممكن توضحلي اكتر بمثال بالكود عشان انا مش عارف الكود ويكون بمتبة الأدوا عشان البرنامج معمول بالادوا

بســم الله الـرحمــن الرحيــم

لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية

#4

العملية كما يلي

بعد تكوين الاتصال بقاعدة البيانات طبعا بـ ADO

rs.Open "SELECT * FROM HnHnTab  ", db
 Combo1.Clear
 Do Until rs.EOF
	   Combo1.AddItem rs![name]
	   rs.MoveNext
   Loop

 Set rs = Nothing

طبعا في البداية سيتم فتح الجدول واخذ البيانات اللي في الحقول واضافتها للكمبو ويمكنك تكرار العملية مع الكمبو الثاني والثالث

كما يلي .. سنقو بأرداج البيانات في الكمبو 2 بشرط الكمبو 1

rs2.Open "SELECT * FROM HnHnTab2 Where ID = '" & Combo1.Text & "'  ", db
 Combo2.Clear
 Do Until rs2.EOF
	   Combo2.AddItem rs![name]
	   rs2.MoveNext
   Loop

 Set rs2 = Nothing

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#5

هذا المثال عملتو إلك للتوضيح واتمنى يكون واضح ان شالله

sections.zip

*************************************************

**************************************************

مصطفى زيداني

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…