منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=188)
+--- الموضوع : [VB.NET] برنامج صلاحيات متقدم هدية الشهر الكريم (/showthread.php?tid=16265)



برنامج صلاحيات متقدم هدية الشهر الكريم - زكريا النابهي - 26-06-16

داله عرض الصلاحيات توضع داخل كلاس او موديل

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)


RE: برنامج صلاحيات متقدم هدية الشهر الكريم - boudyonline - 26-06-16

مشكور اخي الفاضل :

لكن من فضلك راجع ملف قاعدة البيانات


RE: برنامج صلاحيات متقدم هدية الشهر الكريم - salah mansour - 27-06-16

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


وشكراً

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

لكن اين البرنامج يا بشمهندس زكريا ؟


RE: برنامج صلاحيات متقدم هدية الشهر الكريم - salah mansour - 27-06-16

جزاك الله خيراً