تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برنامج صلاحيات متقدم هدية الشهر الكريم
#1
داله عرض الصلاحيات توضع داخل كلاس او موديل

Public Sub Permission(ByVal Form As Form, ByVal FormName As String)

       Dim da As New SqlDataAdapter("select use_no,frm_name,use_Add,use_Modify,use_Del,use_Ser,use_show from users where use_no=" & UserId, con)
       Dim ds As New DataSet
       da.Fill(ds, "users")
       Dim dt As DataTable = ds.Tables("users")
       Dim NameFrm As String
       For Each btnname As DataRow In dt.Rows

           NameFrm = btnname("frm_name")
           If NameFrm = Trim(CStr(FormName.ToString)) Then

               If btnname("use_show") = False Then

                   MessageBox.Show("!!! عفواً لا تمتلك صلاحيات الدخول لشاشة " & FormName.ToString, "", _
                   MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, _
                   MessageBoxOptions.RightAlign) : Form.Close() : frm_main.Show() : frm_main.Timer5.Start() _
                       : frm_main.Timer6.Start() : Exit Sub

               Else

                   Form.Controls.Item("btn_new").Enabled = btnname("use_Add")
                   Form.Controls.Item("btn_modify").Enabled = btnname("use_Modify")
                   Form.Controls.Item("btn_delete").Enabled = btnname("use_Del")
                   Form.Controls.Item("btn_search").Enabled = btnname("use_Ser")

               End If

           End If
       Next

   End Sub


كود الاستدعاء اثناء الإقلاع
في الحدث Load في كل النوافذ
Permission(Me, Me.Text)


الملفات المرفقة
.rar   script.rar (الحجم : 946 بايت / التحميلات : 138)
الرد }}}}
تم الشكر بواسطة: ابو ليلى , الكاتب , الكاتب
#2
مشكور اخي الفاضل :

لكن من فضلك راجع ملف قاعدة البيانات
الرد }}}}
تم الشكر بواسطة:
#3
(26-06-16, 06:03 AM)زكريا النابهي كتب : برنامج صغير لكيفية استخدام الصلاحيات في المشاريع التجارية اول برنامج متقدم ومفيد في هذا المنتدى لكيفية عمل الصلاحيات بإستخدام داله واحدة لعرض الصلاحيات وشاشة لحفظ الصلاحيات والمستخدمين ارجو ان ينال اعجابكم


وشكراً

المهندس / زكريا النابهي

لكن اين البرنامج يا بشمهندس زكريا ؟
الرد }}}}
تم الشكر بواسطة:
#4
جزاك الله خيراً
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] برنامج الجرس المدرسي الناطق سيد درويش 7 965 منذ 10 ساعة مضت
آخر رد: ridha69
Heart [مشروع] برنامج ذكر(اذكار) سعود 14 3,342 منذ 10 ساعة مضت
آخر رد: ridha69
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 54 70,560 12-01-17, 06:35 AM
آخر رد: mahmoudsaleh
  [مثال] برنامج للتذكير بالمواعيد [ Access + Vb.net ] ( منقول ) Omar Mekkawy 16 6,560 09-01-17, 08:39 PM
آخر رد: azhajj
  برنامج تسجيل و تسجيل دخول رائع ahmedelkady 6 2,548 08-01-17, 06:57 PM
آخر رد: ابن دوعن
Star [مشروع] نظام إدارة جمعيات تحفيظ القرآن الكريم سيد درويش 7 523 08-01-17, 04:52 PM
آخر رد: maestrovb
  [مشروع] برنامج لتسريع أنشاء المسج بوكس بكل مرونه ابو نجلاء 5 298 03-01-17, 01:25 PM
آخر رد: سلامه محمد11
  [مشروع] برنامج الناشر التلقائي للفيس بوك قروبات + صفحات + اضافات اخرى Basil Abdallah 7 179 01-01-17, 11:42 AM
آخر رد: Basil Abdallah
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 0 107 25-12-16, 07:14 PM
آخر رد: ابو ليلى
  [مشروع] برنامج مواقيت الصلاة(المؤذن) mohamed haroon 10 1,782 21-12-16, 06:01 PM
آخر رد: mohamed haroon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم