14-11-24, 02:11 PM
الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته،،،
لدى هذا الكود لتحديد صلاحيات المستخدمين وقد وضعته في Module وهو يأخذ البيانات من جدول بقاعدة البيانات
وقد أضقت بعض المسمات لتحديد المسئولية مثل ( مبرمج - مسئول - مستعلم )
وأريد إعطاء المسئول الصلاحيات كاملة من بينها حذف وتعديل وإضافة مستخدمين ولكن لا أريده أن يعدل على بياناتي أنا كمبرمج بحيث لايستطيع حذفي ولا تعديل بياناتي
فهل من طريقة
جربت أن أجعل السطر الذي فيه بياناتي للقراءة فقط ولكن يفلح الأمر حيث لم تفعل هذه الخاصية
مع العلم بأن الفورم الخاص بالمستخدمين هو User_Form والفورم بالكود أعلاه هو للفورم الرئيسي Main_Form
السلام عليكم ورحمة الله وبركاته،،،
لدى هذا الكود لتحديد صلاحيات المستخدمين وقد وضعته في Module وهو يأخذ البيانات من جدول بقاعدة البيانات
كود :
Public Sub Userlogin(ByVal TextBox1 As String, ByVal TextBox2 As String)
Try
con.Open()
da = New OleDbDataAdapter("Select * From User_info where User_Name = '" & TextBox1 & "' and User_Pass = '" & TextBox2 & "'", con)
dt = New DataTable
da.Fill(dt)
Dim maxrow As Integer = dt.Rows.Count
Dim type As String = dt.Rows(0).Item("User_Salahyat")
If maxrow > 0 Then
If type = "Admin" Then
With Main_Form
.Button1.Visible = True
.Button2.Visible = True
.Button3.Visible = True
.Button4.Visible = True
.Button5.Visible = True
.Button7.Visible = True
.Button8.Visible = True
.Button10.Text = dt.Rows(0).Item("User_Name") '& "::" & type
.Button11.Text = type
End With
MsgBox("لقد دخلت بصلاحيات " & type, , "الصلاحيات")
End Ifوقد أضقت بعض المسمات لتحديد المسئولية مثل ( مبرمج - مسئول - مستعلم )
وأريد إعطاء المسئول الصلاحيات كاملة من بينها حذف وتعديل وإضافة مستخدمين ولكن لا أريده أن يعدل على بياناتي أنا كمبرمج بحيث لايستطيع حذفي ولا تعديل بياناتي
فهل من طريقة
جربت أن أجعل السطر الذي فيه بياناتي للقراءة فقط ولكن يفلح الأمر حيث لم تفعل هذه الخاصية
مع العلم بأن الفورم الخاص بالمستخدمين هو User_Form والفورم بالكود أعلاه هو للفورم الرئيسي Main_Form