[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إضافة لما تكرّم به أستاذنا الكريم " عاصم شاهين " بارك الله فيه و في أستاذنا الغائب عن عيوننا .. الحاضر بقلوبنا " سعود "

باعتبار أنّ العبارة : Name_Users .. متغيّر عام لجلب اسم المستخدم

باعتبار أنّ مدير النظام يأخذ دومًا السجل الأول بجدول المستخدمين

يمكن تكرار نفس الكود مع جميع الأزرار التي تراها ضرورية لطلبك

تحياتي

كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Using can_edit As New SqlCommand("SELECT COUNT(USERS_Id) From TBL_USERS Where USERS_Name='" & Name_Users & "' And USERS_Id=1", Conne_2019)
           If Conne_2019.State = ConnectionState.Closed Then
               Conne_2019.Open()
           End If
           If can_edit.ExecuteScalar > 1 Then
               MessageBox.Show("عفواً  ..  غير مصرّح لك بعمليات تعديل البيانات لتنفيذ هذا الأمر  !!؟؟", "تصريح التعديل", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
               Exit Sub
           Else
               If Me.TxtItemId.Text = vbNullString Then
                   MessageBox.Show("عفواً  ..  الرّجاء إختيار تسمية الصنف  ..   لا توجد بيانات لتنفيذ أمر التّعديل  !!؟؟", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                   Conne_2019.Close()
               ElseIf MessageBox.Show("  هل أنت متأكّد من أنّك تريد تعديل بيانات هذا الصنف :  " & Me.TxtItemName.Text & "  ? ", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) = Windows.Forms.DialogResult.Yes Then
                   Call Modifier_Cancel_Button()
                   Me.TxtItemId.Enabled = False
               End If
           End If
       End Using
   End Sub