تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليك مشكل في رقم التسجيل برنامج المكتبة ساعدوني ارجوكم
#1
السلام عليكم انشات برنامج صغير للمكتية 
لكن عندي مشكل صغير 
عندما اسجل  طالب برقم تسجيل 100
واريد تسجيل بنفس الرقم 
يتم مسح البيانات القديمة 

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

[صورة مرفقة: p_18416uh5a1.png]


تم ربط ققاعدة البيانات 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تشغيل برنامج بالفجول بيسك عن طريق شبكة الواي فاي معتز حسن 0 71 03-03-21, 02:30 AM
آخر رد: معتز حسن
  [سؤال] مساعدة برنامج الصندوق المالي saqaf 3 237 26-02-21, 11:58 PM
آخر رد: ابراهيم ايبو
  السلام عليكم سؤال في التحقق من المتغييرات اليوم السابع 3 189 19-02-21, 11:38 PM
آخر رد: اليوم السابع
  [سؤال] السلام عليكم ورحمه الله وبركاته حسن الجلب 1 99 17-02-21, 09:41 AM
آخر رد: alfaiz678
  [vb6.0] السلام عليكم husham.aj 0 90 16-02-21, 02:01 PM
آخر رد: husham.aj
  السلام عليكم اخوكم واقع في مشكله بسبب متغير ومحتاج منقشتكم اليوم السابع 6 256 07-02-21, 03:25 AM
آخر رد: اليوم السابع
  [سؤال] السلام عليكم ورحمه الله وبركاته حسن الجلب 3 191 07-02-21, 02:42 AM
آخر رد: ابراهيم ايبو
  [VB.NET] مشكل مع VLC paveldida 1 105 06-02-21, 12:46 AM
آخر رد: ميدو الفنان
  [سؤال] السلام عليكم ورحمه الله وبركاته حسن الجلب 1 163 30-01-21, 11:56 AM
آخر رد: سعود
  [سؤال] السلام عليكم ورحمه الله وبركاته حسن الجلب 2 156 29-01-21, 07:03 PM
آخر رد: حسن الجلب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم