Coding Entry Surat Pesanan
Imports System.Data.OleDb
Imports System.Data
Public Class frmEntrySp
Dim cnn As OleDbConnection
Dim cmmd, cmmd1, cmmd2 As OleDbCommand
Dim dReader As OleDbDataReader
Private index As Integer = 0
Private Total As Double = 0.0
Private Sub frmEntrySp_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 surat pesanan
Dim strTmp As String = " "
Dim strValue As String = " "
Dim sql As String
sql = "SELECT * FROM SP ORDER BY NOSP DESC"
cmmd = New OleDbCommand(sql, cnn)
dReader = cmmd.ExecuteReader
If dReader.Read Then
strTmp = Mid(dReader.Item("NOSP"), 3, 5)
Else
txtNoSp.Text = "SP00001"
Exit Sub
End If
'MsgBox(strTemp)
strValue = Val(strTmp) + 1
txtNoSp.Text = "SP" & Mid("00000", 1, 5 - strValue.Length) & strValue
End Sub
Private Sub txtNoSp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNoSp.KeyPress
If Asc(e.KeyChar) = 13 Then
BtncariSup.Focus()
End If
End Sub
Private Sub BtncariSup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtncariSup.Click
Dim popupsup As New PopSup
popupsup.ShowDialog()
If popupsup.retKdSup <> " " Then
txtKdsup.Text = popupsup.retKdSup
txtNmSup.Text = popupsup.retNmSup
txtNmSup.Focus()
End If
End Sub
Private Sub txtNmSup_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNmSup.KeyPress
If Asc(e.KeyChar) = 13 Then
btnCaribrg.Focus()
End If
End Sub
Private Sub txtJmlBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlBeli.KeyPress
If Asc(e.KeyChar) = 13 Then
SetTotal()
txtTotal.Focus()
End If
End Sub
Private Sub txtTotal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTotal.KeyPress
If Asc(e.KeyChar) = 13 Then
btnTambah.Focus()
End If
End Sub
Sub SetTotal()
Dim a As Integer
a = CInt(txtJmlBeli.Text) * CInt(txtSatuan.Text)
txtTotal.Text = Format(CDbl(CStr(a)), "##, ####,####, ###")
'txt.Text = Format (CDbl(txt.Text), "##, ####, ####,###")
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.retNmBrg
txtSatuan.Text = Format(CDbl(popupbrg.retSatuan), "##, ####, ####, ###")
txtJmlBeli.Focus()
End If
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
Dim Value() As String = {txtKdBrg.Text, txtnmbrg.Text, txtSatuan.Text, txtJmlBeli.Text, txtTotal.Text}
AddList(Value)
Total += CDbl(txtTotal.Text) : txtGrandtotal.Text = Format(CDbl(CStr(Total)), "##, ####, ####, ###")
txtKdBrg.Text = "" : txtnmbrg.Text = "" : txtSatuan.Text = "" : txtJmlBeli.Text = ""
txtTotal.Text = ""
txtKdBrg.Focus()
End Sub
Sub AddList(ByVal Value() As String)
Dim subIndex As Integer
ListView1.Items.Add("")
For subIndex = 0 To 4
ListView1.Items(index).SubItems.Add("")
ListView1.Items(index).SubItems(subIndex).Text = Value(subIndex)
Next
index = index + 1
End Sub
Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
Dim counter As Integer
Dim sqll, sql2 As String
Try
sqll = "INSERT INTO SP (NOSP, TGLSP, KDSUP) " & "VALUE('" & txtNoSp.Text & "','" & datetglsp.Text & "','" & txtKdsup.Text & "')"
cmmd1 = New OleDbCommand(sqll, cnn)
Dim x As Integer = cmmd1.ExecuteNonQuery
For counter = 0 To index - 1
sql2 = "INSERT INTO PESAN(TKDBRG,NOSP, JML, HRG) " & "VALUE('" & ListView1.Items(counter).SubItems(0).Text & "','" & txtNoSp.Text & "','" & ListView1.Items(counter).SubItems(3).Text & "','" & ListView1.Items(counter).SubItems(2).Text & "')"
cmmd2 = New OleDbCommand(sql2, cnn)
cmmd2.ExecuteNonQuery()
Next
If x = 1 Then
MessageBox.Show("DATA SP BERHASIL DISIMPAN")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click
ListView1.Items.Clear()
index = 0 : Total = 0
txtGrandtotal.Text = ""
End Sub
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
Me.Close()
End Sub
End Class
Free Template Blogger
collection template
Hot Deals
BERITA_wongANteng
SEO
theproperty-developer
