[MOHAMMED ALZWI]

هذا الكود الدخول المستخدم


   Private Sub But_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_login.Click
        Dim rdr As SqlDataReader
        If SQLCON.State = 1 Then SQLCON.Close()
        SQLCON.Open()

        Dim cmd As New SqlCommand("select * from T_users where NAME_USER=@NAME_USER and PASSWORD=@PASSWORD ", SQLCON)
        cmd.Parameters.AddWithValue("@NAME_USER", ComboBox1.Text)
        cmd.Parameters.AddWithValue("@PASSWORD", TXT_PASSOWRD.Text)
        rdr = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows Then
            Str_UserName_ID = rdr("ID").ToString
            Str_UserName = rdr("NAME_USER").ToString

            With Frm_Home
                .BUTT_MORD.Enabled = rdr("suplliers").ToString
                .BUTT_COUSTMERS.Enabled = rdr("COSTMERS").ToString
                .BUT_ITEMS_.Enabled = rdr("ITEMS").ToString
                .BUTT_SALSEESS.Enabled = rdr("sales_bill").ToString
                .BUTT_RE_SALESS.Enabled = rdr("sales_bill").ToString
                .BUT_ESALAATT.Enabled = rdr("esailt").ToString
                .BUTT_REPORSSS.Enabled = rdr("reports").ToString
                .BUTT_ALMOLHAGATT.Enabled = rdr("molhgat").ToString
                .BUTT_SEETING.Enabled = rdr("seeting").ToString
                .butt_usres.Enabled = rdr("USERS").ToString
                .ShowDialog()
                Me.Hide()
            End With
        Else

            MessageBox.Show("كلمة المرور غير صحيحة ،،، يرجى إعــــادة المحاولـــة", "خطأ في الدخول", MessageBoxButtons.OK, MessageBoxIcon.Error)

            TXT_PASSOWRD.Text = ""
            TXT_PASSOWRD.Select()
        End If

        rdr.Close()
        SQLCON.Close()

    End Sub