|
'Öncelikle accessten bir veritabanı yaratıyoruz, bir tablo oluşturup Username ve Passwordalanları ekliyoruz, bir kullanıcı adı ve şifre belirledikten sonra VB projemizi açıyoruz ve iki tane form ekliyoruz. (Form1, Form2) Daha sonra Form1'e iki adet textbox, üç adet commandbuton ekliyoruz. Bunların hepsini yaptıysanız sıra geldi kodlara aşağıdaki kodları Form1'in kod bölümüne kopyala yapıştır yapın.
Option Explicit
Dim cn As New ADODB.Connection, strCNString As String
Dim rs As New ADODB.Recordset
Dim Txt As String
Private Sub Command1_Click()
On Error GoTo ErrHandler
strCNString = "Data Source=" & App.Path & "database.mdb" 'database adını yazın.
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Properties("Jet OLEDB:Database Password") = "şifre" 'Database şifreli ise buraya şifreyi yazın
cn.Open
With rs
.Open "Select * from Tablo1 where Username='" & txtname.Text & "' and Password='" & txtpass.Text & "'", cn, adOpenDynamic, adLockOptimistic
If .EOF Then
MsgBox "Lütfen Kullanıcı adı ve parolanızı kontrol ediniz!", vbOKOnly + vbCritical, "Security Login"
txtname.Text = ""
txtpass.Text = ""
txtname.SetFocus
cn.Close
Else
Txt = "" & " " & UCase$(txtname.Text) & ""
MsgBox "HOŞGELDİN!!!" & Txt, vbOKOnly + vbExclamation, "Giriş"
cn.Close
Unload Me
Form2.Show
End If
End With
Exit Sub
ErrHandler:
MsgBox Err.Description, vbCritical, "Giriş"
cn.Close
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command2_Click()
On Error Resume Next
If Text1.Text = "" Then GoTo message
strCNString = "Data Source=" & App.Path & "database.mdb" 'database adını yazın
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Properties("Jet OLEDB:Database Password") = "şifre" 'Database şifresi varsa
cn.Open
rs.Open "Select * from Tablo1", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs.Save
cn.Close
rs.Close
MsgBox "Kullanıcı adı ve şifre yaratıldı.", vbInformation, "Onaylama"
Exit Sub
message:
MsgBox "Kullanıcı adı ve şifre yazmalısınız.", vbCritical, "Hata"
End Sub
Private Sub Form_Load()
cmdRegister.Enabled = False
End Sub
Private Sub Text2_Change()
cmdRegister.Enabled = True
End Sub
Eğer Anlamadıysanız Görüntülü Dersler bölümünde Videosunu izleyebilirsiniz.
Yazar: Turk_Ajan
|
