تقييم الموضوع :
  • 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 بايت / التحميلات : 232)
الرد }}}}
تم الشكر بواسطة: ابو ليلى , الكاتب , الكاتب
#2
مشكور اخي الفاضل :

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


وشكراً

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] عمل برنامج أختبار بقواعد بيانات أكسس + الأسئلة عشوائية Easy4ever 22 6,026 16-10-17, 01:06 AM
آخر رد: moh2013
  [مثال] برنامج اسئلة عن الفيجوال بيسك malzwy2003 1 84 01-10-17, 11:31 PM
آخر رد: سعود
  برنامج نظام التاجير محمود صالح 1 157 01-10-17, 12:35 PM
آخر رد: ابوثامر الحربي
  [مشروع] برنامج Disks Catalog لحفظ فهارس الأقراص و البحث في مجموعة. Mohamad Anan 0 97 28-09-17, 08:52 AM
آخر رد: Mohamad Anan
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 4 565 18-09-17, 12:48 PM
آخر رد: Mina Botros
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 57 78,183 15-09-17, 05:39 AM
آخر رد: SUB NEW
  [مثال] برنامج للتذكير بالمواعيد [ Access + Vb.net ] ( منقول ) Omar Mekkawy 17 8,115 21-08-17, 06:41 PM
آخر رد: محمد_ع
  [مشروع] برنامج يساعد على التحفيظ سعود 11 1,674 17-08-17, 08:17 PM
آخر رد: سعود
  برنامج تغريدات واذكار سعود 10 2,954 17-08-17, 08:16 PM
آخر رد: سعود
Heart [مشروع] برنامج ذكر(اذكار) سعود 18 4,370 17-08-17, 08:15 PM
آخر رد: سعود

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


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