[Badguy13]

gan ane suruh bikin program kaya point of sales gitu. cuma ane masih bingung cara bikin auto fill kalo kita ketikin kode barang biar langsung nama barang, ma harga tu keisi semua....



mohon pencerahannya




Spoiler for project:














ni codenya




Code:

Private Sub Form_Load()
Top = (Screen.Height - Height) / 2
Left = (Screen.Width - Width) / 2
txtTanggal.Text = Date
End Sub

Sub refreshDG()
Set rsPenjualanMaster = New ADODB.Recordset
rsPenjualanMaster.LockType = adLockOptimistic
rsPenjualanMaster.CursorType = adOpenDynamic
rsPenjualanMaster.Open "SELECT * FROM PenjualanMaster", conn, , , adCmdText
Set DGku.DataSource = rsPenjualanMaster
End Sub

Private Sub cmdNew_Click()
txtKodeBarang.Text = " "
txtNamaBarang(0).Text = " "
txtHarga(1).Text = " "
txtJumlah.Text = " "
End Sub

Private Sub cmdUpdate_Click()
Dim tanya
tanya = MsgBox("tambah barang?", vbQuestion + vbYesNo)
If tanya = vbYes Then
Set rsPenjualanMaster = New ADODB.Recordset
rsPenjualanMaster.LockType = adLockOptimistic
rsPenjualanMaster.CursorType = adOpenDynamic
rsPenjualanMaster.Open "SELECT * FROM PenjualanMaster", conn, , , adCmdText
With rsPenjualanMaster
.AddNew
!Kodetransaksi = txtKodeTransaksi
!TglTransaksi = txtTanggal.Text
!total = txtJumlah.Text
.Update
End With
MsgBox "data telah di Update", vbInformation
refreshDG
txtSubTotal.Text = Val(txtHarga(1)) * Val(txtJumlah)
txtTotalHarga.Text = Val(txtSubTotal) + (Val(txtHarga(1)) * Val(txtJumlah))
Else
clearTxt
End If
End Sub

Sub clearTxt()
txtKodeBarang.Text = " "
txtNamaBarang(0).Text = " "
txtHarga(1).Text = " "
txtJumlah.Text = " "
txtKodeBarang.SetFocus
End Sub

Private Sub cmdBayar_Click()
txtKembalian.Text = Val(txtBayar) - Val(txtTotalHarga)
End Sub

Private Sub cmdExit_Click()
frmPilihan.Visible = True
frmPenjualan.Visible = False
End Sub

Private Sub txtKodeBarang_Change()
txtNamaBarang(0).Text = select from /barang
End Sub

kalo ada yang bisa bantu. ntar pas presentasi program ini ane sebutin namnya sebagai master ane.....



makasih sebelumnya gan.....