Otobüs Bileti Satış Takip Programı VB.net

Otobüs Bileti Satış 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 lang=”vbnet”]

Imports System.Data.OleDb

Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Public kmt As New OleDbCommand()
Public adtr As New OleDbDataAdapter()
Public dtst As New DataSet()

Public Sub combo()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from bos"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
comboBox1.Sorted = True
End Sub

Public Sub combo2()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from dolu"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Form3.comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
Form3.comboBox1.Sorted = True
End Sub

Public Sub listelesene()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
adtr.Fill(dtst, "musbil")
Form3.dataView1.Table = dtst.Tables(0)
Form3.dataGrid1.DataSource = Form3.dataView1
adtr.Dispose()
bag.Close()
End Sub

Public Sub biletyaz()

bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Select Case oku(13).ToString()
Case "1"
If True Then
form2.button1.Text = oku(4).ToString()
form2.button1.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "2"
If True Then
form2.button2.Text = oku(4).ToString()
form2.button2.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "3"
If True Then
form2.button3.Text = oku(4).ToString()
form2.button3.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "4"
If True Then
form2.button4.Text = oku(4).ToString()
form2.button4.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "5"
If True Then
form2.button5.Text = oku(4).ToString()
form2.button5.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "6"
If True Then
form2.button6.Text = oku(4).ToString()
form2.button6.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "7"
If True Then
form2.button7.Text = oku(4).ToString()
form2.button7.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "8"
If True Then
form2.button8.Text = oku(4).ToString()
form2.button8.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "9"
If True Then
form2.button9.Text = oku(4).ToString()
form2.button9.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "10"
If True Then
form2.button10.Text = oku(4).ToString()
form2.button10.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "11"
If True Then

form2.button11.Text = oku(4).ToString()
form2.button11.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "12"
If True Then
form2.button12.Text = oku(4).ToString()
form2.button12.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "13"
If True Then
form2.button13.Text = oku(4).ToString()
form2.button13.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "14"
If True Then
form2.button14.Text = oku(4).ToString()
form2.button14.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "15"
If True Then
form2.button15.Text = oku(4).ToString()
form2.button15.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "16"
If True Then
form2.button16.Text = oku(4).ToString()
form2.button16.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "17"
If True Then
form2.button17.Text = oku(4).ToString()
form2.button17.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "18"
If True Then
form2.button18.Text = oku(4).ToString()
form2.button18.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "19"
If True Then
form2.button19.Text = oku(4).ToString()
form2.button19.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "20"
If True Then
form2.button20.Text = oku(4).ToString()
form2.button20.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "21"
If True Then
form2.button21.Text = oku(4).ToString()
form2.button21.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "22"
If True Then
form2.button22.Text = oku(4).ToString()
form2.button22.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "23"
If True Then
form2.button23.Text = oku(4).ToString()
form2.button23.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "24"
If True Then
form2.button24.Text = oku(4).ToString()
form2.button24.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "25"
If True Then
form2.button25.Text = oku(4).ToString()
form2.button25.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "26"
If True Then
form2.button26.Text = oku(4).ToString()
form2.button26.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "27"
If True Then
form2.button27.Text = oku(4).ToString()
form2.button27.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "28"
If True Then
form2.button28.Text = oku(4).ToString()
form2.button28.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "29"
If True Then
form2.button29.Text = oku(4).ToString()
form2.button29.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "30"
If True Then
form2.button30.Text = oku(4).ToString()
form2.button30.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "31"
If True Then
form2.button31.Text = oku(4).ToString()
form2.button31.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "32"
If True Then
form2.button32.Text = oku(4).ToString()
form2.button32.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "33"
If True Then
form2.button33.Text = oku(4).ToString()
form2.button33.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "34"
If True Then
form2.button34.Text = oku(4).ToString()
form2.button34.BackColor = System.Drawing.Color.Red
Exit Select
End If

End Select
End While
bag.Close()
oku.Dispose()
End Sub

Public Sub biletsil()
Select Case Form3.comboBox1.Text
Case "1"
If True Then
Form2.button1.Text = "1"
Form2.button1.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "2"
If True Then

Form2.button2.Text = "2"
Form2.button2.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "3"
If True Then
Form2.button3.Text = "3"
Form2.button3.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "4"
If True Then
Form2.button4.Text = "4"
Form2.button4.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "5"
If True Then
Form2.button5.Text = "5"
Form2.button5.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "6"
If True Then
Form2.button6.Text = "6"
Form2.button6.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "7"
If True Then
Form2.button7.Text = "7"
Form2.button7.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "8"
If True Then
Form2.button8.Text = "8"
Form2.button8.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "9"
If True Then
Form2.button9.Text = "9"
Form2.button9.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "10"
If True Then
Form2.button10.Text = "10"
Form2.button10.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "11"
If True Then
Form2.button11.Text = "11"
Form2.button11.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "12"
If True Then
Form2.button12.Text = "12"
Form2.button12.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "13"
If True Then
Form2.button13.Text = "13"
Form2.button13.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "14"
If True Then
Form2.button14.Text = "14"
Form2.button14.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "15"
If True Then
Form2.button15.Text = "15"
Form2.button15.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "16"
If True Then
Form2.button16.Text = "16"
Form2.button16.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "17"
If True Then
Form2.button17.Text = "17"
Form2.button17.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "18"
If True Then
Form2.button18.Text = "18"
Form2.button18.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "19"
If True Then
Form2.button19.Text = "19"
Form2.button19.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "20"
If True Then
Form2.button20.Text = "20"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "21"
If True Then
Form2.button20.Text = "21"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "22"
If True Then
Form2.button20.Text = "22"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "23"
If True Then
Form2.button20.Text = "23"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "24"
If True Then
Form2.button20.Text = "24"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "25"
If True Then
Form2.button20.Text = "25"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "26"
If True Then
Form2.button20.Text = "26"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "27"
If True Then
Form2.button20.Text = "27"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "28"
If True Then
Form2.button20.Text = "28"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "29"
If True Then
Form2.button20.Text = "29"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "30"
If True Then
Form2.button20.Text = "30"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "31"
If True Then
Form2.button20.Text = "31"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "32"
If True Then
Form2.button20.Text = "33"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "33"
If True Then
Form2.button20.Text = "33"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "34"
If True Then
Form2.button20.Text = "34"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
End Select
End Sub

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

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Form2.Show()
Me.Hide()
End Sub

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

End Sub

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

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso comboBox1.Text <> "" Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = ((((((((((((("INSERT INTO musbil(Adi,Soyadi,Adres,Tel_No,E_Posta,Binis_Yeri,Binis_Saati,Varis_Yeri,Varis_Saati,Yol_Tarihi,Sefer_No,Sefer_Güz,Otobüs_Tipi,Koltuk_Num) VALUES (‘" + textBox1.Text &amp; "’,’") + textBox2.Text &amp; "’,’") + textBox3.Text &amp; "’,’") + textBox4.Text &amp; "’,’") + textBox5.Text &amp; "’,’") + textBox6.Text &amp; "’,’") + textBox7.Text &amp; "’,’") + textBox8.Text &amp; "’,’") + textBox9.Text &amp; "’,’") + textBox10.Text &amp; "’,’") + textBox11.Text &amp; "’,’") + textBox12.Text &amp; "’,’") + textBox13.Text &amp; "’,’") + comboBox1.Text &amp; "’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "INSERT INTO dolu(doluyerler) VALUES (‘" + comboBox1.Text &amp; "’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "DELETE from bos WHERE bosyerler=’" + comboBox1.Text &amp; "’"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
comboBox1.Items.Clear()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
textBox4.Clear()
textBox5.Clear()
textBox6.Clear()
textBox7.Clear()
textBox8.Clear()
textBox9.Clear()
textBox10.Clear()
textBox11.Clear()
textBox12.Clear()
textBox13.Clear()
comboBox1.Text = ""
combo()
biletyaz()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
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 lang=”vbnet”]
Public Class Form2

Private Sub button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button35.Click
Form1.Show()
Me.Hide()

End Sub

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

End Sub

Private Sub button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button36.Click
Application.Exit()

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.

FORM3 İçerisine Yazılacak Kodlar…

[code lang=”vbnet”]

Public Class Form3
Private Sub texteyaz()
textBox14.Text = (Me.BindingContext(Form1.dtst, "musbil").Position + 1) &amp; " / " &amp; Me.BindingContext(Form1.dtst, "musbil").Count
End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.combo2()
Form1.listelesene()
textBox1.DataBindings.Add("Text", Form1.dtst, "musbil.Adi")
textBox2.DataBindings.Add("Text", Form1.dtst, "musbil.Soyadi")
textBox3.DataBindings.Add("Text", Form1.dtst, "musbil.Adres")
textBox4.DataBindings.Add("Text", Form1.dtst, "musbil.Tel_No")
textBox5.DataBindings.Add("Text", Form1.dtst, "musbil.E_Posta")
textBox6.DataBindings.Add("Text", Form1.dtst, "musbil.Binis_Yeri")
textBox7.DataBindings.Add("Text", Form1.dtst, "musbil.Binis_Saati")
textBox8.DataBindings.Add("Text", Form1.dtst, "musbil.Varis_Yeri")
textBox9.DataBindings.Add("Text", Form1.dtst, "musbil.Varis_Saati")
textBox10.DataBindings.Add("Text", Form1.dtst, "musbil.Yol_Tarihi")
textBox11.DataBindings.Add("Text", Form1.dtst, "musbil.Sefer_No")
textBox12.DataBindings.Add("Text", Form1.dtst, "musbil.Sefer_Güz")
textBox13.DataBindings.Add("Text", Form1.dtst, "musbil.Otobüs_Tipi")
comboBox1.DataBindings.Add("Text", Form1.dtst, "musbil.Koltuk_Num")
texteyaz()

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Form1.Show()
Me.Hide()

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso comboBox1.Text <> "" Then
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If cevap = DialogResult.Yes Then
Form1.biletsil()
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from musbil WHERE Adi=’" + textBox1.Text &amp; "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "INSERT INTO bos(bosyerler) VALUES (‘" + comboBox1.Text &amp; "’) "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "DELETE from dolu WHERE doluyerler=’" + comboBox1.Text &amp; "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
comboBox1.Items.Clear()
Form1.comboBox1.Items.Clear()
comboBox1.Text = ""
Form1.combo()
Form1.combo2()
Form1.dtst.Clear()
Form1.listelesene()
End If
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Application.Exit()

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Me.BindingContext(Form1.dtst, "musbil").Position = 0
texteyaz()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Me.BindingContext(Form1.dtst, "musbil").Position -= 1
texteyaz()
End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Me.BindingContext(Form1.dtst, "musbil").Position += 1
texteyaz()
End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.BindingContext(Form1.dtst, "musbil").Position = Me.BindingContext(Form1.dtst, "musbil").Count
texteyaz()

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.

Projeyi İNDİR

Yorumlar 36

  • hocam orneklerını gercekten cok guzel ellerınıze saglık ama orneklerınızde sql database orneklerıde kullanırsanız gercekten mınnettar kalırım

  • hocam bende ne zamandır bu tür birşey arıyordum ama db hakkında biraz bilgi verirseniz sevinirim

  • merhabalar burada sadece textbox 5 e ne girersek butobda o çıkıyor acaba onu textbox 1 olarak nasıl değiştirebiliriz

  • textbox5 seç.properties ten name özelliğğini textbox1 yap.

  • dediğinizi yaptım ama yine aynı acaba siz o butonun adını textboxtan nasıl çektiniz bende textbox 1 den çekicemde

  • acaba text box 5 i girilen değerin butonda nasıl gösteriyorsunuz kodunu söylermisiniz acaba
    saygılar

  • Soruları açık sorsan.Ne demek istedğini anlamadım.

  • textbox 5 ne girilirse butonları adı da o oluyor ya onu nasıl yaptınız onu anlamadımda

  • çok güzel açıklamışsınız da bunun visual basic de kodları yok mu bana öle lazım da.

  • proje isteklerinizi gorselprogram@gmail.com adresine mail atınızz.

  • mrb arkadaşlar bu yazılımı açıklamalı bir şekilde tez olarak kullanmak istiyorum
    nerede ne hangi amaçla kullanılmış açıklama yaparmısınız şimdiden çok teşekürler
    form 1 form form3 bilgilendiriseniz çok sevinirim

  • İsteklerinizi gorselprogram@gmail.com adresine mail atın.

  • merhaba arkadaşlar. msgl veri tabanlı c# dilinde yazılmış otobüs bilet otomasyonu ödevim var. ama bu konu hakkında hiç bir bilgim yok bana yardımcı olursanız sevinirim.geçmem için bu ödevi yapmam gerekıyor. eğer daha önceden böyle bi ödev yapan arkadaşımız varsa lütfen bana da yollayabilir mi?
    şimdiden herkese teşekkür ederim….

  • keşke dbyide yanında verseydiniz

  • muzik12:
    veri tabanı projenin bin –> debug klasöründe

  • ahmet :
    Projeler için gorselprogram@gmail.com adresine mail atınız.

  • Program gayet güzel ve içinde işime yarıycak kodlar var ancak bag.open() hatası alıyorum çalıştığım program VB 2010 admin yardım edebilirmisin mailde attım ama geri dönmedin bana hiç bir projeme acil yardım gerekiyor lütfen yardım edin..

  • Murat :
    64 bit işletim sitemi kullanıyorsan .Geliştirmekte olduğunuz projenin üstüne sağ tuşla Properties -> Build sekmesine ->geçin.
    Platform Target -> x86′yı seç.
    Eğer 32 bit ise http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=23734 linkinden “Access Database Engine”yi kurunuz.

  • @admin
    Teşekkürler peki proje için yardım etmeniz mümkünmü ?

  • Murat : olur.Yardım edilecek konuyu gorselprogram@gmail.com a mail at.

  • teşekkürler mail yolladım 🙂

  • Select Case oku(13).ToString()
    Case “1”
    If True Then
    form2.button1.Text = oku(4).ToString()
    form2.button1.BackColor = System.Drawing.Color.Red
    Exit Select
    End If

    Oku içerisindeki 13 ile 4 ne işe yarıyor acaba ?

  • Murat :
    veri tabanındaki 4. alan , 13.alan (alanlar 0 dan başlıyor. )

  • hocam amp yazılan yerlerde hata veriyor bu sorunu nasıl çözebilirim Şimdiden teşekkürler…

  • mehmet:
    amp yazan bölümleri sil zaten olmaması gerekiyotr.Zaten yukarıdaki Projeyi İNDİR linkinden programı indirirsen olmadığını göreceksin.

  • baq.Open();
    OleDbDataAdapter adtr = new OleDbDataAdapter(“SELECT * From evbil”, baq);//dataadapter oluşturup tabloya bağlıyoruz
    adtr.Fill(dtst, “evbil”);
    dataView1.Table = dtst.Tables[0];//datawiewin bilgileri dtst’den almasını sağlıyoruz
    dataGrid1.DataSource = dataView1;//datawiew’in aldığı verileri datagride aktarması sağlanıyor
    baq.Close();
    dtst.Dispose();

    dispose ne işe yarıyor?

  • merve:
    Kullanmayı durdur.

  • Hocam elinize sağlık ama keşke sql bağlantısını da gösterseydiniz.

  • admin bu proje visual stüdyo 13 te çalışmıyor mu ?
    sürekli hata ile karşılaşıyorum bi türlü olmadı giremedim .

  • eray :
    Prgram 2013 te çalışıyor.Farklı bir sorun olabilir.Hata mesajını yazarsan yardımcı oluruz.

  • @admin
    hocam merhaba. Ben formlarınızı açmak istediğimde desing formları açılmıyor sebebi nedir?

  • Emah :
    Hata adı ve kodu nedir.

  • @admin
    hocam merhaba value can not be displayed yazıyor ve desing formlarında onlarca kod gibi şeyler var

  • @admin
    merhabalar program kaydediyor ama silemiyor. neden acaba?

  • Merhaba bu programın kodlarını Asp.Net için de kullanabilir miyiz?

  • Kodlabaa:
    Ancak kodların bazılarını kullanabilirsin.Dizaynları zaten farklı. Asp net ile windows formrs application arasında aynı kodlar vardır direkt uygulayamazsın ikisi arasında geçişleri.
    Çözüm olarak şöyle yapabilirsin. Asp net ile web dizaynını yaparsın. Kullanabileceğin kodları kopyala yapıştır ile alabilirsin.

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

➤