[moosa_alabri]

يمكن تخزين اسم المستخدم الحالي في my.settings
اذهب الى my project ثم اختر تبويبة settings
اضف متغير من نوع string وليكن اسمه current_user

في فورم ال login وبعد التحقق من اسم المستخدم وكلمة المرور وقبل اغلاق الفورم او اخفاؤه نظيف الكود التالي

my.settings.current_user=txtusername.text
my.settings.save

وعند الحاجة الى استخدام اليوزر نستدعيه بالطريقة
textbox1.text=my.settings.current_user
او اضافته مباشرة الىاي query

وتستطيع حفظ عدد لا نهائي من المتغيارات في settings فقط اطلق عنان مخيلتك

تقبل تحياتي

[سلام و محبه]

شكرا
لكن يوجد جدول user7 به كل بيانات المستخدم و به حقول(اعمده) كثيره 
هل يمكن استخدام الطريقتان معا ؟

[moosa_alabri]

تسخدم هذه الطريقة لتخزين المسمى مؤقتا او اي متغير اخر لحين اغلاق البرنامج وذلك لتجنب جلب البيانات كل مرة من القاعدة

[سلام و محبه]

هل بهذه الطريقه (seting) يمكن اظهار اسم المستخدم فى 100 فورم و يكون الكود فى نفس الزر

إقتباس :وعند الحاجة الى استخدام اليوزر نستدعيه بالطريقة

textbox1.text=my.settings.current_user

هل بهذه الطريقه (seting) يمكن اظهار اسم المستخدم فى 100 فورم و يكون الكود فى نفس الزر

[moosa_alabri]

نعم
scope : user

[سلام و محبه]

الكد التالى لجلب اسم المستخدم من جدول user7 و رقم المستخدم user_id

كود :

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
       Dim DBcontext As New db_accountDataContext
       Dim us As New user7
       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then

               Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text


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

               frm.Show()
               Me.Hide()




           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Question)
       End If


   End Sub

كود :

Function ValidateLogin(ByVal username As String, ByVal password As String) As Boolean
       Dim DBcontext As New db_accountDataContext()
       Dim usr = DBcontext.user7s.SingleOrDefault(Function(u) u.user_name = username AndAlso u.user_password = password)
       Return (usr IsNot Nothing)
   End Function

يعمل بشكل جيد لكن عند اختيار مستخدم اخر يحتفظ بالقيمه السابقه اريده ان يختار المستخدم الجديد

[moosa_alabri]

تعديل كود زر الدخول ليكون كالتالي:

PHP كود :

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
       Dim DBcontext As New db_accountDataContext
       Dim us As New user7
       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then

               Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text


               Dim userid = (From myuser In DBcontext.user7s Where myuser.user_name = Txtuser_name.Text).ToList()(0).user_id
               frm.Lbl_user_id.Text = userid
                   my.settings.current_user=me.Txtuser_name.text  
                   my.settings.save
               frm.Show()
               Me.Hide()




           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Question)
       End If


   End Sub 


[سلام و محبه]

شكرا
يظهر خط ازرق تحت

كود :

My.Settings.current_user = Me.Txtuser_name.Text
       

ضيفت متغير currrent_user كان هو الحل 

[سلام و محبه]

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

---

ملف ال database حجمه كبير لا يستطيع الموقع رفعه

[moosa_alabri]

في حدث تحميل فورم Frmbank
اضف السطر التالي

Cmb_bank_user_id.text=my.settings.current_user