Öncelikle yeni bir Proje oluşturuyoruz ve 4 Adet Form ekliyoruz.
1.Form : Giriş Yap , Kayıt Ol Olmak üzere 2 tane button koyuyoruz.
2.Form : Access veri tabanına bağlanmak için giriş form'u
3.Form : Kayıt form'u
4.Form : Doğru giriş yaptığımızda yönlendirilecek olan form4.
Form 1 Arayüzü (Kendinize göre ayarlayabilirsiniz) :
Form 1 Kod Sayfası :
Hazır kod için ;
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Programa Hoş Geldiniz.")
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Programa Hoş Geldiniz.")
End Sub
End Class
Form 2 Arayüzü :
Form 2 Kod Sayfası :
Hazır kod için ;
Imports System.Data.OleDb
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim dataset As New DataSet
con.ConnectionString = ("Provider=Microsoft.Jet.OleDb.4.0;Data Source = C:\Windows\System32\Kişiler.mdb")
com.CommandText = ("Select * From Kişiler Where Nick = '" + TextBox1.Text + "' AND Şifre = '" + TextBox2.Text + "';")
con.Open()
com.Connection = con
adp.SelectCommand = com
adp.Fill(dataset, "0")
Dim a = dataset.Tables(0).Rows.Count
If a > 0 Then
MsgBox("Doğru Giriş Yaptınız.Yönlendiriliyorsunuz.", MsgBoxStyle.Information, "Giriş Başarılı")
Form4.Show()
Me.Hide()
Else
MsgBox("Lütfen Doğru Giriş Yapınız.", MsgBoxStyle.Critical, "Hata")
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim dataset As New DataSet
con.ConnectionString = ("Provider=Microsoft.Jet.OleDb.4.0;Data Source = C:\Windows\System32\Kişiler.mdb")
com.CommandText = ("Select * From Kişiler Where Nick = '" + TextBox1.Text + "' AND Şifre = '" + TextBox2.Text + "';")
con.Open()
com.Connection = con
adp.SelectCommand = com
adp.Fill(dataset, "0")
Dim a = dataset.Tables(0).Rows.Count
If a > 0 Then
MsgBox("Doğru Giriş Yaptınız.Yönlendiriliyorsunuz.", MsgBoxStyle.Information, "Giriş Başarılı")
Form4.Show()
Me.Hide()
Else
MsgBox("Lütfen Doğru Giriş Yapınız.", MsgBoxStyle.Critical, "Hata")
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub
Form 3 Arayüzü :
Form 3 Kod Sayfası :
Hazır kod için ;
Imports System.Data.OleDb
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = ("Provider=Microsoft.jet.OleDb.4.0;Data Source = C:\Windows\System32\Kişiler.mdb")
con.Open()
com.CommandType = CommandType.Text
com.CommandText = ("Insert Into Kişiler(Nick,Şifre)Values('" + TextBox1.Text + "','" + TextBox2.Text + "')")
com.ExecuteNonQuery()
con.Close()
MsgBox("Üyelik Başarıyla Gerçekleşti.", MsgBoxStyle.Information, "Giriş başarılı")
End Sub
End Class
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = ("Provider=Microsoft.jet.OleDb.4.0;Data Source = C:\Windows\System32\Kişiler.mdb")
con.Open()
com.CommandType = CommandType.Text
com.CommandText = ("Insert Into Kişiler(Nick,Şifre)Values('" + TextBox1.Text + "','" + TextBox2.Text + "')")
com.ExecuteNonQuery()
con.Close()
MsgBox("Üyelik Başarıyla Gerçekleşti.", MsgBoxStyle.Information, "Giriş başarılı")
End Sub
End Class
Son düzenleme: