+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: visual basic (eğer bilgi yoksa....) (/konu-visual-basic-eger-bilgi-yoksa.html)
visual basic (eğer bilgi yoksa....) - zofzof - 12/07/2015
Merhabalar,
Bir login formu oluşturdum.
sql databaseden datalar okunuyor eğer varsa yetki kontrolü yapıyor ve form1 e geçiyor.
yoksa kullanıcı adı veya şifre yanlış veya yok diyor.
eğer yoksa zaten message box ta çıkıyor.
eğer giriş yapılıyorsa girişi düzgün yapıyor ancak gene bir defa kullanıcı adı veya şifre yanlış veya yok yazıyor
bunu nasıl ortadan kaldırabilirim.
yoksa yok yazsın varsa doğruysa direk girsin ama yok yazmadan....
Public Class PersonelGiris
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'Kullanıcı adı veya Şifre Boş değilse...
If (kuladtxt.Text <> "") And (siftxt.Text <> "") Then
'Kayıtlı Datayı Say ve TK da TUT
Dim conn As New SqlClient.SqlConnection()
Dim cmd As New SqlClient.SqlCommand()
conn.ConnectionString = "Data Source=ARDAOZBERK\SQLEXPRESS;Initial Catalog=sirket;Integrated Security=True"
cmd.Connection = conn
conn.Open()
cmd.CommandText = "SELECT COUNT(id) FROM loginpass"
Dim TK As Integer = cmd.ExecuteScalar
conn.Close()
'Kullanıcı adı - şifre - yetki kontrolü döndür
Dim bag As New SqlClient.SqlConnection()
Dim kmt As New SqlClient.SqlCommand()
Dim dr As SqlClient.SqlDataReader
bag.ConnectionString = "Data Source=ARDAOZBERK\SQLEXPRESS;Initial Catalog=sirket;Integrated Security=True"
kmt.Connection = conn
conn.Open()
kmt.CommandText = "SELECT * FROM loginpass"
dr = kmt.ExecuteReader
'Kullanıcı Adı Şifre Kontrolü
Dim i As Integer
For i = 1 To TK
dr.Read()
If (kuladtxt.Text = dr("kadi")) And (siftxt.Text = dr("sifre")) Then
'Yetki Kontrolü
If (dr("yetki") = 1) Then
Me.Hide()
Form1.Show()
Form1.Label1.Show()
Form1.Label2.Hide()
ElseIf (dr("yetki") = 0) Then
Me.Hide()
Form1.Show()
Form1.Label1.Hide()
Form1.Label2.Show()
End If
End If
Next
kuladtxt.Text = ""
siftxt.Text = ""
'Eğer Kullanıcı Adı veya Şifre Yanlış veya Yoksa...
If i = TK And (kuladtxt.Text <> dr("kadi")) Or (siftxt.Text <> dr("sifre")) Then
MessageBox.Show("Kullanıcı Adı/Şifreyi Kontrol Ediniz")
End If
dr.Close()
conn.Close()
Else
'Kullanıcı adı veya Şifre Boş ise...
MessageBox.Show("Kullanıcı Adı/Şifre Giriniz")
End If
End Sub