عندي بمشروعي زر اضافة وحذف وتعديل
كيف بقدر ماحد يلعب بقاعدة البيانات عندي عن طريقة اضافة او حذف او تعديل على المعلومات الموجودة بها
اي يكون له صلاحية الاطلاع على البيانات للعملاء وليس له التلاعب بها او العبث عن طريق اضافة او عديل او حذف
طبعا اقصد من البرنامج لان قاعدة البيانات التابعة للبرنامج محمية بكلمة مرور
شكرا
السّلام عليكم و رحمة الله و بركاته
إضافة لما تكرّم به أستاذنا الكريم " عاصم شاهين " بارك الله فيه و في أستاذنا الغائب عن عيوننا .. الحاضر بقلوبنا " سعود "
باعتبار أنّ العبارة : 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