Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Data.Odbc
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Call koneksi()
- Call tampilkan_pesanan()
- Call tampilgrid()
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- Call koneksi()
- Call Otomatis()
- cmd = New OdbcCommand("select * from jenis_makanan where id_jenis='" & ComboBox1.Text & "'", conn)
- dr = cmd.ExecuteReader
- If dr.HasRows Then
- TextBox1.Text = dr(1)
- End If
- End Sub
- Sub tampilkan_pesanan()
- Call koneksi()
- cmd = New OdbcCommand(" select distinct id_jenis from jenis_makanan", conn)
- dr = cmd.ExecuteReader
- ComboBox1.Items.Clear()
- Do While dr.Read ' ngelopping
- ComboBox1.Items.Add(dr.Item("id_jenis"))
- Loop
- End Sub
- Sub Otomatis()
- Dim id As String
- id = ComboBox1.Text
- Call koneksi()
- cmd = New OdbcCommand("select * from masakan where id_masakan in(select max(id_masakan) from masakan where LEFT(id_masakan, 5)='" & id & "')", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If Not dr.HasRows Then
- TextBox2.Text = id + Format(Now, "yyyy") + "01"
- Else
- If Microsoft.VisualBasic.Left(dr.Item("id_masakan"), 9) <> id + Format(Now, "yyyy") Then
- TextBox2.Text = id + Format(Now, "yyyy") + "01"
- Else
- Dim a As String = CInt(Microsoft.VisualBasic.Right(dr.Item("id_masakan"), 2)) + 1
- TextBox2.Text = id + Format(Now, "yyyy") + Microsoft.VisualBasic.Right("00" & a, 2)
- End If
- End If
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- OpenFileDialog1.Reset()
- OpenFileDialog1.ShowDialog() 'menampilkan Browser Gambar
- OpenFileDialog1.Filter = "(*.jpg) | *.jpg "
- PictureBox1.Text = PictureBox1.Text + "<img>" + OpenFileDialog1.FileName + "</img>"
- 'menampilan pacth nya muncul foto ada di textbox4
- TextBox6.Text = OpenFileDialog1.FileName
- End Sub
- Sub gambar() 'menampilkan gambar
- On Error Resume Next
- PictureBox1.Load(TextBox6.Text)
- PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
- End Sub
- Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
- Call gambar()
- End Sub
- Sub bersihkan()
- TextBox1.Text = ""
- TextBox4.Text = ""
- TextBox5.Text = ""
- TextBox6.Text = ""
- TextBox2.Text = ""
- ComboBox2.Text = ""
- TextBox3.Text = ""
- ComboBox1.Text = ""
- PictureBox1.Text = ""
- End Sub
- Sub panggil_data()
- On Error Resume Next
- TextBox2.Text = dr.Item(0)
- TextBox3.Text = dr.Item(1)
- TextBox4.Text = dr.Item(2)
- ComboBox1.Text = dr.Item(3)
- ComboBox2.Text = dr.Item(4)
- TextBox6.Text = dr.Item(5)
- End Sub
- Sub tampilgrid()
- Call koneksi()
- da = New OdbcDataAdapter("select * from masakan", conn)
- ds = New DataSet
- da.Fill(ds)
- DGV.DataSource = ds.Tables(0)
- DGV.ReadOnly = True
- End Sub
- Sub panggil_kode()
- Call koneksi()
- cmd = New OdbcCommand("select * from masakan where id_masakan='" & TextBox3.Text & "'", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox2.Text = "" Then
- MsgBox("Data Belum Lengkap", MsgBoxStyle.Information, "INFORMASI NIH BOY")
- Exit Sub
- Else
- Call panggil_kode()
- 'Koding Khusus Ketika Di Run Dan Enter ID Foto Bisa Muncul
- Dim newtext As String
- Dim oldtext As String = TextBox6.Text
- newtext = oldtext.Replace("\", "\\")
- If Not dr.HasRows Then
- Dim simpan As String = "insert into masakan values('" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & ComboBox1.Text & "','" & ComboBox2.Text & "', '" & newtext & "')"
- cmd = New OdbcCommand(simpan, conn)
- cmd.ExecuteNonQuery()
- MsgBox("Data Berhasil Di Simpan", MsgBoxStyle.Information, "INFORMASI NIH BOY")
- Call bersihkan()
- Else
- Dim edit As String = "update masakan set nama_masakan= '" & TextBox4.Text & "', harga_masakan='" & TextBox5.Text & "', status_masakan='" & ComboBox1.Text & "',id_jenis='" & ComboBox2.Text & "', foto_masakan='" & newtext & "' where id_masakan='" & TextBox3.Text & "'"
- cmd = New OdbcCommand(edit, conn)
- cmd.ExecuteNonQuery()
- MsgBox("BERHASIL DI UPDATE")
- End If
- Call tampilgrid()
- Call bersihkan()
- End If
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Call bersihkan()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Me.Close()
- End Sub
- Private Sub DGV_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV.CellMouseClick
- On Error Resume Next
- TextBox3.Text = DGV.Rows(e.RowIndex).Cells(0).Value
- Call panggil_kode()
- If dr.HasRows Then
- Call panggil_data()
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If TextBox1.Text = "" Then
- MsgBox("Kode harus diisi")
- TextBox1.Focus()
- Exit Sub
- End If
- If MessageBox.Show("Hapus Jangan?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
- Dim hapus As String = "delete from masakan where id_masakan='" & TextBox2.Text & "'"
- cmd = New OdbcCommand(hapus, conn)
- cmd.ExecuteNonQuery()
- Call bersihkan()
- Call tampilgrid()
- End If
- End Sub
- Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
- Call koneksi()
- da = New OdbcDataAdapter("select * from masakan where nama_masakan like '%" & TextBox3.Text & "%'", conn)
- ds = New DataSet
- da.Fill(ds)
- DGV.DataSource = ds.Tables(0)
- DGV.ReadOnly = True
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement