FreeCodeLesson

١. تعريف الإجراء: Private Sub frm_Register_New_Student_Load(...) : يتم استدعاء هذا الإجراء عندما يتم تحميل النموذج ( Form ) المسمى frm_Register_New_Student . ٢. تحديد السنة الدراسية الأولى: Dim First_Year As Integer = Date.Now.Year - 1 : يتم تعيين First_Year إلى السنة الحالية ناقص واحد. على سبيل المثال، إذا كانت السنة الحالية ٢٠٢٤، فإن First_Year ستصبح ٢٠٢٣. ٣. حلقة لإضافة السنوات الدراسية: For y As Integer = 0 To 1 : تبدأ حلقة تكرارية (For loop) من 0 إلى 1، مما يعني أنها ستنفذ مرتين. في كل تكرار: cbox_AcademicYear.Items.Add(First_Year & "-" & First_Year + 1) : يتم إضافة نص إلى ComboBox يسمى cbox_AcademicYear . النص يكون بالشكل "السنة - السنة التالية". على سبيل المثال، إذا كانت First_Year ٢٠٢٣، فسيتم إضافة "٢٠٢٣-٢٠٢٤". First_Year = First_Year + 1 : يتم زيادة First_Year بسنة واحدة للانتقال إلى السنة التالية. ٤. تحديد العنصر المحدد في ComboBox: cbox_AcademicYear.SelectedIndex = 0 : بعد إضافة العناصر، يتم تعيين العنصر المحدد في cbox_AcademicYear ...

 الكود المستخدم داخل  Private Sub frm_Register_New_Student_Load ١. تعريف الإجراء: Private Sub frm_Register_New_Student_Load(...) : هذا الإجراء يتم استدعاؤه عندما يتم تحميل النموذج ( Form ) المسمى frm_Register_New_Student . ٢. إنشاء اتصال بقاعدة البيانات: Dim con As New SqlConnection(conString) : يتم إنشاء كائن جديد من SqlConnection باستخدام سلسلة الاتصال conString . ٣.إنشاء DataTable: Dim dtfee As New DataTable : يتم إنشاء كائن جديد من نوع DataTable لتخزين البيانات المستردة. ٤. مسح محتويات dtfee : () : dtfee.Clear  يتم مسح أي بيانات قد تكون موجودة سابقًا في dtfee . ٥. فتح الاتصال: con.Open() : يتم فتح الاتصال  بقاعدة البيانات. ٦. استخدام الأمر SqlCommand: Using cmd As New SqlCommand(...) : يتم إنشاء كائن جديد من SqlCommand لتنفيذ استعلام SQL. الاستعلام يقوم باختيار عمود study_fee من جدول tbl_stages ، حيث تكون الحالة status "متاحة" ( Available ) والمرحلة ( stage ) هي ما تم تحديده في cbox_stage . ٧. إضافة المعلمات: cmd.Parameters.AddWithValue("@status", "Ava...

 ١. تعريف الإجراء : Private Sub cbox_group_SelectedIndexChanged(...) : هذا هو إجراء خاص (Sub) يتم تنفيذه عندما يتغير العنصر المحدد في ComboBox يسمى cbox_group . sender As Object : يمثل العنصر الذي تم تغيير اختياره (في هذه الحالة، cbox_group ). e As EventArgs : يمثل معلومات الحدث، وهي قياسية في أحداث .NET. ٢. التعامل مع الحدث : Handles cbox_group.SelectedIndexChanged : تشير إلى أن هذا الإجراء سيتم استدعاؤه عند تغيير الفهرس المحدد في cbox_group . ٣. التحقق من الفهرس المحدد : If cbox_group.SelectedIndex = 0 Then : يتحقق مما إذا كان الفهرس المحدد في cbox_group هو 0 (أي الخيار الأول في القائمة). إذا كان صحيحًا، يتم تنفيذ الكود داخل هذا الشرط. ٤. تحديث cbox_group_id : cbox_group_id.Text = "" : إذا كان الفهرس 0، يتم مسح النص في cbox_group_id . Else : إذا كان الفهرس المحدد ليس 0، يتم تنفيذ الكود التالي. cbox_group_id.Text = cbox_group.SelectedIndex : يتم تعيين نص cbox_group_id إلى قيمة الفهرس المحدد في cbox_group . خلاصة : هذا الكود يقوم بتحديث عنصر ComboBox آخر يسمى cbox_group_i...