16-09-18, 05:37 PM
اريد كود التأكد من صلاحيات المستخدم: اريد مساعدتكم في شاشة واجهة دخول المستخدمين , لما المستخدم يكتب اسمه و وكلمة المرور يقوم الكود بالتأكد من صلاحيات المستخدم إذاكانت true تسمحله بدخول الشاشة و الإضافة او التعديل و إذا كان False لا يسمح له بعملية الإضافة و التعديل ..ممكن حد يساعدني في هذا الكود
ملاحظه : خدمت مشروعي ب VB.NET و الاجراءات المخزنه وهذا مثال اكتر توضيحا على خدمة مشروعي
هذا كود لجلب البيانات للمستخدم في شاشة دخول المستخدمين : 1- كود الموجود في البروسيجير
ملاحظه : خدمت مشروعي ب 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
(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
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
هذا مثال من المشروع