Quantcast
Channel: Kullanıcı Giriş
Viewing all articles
Browse latest Browse all 4

Kullanıcı Giriş

0
0

Merhaba arkadaşlar, kullanıcı girişi yapıyorum fakat giriş yaparken veritabındaki kullanıcı kodu, kullanıcı adı ve şifresi eşleşen kullanıcı anaform'a aktarıyorum ama kullanıcı kodu ve kullanıcı adı comboboxlardan gelen değerleri alıyor. Şifreyi textboxtan gelen değeri alacaktır. Textbox boş geçtiğimde kullanıcı girişi yapılmaktadır. Onun için nasıl bir şart uygulamam gerekiyor. Yaptığım projenin kodları aşağıdadır. Şimdiden teşekkür ederim.

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Dim usercode, userdescription, userpass As String

        usercode = cmbKullaniciKod.Text
        userdescription = cmbKullaniciAd.Text
        userpass = txtUserPassword.Text
        Try
            baglanti.ConnectionString = ("Data Source=LENOVO_PC\SQLEXPRESS;Initial Catalog=POSTAKIPSISTEM;Integrated Security=True")

            komut.CommandText = "SELECT * FROM [USER] WHERE USER_CODE=@UCODE AND USER_DESCRIPTION=@UDESCRIPTION AND USER_PASSWORD=@UPASSWORD"
            baglanti.Open()
            komut.Connection = baglanti

            komut.Parameters.AddWithValue("@UCODE", usercode)
            komut.Parameters.AddWithValue("@UDESCRIPTION", userdescription)
            komut.Parameters.AddWithValue("@UPASSWORD", userpass)

            adap.SelectCommand = komut
            adap.Fill(dsAdo)

            Dim count = dsAdo.Tables(0).Rows.Count

            If count > 0 Then
                MsgBox(cmbKullaniciAd.Text + " Hoşgeldiniz")
                frmAnaform.Show()
                Me.Hide()
            Else
                MsgBox("Kullanıcı Adınız veya Parolanız Hatalı", MsgBoxStyle.Critical)
            End If
            baglanti.Close()
        Catch ex As Exception
            MessageBox.Show("DB ye ulaşılamadı", "Uyarı", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub
Saygılarımla


Viewing all articles
Browse latest Browse all 4

Latest Images

Trending Articles


Ayetel Kürsi'nin Daveti


Asayı Musa


SCCM 2012 Client Installation issue


Yusuf Suresi (100.ayet)Kapı, kılıç ve zirve duası


Kağıtları Altına Çevirmek


Sihir ve Büyü Çözmek İçin VEFK


Ya Rakib Esmasının Mucizeleri


Arkanızdan Konuşanları Susturmak İçin Dua


irsal ve musallat etmek


Merhamet, Gnade izle | 1080p — 720p Türkçe Dublaj HD