تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار طلبة الدور الثاني حسب مواد الرسوب
#1
السلام عليكم ورحمة الله وبركاته
عندي جدول درجات الدور الثاني باسم TBL_Final5
وحقول مجموع المواد الدراسية عددها 12 وهى:  TR1 . TR2 . TR3 ..... إلى  (TR12)
درجات النجاح لكل مــادة هى (40) ماعدا مــادة واحــدة درجة النجاح هى (tr5 = 80)

المطلــوب:
أريد فقط كيفية عرض الطلبــة الراسبين في الدور الأول حسب مواد الرسوب في الليست بوكس وكذلك الفليكس قريد
بمعنى عندما اختار مادة من الكومبوكس يعرض الطلبة الراسبين في هذه المــادة في الليست بوكس والفليكس بوكس

ملاحظة:
الفورم Form_Exim2 خاص بعرض الطلبة الراسبين في الليست بوكس (L1)
الفورم Form_Semester3 خاص بعرض الطلبة الراسبين في (MSHFlexGrid1)
حقل الدور الأول يُرمز له بالرقـــم (3) في حقل (Semester) و (tag)

أرجــو أن تكون الصــورة قد وضحت وهى عرض الطلبـة الراسبين في الدور الأول حسب المــادة

مثال في المرفقات

.rar   عرض الطلبة الراسبين حسب المادة.rar (الحجم : 1.01 م ب / التحميلات : 10)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: سعود
#2
عذرا على الازعاج؛ ولكنه حب الإطلاع واستعجال النتائج وانتظار الجواب.
ههههههه
وإذا لم يكن أحدٌ من الأساتذة له وقتٌ لينظر هذا السؤال ويحلَّ الإشكال فليعدل على هذا الكود فقط
حيث استطعتُ أن أعرض مادة رسوب واحدة مثل ما في هذا الكود ( tr1 < 40)  حسب الاختيار من الكومبوس Combo1
ولكن أريدُ أن أعرض 12 مـادة إذا كانت درجة النجاح أقل من 40 ماعدا مادة واحدة درجة النجاح أقل من 80 وهى tr5
tr1 - tr2 - tr3 - tr4 - tr5 - tr6 - tr7 - tr8 - tr9 - tr10 - tr11 - tr12

كود :
Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [TB1] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr1 < 40 AND [Category] = '" & Trim(CombCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

L1.Clear
For I = 0 To rs.RecordCount - 1
L1.AddItem rs![Name_Student]
L1.ItemData(L1.NewIndex) = rs![ID]
rs.MoveNext
Next
'
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: سعود
#3
تم حل المشكلة بهذا الكود الطويل والمزعج فمن يريد تطوير هذا الكود فياهلا به
كود :
' عرض الطلبــة الراسبين حسب المــادة الراسبين فيه
Select Case CombSClas.ListIndex
'
Case 0

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND Semester=3 AND tag=3 AND tr1 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 1

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr2 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 2

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr3 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 3

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=5 AND tr4 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 4

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr5 < 80 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 5

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr6 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 6

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr7 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 7

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr8 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 8

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=2 AND tr9 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 9

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final4] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr10 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 10

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr11 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

Case 11

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr12 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic

End Select
'
L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'
Form_Exim2.LCount.Caption = " عدد الطلبــة الراسبين في مــادة : " & " " & Form_Exim2.CombSClas.Text & "  -  " & RS.RecordCount & ""
'
Exit Sub
'
ShowDegree 1
''''''''''''''
TextB_GotFocus
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: سعود , سعود
#4
السلام عليكم رحمة الله وبركاته،،
هل هذا الاختصار يعتبر مريح ؟؟

كود :
   ' عرض الطلبــة الراسبين حسب المــادة الراسبين فيها

Dim strSearh As String

Select Case CombSClas.ListIndex
   Case 0
       strSearh = "Semester=3 AND tr1 < 40"
   Case 1
       strSearh = "tr2 < 40"
   Case 2
       strSearh = "tr3 < 40"
   Case 3
       strSearh = "tr4 < 40"
   Case 4
       strSearh = "tr5 < 80"
   Case 5
       strSearh = "tr6 < 40"
   Case 6
       strSearh = "tr7 < 40"
   Case 7
       strSearh = "tr8 < 40"

   Case 8
       strSearh = "tr9 < 40"
   Case 9
       strSearh = "tr10 < 40"
   Case 10
       strSearh = "tr11 < 40"
   Case 11
       strSearh = "tr12 < 40"
End Select

Call ConnectionDatabase

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 " & strSearh & " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic

L1.Clear

For I = 0 To Rs.RecordCount - 1
   L1.AddItem Rs![Name_Student]
   L1.ItemData(L1.NewIndex) = Rs![ID]
   Rs.MoveNext
Next

'
Form_Exim2.LCount.Caption = " عدد الطلبــة الراسبين في مــادة : " & " " & Form_Exim2.CombSClas.Text & "  -  " & Rs.RecordCount & ""
'
Exit Sub
'
ShowDegree 1
''''''''''''''
TextB_GotFocus
الرد
تم الشكر بواسطة: مصمم هاوي , مصمم هاوي , سعود
#5
بارك الله فيك أخي طه فهو كودٌ مختصرٌ ولكن يظهر خطأ في هذا الجزء من الكود كما هو موضحٌ في الصورة

كود :
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 " & strSearh & " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic

إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: سعود
#6
التصحيح : 

كود :
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
       "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 And " & strSearh & _
       " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic
الرد
تم الشكر بواسطة: مصمم هاوي , سعود
#7
(18-11-21, 03:36 AM)Taha Okla كتب : التصحيح : 

كود :
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
       "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 And " & strSearh & _
       " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic

كم أنــت أروع بهـــذا الكود الرائـــع, فهــو كودٌ مختصــرٌ ومفيد وقد أدى الغرض المطلــوب
لقد خففتَ عني كثيراً من الضغط النفسي والإرهاق الجسدي
بارك الله فيك, وجزاك كلَّ خيرٍ, وجعلَ ما قدمتَ في ميزان حسناتكَ
ورفع الله قدركَ في الدنيا والآخرة
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: سعود
#8
ولا زال بالامكان اختصاره أكثر - 
بحيث نختصر حالة Select على ثلاث حالات فقط 
وبها نناقش كل الحالات الـ 12 لديك 
..
ولكن توقفت عند هذا الحد 
لأنه أسهل للفهم متى رجعت إليه مستقبلاً ..

..
وهذا من فضل ربي  - فـ لله الحمد من قبل ومن بعد ..
الرد
تم الشكر بواسطة: مصمم هاوي
#9
(18-11-21, 04:37 PM)Taha Okla كتب : ولا زال بالامكان اختصاره أكثر - 
بحيث نختصر حالة Select على ثلاث حالات فقط 
وبها نناقش كل الحالات الـ 12 لديك 
..
ولكن توقفت عند هذا الحد 
لأنه أسهل للفهم متى رجعت إليه مستقبلاً ..

..
وهذا من فضل ربي  - فـ لله الحمد من قبل ومن بعد ..

بعد الأستاذ الفاضل أحمد منصور والأستاذ المبدع أحمد عبد العليم وأخي الحبيب الرائع أمير الزبيدي
فإنه يبدو لي جازماً أنني أمام قامة آخرى من القامات العربية التي تزخر بالإبداع البرمجي،
وكم كنتُ أتمنى منك أن توافيني بهذا الكود المختصر اكثر من هذا للاستزادة البرمجية ,
فإنني مازلتُ هاوياً أتعلم من الأساتذة الكرام والأعضاء الأفاضل
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#10
تفضل :

كود :
' عرض الطلبــة الراسبين حسب المــادة الراسبين فيها

Dim strSearh As String

Select Case CombSClas.ListIndex
   Case 0
       strSearh = "Semester=3 AND tr1 < 40"
   Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11
       strSearh = "tr" & CStr(CombSClas.ListIndex + 1) & " < 40"
   Case 4
       strSearh = "tr5 < 80"
End Select

Call ConnectionDatabase

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
      "' AND [Clas] = '" & Trim(CombClass.Text) & "' AND tag=3 And " & strSearh & _
      " AND [Category] = '" & Trim(TextCategory.Text) & "'", DB, adOpenStatic, adLockOptimistic
     
L1.Clear

For I = 0 To Rs.RecordCount - 1
   L1.AddItem Rs![Name_Student]
   L1.ItemData(L1.NewIndex) = Rs![ID]
   Rs.MoveNext
Next

Form_Exim2.LCount.Caption = " عدد الطلبــة الراسبين في مــادة : " & " " & Form_Exim2.CombSClas.Text & "  -  " & Rs.RecordCount & ""
'
Exit Sub
'
ShowDegree 1
''''''''''''''
TextB_GotFocus
الرد
تم الشكر بواسطة: مصمم هاوي , مصمم هاوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن إظهار أداة DatePicker فارغة مصمم هاوي 4 675 28-03-21, 08:56 PM
آخر رد: مصمم هاوي
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 881 16-07-20, 03:22 AM
آخر رد: hasanqo
  إظهار نتيجة البحث في ListView مصمم هاوي 1 831 17-03-20, 08:09 PM
آخر رد: مصمم هاوي
  طريقة إظهار أعمدة الجدول حسب المادة المختارة مصمم هاوي 5 1,353 24-02-19, 08:13 AM
آخر رد: Ahmed_Mansoor
  إظهار أسماء طلبة الصف والشعبة المختارين فقط مصمم هاوي 4 1,263 07-01-18, 07:41 PM
آخر رد: مصمم هاوي
  لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list الخير طهوري 4 1,845 17-02-17, 12:12 AM
آخر رد: الخير طهوري
  [ تمّ الحل ] : إظهار قائمة بالجدول على الفورم عبد العزيز البسكري 4 1,905 21-01-17, 03:45 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 5,856 17-11-16, 11:54 PM
آخر رد: iisys
  [vb6.0] إظهار فواصل الالاف للمبالغ فى التقارير aboezzat84 1 1,426 13-09-16, 12:27 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] السوال الثاني برنامج لحساب مجموع مبيعات شركه من بيانات المبيعات اليوميه لفترة 25يوم jamal 0 1,302 26-03-16, 10:17 PM
آخر رد: jamal

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم