+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : مثال عن صلاحيات المستخدمين (/showthread.php?tid=35073)
مثال عن صلاحيات المستخدمين - ابراهيم ايبو - 01-06-20
السلام عليكم ورحمة الله وبركاته
مثال عن الصلاحيات مع قاعدة بيانات SQLSERVER مرفقة مع المثال
اسم المستخدم (sa)
كلمة المرور (123)
أتمنى ان يجيب هذا المثال عن تساؤلات بعض الاخوة الأعضاء
-يجب عمل اتاش لقاعدة البيانات وتغيير اسم السيرفر في جملة الاتصال الموجودة في الكلاس Master
RE: مثال عن صلاحيات المستخدمين - SAM2727 - 04-06-20
اكيد انة جميل لكن للاسف فى شى مش عارف اعملة sqldata file
RE: مثال عن صلاحيات المستخدمين - essawq - 23-06-20
اشكرك اخي ابراهيم لمتابعتك
زبط معي تحويل الكود السي شارب
وان شاء الله ساطرحة هنا لمن يريد نفس الطريقة
شكرا لك
RE: مثال عن صلاحيات المستخدمين - saqaf - 01-03-21
(01-06-20, 06:42 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاتهانا عامل المشروع على الفيجوال بيسك2012 اكسبيرس و قاعدة البيانات sql server 2012
مثال عن الصلاحيات مع قاعدة بيانات SQLSERVER مرفقة مع المثال
اسم المستخدم (sa)
كلمة المرور (123)
أتمنى ان يجيب هذا المثال عن تساؤلات بعض الاخوة الأعضاء
-يجب عمل اتاش لقاعدة البيانات وتغيير اسم السيرفر في جملة الاتصال الموجودة في الكلاس Master
ومثال الصلاحيات الذي دليتني عليه نزلته ولم يشتغل عندي كلهم لا البرنامج ولا قاعدة البيانات
RE: مثال عن صلاحيات المستخدمين - ابراهيم ايبو - 01-03-21
السلام عليكم
اخي المثال شغال ومجرب ولم يشتكي منه احد من قبل
لااذكر نسخة الفريم وورك التي عملت عليها يمكنك معرفتها من خلال البرنامج
الشيئ الاخر ربما نسخة ال Sqlserver التي عندك لم تستطيع عمل اتاش للقاعدة
لاأعرف ربما لديك مشكلة في مكان ما
RE: مثال عن صلاحيات المستخدمين - saqaf - 24-03-21
(01-03-21, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم
اخي المثال شغال ومجرب ولم يشتكي منه احد من قبل
لااذكر نسخة الفريم وورك التي عملت عليها يمكنك معرفتها من خلال البرنامج
الشيئ الاخر ربما نسخة ال Sqlserver التي عندك لم تستطيع عمل اتاش للقاعدة
لاأعرف ربما لديك مشكلة في مكان ما
لسلام عليكم اخي الكريم الكود التالي يقرا لي فقط من الداتا بيز بيانات مدير النظام فقط وهي كالتالي
1- manager_year
2- manager_name
3-manager_password
4-manager_system
حيث انه حالياً فقط يسجل الدخول الى الماين فورم الخاص بادارة النظام فقط .
وما اريده انا هو اني اجعله يقرا لي ايضا بيانات مستخدم القبض من الداتا بيز وهي كالتالي
1-catch_year
2-catch_name
3-catch_password
4-catch_system
ويقرا ايضا بيانات مستخدم الصرف من الداتا بيز وهي كالتالي:
1-exchange_year
2-exchange_name
3-exchange_password
4-exchange_system
ادوات فورم الوجن هي كالتالي:
1- TextBox1
2- TextBox2
3- TextBox3
4- ComboBox1
الكود الموجود عندي الذي يقرا بيانات مدير النظام هو كالتالي :
Dim dt As New DataTable()
Dim da As New SqlClient.SqlDataAdapter
If TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.TabIndex = -1 Then
MsgBox("من فضلك املا كل الحقول")
Exit Sub
Else
dt.Clear()
da = New SqlClient.SqlDataAdapter("Select * from users Where manager_year = N'" & TextBox1.Text.Trim() & "' and manager_name = N'" & TextBox2.Text.Trim() & "' and manager_password = N'" & TextBox3.Text.Trim() & "' and manager_system = N'" & ComboBox1.Text.Trim() & "'", cn)
da.Fill(dt)
If dt.Rows.Count > 0 Then
If dt.Rows(0).Item("manager_system") = "ادارة النظام" Then
managment_system.Show()
Me.Hide()
ElseIf dt.Rows(0).Item("catch_system") = "نظام القبض" Then
main_khabt.Show()
Me.Hide()
ElseIf dt.Rows(0).Item("exchange_system") = "نظام الصرف" Then
main_sarf.Show()
Me.Hide()
End If
Else
MsgBox("البيانات خاطئة يرجى المحاولة ثانية")
End If
End If
ارجو منكم مساعدتي لجعل الكود يقرا بيانات الثلاثه المستخدمين والذين هم
- مدير النظام
-مشتخدم القبض
-مستخدم الصرف
ارجوك ساعدني بقى معي خطوتين لتسليم نظامي وينالك الاجر في هذا الشهر باذن الله
RE: مثال عن صلاحيات المستخدمين - ابراهيم ايبو - 15-06-21
السلام عليكم ورحمة الله وبركاته
نزولا عند رغبة بعض الاخوة الاعضاء
تم عمل نفس مثال الصلاحيات مع قاعدة بيانات Access
اسماء المستخدمين وكلمات المرور
sa 123
Musafer 123
ibrahim 123
HA 123