[مبرمج أوتار]

السلام عليكم ورحمة الله وبركاته

كيف الحال ..

لدي مشكله:-

هي عدم وجود شرح مفصل الاضافة وتعديل بيانات المستخدمين واعطاء الصلاحيات للمستخدمين في الفيجوال بيسك مع قاعده البيانات sql server

اتمنى الحصول على شرح او مثال من الاخوان ...

اتمنى للجميع التوفيق ....


[COLOR="#FF0000"]

شكر لمن ساهم في حل المشكله ...

هذا الملف بعد حل المشكله لفائده

من هنا التحميل .

[/COLOR]

[a7med7m]

1- جدول للموظفين
2- جدول للشاشات(كود الشاشة - اسم الشاشة)
3-جدول للصلاحيات(كود الموظف-كود الشاشة- الحالة)
4- شاشة تحديد الصلاحيات بعد اختيار الموظف من جدول الموظفين تظهر الشاشات من جدول الشاشات ووضع تشك للاختيار مع الحفظ (ياخذ كود الموظف-كود الشاشة-الحالة ام y or n )
5- في شاشة الدخول بعد التأكد من اسم المستخدم وكلمة المرور يتم اخذ كود الموظف وملئ داتا سيت واظهار االشاشة ام true or false

[مبرمج أوتار]

a7med7m كتب :1- جدول للموظفين
2- جدول للشاشات(كود الشاشة - اسم الشاشة)
3-جدول للصلاحيات(كود الموظف-كود الشاشة- الحالة)
4- شاشة تحديد الصلاحيات بعد اختيار الموظف من جدول الموظفين تظهر الشاشات من جدول الشاشات ووضع تشك للاختيار مع الحفظ (ياخذ كود الموظف-كود الشاشة-الحالة ام y or n )
5- في شاشة الدخول بعد التأكد من اسم المستخدم وكلمة المرور يتم اخذ كود الموظف وملئ داتا سيت واظهار االشاشة ام true or false

الله يجزك خير طيب ممكن تعمل لى مثل بسيط لاني ماني متمكن من sql server

انتظر الرد منك يالغالي

[مبرمج أوتار]

السلام عليكم

تم الحمد الله انشاء مثل لبرنامج لكن وجهتني بعض الأخطا

ارفقت لكم المثال انتمى حل المشكله في عدم اضافة يوزر جديد و اعطاء صلاحيات

مسار القاعده : -
her\her\bin\Debug
في انتظر الرد من الاخوان

ملاحظة * المشروع كان مربوط بقاعده اكسس تم تحويله الي sql

[مبرمج أوتار]

ممكن مساعده في حل المشكله !!!!

[Easy4ever]

حاولت أخي أجرب البرنامج لاكن رفض تشغيله لا يريد الأتصال بالقاعدة البيانات :confused:

المهم بحثت في كود الإضافة الطريقة التي استخدمتها أظن انها فيها خطأ ما انت أستبدل هذا الكود

PHP كود :

Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values (?,?,?,?,?,?,?)", con)

cmd.Parameters.AddWithValue("@username", SqlDbType.Text).Value = Trim(TextBox1.Text)

cmd.Parameters.AddWithValue("@userpass", SqlDbType.Text).Value = Trim(TextBox2.Text)

cmd.Parameters.AddWithValue("@allow_insert", SqlDbType.Bit).Value = CheckBox2.Checked

cmd.Parameters.AddWithValue("@allow_edit", SqlDbType.Bit).Value = CheckBox3.Checked

cmd.Parameters.AddWithValue("@allow_delete", SqlDbType.Bit).Value = CheckBox4.Checked

cmd.Parameters.AddWithValue("@allow_select", SqlDbType.Bit).Value = CheckBox5.Checked

cmd.Parameters.AddWithValue("@allow_add_users", SqlDbType.Bit).Value = CheckBox6.Checked

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information) 


بهذا الكود

PHP كود :

Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values ('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "', " & CheckBox2.Checked & "', " & CheckBox3.Checked & "', " & CheckBox4.Checked & "', " & CheckBox5.Checked & "', " & CheckBox6.Checked & ")", con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information) 


وإعطنا النتيجة

[سعود]

ايضا حاول تبتعد عن الاسماء المحجوزة واظن تسمية الجدول بـ "users" محجوز.

[mr_mgm]

سعود كتب :ايضا حاول تبتعد عن الاسماء المحجوزة واظن تسمية الجدول بـ "users" محجوز.

[COLOR="#000080"]
users ليست من الكلمات المحجوزه ،، اما user كلمه محجوزه ..[/COLOR]

[مبرمج أوتار]

اشكرك يا اخى الغالي

تم استبدال الكود وظهر الرساله التالية ...



صورة الثانية

[سعود]

يوجد مثال لاكسس