+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : السلام عليك مشكل في رقم التسجيل برنامج المكتبة ساعدوني ارجوكم (/showthread.php?tid=37494)
السلام عليك مشكل في رقم التسجيل برنامج المكتبة ساعدوني ارجوكم - crazykinko - 15-01-21
السلام عليكم انشات برنامج صغير للمكتية
لكن عندي مشكل صغير
عندما اسجل طالب برقم تسجيل 100
واريد تسجيل بنفس الرقم
يتم مسح البيانات القديمة
ممكن لو سمحتم اريد ان لايحذف البيانات
![[صورة مرفقة: p_18416uh5a1.png]](https://c.top4top.io/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