[abdulla2]

وعليك السلام ..
شكراً للرد ..
=========
هذا كود الإضافة مع الإستدعاء ...

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

If txtName.Text = "" Then
MsgBox("قم بإدخال الإسم لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
Exit Sub
End If

If txtShara.Text = "" Then
MsgBox("قم بكتابة رقم الشارة لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
Exit Sub
End If
'---------------------------------
For I = 0 To dgv.Rows.Count - 1
If txtShara.Text = dgv.Rows(I).Cells(2).Value.ToString Then
MsgBox("رقم الشارة موجود مسبقا", MsgBoxStyle.Information, "خطأ")
txtShara.SelectAll()
txtShara.Focus()
Exit Sub
End If
Next

'-----------------------------------------------------------------

insert_User(txtid.Text, txtName.Text, txtShara.Text)
FillDGV()
dgv.DataSource = dt1
MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.Information, "الإضافة")
AllClear()
End Sub

=========================================================
وهذا كود التعديل مع الإستدعاء


For I = 0 To dgv.Rows.Count - 1
If txtShara.Text = dgv.Rows(I).Cells(2).Value.ToString Then
MsgBox("رقم الشارة موجود مسبقا", MsgBoxStyle.Information, "خطأ")
txtShara.SelectAll()
txtShara.Focus()
Exit Sub
End If
Next

Public Sub update_User(ByVal FName As String, ByVal Shara As String, ByVal id As Integer)
btnUpdate.Enabled = False
btnDelete.Enabled = False
btnAdd.Enabled = True
'-----------------------------------------------------------
Dim cmd As New OleDbCommand("update tb1 set FName=@FName,Shara=@Shara where id=@id", con)

cmd.Parameters.Add("@FName", OleDbType.VarChar).Value = FName
cmd.Parameters.Add("@Shara", OleDbType.VarChar).Value = Shara
cmd.Parameters.Add("@id", OleDbType.Integer).Value = id
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub



insert_User(txtid.Text, txtName.Text, txtShara.Text)
FillDGV()
dgv.DataSource = dt1
MsgBox("تمت عملية التعديل بنجاح", MsgBoxStyle.Information, "التعديل")
AllClear()


========================
وهذا كود الحذف

Public Sub delete_User(ByVal id As Integer)

btnUpdate.Enabled = False
btnDelete.Enabled = False
btnAdd.Enabled = True

'-------------------------------------------------------------------------------------------

If txtid.Text = "" Then
MsgBox(" !!..حدد البيانات المطلوب حذفها", MsgBoxStyle.Information, "تنبيه")
Exit Sub
End If

Try

Dim cmd As New OleDbCommand("delete From tb1 where id=@id", con)
cmd.Parameters.Add("@id", OleDbType.Integer).Value = id
con.Open()
cmd.ExecuteNonQuery()
con.Close()
FillDGV()

Catch ex As Exception
If con.State = ConnectionState.Open Then con.Close()
MsgBox(ex.Message)
End Try

End Sub


الاستدعاء

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

If MsgBox(" !!.. هل أنت متأكد من حذف بيانات هذا الموظف ", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then
If MsgBox(" ?.. هناك سجلات مرتبطة بهذا الموظف سيتم حذفها بالكامل للإستمرار إضغط نعم ", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then
delete_User(txtid.Text)
FillDGV()
dgv.DataSource = dt1
AllClear()
End If
End If

End Sub