عدد محاولات تسجيل الدخول - نسخة قابلة للطباعة

كود :

   Public tPwd As Int16 = 0

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click



        If cboUser.Text = "" Then cboUser.Focus() : Exit Sub

        If txtPass.Text = "" Then txtPass.Focus() : Exit Sub

        If Check_user() = False Then

            MsgBox("كلمة المرور لهذا المستخدم غير صحيحة", MsgBoxStyle.Critical, "رسالة خطأ")

            tPwd += 1

            TextBox1.Text = 3 - tPwd

            If tPwd = 3 Then FRM_mainmenu.Close()

            '  Exit Sub

        End If

كود :

Public tPwd As Int16 = 0

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click



    If cboUser.Text = "" Then cboUser.Focus() : Exit Sub

    If txtPass.Text = "" Then txtPass.Focus() : Exit Sub

    If Check_user() = False Then

        MsgBox("كلمة المرور لهذا المستخدم غير صحيحة", MsgBoxStyle.Critical, "رسالة خطأ")

        tPwd += 1

        TextBox1.Text = 3 - tPwd

        If tPwd = 3 Then FRM_mainmenu.Close()

        '  Exit Sub

    End If

    'تعريف متغير لجملة الاستعلام



    Dim sql = "select * from user_data WHERE user_name='" & cboUser.Text & "'"

    'تشييد موصل البيانات داتا ادبتر

    Dim Adp = New OleDb.OleDbDataAdapter(sql, DBConn)

    'تشيد مجموعة البيانات

    Dim ds = New DataSet

    'ملىء مجموعه البيانات

    Adp.Fill(ds)

    'وضع الجدول في كائن من نوع جدول

    Dim dt = ds.Tables(0)

    If dt.Rows.Count > 0 Then

        Dim dr As DataRow

        dr = dt.Rows(0)



        SavePermission = dr!Save_

        UpdatePermission = dr!Update_

        DeletePermission = dr!Delete_

        PrintPermission = dr!Print_

        FRM_mainmenu.btn_Stock.Enabled = dr!Stock_Scr

        FRM_mainmenu.btn_Accounting.Enabled = dr!Accounting_Scr

        FRM_mainmenu.btn_Invoice.Enabled = dr!Invoice_Scr

        FRM_mainmenu.btn_Voucher.Enabled = dr!Voucher_Scr

        FRM_mainmenu.btn_Report.Enabled = dr!Report_Scr

        FRM_mainmenu.btn_Users.Enabled = dr!Users_Scr

        UserName = dr!user_name

        FRM_mainmenu.currentUser.Text = UserName



        Adp.Dispose()

        ds.Dispose()

        dt.Dispose()

        Me.Close()





    End If









End Sub

كود :

   Public tPwd As Int16 = 0

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click



        If cboUser.Text = "" Then cboUser.Focus() : Exit Sub

        If txtPass.Text = "" Then txtPass.Focus() : Exit Sub

        If Check_user() = False Then

            MsgBox("كلمة المرور لهذا المستخدم غير صحيحة", MsgBoxStyle.Critical, "رسالة خطأ")

            tPwd += 1

            TextBox1.Text = 3 - tPwd

            If tPwd = 3 Then FRM_mainmenu.Close()

            Exit Sub

        End If

        'تعريف متغير لجملة الاستعلام



        Dim sql = "select * from user_data WHERE user_name='" & cboUser.Text & "'"

        'تشييد موصل البيانات داتا ادبتر

        Dim Adp = New OleDb.OleDbDataAdapter(sql, DBConn)

        'تشيد مجموعة البيانات

        Dim ds = New DataSet

        'ملىء مجموعه البيانات

        Adp.Fill(ds)

        'وضع الجدول في كائن من نوع جدول

        Dim dt = ds.Tables(0)

        If dt.Rows.Count > 0 Then

            Dim dr As DataRow

            dr = dt.Rows(0)



            SavePermission = dr!Save_

            UpdatePermission = dr!Update_

            DeletePermission = dr!Delete_

            PrintPermission = dr!Print_

            FRM_mainmenu.btn_Stock.Enabled = dr!Stock_Scr

            FRM_mainmenu.btn_Accounting.Enabled = dr!Accounting_Scr

            FRM_mainmenu.btn_Invoice.Enabled = dr!Invoice_Scr

            FRM_mainmenu.btn_Voucher.Enabled = dr!Voucher_Scr

            FRM_mainmenu.btn_Report.Enabled = dr!Report_Scr

            FRM_mainmenu.btn_Users.Enabled = dr!Users_Scr

            UserName = dr!user_name

            FRM_mainmenu.currentUser.Text = UserName



            Adp.Dispose()

            ds.Dispose()

            dt.Dispose()

            Me.Close()





        End If









    End Sub