[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