[nagoma]

اريد كود التأكد من صلاحيات المستخدم: اريد مساعدتكم في شاشة واجهة دخول المستخدمين  , لما المستخدم يكتب اسمه و وكلمة المرور يقوم الكود بالتأكد من صلاحيات المستخدم إذاكانت true تسمحله بدخول الشاشة و الإضافة او التعديل و إذا كان False لا يسمح له بعملية الإضافة و التعديل  ..ممكن حد يساعدني في هذا الكود 
ملاحظه : خدمت مشروعي ب VB.NET و الاجراءات المخزنه وهذا مثال اكتر توضيحا على خدمة مشروعي 
هذا كود لجلب البيانات للمستخدم في شاشة دخول المستخدمين : 1- كود الموجود في البروسيجير 

[PROC [dbo].[GET_VALIDITIES
(VA_name nvarchar(50@
,(VA_password nvarchar(20@
,(VA_type nvarchar(50@


)

AS
SELECT [VA_name]
           ,[VA_password]
           ,[VA_type]
           ,[VA_state]
           ,[open_system]
           ,[V_Tbcon_forAcadimy]
           ,[V_Tbpg_AcScholary]
           ,[V_Tbpg_AcSershe]
           ,[V_Tbpg_AcITdwo]
           ,[V_Tbcon_forBasic]
           ,[V_Tbpg_BsNewstu]
           ,[V_Tbpg_BsSershstu]
           ,[V_Form_Department]
           ,[V_Tbcon_forItems]
           ,[V_Tbpg_ItSetting]
           ,[V_Tbpg_ItSershe]
           ,[V_TbpgItRequisite]
           ,[V_Form_State]
           ,[V_Form_Validities1]
           ,[V_البياناتالعلميةToolStripMenuItem]
           ,[V_إيقافقيدطالبToolStripMenuItem]
           ,[V_تنزيلموادطالبToolStripMenuItem]
           ,[V_ToolStripBut_StNew]
           ,[V_إدارةالموادToolStripMenuItem]
           ,[V_إستعلامعنمادةToolStripMenuItem]
           ,[V_متطلباتالموادToolStripMenuItem]
           ,[V_ToolStripBut_Depart]
           ,[V_but_acadd]
           ,[V_but_acupdat]
           ,[V_Gropacsearch]
           ,[V_but_acdisplay]
           ,[V_but_acitdown]
           ,[V_but_bcadd]
           ,[V_but_bcupdat]
           ,[V_Grop_stsearch]
           ,[V_Grop_dpadd]
           ,[V_but_itadd]
           ,[V_but_itupdat]
           ,[V_Grop_itsearch]
           ,[V_Grop_itrequisite]



FROM [dbo].[VALIDITIES]
where VA_name=@VA_name and [VA_password ]=@VA_password and VA_type=@VA_type

2- وهذا كود موجود في الكلاس CLASS

 Function GET_VALIDITIES(ByVal VA_name As String, ByVal VA_password As String, ByVal VA_type As String) As DataTable

        Dim DT As New DataTable
        Try
            Dim DA As New SqlDataAdapter("GET_VALIDITIES  @VA_name,@VA_password,@VA_type", con)
            DA.SelectCommand.Parameters.AddWithValue("@VA_name", VA_name)
            DA.SelectCommand.Parameters.AddWithValue("@VA_password", VA_password)
            DA.SelectCommand.Parameters.AddWithValue("@VA_type", VA_type)
            DA.Fill(DT)
            Return DT
        Catch ex As Exception
            MsgBox(ex.Message)
            Return DT
        End Try
    End Fun

هذا مثال من المشروع