Update data dalam modul Stok, Aplikasi Program Software Retail


Modul stok dalam Aplikasi Program Software Retail, merupakan modul utama, sebagai bagian pencatatan data induk barang/stok. Secara urutan penggunaan aplikasi, modul ini mesti dilakukan penyimpanan datanya. Semua barang yang sudah ada di toko/gudang dicatat, sebagai data yang akan digunakan untuk penjualan, pembelian dll.

Stok adalah asset utama, sehingga monitoring stok menjadi hal yang penting. Desain aplikasi produk kami, mempunyai mekanisme, bahwa jumlah barang di modul Stok, tidak dapat diubah. Semua perubahan terkait jumlah Stok harus dicatat melalui transakai, baik itu Penjualan, Pembelian atau Mutasi Stok.

Private Sub cmdUbah_Click()
On Error GoTo errhandler
If CekAppAkses(Val(Me.Tag), “ubah”) = False Then
cmdUbah.Enabled = False
Else
strS1 = “update stok set nama_barang= ‘” & AllowChar(TxtNama_barang.Text) & “‘ ,” _
+ ” kode_kategoribrg='” & AllowChar(cboKode_kategoriBrg.Text) & “‘,lokasi='” & AllowChar(txtLokasi.Text) & “‘, ” _
+ ” harga_jual='” & txtHarga_jual.Text & “‘,harga_beli='” & txtHarga_beli.Text & “‘, ” _
+ ” Satuan='” & Trim(AllowChar(CboSatuan.Text)) & “‘ where kode_barang='” & Txtkode_barang.Text & “‘”
cN.Execute (strS1)

MsgBox “data berhasil diUbah”
End If
Exit Sub
errhandler:
MsgBox Err.Description, vbCritical
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: