منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود الدخول على حسب الصلاحيات المعطاه ! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [كود] كود الدخول على حسب الصلاحيات المعطاه ! (/showthread.php?tid=13119)

الصفحات: 1 2

كود الدخول على حسب الصلاحيات المعطاه ! - kalotibi - 03-09-15

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

انا لدى قاعدة بيانات SQL  فيها جدولين جدول للمستخدين مع الصلاحيات وجدول اخر فيه حفظ البيانات

اريد عند الدخول ك صفة مستخدم له صلاحيات اعلى تفتح له خانة الطباعة  الصور تتحدث اتمني من لدية خبرة ان يفيدني

جدول اليوزرات


كود الذي يظهر به خطأ مالسبب فيه



وشكرا

RE: كود الدخول على حسب الصلاحيات المعطاه ! - أبو عمر - 03-09-15

سبب الخطأ انت تطالب بقيمة حقل لم تدرجه في جملة الاستعلام انت تستعلم عن حقلين userid , Pass
والاندكس يكون في جملة الاستعلام يبدأ من صفر 0

فالرقم 2 = 3 في dt

RE: كود الدخول على حسب الصلاحيات المعطاه ! - kalotibi - 04-09-15

مانفع غيرت الكود ارفقت لك الملف

https://drive.google.com/file/d/0BwpJvruNbS0rSTVqYVdxNVc1Sjg/view?usp=sharing

RE: كود الدخول على حسب الصلاحيات المعطاه ! - أبو عمر - 04-09-15

ثواني اشوف
If dt.Rows(0)(2) = "admin" Then
admin
اسم الحقل والا قيمة داخل حقل؟
اذا قيمة داخل حقل اخبرني عن اسم الحقل

RE: كود الدخول على حسب الصلاحيات المعطاه ! - kalotibi - 04-09-15

Admin
قيمة داخل العمود المسمى بـ Status

بحيث انه اذا كان Admin يفتح له الفورم ويفتح له خيار الطباعة

RE: كود الدخول على حسب الصلاحيات المعطاه ! - أبو عمر - 04-09-15

اجل بسيط عدل الشرط الى هذا
If dt.Rows(0)("status") = "admin" Then
جرب ورد لي خبر لان مشروعك ;ريستال ريبورت وانا اكره الكريستال الغبي
:-D

RE: كود الدخول على حسب الصلاحيات المعطاه ! - kalotibi - 04-09-15

للأسف اظغط على زر دخول ولا يتم أى إجراء مادرى وش السبب
هل فيه طريقة اخرى استخدم فيها الصلاحيات

RE: كود الدخول على حسب الصلاحيات المعطاه ! - أبو عمر - 04-09-15

لحظة

غير الشروط بهذا الكود من جملة if
If dt.Rows.Count = 0 Then
MsgBox("invalid user name or password")
End If
If dt.Rows(0)("status").ToString = "admin" Then
Form1.Show()
Form1.Tprint.Visible = True
ElseIf dt.Rows(0)("status") = "user" Then
Form1.Show()
End If
جرب الان

RE: كود الدخول على حسب الصلاحيات المعطاه ! - kalotibi - 04-09-15

انت اضفت فقط .Tostring

لكن للأسف مايحصل أى أجراء عند الضغط على زر دخول

RE: كود الدخول على حسب الصلاحيات المعطاه ! - أبو عمر - 04-09-15

طيب حط بعد
da.fill(dt)
هذي الرسالة

MsgBox(dt.Rows(0)("status").ToString)
وشوف