منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

يمكن تخزين اسم المستخدم الحالي في 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 به كل بيانات المستخدم و به حقول(اعمده) كثيره
هل يمكن استخدام الطريقتان معا ؟

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

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

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

textbox1.text=my.settings.current_user

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

نعم
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

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

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

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 حجمه كبير لا يستطيع الموقع رفعه

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

Cmb_bank_user_id.text=my.settings.current_user

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

moosa_alabri

سلام و محبه

moosa_alabri

سلام و محبه

moosa_alabri

سلام و محبه

moosa_alabri

سلام و محبه

سلام و محبه

moosa_alabri