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…
[code language=”vb”]
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
[/code]
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…
[code language=”vb”]
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
[/code]
FORM3 İçerisine Yazılacak Kodlar…
[code language=”vb”]
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
[/code]
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…
[code language=”vb”]
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
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.