منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

هل يتفضل أحد الأساتذة الكرام بالتعديل على كود الحفظ ؟
المطلوب:
عدم تكرار حفظ المــادة الدراسية للفصل الدراسي الواحد مرتين مثلاً:
الصف: الأول - الفصل الدراسي: 1 - المـادة: التربية الإسلامية
الصف: الأول - الفصل الدراسي: 1- المـادة: التربية الإسلامية

والصحيح:
الصف: الأول - الفصل الدراسي: 1 - المـادة: التربية الإسلامية
الصف: الأول - الفصل الدراسي: 2- المـادة: التربية الإسلامية
وهكذا ... مع بقية الصفوف الدراسية والفصول والمواد .

بدلاً من حفظ المادة مرتين فإنه يتم تحديث البيانات
علماً بأن إدخال البيانات عن طريق الداتا قريدفيو

كود :

           Try

                If dgv1.Rows.Count = 0 Then Exit Sub

                If Con.State = ConnectionState.Closed Then Con.Open()

                For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)

                    Using cm As New OleDb.OleDbCommand("", Con)

                        cm.Parameters.Clear()

                    cm.CommandText = "insert into TBL_result(stid,studentid,studentname,clasid,setno2,SemesterID,courseid,n1,n2,n3) Values (@stid,@studentid,@studentname,@clasid,@setno2,@SemesterID,@courseid,@n1,@n2,@n3)"

                    cm.Parameters.AddWithValue("@stid", AutoNum("TBL_result", "stid")).DbType = DbType.String

                    cm.Parameters.AddWithValue("@studentid", dgv1.Rows(i).Cells(0).Value)

                        cm.Parameters.AddWithValue("@studentname", dgv1.Rows(i).Cells(1).Value)

                        cm.Parameters.AddWithValue("@clasid", dgv1.Rows(i).Cells(3).Value)

                        cm.Parameters.AddWithValue("@setno2", dgv1.Rows(i).Cells(4).Value)

                        cm.Parameters.AddWithValue("@SemesterID", CombSemester.SelectedValue).DbType = DbType.String

                        cm.Parameters.AddWithValue("@courseid", CombCoursesID.Text).DbType = DbType.String

                        cm.Parameters.AddWithValue("@n1", dgv1.Rows(i).Cells(7).Value)

                        cm.Parameters.AddWithValue("@n2", dgv1.Rows(i).Cells(8).Value)

                        cm.Parameters.AddWithValue("@n3", dgv1.Rows(i).Cells(9).Value)

                        cm.ExecuteNonQuery()

                    End Using

                Next

                If Con.State = ConnectionState.Open Then Con.Close()

                MsgBox("تم رصد درجــات الصــف   : " & " " & listClas.Text & Chr(13) & " لمــادة : " & CombCourses.Text & " * بنجــاح " & "", MsgBoxStyle.Information, "الإجـــراء")

            Catch ex As Exception

                'MsgBox("الرجـــاء ... إدخـال جميع الدرجــات ", MsgBoxStyle.Critical, "تنبيـــه ")

            End Try

            If dgv1.Rows.Count = 0 Then Exit Sub

            For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)

                dgv1.Rows(i).Cells(7).Value = ""

                dgv1.Rows(i).Cells(8).Value = ""

                dgv1.Rows(i).Cells(9).Value = ""

            Next

إذا كان هذا غير مشروعك الأول
قم بإرفاق المشروع للنظر فيه ..
..
(بحسب قرائتي للكود هذا مختلف عن أكواد مشروعك الأول :
رأيت في هذا الكود أنك تخزن في جدول الامتحانات كل تفاصيل الطالب ولا يرتبط بأي جدول آخر
فإن كان كذلك : فهنالك طريقة بسيطة لحفظ التعديلات ..
وإن كان غير ما قلت،، فإن هذه الطريقة لن تنفع مع مشروعك (ولا داعي لأن ترفق مشروعك) ) ..
- - - - - - - - - - - - - - - - - - - - - - - - - -

(16-03-23, 06:45 AM)Taha Okla كتب : [ -> ]إذا كان هذا غير مشروعك الأول
قم بإرفاق المشروع للنظر فيه ..
..
(بحسب قرائتي للكود هذا مختلف عن أكواد مشروعك الأول :
رأيت في هذا الكود أنك تخزن في جدول الامتحانات كل تفاصيل الطالب ولا يرتبط بأي جدول آخر
فإن كان كذلك : فهنالك طريقة بسيطة لحفظ التعديلات ..
وإن كان غير ما قلت،، فإن هذه الطريقة لن تنفع مع مشروعك (ولا داعي لأن ترفق مشروعك) ) ..
- - - - - - - - - - - - - - - - - - - - - - - - - -

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

أعود إلى المشكلة وأقول سارفق لك المشروع ويمكنك أن ترى ما هى الطريقة المناسبة لتحديث الدرجات .
لأن المشكلة التي اواجهها هى: عند تسجيل درجات مادة معينة واستدعاءها مرة أخرى في الداتا قريدفيو فإنك لو ضغطت زر الحفظ فسوف تحفظ مرة أخرى وهذا تكرار ؛ بل هو خطأ فاحش.

المفروض في هذا الحالة يتم تحديث الدرجات فقط (سواء تم تغيير الدرجات أو بقيت كما هى) وليس تكرار حفظها للسمستر الواحد ... هذا الذي أريده من هذا الشرح الطويل الممل.

أرجو أنني قد وفقت في إيصال المعلومة بشكل صحيح أستاذ طه.

الطريقة التي أتحدث عنها :
- أن ما ستعرضه ضمن الداتا جريد مسحوبة من جدول واحد ليس له أي علاقة تربطه بأي جدول آخر..
- يعني جميع بياناته موجودة في (جدول الدرجات) أساساً، (مش راح تضيفها بعد عملية الحفظ)..
مثلا : رقم الطالب، اسم الطالب، صف الطالب، شعبة الطالب، السنة الدراسية، اسم المادة ، الفصل الدراسي، ... إلخ.
- فقط ما ستعمله هو :

عرض بيانات الطلاب مع درجاتهم الموجودة أساسًا في الجدول(والتي هي إفتراضياً (0) أو (-)).
تعديل الدرجات من القيمة الموجودة إلى رقم الدرجة التي يتسحقها الطالب.
حفظ العملية.

- - - - - - - - - - - - - - - - - - - - - - - -

- - - - - - - - - - - - - - - - - - - - - - - -
أما إن كانت البيانات التي ستعرض في الداتا جريد مسحوبة من جدولين فأكثر فهذه الطريقة لن تنفع معك.
إن لم يكن كذلك فهذه الطريقة التي أتحدث عنها لن تنفع مع مشروعك،

(16-03-23, 04:45 PM)Taha Okla كتب : [ -> ]الطريقة التي أتحدث عنها :
- أن ما ستعرضه ضمن الداتا جريد مسحوبة من جدول واحد ليس له أي علاقة تربطه بأي جدول آخر..
- يعني جميع بياناته موجودة في (جدول الدرجات) أساساً، (مش راح تضيفها بعد عملية الحفظ)..
مثلا : رقم الطالب، اسم الطالب، صف الطالب، شعبة الطالب، السنة الدراسية، اسم المادة ، الفصل الدراسي، ... إلخ.
- فقط ما ستعمله هو :

عرض بيانات الطلاب مع درجاتهم الموجودة أساسًا في الجدول(والتي هي إفتراضياً (0) أو (-)).

تعديل الدرجات من القيمة الموجودة إلى رقم الدرجة التي يتسحقها الطالب.

حفظ العملية.

- - - - - - - - - - - - - - - - - - - - - - - -

- - - - - - - - - - - - - - - - - - - - - - - -
أما إن كانت البيانات التي ستعرض في الداتا جريد مسحوبة من جدولين فأكثر فهذه الطريقة لن تنفع معك.
إن لم يكن كذلك فهذه الطريقة التي أتحدث عنها لن تنفع مع مشروعك،

بارك الله فيك أخي الكريم وأستاذي القدير طه على توجيهاتكم ونصائحك المفيدة.
وسأرفق .مثالا يوضح الأمر إن شاء الله عند عودتي للمنزل.

هذا هو مثال مرفق ولو ادخلت درجات مادة معينة لنفس الفصل وحفظتها ثم اخترتها مرة أخرى مع اختيار نفس الفصل لتكرر الحفظ
ملاحظة: أقصد بالفصل الدراسي تقسيم المدة الدراسية على فصلين دراسيين (Semester) ولا أقصد به الصف الدراسي (Clas)

المطلوب: لو تم حفظ مادة معينة لفصل معين ألا يتكرر الحفظ لنفس المادة والفصل؛ بل يتم تحديث البيانات فقط ، ويكون في زر واحد لو أمكن ذلك

مع العلم بأن البيانات مسحوبة من جدول الدرجات TBL_result أثناء التحديث

ارجــو أن يكونَ التوضيح مفهوم تماماً

[attachment=28769]

اخي الكريم الحفظ يتكرر شيء طبيعي لان الكود هو : insert وليس update
هل تضيف صفوف جديدة الى dgv1 وايضا تستخدم تعديل؟

ممكن تعمل دالة Function تستقبل وسائط تستعلم عنها يفترض ان لا تتكرر حتى يتم التحديث update بدلا عن insert
ماهي الاعمدة في جدول TBL_result اللتي لا تقبل التكرار.
و كلنا ننتظر اخوتنا الفضلاء لتقديم الحل الامثل.

(17-03-23, 11:43 PM)سعود كتب : [ -> ]اخي الكريم الحفظ يتكرر شيء طبيعي لان الكود هو : insert وليس update
هل تضيف صفوف جديدة الى dgv1 وايضا تستخدم تعديل؟

ممكن تعمل دالة Function تستقبل وسائط تستعلم عنها يفترض ان لا تتكرر حتى يتم التحديث update بدلا عن insert
ماهي الاعمدة في جدول TBL_result اللتي لا تقبل التكرار.
و كلنا ننتظر اخوتنا الفضلاء لتقديم الحل الامثل.

جزيت خيرا وكفيت شرا أستاذنا
لا يمكن أن تتكرر درجات المادة للفصل الدراسي الواحد
مثلا:
مادة التربية الإسلامية للصف الأول * للجزئي الأول.
فلا يمكن أن تتكرر درجات هذه المادة مرة أخرى لنفس الجزئي... وهكذا

(18-03-23, 01:21 AM)سعود كتب : [ -> ]
(18-03-23, 12:19 AM)مصمم هاوي كتب : [ -> ]جزيت خيرا وكفيت شرا أستاذنا
لا يمكن أن تتكرر درجات المادة للفصل الدراسي الواحد
مثلا:
مادة التربية الإسلامية للصف الأول * للجزئي الأول.
فلا يمكن أن تتكرر درجات هذه المادة مرة أخرى لنفس الجزئي... وهكذا

مثل ما قلت سابقا اني لا افهم المسميات :
انت ذكرت :

إقتباس :مادة التربية الإسلامية للصف الأول * للجزئي الأول.
فاين هي في الجدول ؟ ما مسمياتها

هل يمكن ان تلون على الاعمدة او تذكر اسماء التي لا تريد تكرارها؟!

1: جدول الصفوف الدرسية = TBL_Clas حيث يتم تعبئة الليست بوكس بأسماء الصفوف وهى: الأول - الثاني - الثالث - الرابع .... إلخ
2: جدول الفصول الدراسية = TBL_Semester حيث يتم تعبئة الكومبوكس ببيانات الجدول: الجزئي الأول - الجزئي الثاني - الفترة الأول - الفترة الثانية ..... إلخ
3: جدول المواد الدراسية = TBL_courses عندما يتم اختيار الصف الدراسي يتم تعبئة كومبوكس المواد الدراسية (CombCourses)
4: جدول الدرجات = TBL_result ويحتوي على الحقوق التالية:
* حقل stID ترقيم تسلسلي
* حقل studentID رقم الطالب
* حقل studentname اسم الطالب
* حقل ClasID رقم الصف الدراسي
* حقل setno2 رقم المراقبة (المقصود الرقم السري)
* حقل SemesterID رقم الفصل الدراسي
* حقل courseID رقم المادة الدراسية
* الحقول (N1 - N2 - N3) حقول الدرجــات

المقصــود
الآن عند حفظ الدرجــات يجب ألا تتكرر رقم المـادة وهى (courseID ) لنفس الفصل وهو (SemesterID ) وذلك لكل طالب (studentname )
وللتوضيح أكثر أنظر الصورة المرفقة

[attachment=28770]

(18-03-23, 01:07 AM)عضو جديد كتب : [ -> ]
(17-03-23, 11:43 PM)سعود كتب : [ -> ]اخي الكريم الحفظ يتكرر شيء طبيعي لان الكود هو : insert وليس update
هل تضيف صفوف جديدة الى dgv1 وايضا تستخدم تعديل؟

ممكن تعمل دالة Function تستقبل وسائط تستعلم عنها يفترض ان لا تتكرر حتى يتم التحديث update بدلا عن insert
ماهي الاعمدة في جدول TBL_result اللتي لا تقبل التكرار.
و كلنا ننتظر اخوتنا الفضلاء لتقديم الحل الامثل.

(18-03-23, 12:19 AM)مصمم هاوي كتب : [ -> ]
(17-03-23, 11:43 PM)سعود كتب : [ -> ]اخي الكريم الحفظ يتكرر شيء طبيعي لان الكود هو : insert وليس update
هل تضيف صفوف جديدة الى dgv1 وايضا تستخدم تعديل؟

ممكن تعمل دالة Function تستقبل وسائط تستعلم عنها يفترض ان لا تتكرر حتى يتم التحديث update بدلا عن insert
ماهي الاعمدة في جدول TBL_result اللتي لا تقبل التكرار.
و كلنا ننتظر اخوتنا الفضلاء لتقديم الحل الامثل.

جزيت خيرا وكفيت شرا أستاذنا
لا يمكن أن تتكرر درجات المادة للفصل الدراسي الواحد
مثلا:
مادة التربية الإسلامية للصف الأول * للجزئي الأول.
فلا يمكن أن تتكرر درجات هذه المادة مرة أخرى لنفس الجزئي... وهكذا

بل فهمت كلام اخي سعود ولكن السؤال:
كيف يمكن إضافة البيانات إذا لم أعمل insert ؟

[attachment=28771]

لاحظ الصـــورة أرقام الفصول الدراسية SemesterID وأرقام المواد الدراسية courseID
لا يمكن بأي حال من الأحوال أن يمتحن طالب في الفصل رقم 1 في مادة رقم 1 مثلاً امتحانين وهكذا مع المواد رقم: 2.3.4.5.6.7
ولا يمكن كذلك بأي حال من الأحوال أن يمتحن طالب في الفصل رقم 2 في مادة رقم 1 مثلاً امتحانين وهكذا مع المواد رقم: 2.3.4.5.6.7
وهكذا مع بقية أرقام الفصول الدراسية

ملاحظــة: لكل فصل دراسي امتحانين جزئي ونهاية فصل

انظر التعديل غدا إن شاء الله تعالى وأخبرك النتيجة.
وبارك الله فيك وجزاك كل خير أخي الحبيب على حسن تعاونك معي.
وأسأل الله أن يجعله في ميزان حسناتك

الصفحات : 1 2