[بدر إشتية]

مساء الخير اذا ممكن يا شباب انا عندي مشروع تخرج ومحتاج مساعدتكم


انا بعمل برنامج تسجيل طلاب مدرسة

وفي خانتين :
1 - الرقم المتسلسل : وانا بدي اياه يكوون تلقائي بمعنى المستخدم ما بدخلو هو لحاالو رح ييجي .. وما بدي اياه يكون رقم تلقائي بقاعدة البيانات

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

مثاااال : يتسلسل كالتالي :
1 احمد
2 خالد
3 علي
4 محمد


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

1 احمد
2 علي
3 محمد

بمعنى يتم إعادة ترتيب السجلات


***************************

2 - رقم التسجيل : ايضااا اريده ان يكون متسلسل ك الرقم السابق ولكن المختلف هنا اني اريده ان يبدأ العداد من الرقم 1001 ويتسلسل مع اضافة سجل جديد
1001
1002
1003
1004
...... إلخ

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


يرجى المساااعدة ضروري جدا لانو عندي مشروع تخرج ولازم اخلصه .. وآسف عالاطاالة

وهي صووورة توضح شاشة التسجيل

[raoe-041]

اخي الكريم تفضل كود الترقيم التلقائي  ...............

PHP كود :

sql = "Select Top 1 Studentid From tblStudents Order BY Studentid DESC"
        ds = New DataSet
        da = New SqlDataAdapter(sql, conn)
        da.Fill(ds, "tblStudents")
        dv = New DataView(ds.Tables("tblStudents"))

        If dv.Count = 0 Then
            txtStudentid.Text = "1"
        Else
            txtStudentid.Text = (Me.BindingContext(dv).Current("Studentid") + 1).ToString
        End If 


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

تحياتي ..........

[الكاتب]

كود :

 If Sqlconn.State = ConnectionState.Open Then
           Sqlconn.Close()
       End If
       Sqlconn.Open()
       Dim da1 As New SqlDataAdapter(" select Top 1 ID from Fatora Order BY ID DESC   ", Sqlconn)
       Dim ds1 As New DataSet
       da1.Fill(ds1)
       TextB7.Text = ds1.Tables(0).Rows(0)(0) + 1
       Sqlconn.Close()