• Ana Sayfa
  • Access
  • VB Bankamatik Otomasyonu Access Veritabanı (Kaynak Kodlar + Proje Dosyası)

VB Bankamatik Otomasyonu Access Veritabanı (Kaynak Kodlar + Proje Dosyası)

 VB Bankamatik Otomasyonu Access Veritabanı (Kaynak Kodlar + Proje Dosyası)
Okunuyor VB Bankamatik Otomasyonu Access Veritabanı (Kaynak Kodlar + Proje Dosyası)

Selamun aleyküm arkadaşlar arşivdeki projeleri paylaşmaya devam, VB Bankamatik Otomasyonu tasarımıyla içeriğiyle orta halli kendini geliştirmek isteyenler için bir otomasyondur.

VB Bankamatik Otomasyonu

 

VB Bankamatik Otomasyonu İndirme Adresi

VB Bankamatik Projesini İndir (Reklamlı Destek İçin) VB Bankamatik Projesini İndir (Reklamsız)

 

VB Bankamatik Otomasyonu Örnek Kodları

Form5.vb

Imports System.Data

Imports System.Data.OleDb

Public Class Form5
    Public kmt As New OleDbCommand()

    Public adtr As New OleDbDataAdapter()

    Public table As New DataTable
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Form4.kendihesapcontrol = 0

        Form4.Show()
        Me.Hide()

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Application.Exit()
        Panel1.Hide()


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox4.Text.Trim IsNot "" Then

            If Form1.bag.State = ConnectionState.Closed Then
                Form1.bag.Open()
            End If

            If Form4.kendihesapcontrol = 1 Then
                Form1.kmt = New OleDbCommand("select * from musteri where cardno='" + Form1.mustno + "'", Form1.bag)
            Else
                Form1.kmt = New OleDbCommand("select * from musteri where cardno='" + TextBox3.Text + "'", Form1.bag)
            End If

            Form1.adtr = New OleDbDataAdapter(Form1.kmt)
            Form1.adtr.Fill(Form1.dataset, "0")
            Dim a = Form1.dataset.Tables("0").Rows.Count
            If a > 0 Then


                kmt.Connection = Form1.bag




                If Form4.kendihesapcontrol = 1 Then
                        kmt.CommandText = "UPDATE musteri SET bakiye = bakiye +'" + TextBox4.Text + "' WHERE cardno = '" + Form1.mustno + "'"
                    Else
                        kmt.CommandText = "UPDATE musteri SET bakiye = bakiye +'" + TextBox4.Text + "' WHERE cardno = '" + TextBox3.Text + "'"
                    End If




                kmt.ExecuteNonQuery()

                kmt.Dispose()

                Form1.bag.Close()
                MsgBox("Ücretiniz Başarıyla Gönderildi !")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                Form1.dataset.Clear()
            Else
                Form1.dataset.Clear()
                MsgBox("YANLIŞ HESAP NUMARA BÖYLE KAYITLI KART YOK")
            End If

        End If
    End Sub

    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        Timer1.Start()



    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Form4.kendihesapcontrol = 1 Then
            Panel1.Show()


        Else
            Panel1.Hide()
        End If
    End Sub
End Class

Form2.vb

Public Class Form2
    Dim RastgeleSayi As New Random
    Dim OlusturulanSayi As Integer = RastgeleSayi.Next(10000, 900000)
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListBox1.Items.Add("Kimden:Deneme Bankası")
        ListBox1.Items.Add("Bankamatik İşlemleri İçin")
        ListBox1.Items.Add("Giriş Kodunuz = " + OlusturulanSayi.ToString())
        Button4.Text = "Mesajınız Okundu"

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If TextBox2.Text = OlusturulanSayi.ToString() Then
            Form3.Show()
            Me.Hide()
        Else
            MsgBox("Yanlış Kod")
            Application.Exit()
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = ""
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        MsgBox("Bizi Tercih Ettiğiniz İçin Teşekkür Ederiz")
        Application.Exit()

    End Sub

 

Basit projedir lakin kendini geliştirmek isteyen olabilir,ihtiyacı olan olabilir ? şimdiden alıp kullanan varsa hayırlı olsun destek için adsense reklamlarına tıklayabilir , yada herhangi hoşunuza giden bir makalemi paylaşabilirsiniz.İhtiyacınız olan konularıda bildirirseniz bu konularda da makale desteği sağlayabilirim.

Diğer yazılım makalelerimiz için

Facebook Grubumuz İçin Tıklayın

Yapılan Yorumlar

Bir Cevap Yazın

This site uses Akismet to reduce spam. Learn how your comment data is processed.