تعديل كود الجمع والمعدل والتقدير وعدد مواد الرسوب

[omran2015]

الأساتذة الكرام

تقبل اللهُ منا ومنكم صالح الأعمال 

وبعد: هذا مشروع بالفيجوال بيسك6 يتم تسجيل الدرجـات في الجدول TBL_Final1

وفي الفورم  Form_Semester1 يوجد بوتن لجمع الدرجات tr1 + tr2 + tr3 + tr4 + tr5 + tr6

واستخراج المعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية

المشروع قديم حاولت التعديل عليه ولكن هناك مشكلة تتمثل في الآتي:

عندما اضغط بوتن الجمع يقوم بالجمع واستخراج المعدل تمام ولكن عدد مواد الرسوب يتم حفظه خطأ في حقل التقدير ويبقى حقل عدد مواد الرسوب فارغ

كذلك لا يتم تحقق الشروط التالية في حقل النتيجة النهائية:

1/ إذا كان عدد مواد الرسوب (0) فهو ناجح

2/ إذا كان عدد مواد الرسوب (3) فأقل فهو مكمل

3/ إذا كان عدد مواد الرسوب  أكثر من  (4) فهو راسب

للعلم اليوتن رقم (1) : الكود يعمل تمام بدون إضافة جزئية كود استخراج عدد مواد الرسوب

ولكن البوتن رقم (2) عند إضافة جزئية كود استخراج عدد مواد الرسوب تظهر المشكلة

أسف لم أجد القسم المناسب لأضع فيه السؤال؟ 

School.rar

تم تعديل أبريل 5, 2022 بواسطه omran2015

[omran2015]

الا يوجد أحد ملم بلغة الفيجوال بيسك6 

[د.كاف يار]

للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي 

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

 

و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه

[omran2015]

6 دقائق مضت, د.كاف يار said:

للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي 

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

 

و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه

 بارك الله فيك أخي الحبيب وزادك الله من فضله, وجارٍ ترقية المشروع ولكن هذا المشروع كبير في جحمه وعملتُ عليه أكثر من ثلاث سنوات

وهو بمثابة البرنامج الرئيسي في المعهد.

وهذا هو الكود بدون جزئية استخراج عدد مواد الرسوب

Private Sub Command1_Click()
''''''''''''''''''''''''''''
Dim RsSum As New ADODB.Recordset
Dim RsShow As New ADODB.Recordset
Dim s As String
s = "100"
If RsShow.State = 1 Then RsShow.Close

RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic
If RsShow.RecordCount > 0 Then
Do While Not RsShow.EOF

If RsSum.State = 1 Then RsSum.Close
RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _
& " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _
& " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or [tr6]<50,'راسب','ناجح')), " _
& " IIf([result]='راسب',0,[TOTAL]/600*100), " _
& " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _
& " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic

RsSum.Fields(2).Value = RsSum.Fields(6).Value
RsSum.Fields(3).Value = RsSum.Fields(7).Value
For I = 0 To 1
RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1
RsSum.Fields(5).Value = RsSum.Fields(9).Value

RsSum.Update
RsSum.Requery
Next
RsSum.Update
RsSum.Requery
RsShow.MoveNext
Loop
'
End If
'
End Sub

 

وهذا هو الكود توجد به مشكلة بعد إضافة جزئية استخراج عدد مواد الرسوب

Private Sub Command2_Click()
Dim RsSum As New ADODB.Recordset
Dim RsShow As New ADODB.Recordset
Dim s As String
s = "100"
If RsShow.State = 1 Then RsShow.Close

RsShow.Open "select * from TBL_Final1", DB, adOpenKeyset, adLockPessimistic
If RsShow.RecordCount > 0 Then
Do While Not RsShow.EOF

If RsSum.State = 1 Then RsSum.Close
RsSum.Open "select ID,tag,TOTAL,result,FINAL,takdeer,iif([result]='راسب',0,(tr1+tr2+tr3+tr4+tr5+tr6)), " _
& " IIf([tr1]<50 And [tr2]<50 And [tr3]<50 And [tr4]<50 And [tr5]<50 And " _
& " [tr6]<50,'راسب',IIf([tr1]<50 Or [tr2]<50 Or [tr3]<50 Or [tr4]<50 Or [tr5]<50 Or " _
& " [tr6]<50,'راسب','ناجح')),IIf([result]='راسب',0,[TOTAL]/600*100), " _
& " IIf([tr1]>=50,0,1)+IIf([tr2]>=50,0,1)+IIf([tr3]>=50,0,1)+IIf([tr4]>=50,0,1)+IIf([tr5]>=50,0,1)+IIf([tr6]>=50,0,1) AS mcount, IIf([mcount]>3,'راسب',IIf([mcount]<=0,'ناجح',IIf([mcount]<4,'مكمل')))  AS result, " _
& " IIf([result]='راسب',0,IIf([TOTAL]>=550,'ممتاز',IIf([TOTAL]>500,'جيد جداً',IIf([TOTAL]>400,'جيد',IIf([TOTAL]>300,'مقبول',IIf([TOTAL]<78,'/','/')))))) " _
& " from TBL_Final1 where ID=" & RsShow.Fields(0).Value & " and tag=" & RsShow.Fields(33).Value, DB, adOpenKeyset, adLockPessimistic

RsSum.Fields(2).Value = RsSum.Fields(6).Value
RsSum.Fields(3).Value = RsSum.Fields(7).Value
For I = 0 To 1
RsSum.Fields(4).Value = RsSum.Fields(8).Value * 1
RsSum.Fields(5).Value = RsSum.Fields(9).Value

RsSum.Update
RsSum.Requery
Next
RsSum.Update
RsSum.Requery
RsShow.MoveNext
Loop
'
End If
'
End Sub

 

تم تعديل أبريل 6, 2022 بواسطه omran2015

[omran2015]

انتظر ردك د. كاف يار

[omran2015]

تم بحمد الله وفضله حل الإشكالية 

وجزى الله كل خير من قدم نصيحة أو استشارة فنية