منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
login - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : login (/showthread.php?tid=37251)

الصفحات: 1 2 3 4

RE: login - سلام و محبه - 26-12-20

هل تقصد اضبط الخاصيه isidentity ب yes


RE: login - BaLaDy - 26-12-20



مهم جدا ان تحذفي user_name المكرر من بيانات الجدول قبل تنفيذ الخطوه التاليه

في نفس الشاشه التي في الصوره اضغطي بالزر الايمن على user_name ثم Indexes/Keys ثم Add ثم اجعلي الخاصيه Type لتكون Unique Key

RE: login - سلام و محبه - 26-12-20

شكرا
اضفت السطر التالى ليظهر اسم المستخدم فى الفورم الاساس للبرنامج

كود :
Dim userid = (From us In DBcontext.user7s Where us.user_name = Txtuser_name.Text).ToList()(0)
كما فى الصوره

فظهر خطاء


RE: login - BaLaDy - 26-12-20

المتغير us المستخدم في كود ال linq محجوز سابقا داخل الكود
اختاري اسم متغير جديد لا يكون محجوز مثل myuser

وتحتاجي اضافه اسم المتغير user_id في نهايه هذا السطر
كود :
Dim userid = (From myuser In DBcontext.user7s Where myuser.user_name = Txtuser_name.Text).ToList()(0).user_id


RE: login - سلام و محبه - 26-12-20

كيف عرفت انها كلمه محجوزه

RE: login - BaLaDy - 26-12-20

(26-12-20, 08:02 PM)سلام و محبه كتب : كيف عرفت انها كلمه محجوزه

من مفهوم الرساله



RE: login - سلام و محبه - 26-12-20

enclosing block تعنى كلمه محجوزه اليس كذلك
لقد ارفقت البرنامج للتعديل حيث عدلت الكلمه الى myuser و لم يعمل
[attachment=26184]

RE: login - BaLaDy - 26-12-20

هذا السطر قد حجر اسم المتغير us
كود :
Dim us As New user7
وكود ال linq عندما اراد ان يحجز نفس الاسم حدثت المشكله
لم انتبه انك عدلت ردك السابق الذي فهمت منه انه لا توجد مشكله اخرى

كود :
frm.Lbl_user_id.Text = userid

لم اجد قاعدة البيانات لتجربه البرنامج

RE: login - سلام و محبه - 26-12-20

ارفقت الداتابيس

RE: login - سلام و محبه - 14-01-21

إقتباس :اقتباس من المشاركة رقم 6
السلام عليكم اخي الكريم
عندما تضع اسم المستخدم في فورم تسجيل الدخول ثم تريد اظهار هذا الاسم (اي المستخدم الحالي) في الفورم الرئيسية في label 
اكتب التالي :

كود :

كود :
 Dim frm As New MDIParentaccounting()
               frm.Txtuser_name.Text = Me.Txtuser_name.Text
               Me.Hide()
               frm.Show()



نعرف نسخة من الفورم الرئيسية frm

ثم نسند القيمة الموجودة في مربع اسم المستخدم من فورم الدخول الى اللايبل الموجود في الفورم الرئيسية
نخفي فورم الدخول
نظهر الفورم الرئيسية
طبقت نفس الكلام مع فورم Frm_banks_Checks_comercialpapers لم ينفذ حيث اضفت
كود :
Dim frm2 As New Frm_banks_Checks_comercialpapers
               frm2.Lbluser_name.Text = Me.Txtuser_name.Text