[سلام و محبه]

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

[BaLaDy]

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

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

[سلام و محبه]

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

كود :

Dim userid = (From us In DBcontext.user7s Where us.user_name = Txtuser_name.Text).ToList()(0)

كما فى الصوره

---

فظهر خطاء

[BaLaDy]

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

وتحتاجي اضافه اسم المتغير user_id في نهايه هذا السطر

كود :

Dim userid = (From myuser In DBcontext.user7s Where myuser.user_name = Txtuser_name.Text).ToList()(0).user_id

[سلام و محبه]

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

[BaLaDy]

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

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

[سلام و محبه]

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

[BaLaDy]

هذا السطر قد حجر اسم المتغير us

كود :

Dim us As New user7

---

وكود ال linq عندما اراد ان يحجز نفس الاسم حدثت المشكله

---

لم انتبه انك عدلت ردك السابق الذي فهمت منه انه لا توجد مشكله اخرى

كود :

frm.Lbl_user_id.Text = userid

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

[سلام و محبه]

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

[سلام و محبه]

إقتباس :اقتباس من المشاركة رقم 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