[crazykinko]

السلام عليكم انشات برنامج صغير للمكتية 

لكن عندي مشكل صغير 

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

واريد تسجيل بنفس الرقم 

يتم مسح البيانات القديمة 

ممكن لو سمحتم اريد ان لايحذف البيانات 

 

تم ربط ققاعدة البيانات Firebasse

كود :

Private Sub InsertBtn_Click(sender As Object, e As EventArgs) Handles InsertBtn.Click
       Dim std As New Student() With
           {
           .FullName = nameTbox.Text,
           .RollNo = rollTbox.Text,
           .Grade = gradeTbox.Text,
           .Section = SecTbox.Text,
           .TBID = TBID.Text,
       .Spétbox = Spétbox.Text,
       .Année = Année.Text,
       .Catégorie = Catégorietbox.Text,
               .DateTimePicker1 = DateTimePicker1.Text,
       .obser = OBSER.Text
           }
       Dim setter = client.Set("BibCentral/" + rollTbox.Text, std)

       MessageBox.Show("data stored successfully.")
   End Sub

كود :

Private Sub SelectBtn_Click(sender As Object, e As EventArgs) Handles SelectBtn.Click
       Dim res = client.Get("BibCentral/" + rollTbox.Text)
       Dim std As New Student()
       std = res.ResultAs(Of Student)()
       TBID.Text = std.TBID
       nameTbox.Text = std.FullName
       SecTbox.Text = std.Section
       gradeTbox.Text = std.Grade
       rollTbox.Text = std.RollNo
       Spétbox.Text = std.Spétbox
       Année.Text = std.Année
       Catégorietbox.Text = std.Catégorie
       DateTimePicker1.Text = std.DateTimePicker1
       OBSER.Text = std.obser
   End Sub

كود :

Private Sub UpdateBtn_Click(sender As Object, e As EventArgs) Handles UpdateBtn.Click
       Dim std As New Student() With
           {
               .TBID = TBID.Text,
           .FullName = nameTbox.Text,
           .RollNo = rollTbox.Text,
           .Grade = gradeTbox.Text,
           .Section = SecTbox.Text,
       .Spétbox = Spétbox.Text,
       .Année = Année.Text,
      .Catégorie = Catégorietbox.Text,
               .DateTimePicker1 = DateTimePicker1.Text,
       .obser = OBSER.Text
           }
       Dim setter = client.Update("BibCentral/" + rollTbox.Text, std)
       MessageBox.Show("data updated successfully.")
   End Sub

كود :

Private Sub DeleteBtn_Click(sender As Object, e As EventArgs) Handles DeleteBtn.Click
       Dim res = client.Delete("BibCentral/" + rollTbox.Text)
       MessageBox.Show("data deleted successfully.")

   End Sub