Spor Kompleksi Takip Programı VB.Net…
Daha fazla bilgi için : www.gorselprogramlama.com
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 lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=vt1.mdb")
Public dtst As New DataSet()
Public kmt As New OleDbCommand()
Public Sub listele()
bag.Open() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Dim adtr As New OleDbDataAdapter("Select * From Tablo1", bag)
adtr.Fill(dtst, "Tablo1")
Form3.dataGridView1.DataSource = dtst
Form3.dataGridView1.DataMember = "Tablo1"
bag.Close()
adtr.Dispose()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Me.Hide()
Form2.Show()
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form3.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
End Sub ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Me.Hide()
Form4.Show()
End Sub ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Me.Hide()
Form5.Show()
End Sub
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form6.Show()
End Sub
Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Close()
End Sub
End Class ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
[/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 lang=”vbnet”]Public Class Form2
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((((((("INSERT INTO Tablo1(tc,ad,soyad,tel,meslek,d_tarih,boy,kilo) VALUES (‘" + textBox1.Text & "’,’") + textBox2.Text & "’,’") + textBox3.Text & "’,’") + textBox4.Text & "’,’") + textBox5.Text & "’,’") + textBox6.Text & "’,’") + textBox7.Text & "’ ,’") + textBox8.Text & "’) "
Form1.kmt.ExecuteNonQuery()
Form1.bag.Close()
Form1.kmt.Dispose() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Form1.dtst.Clear()
Form1.listele()
textBox1.Text = ""
textBox2.Text = ""
textBox3.Text = ""
textBox4.Text = ""
textBox5.Text = ""
textBox6.Text = ""
textBox7.Text = ""
textBox8.Text = ""
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
If textBox1.Text = "" Then
MessageBox.Show("Lütfen silinicek kaydın tcsini giriniz")
Else
Try
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE FROM Tablo1 WHERE tc=’" + textBox1.Text & "’"
Form1.kmt.ExecuteNonQuery()
Form1.bag.Close()
Form1.kmt.Dispose()
Form1.dtst.Clear()
Form1.listele() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
MessageBox.Show("Kayıt Silindi")
textBox1.Text = ""
textBox2.Text = ""
textBox3.Text = ""
textBox4.Text = ""
textBox5.Text = ""
textBox6.Text = ""
textBox7.Text = ""
textBox8.Text = ""
Catch
End Try
End If
End Sub
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Form1.bag.Open() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((((((("UPDATE Tablo1 SET ad=’" + textBox2.Text & "’,soyad=’") + textBox3.Text & "’,tel=’") + textBox4.Text & "’ ,meslek=’") + textBox5.Text & "’ ,d_tarih=’") + textBox6.Text & "’,boy=’") + textBox7.Text & "’,kilo=’") + textBox8.Text & "’ WHERE tc=’") + textBox1.Text & "’"
Form1.kmt.ExecuteNonQuery()
Form1.bag.Close()
Form1.kmt.Dispose()
Form1.dtst.Clear()
Form1.listele()
textBox1.Text = ""
textBox2.Text = ""
textBox3.Text = ""
textBox4.Text = ""
textBox5.Text = ""
textBox6.Text = ""
textBox7.Text = ""
textBox8.Text = ""
End Sub
Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Close()
End Sub ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form3.Show()
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.Hide()
Form6.Show()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
FORM3 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form3
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form1.Show() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form2.Show()
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.Hide()
Form6.Show()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Close()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
[/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 lang=”vbnet”]
Public Class Form4
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form1.Show()
End Sub ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form2.Show()
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.Hide()
Form6.Show()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Close() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
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.
FORM5 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]Public Class Form5
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form2.Show() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.Hide()
Form6.Show()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Close()
End Sub
End Class ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
FORM6 İçerisine Yazılacak Kodlar
[code lang=”vbnet”]
Public Class Form6
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.Hide()
Form1.Show() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Me.Hide()
Form2.Show()
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Me.Hide() ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
Form3.Show()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Close()
End Sub
End Class ‘ <code>Daha fazla bilgi için : www.gorselprogramlama.com </code>
[/code]
projeyi indirebilme şansımız varmı?
projelerimiz başka siteler tarafından indirilip direkt kaynak göstermeksizin yayınladıkları için indirme linklerini vermeme kararı aldık.
usta önceden indiriyoduk okulda iyi oluyodu tekrar link vermeyi düşünmüyormusunuz.
sebebini yazdım.
bu programı indirebileceğimiz veya bulabileceğimiz link varmı
Arkadaşlar program yazımı bize ait başka yerde bulmazsınız.Bizim lindirme linki eklememizin sebebinide yukarıya yazdım.
selam ben okuldan stok takıp programı odevı aldım acaba sıze gereklı ozellıklerı versem yapabılme sansımız warmı ben pek cakmıorm bıde bu bolumden cıkmayı dusunuyorum o yuzden ugrasmak ıstemıyorum ama bu sene yapmam lazım bana yapabılırmısınız?
proje isteklerinizi gorselprogram@gmail.com adresine mail atın.
Merhaba,
Farklı veri tiplerinde veri kaydetme ile ilgili detaylı bir örnek yayınlayabilir misiniz?
Örneğin ben formumdaki datetimepicker’dan veritabanında tarih olarak tanımladığım bir alana, yada textbox’tan decimal tipindeki veriyi ya da combobox’tan seçtiğim int türündeki veriyi yine veritabanımda benzer tanımladığım bir alana nasıl yazdırabilirim?
Yardımcı olursanız inanın çok makbule geçecek. Şimdiden teşekkürler.
@admin
BENİM BİR SORUM VAR SİZLERE SİZCE YAZILIMCI OLMAK İÇİN NELER YAPMAK LAZIM NE TÜR BİR ÇALIŞMA TAKTİGİ UYGULAMAK LAZIM BENİM BİR COK ARKADAŞIM VAR EZBER YAPIYORLAR NE YAPMALARI LAZIM SİZCE YAZILIMCI OLMAK İÇİN
Bence ezbere gerek.Sürekli proje hazırlamak lazım.Kodları proje içerisinde kullandıkça kalıcı olur zaten.Ezberlersen ilk olarak aklında kalır.Kullanmadığın zaman unutursun.
ARKADAŞLAR BEN DİZAYNI YAPTIM ANCAK BUNDA ACCESS VERİ TABANI MI KULLANMALIYIZ VERİ TABANINI NASIL YAPACAĞIMIZ HAKKINDA YARDIMCI OLABİLİRSENİZ SEVİNİRİM
access.alan isimleri : tc,ad,soyad,tel,meslek,d_tarih,boy,kilo
kardeş bu C# Mı ?
hayır vb
tmm kardeş saol bide Ölçüt ifadesinde veri türü uyuşmazlığı şu hatayı verio yapıorum hepsini neden acaba ?
Veri tabanındaki alan türlerini metin yap.
saol kardeş bide programı başlattığımda veri tabanımı değiştiriyor düzeltiorum programı başlattığımda tekrar değişiyor ?
soruyu anlamadım.Program veri tabanını neden değiştirsinki .
veritabanındaki tc sini silior sonra düzeltip deniom bu seferde ölçüy uyuşmazlığı veroyor hepsi metin yaptım yine aynı hatalar?
veritabanını paylaşabilirmisiniz
oğuz :
Veri tabanı bin–debug klasöründe