Gorsel Programlama

Fatura Takip Programı VB.Net.

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.

FORM1 İçerisine Yazılacak Kodlar…

Imports System.Data.OleDb

Public Class Form1
Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=vt1.mdb")
Private komut As New OleDbCommand()
Private guc As New OleDbDataAdapter()
Private gecici_tablo As New DataSet()
Private Sub listele()
baglanti.Open()
Dim guc As New OleDbDataAdapter("select * From fatura", baglanti)
guc.Fill(gecici_tablo, "fatura")
dataGridView1.DataSource = gecici_tablo
dataGridView1.DataMember = "fatura"
guc.Dispose()
baglanti.Close()
End Sub
Private Sub goster()
textBox9.Text = (Me.BindingContext(gecici_tablo, "fatura").Position + 1) & " / " & Me.BindingContext(gecici_tablo, "fatura").Count
End Sub
'Daha Fazlası İçin http://www.gorselprogramlama.com
Public Sub New()
InitializeComponent()
End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
goster()
textBox1.DataBindings.Add("Text", gecici_tablo, "fatura.Fatura_NO")
textBox2.DataBindings.Add("Text", gecici_tablo, "fatura.Adi_Soyadi")
textBox3.DataBindings.Add("Text", gecici_tablo, "fatura.Adres")
textBox4.DataBindings.Add("Text", gecici_tablo, "fatura.Kdv")
textBox5.DataBindings.Add("Text", gecici_tablo, "fatura.Fatura_Tarihi")
textBox6.DataBindings.Add("Text", gecici_tablo, "fatura.Son_Odem_Tarihi")
textBox7.DataBindings.Add("Text", gecici_tablo, "fatura.Odenecek_Tutar")

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Me.BindingContext(gecici_tablo, "fatura").AddNew()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
baglanti.Open()
komut.Connection = baglanti
komut.CommandText = (((((("INSERT INTO fatura(Fatura_No,Adi_Soyadi,Adres,Kdv,Fatura_Tarihi,Son_Odem_Tarihi,Odenecek_Tutar) VALUES ('" + textBox1.Text & "','") + textBox2.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "','") + textBox6.Text & "','") + textBox7.Text & "') "
komut.ExecuteNonQuery()
komut.Dispose()
baglanti.Close()
gecici_tablo.Clear()
listele()
goster()

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Dim cvp As DialogResult
cvp = MessageBox.Show("Kaydı Silmek İstiyormusunuz ?", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If cvp = DialogResult.Yes Then
baglanti.Open()
komut.Connection = baglanti
komut.CommandText = "DELETE from fatura WHERE Fatura_No='" + textBox1.Text & "'"
komut.ExecuteNonQuery()
komut.Dispose()
baglanti.Close()
gecici_tablo.Clear()
listele()
goster()
End If

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
baglanti.Open()
komut.Connection = baglanti
komut.CommandText = (((((("UPDATE fatura SET Adi_Soyadi='" + textBox2.Text & "',Adres='") + textBox3.Text & "',Kdv='") + textBox4.Text & "',Fatura_Tarihi='") + textBox5.Text & "',Son_Odem_Tarihi='") + textBox6.Text & "',Odenecek_Tutar='") + textBox7.Text & "' WHERE Fatura_No='") + textBox1.Text & "'"
komut.ExecuteNonQuery()
komut.Dispose()
baglanti.Close()
gecici_tablo.Clear()
listele()
goster()

End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.BindingContext(gecici_tablo, "fatura").Position += 1
goster()
End Sub

Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button8.Click
Me.BindingContext(gecici_tablo, "fatura").Position -= 1
goster()
End Sub

Private Sub button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button9.Click
Me.BindingContext(gecici_tablo, "fatura").Position = Me.BindingContext(gecici_tablo, "fatura").Count
goster()
End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.BindingContext(gecici_tablo, "fatura").Position = 0
goster()
End Sub
End Class

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.

Projeyi İNDİR