Untuk melihat hasil program dibawah ini, KLIK DISINI
Public Class Form1
Dim kolom As Integer = Nothing
Dim i As Integer
Dim mencari As Boolean = False
Analisis :
Listing ini digunakan untuk deklarasi bahwa ‘kolom’ dan ‘i’ bersifat integer dan ‘mencari’ bersifat boolean.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘Kelompok_40_newwwDataSet.Baju’ table. You can move, or remove it, as needed.
Me.BajuTableAdapter.Fill(Me.Kelompok_40_newwwDataSet.Baju)
End Sub
Analisis :
Listing ini digunakan untuk menjelaskan bahwa dalam form1 terdapat database kelompok 40 newww dengan tabel baju.
Private Sub BindingNavigator1SaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigator1.Click
Me.Validate()
Me.BajuBindingSource.EndEdit()
Me.TableAdapterManager1.UpdateAll(Me.Kelompok_40_newwwDataSet)
End Sub
Analisis :
Listing ini digunakan untuk menyimpan data yang telah ada pada database yang telah dibuat sebelumnya.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BajuBindingSource.AddNew()
DataGridView1.Enabled = True
End Sub
Analisis :
Listing ini digunakan untuk menambahkan suatu data kedalam database seperti untuk menambahkan suatu jenis baju beserta ukuran, kode dll yang berhubungan dengan jenis baju tersebut.
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BajuBindingSource.RemoveCurrent()
End Sub
Analisis :
Listing ini digunakan untuk menghapus suatu data yang terdapat pada database seperti untuk menghapus suatu jenis baju beserta ukuran, kode dll yang berhubungan dengan baju tersebut.
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
Me.BajuBindingSource.EndEdit()
Me.TableAdapterManager1.UpdateAll(Me.Kelompok_40_newwwDataSet)
End Sub
Analisis :
Listing ini digunakan untuk menyimpan data jika ada suatu perubahan terhadap data yang telah kita buat.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ComboBox1.Text = “kode” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(0, i).Value = TextBox1.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox2.Text = DataGridView1.Item(1, kolom).Value
TextBox3.Text = DataGridView1.Item(2, kolom).Value
TextBox4.Text = DataGridView1.Item(3, kolom).Value
TextBox5.Text = DataGridView1.Item(4, kolom).Value
TextBox6.Text = DataGridView1.Item(5, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox1.Focus()
Else
MessageBox.Show(“Fill (Kode) !”)
End If
ElseIf ComboBox1.Text = “jenis” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(1, i).Value = TextBox2.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
TextBox1.Text = DataGridView1.Item(0, kolom).Value
TextBox3.Text = DataGridView1.Item(2, kolom).Value
TextBox4.Text = DataGridView1.Item(3, kolom).Value
TextBox5.Text = DataGridView1.Item(4, kolom).Value
TextBox6.Text = DataGridView1.Item(5, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox2.Focus()
Else
MessageBox.Show(“Fill (Jenis) !”)
End If
ElseIf ComboBox1.Text = “merek” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(2, i).Value = TextBox3.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
TextBox1.Text = DataGridView1.Item(0, kolom).Value
TextBox2.Text = DataGridView1.Item(1, kolom).Value
TextBox4.Text = DataGridView1.Item(3, kolom).Value
TextBox5.Text = DataGridView1.Item(4, kolom).Value
TextBox6.Text = DataGridView1.Item(5, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox3.Focus()
Else
MessageBox.Show(“Fill (Merek) !”)
End If
ElseIf ComboBox1.Text = “ukuran” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(3, i).Value = TextBox4.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
TextBox1.Text = DataGridView1.Item(0, kolom).Value
TextBox2.Text = DataGridView1.Item(1, kolom).Value
TextBox3.Text = DataGridView1.Item(2, kolom).Value
TextBox5.Text = DataGridView1.Item(4, kolom).Value
TextBox6.Text = DataGridView1.Item(5, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox4.Focus()
Else
MessageBox.Show(“Fill (Ukuran) !”)
End If
ElseIf ComboBox1.Text = “bulan” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(4, i).Value = TextBox5.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
TextBox1.Text = DataGridView1.Item(0, kolom).Value
TextBox2.Text = DataGridView1.Item(1, kolom).Value
TextBox3.Text = DataGridView1.Item(2, kolom).Value
TextBox4.Text = DataGridView1.Item(3, kolom).Value
TextBox6.Text = DataGridView1.Item(5, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox5.Focus()
Else
MessageBox.Show(“Fill (Bulan) !”)
End If
ElseIf ComboBox1.Text = “harga” Then
For i = 0 To DataGridView1.RowCount – 1
If mencari = False And DataGridView1.Item(5, i).Value = TextBox6.Text Then
mencari = True
kolom = i
Exit For
End If
Next
If mencari Then
TextBox1.Text = DataGridView1.Item(0, kolom).Value
TextBox2.Text = DataGridView1.Item(1, kolom).Value
TextBox3.Text = DataGridView1.Item(2, kolom).Value
TextBox4.Text = DataGridView1.Item(3, kolom).Value
TextBox5.Text = DataGridView1.Item(4, kolom).Value
ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
TextBox6.Focus()
Else
MessageBox.Show(“Fill (Harga) !”)
End If
End If
End Sub
Analisis :
Listing ini digunakan untuk mencari data yang ada pada database dengan cara memasukkan jenis baju yang sesuai pada database pada textbox yang telah dipilih pada combobox sehingga jika kita mengklik tombol search (button4) maka akan muncul pemberitahuan ‘successed!’ dan akan muncul semua data yang berhubungan dengan jenis baju yang diisikan pada textbox, namun jika data yang diisikan pada textbox tersebut tidak sesuai dengan jenis baju yang ada pada database maka akan tampil pemberitahuan ‘successed!’ tapi tidak muncul semua data yang berhubungan dengan jenis baju tersebut. Jika tombol ‘search’ (button4) ditekan tanpa memasukkan data pada textbox maka akan tampil pemberitahuan ‘Fill (jenis)!’.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = Nothing
TextBox2.Text = Nothing
TextBox3.Text = Nothing
TextBox4.Text = Nothing
TextBox5.Text = Nothing
TextBox6.Text = Nothing
TextBox7.Text = Nothing
ComboBox1.Text = Nothing
mencari = Nothing
kolom = Nothing
i = Nothing
End Sub
Analisis :
Listing ini digunakan untuk merefresh program (button5) dengan mengklik tombol refresh pada program sehingga program kembali ke awal sebelum pengisian. Dengan mengklik tombol refresh (button5) membuat seluruh textbox yang ada dan telah terisi menjadi kosong hal ini, memudahkan untuk pencarian selanjutnya.
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
BajuBindingSource.Filter = “kode like ‘%” + TextBox7.Text + “%’ or jenis like ‘%” + TextBox7.Text + “%’ or merek like ‘%” + TextBox7.Text + “%’ or ukuran like ‘%” + TextBox7.Text + “%’ or bulan like ‘%” + TextBox7.Text + “%'”
End Sub
Analisis :
Listing ini digunakan untuk menemukan data yang ada pada database sehingga program akan langsung menemukan semua data yang ada dalam database yang berhubungan dengan apa yang kita ketikkan pada textbox7 (find). Sehingga kita dapat menemukan data tidak hanya dari jenis bajunya saja namun dari keseluruhan seperti ukuran, kode, merek dll, maka data akan terfilter sesuai dengan masukkan data.
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = “kode” Then
TextBox1.Focus()
ElseIf ComboBox1.Text = “jenis” Then
TextBox2.Focus()
ElseIf ComboBox1.Text = “merek” Then
TextBox3.Focus()
ElseIf ComboBox1.Text = “ukuran” Then
TextBox4.Focus()
ElseIf ComboBox1.Text = “bulan” Then
TextBox5.Focus()
ElseIf ComboBox1.Text = “harga” Then
TextBox6.Focus()
End If
End Sub
Analisis :
Listing ini digunakan apabila memilih salah satu teks dari combobox maka, pointer akan mengarah pada textbox yang dituju.
Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Close()
End Sub
End Class
Analisis :
Listing ini digunakan untuk menutup program / keluar dari program.