17-01-21, 07:12 AM
تعديل كود زر الدخول ليكون كالتالي:
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

