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.