Coding Entry Data Barang
Imports System.Data.OleDb
Imports System.Data
Public Class frmMasterBarang
Dim cnn As OleDbConnection
Dim cmmd As OleDbCommand
Dim dReader As OleDbDataReader
Private Sub frmMasterBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Buka koneksi
cnn = New OleDbConnection(strConn)
If cnn.State <> ConnectionState.Closed Then cnn.Close()
cnn.Open()
'Buat AutoNumber u kode barang
Dim strTemp As String = ""
Dim strValue As String = ""
Dim sql As String
sql = "SELECT * FROM BARANG ORDER BY TKDBRG DESC"
cmmd = New OleDbCommand(sql, cnn)
dReader = cmmd.ExecuteReader
If dReader.Read Then
strTemp = Mid(dReader.Item("TKDBRG"), 3, 5)
Else
txtKdBrg.Text = "BG00001"
Exit Sub
End If
'MsgBox(strTemp)
strValue = Val(strTemp) + 1
txtKdBrg.Text = "BG" & Mid("00000", 1, 5 - strValue.Length) & strValue
End Sub
Private Sub txtKdBrg_keyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKdBrg.KeyPress
If dReader.Read Then
''jika data ditemukan
cmdSimpan.Enabled = False
cmdUbah.Enabled = True
cmdHapus.Enabled = True
txtNmBrg.Text = dReader.Item("TNMBRG")
txtSatuan.Text =
Format(CDbl(dReader.Item("TSATUAN")), "##,####,####,###")
txtNmBrg.Focus()
Else
txtNmBrg.Focus()
txtNmBrg.Text = ""
txtSatuan.Text = ""
End If
End Sub
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
Me.Dispose()
End Sub
Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
Dim sql As String
Dim strTemp As String = ""
Dim strValue As String = ""
sql = "INSERT INTO BARANG(TKDBRG, TNMBRG, TSATUAN)" & _
"VALUES('" & txtNmBrg.Text & _
"','" & txtNmBrg.Text & "','" & txtSatuan.Text & "')"
cmmd = New OleDbCommand(sql, cnn)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL DISIMPAN")
sql = "SELECT* FROM BARANG ORDER BY TKDBRG DESC"
cmmd = New OleDbCommand(sql, cnn)
dReader = cmmd.ExecuteReader
If dReader.Read Then
strTemp = Mid(dReader.Item("TKDBRG"), 3, 5)
'caraChris
'strChris=Mid (dReader.Item("TKDBRG"), 3, 5) + 1
Else
txtKdBrg.Text = "BG00001"
Exit Sub
End If
'MsgBox(strTemp)
strValue = Val(strTemp) + 1
txtKdBrg.Text = "BG" & Mid("00000", 1, 5 - strValue.Length) &
strValue
txtNmBrg.Text = ""
txtSatuan.Text = ""
txtNmBrg.Focus()
Else
MessageBox.Show("GAGAL MENYIMPAN DATA")
End If
End Sub
Private Sub cmdUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUbah.Click
Dim sql As String
sql = "UPDATE BARANG SET TNMBRG='" & txtNmBrg.Text & "'," & _
"TSATUAN='" & txtSatuan.Text & "'" & _
"WHERE TKDBRG='" & txtKdBrg.Text & "'"
cmmd = New OleDbCommand(sql, cnn)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL DIUPDATE")
txtKdBrg.Text = ""
txtNmBrg.Text = ""
txtSatuan.Text = ""
txtKdBrg.Enabled = True
txtKdBrg.Focus()
Else
MessageBox.Show("GAGAL UPDATE DATA")
End If
End Sub
Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
Dim sql As String
sql = "DELETE FROM BARANG WHERE TKDBRG='" & txtKdBrg.Text & "'"
cmmd = New OleDbCommand(sql, cnn)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL DIUPDATE")
txtKdBrg.Text = ""
txtNmBrg.Text = ""
txtSatuan.Text = ""
txtKdBrg.Enabled = True
txtKdBrg.Focus()
Else
MessageBox.Show("GAGAL HAPUS DATA")
End If
End Sub
Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click
txtNmBrg.Text = ""
txtSatuan.Text = ""
txtNmBrg.Focus()
End Sub
Private Sub BtnCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCariBrg.Click
Dim popupbrg As New PopBrg
popupbrg.ShowDialog()
If popupbrg.retKdBrg <> "" Then
txtKdBrg.Text = popupbrg.retKdBrg
txtNmBrg.Text = popupbrg.retKdBrg
txtSatuan.Text = Format(CDbl(popupbrg.retSatuan), "##,####,####,###")
txtKdBrg.Enabled = False
txtNmBrg.Focus()
End If
End Sub
End Class
