+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تعديل كود الدرجات المحصورة بين عددين (/showthread.php?tid=40199)
تعديل كود الدرجات المحصورة بين عددين - مصمم هاوي - 08-12-21
أريد التعديل على الكود التالي حسب التالي:
جلب الدرجات المحصورة بين (34) و (40)
وبين (75) و(80)
أي: التعديل على كود تقرير الدرجات الحرجة (التي تحتاج إلى درجات قليلة للنجاح) حسب الحقول التالية:
* (tr1 - tr2 - tr3 - tr4 - tr6 - tr7 - tr8 - tr9 - tr10 - tr11 - tr12) إذا كانت الدرجات أقل من (40) وأكبر من (34)
ما عدا (tr5) إذا كانت الدرجة أقل من (80) وأكبر من (74)
المشكلة في الكود أنه يعرض درجات المواد في التقرير بدون أن يتحقق الشرط المطلوب
كود :
Dim strSearh As String
Select Case CombSClas.ListIndex
Case 0
strSearh = "Semester=3 AND tr1 < 40 AND tr1 > 34"
Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11
strSearh = "tr" & CStr(CombSClas.ListIndex + 1) & " < 40"
strSearh = "tr" & CStr(CombSClas.ListIndex + 1) & " > 34"
Case 4
strSearh = "tr5 < 80 and tr5 > 74"
End Select
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM TBL_Final2 Where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim(CombClass.Text) & "' And CClas='" & Trim(CombCClass.Text) & "' And Semester=" & Trim$(TextExim.Text) & " order by ID ASC", DB, adOpenStatic, adLockOptimistic
If RS.RecordCount <= 0 Then
If RS.State = adStateOpen Then RS.Close
MsgBox " ÚÝÜÜæÇð ... áÇ ÊæÌÏ ÏÑÌÜÜÜÇÊ ÍÑÌÜÜÉ Ýí ÇãÊÍÇäÜÜÇÊ ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & CombSClas.Text & " - ááÕÜÜÜÝ : " & CombClass.Text & " - ÇáÔÚÈÜÜÜÉ : " & CombCClass.Text & " - ÕÝÉ ÇáÞíÏ : " & CombCategory.Text & "", vbInformation + vbMsgBoxRight, "ÊäÈíÜÜå ..."
Exit Sub: End If
If RS.State = adStateOpen Then RS.Close
x = CombClass.Text
Unload Report_FinaLAC5
Report_FinaLAC5.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data.Base\Data_Base.mdb;Persist Security Info=False"
Report_FinaLAC5.DataControl1.Source = "Select * From TBL_Final2 Where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim$(CombClass.Text) & "' And CClas='" & Trim$(CombCClass.Text) & "' And Semester=" & Trim$(TextExim.Text) & " And " & strSearh & ""
Report_FinaLAC5.Caption = " ßÔÜÜÝ ÈÇáÏÑÌÜÜÇÊ ÇáÍÑÌÉ Ýí ÇãÊÍÜÜÇä ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & Form_Cdegree.CombSClas.Text & " - ÇáÔÚÈÜÜÜÉ : " & Form_Cdegree.CombCClass.Text & " - ááÕÜÜÜÝ : " & Form_Cdegree.CombClass.Text & " - ÕÝÉ ÇáÞíÏ : " & Form_Cdegree.CombCategory.Text & " - ááÚÇã ÇáÏÑÇÓí : " & Form_school.TextM.Text
Report_FinaLAC5.LExim.Caption = " ßÔÜÜÝ ÈÇáÏÑÌÜÜÇÊ ÇáÍÑÌÉ Ýí ÇãÊÍÜÜÇä ÇáÏæÑ ÇáÃæá Ýí ãÜÜÇÏÉ : " & " " & Form_Cdegree.CombSClas.Text & " - ÇáÔÚÈÜÜÜÉ : " & Form_Cdegree.CombCClass.Text & " - ááÕÜÜÜÝ : " & Form_Cdegree.CombClass.Text & " - ÕÝÉ ÇáÞíÏ : " & Form_Cdegree.CombCategory.Text & " - ááÚÇã ÇáÏÑÇÓí : " & Form_school.TextM.Text
Report_FinaLAC5.Show: Report_FinaLAC5.Visible = True: Report_FinaLAC5.Showعذراً على الكلمات العربية التي تظهر على شكل رموز
RE: تعديل كود الدرجات المحصورة بين عددين - Taha Okla - 08-12-21
جرب تنشىء فورم عليه جدول (يعني انسى انه عندك Report) ..
وخلي الكود يعرض البيانات المطوب عرضها في التقرير يعرضها ضمن الجدول :
هل النتيجة راح تكون صحيحة وكما أردتها . ؟؟؟
====
بالنسبة لمشكلة ( الكلمات العربية التي تظهر على شكل رموز)
قبل ما تنسخ نص فيه كلمات عربية حول لغة الويندوز إلى العربية ثم انسخ النص وستتجاوز هذه المشكلة ..
RE: تعديل كود الدرجات المحصورة بين عددين - مصمم هاوي - 09-12-21
(08-12-21, 11:45 PM)Taha Okla كتب : جرب تنشىء فورم عليه جدول (يعني انسى انه عندك Report) ..
وخلي الكود يعرض البيانات المطوب عرضها في التقرير يعرضها ضمن الجدول :
هل النتيجة راح تكون صحيحة وكما أردتها . ؟؟؟
====
بالنسبة لمشكلة ( الكلمات العربية التي تظهر على شكل رموز)
قبل ما تنسخ نص فيه كلمات عربية حول لغة الويندوز إلى العربية ثم انسخ النص وستتجاوز هذه المشكلة ..
هذا مثال بيسط مقتبس من المشروع أرجو التعديل عليه في الفورم Form_Semester2
والبيانات من الجدول TBL_Final2
* المطلوب: عرض المواد الدراسية التي درجتها حرجة وتحتاج إلى ترفيع حتى ينجح الطالب
* والدرجة الحرجة أقل من 40 وأكبر من 34 لجميع حقول الجدول tr1 - tr2 ...... إلخ
* ما عدا tr12 فالدرجة الحرجة أقل من 80 وأكبر من 74
فكل درجة حرجة تحتاج إلى خمس درجات( وهى قانونية) للنحاج
هذا ما أريده فقط والنتيجة ستكون صحيحة حسب المعطيات
وفي المثال ستجد مثلاً الطالب رقم 41 متحصل في السمستر 3 على درجتين حرجات وهما:
حقل (tr1) الدرجة الحرجة 35 (مادة التربية الإسلامية)
وحقل (tr2) الدرجة الحرجة 39 (مادة التفسير)
[attachment=27369]
RE: تعديل كود الدرجات المحصورة بين عددين - Taha Okla - 09-12-21
جرب تعملها بنفسك ..
بحيث يتم فرز النتائج المطلوبة في جدول في فورم جديد
لا تطلب من أول مرة الكود ينفذ لك كل شي :
1 - أكتب شرط ثم نفذ حتى يحقق حقق المطلوب في هذا الشرط .. ثم ..
2 - أضف على الكود الشرط الثاني حتى تصل للنتائج المرجوة. .
3 - في حال توقف البرنامج عن اعطاء النتيجة في مرحلة ما عندها ستعرف أين هو موطن الخطأ لديك وتعالجه حتى يستجيب لما تريد ....
اذا نجحت جربها على التقرير ...
RE: تعديل كود الدرجات المحصورة بين عددين - مصمم هاوي - 09-12-21
(09-12-21, 05:54 AM)Taha Okla كتب : جرب تعملها بنفسك ..
بحيث يتم فرز النتائج المطلوبة في جدول في فورم جديد
لا تطلب من أول مرة الكود ينفذ لك كل شي :
1 - أكتب شرط ثم نفذ حتى يحقق حقق المطلوب في هذا الشرط .. ثم ..
2 - أضف على الكود الشرط الثاني حتى تصل للنتائج المرجوة. .
3 - في حال توقف البرنامج عن اعطاء النتيجة في مرحلة ما عندها ستعرف أين هو موطن الخطأ لديك وتعالجه حتى يستجيب لما تريد ....
اذا نجحت جربها على التقرير ...
جربت اكثر من طريقة ولم تضط معي كما في كود المشاركة الأولى.
وعلى كل حال ساعيد صياغة الكود مرة أخرى وارفق النتيجة إن شاء الله تعالى.
RE: تعديل كود الدرجات المحصورة بين عددين - مصمم هاوي - 09-12-21
تم انشاء فورم باسم (Form_Semester3) يتم فيه استدعاء الطلبة الراسبين في امتحان الدور الأول من الجدول (TBL_Final2) بناء على قيمة الحقل (Semester=3)
المشكلة في فرز الدرجات الحرجة للراسبين:
* أي المحصورة بين الدرجة (34) والدرجة (40) للحقول (tr1.tr2.tr3.tr4.tr6.tr7.tr8.tr9.tr10.tr11.tr12)
* والدرجات المحصورة بين الدرجة (74) والدرجة (80) للحقل (tr5)
والمثال في المرفقات فأرجو جزاكم الله كل خير التعديل؛ لأنني عجزتُ بعد محاولات كثيرة
[attachment=27371]
RE: تعديل كود الدرجات المحصورة بين عددين - Taha Okla - 10-12-21
عدل كود التحقق إلى الكود التالي :
كود :
Dim strSearh As String, strS2 As String
strS2 = "tr" & CStr(CombSClas.ListIndex + 1)
Select Case CombSClas.ListIndex
Case 0
strSearh = "Semester=3 AND tr1 < 40 AND tr1 > 34"
Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11
strSearh = strS2 & " < 40 And " & strS2 & " > 34"
Case 4
strSearh = "tr5 < 80 And tr5 > 74"
End SelectRE: تعديل كود الدرجات المحصورة بين عددين - مصمم هاوي - 10-12-21
(10-12-21, 05:48 PM)Taha Okla كتب : عدل كود التحقق إلى الكود التالي :
كود :
Dim strSearh As String, strS2 As String
strS2 = "tr" & CStr(CombSClas.ListIndex + 1)
Select Case CombSClas.ListIndex
Case 0
strSearh = "Semester=3 AND tr1 < 40 AND tr1 > 34"
Case 1, 2, 3, 5, 6, 7, 8, 9, 10, 11
strSearh = strS2 & " < 40 And " & strS2 & " > 34"
Case 4
strSearh = "tr5 < 80 And tr5 > 74"
End Select
بارك الله فيك وجزاك كل خيرٍ, ورفع قدرك في الدارين