Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Visual Basic Şifreleme İşlemleri


Şifreleme İşlemleri

baglan

  1.  
  2.  
  3. Set RS = New ADODB.Recordset
  4. Set RS1 = New ADODB.Recordset
  5.  
  6.  
  7. SQL = "select * from rs_kullanici where kullanici_kullaniciadi='" & Text1.Text & "'"
  8. RS.Open SQL, CON, 1, 3
  9. If RS.RecordCount = 0 Then
  10.     hata = MsgBox("Kullanıcı Adı  Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")
  11.     If hata = 6 Then
  12.         Text1.SetFocus
  13.     End If
  14. Else
  15.     SQL1 = "select * from rs_kullanici where kullanici_sifre='" & Text2.Text & "'"
  16.     RS1.Open SQL1, CON, 1, 3
  17.     If RS1.RecordCount = 0 Then
  18.         hata1 = MsgBox("Kullanıcı  Şifre Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")
  19.         If hata1 = 6 Then
  20.             Text1.SetFocus
  21.         End If
  22.     Else
  23.         AnaForm.Show
  24.         Unload Me
  25.     End If
  26. End If
  27.  
  28.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cuma, 08 Nisan 2011 00:32 )