Gorsel Programlama

Formlarla e-okul (Kayıt ve Giriş) Vb.Net

data isimli yukarıdaki resimde gösterilen alanlara sahip veritabanı dosyasını access’te (ver : 2003) oluşturup projemizdeki bin klasörü içindeki debup klasörüne kopyalıyoruz. (tablo adı : bilgi olmalı)

 Form1′e dataView ekliyoruz.Properties’den Modifiers’i Public yapıyoruz.(Toolbox’a dataView ekleme : Toolbox üzerinde sağ tık.Choose Items tıklıyoruz.Ekrana gelen menüden dataView bulup seçtikten sonra ok’liyoruz.)

Form1′e (Giriş)yazılacak kodlar :

Imports System.Data.OleDb
Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Public kmt As New OleDbCommand
Public adtr As OleDbDataAdapter
Public dtst As New DataSet
Public Sub listelesene()
bag.Open()
adtr = New OleDbDataAdapter("select * From bilgi", bag)
adtr.Fill(dtst, "bilgi")
DataView1.Table = dtst.Tables("bilgi")
bag.Close()
adtr.Dispose()
End Sub
Public Sub rsayi()
label2.Text = Int(Rnd() * 10) & Int(Rnd() * 10) & Int(Rnd() * 10) & Int(Rnd() * 10)
End Sub
Private Sub btnGiris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGiris.Click
Try
If (Val(textBox1.Text) = Val(label2.Text)) Then
Dim kayit_no As Integer
DataView1.Sort = "kullanici_adi" 'Dataview1 i kullanici_adi alanına göre sıralar
kayit_no = DataView1.Find(textBox2.Text) 'textbox2 e girilen kullanıcı adının dataview de(veritabanında) arar
If (kayit_no <> -1) Then 'arama ile gelen sonuç -1 den farklıysa yani o kullanıcı varsa
DataView1.Sort = "sifre" 'button1 defa şifreye göre sıralıyoruz
kayit_no = DataView1.Find(textBox3.Text) 'textbox3 e girilen şifre dataview de(veritabanında) arar
If (kayit_no <> -1) Then 'arama ile gelen sonuç -1 den farklıysa yani o kullanıcı varsa
Form2.Show()
Me.Hide()
Else : label5.Text = "Kullanıcı adı veya şifre hatalı" 'eğer aramada -1 üretilirse hata mesajının görüntülenmesini sağlıyor
End If
Else : label5.Text = "Kullanıcı adı veya şifre hatalı" 'yukarı ile aynı
End If
Else : label5.Text = "Güvenlik Kodu hatalı" 'yukarı ile aynı
End If
Catch ex As Exception

End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rsayi()
listelesene()
End Sub

Private Sub btnYenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYenile.Click
rsayi()
End Sub

Private Sub btnKayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKayit.Click
Form3.Show()
Me.Hide()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
End Sub
End Class

Form2′e (Notlar) yazılacak kodlar :

Public Class Form2

Private Sub btnHesapla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHesapla.Click
Try
label11.Text = ((Val(textBox6.Text) + Val(textBox7.Text) + Val(textBox8.Text)) / 3).ToString()
label12.Text = ((Val(textBox9.Text) + Val(textBox10.Text) + Val(textBox11.Text)) / 3).ToString()
label13.Text = ((Val(textBox12.Text) + Val(textBox13.Text) + Val(textBox14.Text)) / 3).ToString()
label14.Text = ((Val(textBox15.Text) + Val(textBox16.Text) + Val(textBox17.Text)) / 3).ToString()
'textler parse ile integer sayıya dönüştürülüp gerekli işlemler yapılıp string ifadeye dünüştürüldükten sonra labellere yazılıyor

Catch ex As Exception

End Try
End Sub

Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Application.Exit()
End Sub
End Class

Form3′e (Kayıt) yazılacak kodlar :

Public Class Form3

Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "INSERT INTO bilgi(kullanici_adi,sifre) VALUES ('" & textBox3.Text & "','" & textBox4.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.listelesene()
End Sub

Private Sub btnAnasayfa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnasayfa.Click
Me.Hide()
Form1.Show()
Form1.rsayi()
End Sub
End Class

 Projeyi İNDİR