• Giriş

Gorsel Programlama

  • AnaSayfa
  • Hakkımızda
  • TOP-10 Proje
  • Download
  • Özel Ders
  • Reklam Verin
  • Destek
  • İletişim
RSS feed
  • Youdao
  • Xian Guo
  • Zhua Xia
  • Google
  • My Yahoo!
  • newsgator
  • Bloglines
  • iNezha
© 2009-2019 Gorsel Programlama

Muhtarlık Takip Programı — Vb.Net

Muhtarlık 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

Public baq As New OleDbConnection("Provider=Microsoft.ace.OleDb.12.0; Data Source=data.accdb")

Public kmt As New OleDbCommand()

Public adtr As New OleDbDataAdapter()

Public dset As New DataSet()

Public Sub listele()

baq.Open()

Dim adtr As New OleDbDataAdapter("Select * From sahisbil", baq)

adtr.Fill(dset, "sahisbil") 'www.gorselprogramlama.com

dataGridView1.DataSource = dset.Tables("sahisbil")

adtr.Dispose()

baq.Close()

End Sub

Public Sub listele1()

baq.Open()

Dim adtr As New OleDbDataAdapter("Select * From nufusbil", baq)

adtr.Fill(dset, "nufusbil")

dataGridView2.DataSource = dset.Tables("nufusbil")

adtr.Dispose()

baq.Close()

End Sub

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

listele() 'www.gorselprogramlama.com

listele1()

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click

Dim silinecek As String, silincek As String

Try

Dim row As Integer = 0

For row = 0 To dataGridView1.Rows.Count

If dataGridView1.Rows(row).Cells(0).Selected = True OrElse dataGridView1.Rows(row).Cells(1).Selected = True OrElse dataGridView1.Rows(row).Cells(2).Selected = True OrElse dataGridView1.Rows(row).Cells(3).Selected = True OrElse dataGridView1.Rows(row).Cells(4).Selected = True OrElse dataGridView1.Rows(row).Cells(5).Selected = True OrElse dataGridView1.Rows(row).Cells(6).Selected = True OrElse dataGridView1.Rows(row).Cells(7).Selected = True OrElse dataGridView1.Rows(row).Cells(8).Selected = True OrElse dataGridView1.Rows(row).Cells(9).Selected = True OrElse dataGridView1.Rows(row).Cells(10).Selected = True OrElse dataGridView1.Rows(row).Cells(11).Selected = True OrElse dataGridView1.Rows(row).Cells(12).Selected = True OrElse dataGridView1.Rows(row).Cells(13).Selected = True OrElse dataGridView1.Rows(row).Cells(14).Selected = True OrElse dataGridView1.Rows(row).Cells(15).Selected = True OrElse dataGridView1.Rows(row).Cells(16).Selected = True Then

Exit For

End If

'www.gorselprogramlama.com

If dataGridView2.Rows(row).Cells(0).Selected = True OrElse dataGridView2.Rows(row).Cells(1).Selected = True OrElse dataGridView2.Rows(row).Cells(2).Selected = True OrElse dataGridView2.Rows(row).Cells(3).Selected = True OrElse dataGridView2.Rows(row).Cells(4).Selected = True OrElse dataGridView2.Rows(row).Cells(5).Selected = True OrElse dataGridView2.Rows(row).Cells(6).Selected = True OrElse dataGridView2.Rows(row).Cells(7).Selected = True OrElse dataGridView2.Rows(row).Cells(8).Selected = True OrElse dataGridView2.Rows(row).Cells(9).Selected = True OrElse dataGridView2.Rows(row).Cells(10).Selected = True OrElse dataGridView2.Rows(row).Cells(11).Selected = True OrElse dataGridView2.Rows(row).Cells(12).Selected = True OrElse dataGridView2.Rows(row).Cells(13).Selected = True OrElse dataGridView2.Rows(row).Cells(14).Selected = True Then

Exit For

End If

Next

silinecek = dataGridView1.Rows(row).Cells(13).Value.ToString()

silincek = dataGridView2.Rows(row).Cells(0).Value.ToString()

Dim cevap As DialogResult

cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If cevap = DialogResult.Yes Then

baq.Open()

kmt.Connection = baq

kmt.CommandText = "DELETE from sahisbil WHERE shs_no='" & silincek & "'"

kmt.ExecuteNonQuery()

kmt.CommandText = "DELETE from nufusbil WHERE tc='" & silinecek & "'"

kmt.ExecuteNonQuery()

kmt.Dispose()

dset.Clear()

baq.Close()

End If

Catch

'www.gorselprogramlama.com

End Try

End Sub

Public düzenle As String

Public dznle As String

Public str As Integer = 0

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

For str = 0 To dataGridView1.Rows.Count

If dataGridView1.Rows(str).Cells(0).Selected = True OrElse dataGridView1.Rows(str).Cells(1).Selected = True OrElse dataGridView1.Rows(str).Cells(2).Selected = True OrElse dataGridView1.Rows(str).Cells(3).Selected = True OrElse dataGridView1.Rows(str).Cells(4).Selected = True OrElse dataGridView1.Rows(str).Cells(5).Selected = True OrElse dataGridView1.Rows(str).Cells(6).Selected = True OrElse dataGridView1.Rows(str).Cells(7).Selected = True OrElse dataGridView1.Rows(str).Cells(8).Selected = True OrElse dataGridView1.Rows(str).Cells(9).Selected = True OrElse dataGridView1.Rows(str).Cells(10).Selected = True OrElse dataGridView1.Rows(str).Cells(11).Selected = True OrElse dataGridView1.Rows(str).Cells(12).Selected = True OrElse dataGridView1.Rows(str).Cells(13).Selected = True OrElse dataGridView1.Rows(str).Cells(14).Selected = True OrElse dataGridView1.Rows(str).Cells(15).Selected = True OrElse dataGridView1.Rows(str).Cells(16).Selected = True Then

Exit For

End If

If dataGridView2.Rows(str).Cells(0).Selected = True OrElse dataGridView2.Rows(str).Cells(1).Selected = True OrElse dataGridView2.Rows(str).Cells(2).Selected = True OrElse dataGridView2.Rows(str).Cells(3).Selected = True OrElse dataGridView1.Rows(str).Cells(4).Selected = True OrElse dataGridView2.Rows(str).Cells(5).Selected = True OrElse dataGridView2.Rows(str).Cells(6).Selected = True OrElse dataGridView2.Rows(str).Cells(7).Selected = True OrElse dataGridView2.Rows(str).Cells(8).Selected = True OrElse dataGridView2.Rows(str).Cells(9).Selected = True OrElse dataGridView2.Rows(str).Cells(10).Selected = True OrElse dataGridView2.Rows(str).Cells(11).Selected = True OrElse dataGridView2.Rows(str).Cells(12).Selected = True OrElse dataGridView2.Rows(str).Cells(13).Selected = True OrElse dataGridView2.Rows(str).Cells(14).Selected = True OrElse dataGridView2.Rows(str).Cells(15).Selected = True OrElse dataGridView2.Rows(str).Cells(16).Selected = True Then

Exit For

End If

Next

düzenle = dataGridView1.Rows(Str).Cells(5).Value.ToString()

dznle = dataGridView1.Rows(Str).Cells(0).Value.ToString()

Form3.Show()

Me.Hide()

End Sub 'www.gorselprogramlama.com

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

Form4.Show()

Me.Hide()

End Sub

Private Sub textBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.TextChanged

Dim adtr As New OleDbDataAdapter("select * From sahisbil", baq)

If textBox1.Text = "" Then

kmt.Connection = baq

kmt.CommandText = "Select * from sahisbil"

adtr.SelectCommand = kmt

adtr.Fill(dset, "sahisbil")

End If

If Convert.ToBoolean(baq.State) = False Then

baq.Open()

End If

adtr.SelectCommand.CommandText = (" Select * From sahisbil" & " where(ad like '%") + textBox1.Text & "%' )"

dset.Tables("sahisbil").Clear()

adtr.Fill(dset, "sahisbil")

baq.Close()

End Sub

Private Sub textBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox2.TextChanged

Dim adtr As New OleDbDataAdapter("select * From nufusbil", baq)

If textBox2.Text = "" Then

kmt.Connection = baq

kmt.CommandText = "Select * from nufusbil"

adtr.SelectCommand = kmt

adtr.Fill(dset, "nufusbil") 'www.gorselprogramlama.com

End If

If Convert.ToBoolean(baq.State) = False Then

baq.Open()

End If

adtr.SelectCommand.CommandText = (" Select * From nufusbil" & " where(tc like '%") + textBox2.Text & "%' )"

dset.Tables("nufusbil").Clear()

adtr.Fill(dset, "nufusbil")

baq.Close()

End Sub

Private Sub textBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox3.TextChanged

Dim adtr As New OleDbDataAdapter("select * From sahisbil", baq)

If textBox1.Text = "" Then

kmt.Connection = baq 'www.gorselprogramlama.com

kmt.CommandText = "Select * from sahisbil"

adtr.SelectCommand = kmt

adtr.Fill(dset, "sahisbil")

End If

If Convert.ToBoolean(baq.State) = False Then

baq.Open()

End If

adtr.SelectCommand.CommandText = (" Select * From sahisbil" & " where(sicil like '%") + textBox1.Text & "%' )"

dset.Tables("sahisbil").Clear()

adtr.Fill(dset, "sahisbil")

baq.Close()

End Sub

End Class

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

FORM2 İçerisine Yazılacak Kodlar…

Public Class Form2

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

openFileDialog1.ShowDialog()

pictureBox1.ImageLocation = openFileDialog1.FileName

pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click

If textBox1.Text <> "" AndAlso textBox17.Text <> "" AndAlso comboBox3.Text <> "" Then

Form1.baq.Open()

Form1.kmt.Connection = Form1.baq

Form1.kmt.CommandText = (((((((((((((((("INSERT INTO sahisbil(ad,soyad,cins,uyruk,meslek,shs_no,nakil_gel,is_adres,adres,okul,cep,mail,o_soyad,sicil,vergi,nakil_tarihi,nakil_git) VALUES('" + textBox1.Text & "','") + textBox2.Text & "','") + comboBox1.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "','") + textBox6.Text & "','") + textBox12.Text & "','") + textBox7.Text & "','") + textBox8.Text & "','") + textBox9.Text & "','") + textBox10.Text & "','") + textBox11.Text & "','") + textBox13.Text & "','") + textBox14.Text & "','") + dateTimePicker1.Text & "','") + textBox16.Text & "')"

Form1.kmt.ExecuteNonQuery()

Form1.kmt.CommandText = (((((((((((((("INSERT INTO nufusbil(tc,baba,ana,d_yeri,d_tarihi,medeni,din,il,ilce,koy,cilt,ailesira,kan,durum,uyar) VALUES('" + textBox17.Text & "','") + textBox18.Text & "','") + textBox19.Text & "','") + textBox20.Text & "','") + dateTimePicker2.Text & "','") + comboBox2.Text & "','") + textBox15.Text & "','") + textBox21.Text & "','") + textBox22.Text & "','") + textBox23.Text & "','") + textBox24.Text & "','") + textBox25.Text & "','") + comboBox3.Text & "','") + comboBox4.Text & "','") + comboBox5.Text & "')"

Form1.kmt.ExecuteNonQuery()

Form1.kmt.Dispose()

Form1.baq.Close() 'www.gorselprogramlama.com

comboBox1.Items.Clear()

comboBox2.Items.Clear()

comboBox3.Items.Clear()

comboBox4.Items.Clear()

comboBox5.Items.Clear()

Form1.dset.Tables("sahisbil").Clear()

Form1.dset.Tables("nufusbil").Clear()

Form1.listele()

Form1.listele1()

For i As Integer = 0 To Me.Controls.Count - 1

If TypeOf Me.Controls(i) Is TextBox Then

Me.Controls(i).Text = ""  'www.gorselprogramlama.com

End If

If TypeOf Me.Controls(i) Is ComboBox Then

Me.Controls(i).Text = ""

End If

Next

MessageBox.Show("Kayıt işlemi tamamlandı ! ")

Me.Hide()

Form1.Show()

Else

MessageBox.Show("Boş alanları doldurunuz !!!")

End If

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

Form1.Show()

Me.Hide()

End Sub  'www.gorselprogramlama.com

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

Me.Hide()

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

FORM3 İçerisine Yazılacak Kodlar…

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

textBox1.Text = Form1.dataGridView1.Rows(Form1.str).Cells(0).Value.ToString()

textBox2.Text = Form1.dataGridView1.Rows(Form1.str).Cells(1).Value.ToString()

comboBox1.Text = Form1.dataGridView1.Rows(Form1.str).Cells(2).Value.ToString()

textBox3.Text = Form1.dataGridView1.Rows(Form1.str).Cells(3).Value.ToString()

textBox4.Text = Form1.dataGridView1.Rows(Form1.str).Cells(4).Value.ToString()

textBox5.Text = Form1.dataGridView1.Rows(Form1.str).Cells(5).Value.ToString()

textBox6.Text = Form1.dataGridView1.Rows(Form1.str).Cells(6).Value.ToString()

'www.gorselprogramlama.com

textBox7.Text = Form1.dataGridView1.Rows(Form1.str).Cells(10).Value.ToString()

textBox8.Text = Form1.dataGridView1.Rows(Form1.str).Cells(11).Value.ToString()

textBox9.Text = Form1.dataGridView1.Rows(Form1.str).Cells(12).Value.ToString()

textBox10.Text = Form1.dataGridView1.Rows(Form1.str).Cells(7).Value.ToString()

textBox11.Text = Form1.dataGridView1.Rows(Form1.str).Cells(8).Value.ToString()

textBox12.Text = Form1.dataGridView1.Rows(Form1.str).Cells(9).Value.ToString()

textBox13.Text = Form1.dataGridView1.Rows(Form1.str).Cells(13).Value.ToString()

textBox14.Text = Form1.dataGridView1.Rows(Form1.str).Cells(14).Value.ToString()

dateTimePicker2.Text = Form1.dataGridView1.Rows(Form1.str).Cells(15).Value.ToString()

textBox16.Text = Form1.dataGridView1.Rows(Form1.str).Cells(16).Value.ToString()

'www.gorselprogramlama.com

textBox17.Text = Form1.dataGridView2.Rows(Form1.str).Cells(0).Value.ToString()

textBox18.Text = Form1.dataGridView2.Rows(Form1.str).Cells(1).Value.ToString()

textBox19.Text = Form1.dataGridView2.Rows(Form1.str).Cells(2).Value.ToString()

dateTimePicker1.Text = Form1.dataGridView2.Rows(Form1.str).Cells(4).Value.ToString()

textBox20.Text = Form1.dataGridView2.Rows(Form1.str).Cells(3).Value.ToString()

comboBox2.Text = Form1.dataGridView2.Rows(Form1.str).Cells(5).Value.ToString()

textBox15.Text = Form1.dataGridView2.Rows(Form1.str).Cells(6).Value.ToString()

textBox21.Text = Form1.dataGridView2.Rows(Form1.str).Cells(7).Value.ToString()

textBox22.Text = Form1.dataGridView2.Rows(Form1.str).Cells(8).Value.ToString()

textBox23.Text = Form1.dataGridView2.Rows(Form1.str).Cells(9).Value.ToString()

textBox24.Text = Form1.dataGridView2.Rows(Form1.str).Cells(10).Value.ToString()

textBox25.Text = Form1.dataGridView2.Rows(Form1.str).Cells(11).Value.ToString()

comboBox3.Text = Form1.dataGridView2.Rows(Form1.str).Cells(12).Value.ToString()

comboBox4.Text = Form1.dataGridView2.Rows(Form1.str).Cells(13).Value.ToString()

comboBox5.Text = Form1.dataGridView2.Rows(Form1.str).Cells(14).Value.ToString()

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

openFileDialog1.ShowDialog()

pictureBox1.ImageLocation = openFileDialog1.FileName

pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click

Try

Form1.baq.Open()

Form1.kmt.Connection = Form1.baq

Form1.kmt.CommandText = ((((((((((((((((("UPDATE sahisbil SET ad='" + textBox1.Text & "',soyad='") + textBox2.Text & "',cins='") + comboBox1.Text & "',uyruk='") + textBox3.Text & "',meslek='") + textBox4.Text & "',shs_no='") + textBox5.Text & "',nakil_gel='") + textBox6.Text & "',is_adres='") + textBox12.Text & "',adres='") + textBox7.Text & "',okul='") + textBox8.Text & "',cep='") + textBox9.Text & "',mail='") + textBox10.Text & "',o_soyad='") + textBox11.Text & "',sicil='") + textBox13.Text & "',vergi='") + textBox14.Text & "',nakil_tarihi='") + dateTimePicker1.Text & "',nakil_git='") + textBox16.Text & "' WHERE shs_no='") + Form1.düzenle & "'"

Form1.kmt.ExecuteNonQuery()

Form1.dset.Tables("sahisbil").Clear()

Form1.kmt.CommandText = ((((((((((((((("UPDATE nufusbil SET tc='" + textBox17.Text & "',baba='") + textBox18.Text & "',ana='") + textBox19.Text & "',d_yeri='") + textBox20.Text & "',d_tarihi='") + dateTimePicker2.Text & "',medeni='") + comboBox2.Text & "',din='") + textBox15.Text & "',il='") + textBox21.Text & "',ilce='") + textBox22.Text & "',koy='") + textBox23.Text & "',cilt='") + textBox24.Text & "',ailesira='") + textBox25.Text & "',kan='") + comboBox3.Text & "',durum='") + comboBox4.Text & "',uyar='") + comboBox5.Text & "' WHERE tc='") + Form1.dznle & "'"

Form1.kmt.ExecuteNonQuery()  'www.gorselprogramlama.com

Form1.dset.Tables("nufusbil").Clear()

Form1.kmt.Dispose()

Form1.baq.Close()

Form1.listele()

Me.Hide()

Form1.Show()

Catch

End Try

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

Form1.Show()

Me.Hide()  'www.gorselprogramlama.com

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

Me.Hide()

End Sub

End Class

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

FORM4 İçerisine Yazılacak Kodlar…

Public Class Form4

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Me.Hide()

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

Paylaş :
Tweet
Yorum Yazın | Geri
26 Mayıs Pazartesi,2014 Tarihinde Yayınlanmıştır. Bulunduğu Kategori : VB.NET
Etiket: comboBox FindString, comboBoxda veri arama, datagrid datasource, dataGridView Columns HeaderText, dataGridView Columns yazısını değiştirme, download, full, indir, kodlar, muhtarlık otomasyon visual basic net, muhtarlık takip programı vb.net, muhtarlık takip programı visual basic, tam sürüm, ücretsiz
« BÜYÜK RİSK Yarışması — Csharp Ms SQL Veri tabanlı Otopark Takip Programı – Csharp »
Henüz Yorum Yok.

Yorum Yazın ...

Cevabı İptal
XHTML: Bu Etiketleri Kullanabilirsiniz : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>
RSS Bu Yazıya Yapılan Yorumlar


Site içi Arama

Takip et: @GorselProgram







Böyle bir web sayfam olsun diyorsanız iletişim bölümünden veya gorselprogram@gmail.com mail adresinden bize ulaşabilirsiniz.

Son Yazılar

  • Rastgele şanslı müşteriye rastgele hediye veren program – C# Console
  • Soru ve cevaba göre puanlama yapan program C# Console
  • Şanslı Günüm Hangisi , Şanslı Sayım Hangisi C# Console
  • C# Ekran Görüntüsünü Klasöre Kaydetme
  • C# Dinamik Butonlarda Events Kullanımı ve Sürüklenebilir Buton

Etiket Bulutu

.NET Application basit C# C#.NET application C#.NET code C#.NET codes C#.NET examples C#.NET lessons C#.NET practice C#.net örnekleri c# console dersleri c# console örnekleri C# ders c# dersleri c# örnek c# örnekleri C.net dersleri c dersleri code console console örnekleri Csharp csharp dersleri csharp net csharp örnekleri c örnekleri download forms Forms örnekleri full indir kod kodlar nesne tabanlı programlama OleDbConnection OleDbDataAdapter tam sürüm uygulama vb net win windows windows forms application örnek ücretsiz

Kategoriler

  • Access (56)
  • Akış Diyagramı Flowchart (67)
  • Android Eğitimleri (2)
  • Asp Net (45)
  • C# (818)
  • C# Console (212)
  • Css (19)
  • Dersler (189)
  • Dökümanlar (20)
  • Dreamweaver (7)
  • Excel (7)
  • Fireworks (26)
  • Flash (50)
  • Görsel Programlama (409)
  • GorselProgramlama.Com (3)
  • Html (32)
  • Pascal (2)
  • Photoshop (5)
  • PHP (2)
  • Planlar (114)
  • Programlama Tanım (2)
  • Sınavlar (109)
  • Sql (8)
  • VB 6.0 (44)
  • VB.NET (218)
  • Videolar (60)
  • Word (6)

Arşiv

Bağlantılar

  • Bilişim Konuları
  • Html Dersleri
  • Muslu.NET
  • Programlama Dersleri

Kimler Sitede ?


    Computers Blogs Top programming blogs

   sayaç Powered by WordPress | Theme by NeoEase | Valid XHTML 1.1 and CSS 3 Yukarı