منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] قفل بوتن بكلمة سر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] قفل بوتن بكلمة سر (/showthread.php?tid=32235)

قفل بوتن بكلمة سر - EMADSSS - 24-11-19

عندي بمشروعي زر اضافة وحذف وتعديل
كيف بقدر ماحد يلعب بقاعدة البيانات عندي عن طريقة اضافة او حذف او تعديل على المعلومات الموجودة بها
اي يكون له صلاحية الاطلاع على البيانات للعملاء وليس له التلاعب بها او العبث عن طريق اضافة او عديل او حذف
طبعا اقصد من البرنامج لان قاعدة البيانات التابعة للبرنامج محمية بكلمة مرور
شكرا

RE: قفل بوتن بكلمة سر - asemshahen5 - 24-11-19

ابسط مثال للتصاريح

RE: قفل بوتن بكلمة سر - عبد العزيز البسكري - 25-11-19

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



RE: قفل بوتن بكلمة سر - EMADSSS - 25-11-19

شكرا اخي الكريم