15-01-21, 04:55 PM
(آخر تعديل لهذه المشاركة : 15-01-21, 04:56 PM {2} بواسطة 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