Memasukan (insert) data kedalam DataGrid (Vbnet 2008)

Memasukan (insert) data kedalam DataGrid (Vbnet 2008)

Sekarang saya beralih ke VB Net Setelah sekian lama ane ngotak atik java dan Php , disini ane mau coba membuat program sederhana yang belom menggunakan database yang mana program ini hanya menyimpan atau menampilkan data ke dalam dataGrid saja , didalam program ini sudah menggunakan kondisi if Else , wah kayaknya kalau ane memperpanjang cerita jadi gak mulai â€" mulai ne program vb net nya ne……..           lansung saja di buka VBnet 2008 Nya ,  kemudian klik file > New > Widows Application>lalu berikan nama dengan project kita yang aan kita buatcoba design tampilan program seperti di bawah ini: kemudian berikan kondisi ke dalam textbox1.text dengan listing sebagai berikut :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As   System.EventArgs)   Handles TextBox1.TextChanged          If TextBox1.Text = "001" Then              TextBox2.Text = "pisang"              TextBox3.Text = "2000"              TextBox4.Text = "20000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            ElseIf TextBox1.Text = "002" Then              TextBox2.Text = "sirsak"              TextBox3.Text = "4"              TextBox4.Text = "4000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            ElseIf TextBox1.Text = "003" Then              TextBox2.Text = "durian"              TextBox3.Text = "4"              TextBox4.Text = "4000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            ElseIf TextBox1.Text = "004" Then              TextBox2.Text = "sawit"              TextBox3.Text = "60"              TextBox4.Text = "5000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            ElseIf TextBox1.Text = "002" Then              TextBox2.Text = "nangka"              TextBox3.Text = "40"              TextBox4.Text = "40000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            Else              TextBox2.Text = "jambu"              TextBox3.Text = "30"              TextBox4.Text = "30000"              TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)            End If      End Sub

Kemudian berikan kondisi Pada Button Hasil:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs)   Handles Button1.Click      TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)      DataGridView1.RowCount = DataGridView1.RowCount + 1      DataGridView1(0, DataGridView1.RowCount - 2).Value = TextBox1.Text      DataGridView1(1, DataGridView1.RowCount - 2).Value = TextBox2.Text      DataGridView1(2, DataGridView1.RowCount - 2).Value = ComboBox1.Text      DataGridView1(3, DataGridView1.RowCount - 2).Value = TextBox3.Text      DataGridView1(4, DataGridView1.RowCount - 2).Value = TextBox4.Text      DataGridView1(5, DataGridView1.RowCount - 2).Value = TextBox5.Text          If TextBox1.Text = "" Then              MsgBox("data masih kosong brooo")          End If        End Sub

kemudian masukan kondisi ini ke dalam button bersih:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs)   Handles Button3.Click          TextBox1.Text = ""          TextBox2.Text = ""          TextBox3.Text = ""          TextBox4.Text = ""          TextBox5.Text = ""          ComboBox1.Text = ""      End Sub

yang terakhir masukan listing ini ke dalam tombo keluar:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs)   Handles Button2.Click          Me.Close()      End Sub

Note : untuk memasukan script silahkan double click pada area yang akan kita beri perintah misal button . sekian dan terimakasih .... regards rokansoft  

Share this

Share on FacebookPlus on Google+