Form Data Barang

Form data barang ini digunakan untuk input,edit dan delete data barang yang ada. Form ini adalah form master yang harus ada karena ini adalah objek penting dalam aplikasi SIP Toko ini.

Yang diperlukan dalam pembuatannya adalah :

Object	Properties	Setting
Form	Name	frmJenisBarang
	BorderStyle	0-None
	BackColor	&H00FFC0C0&
	StartUpPosition	2-CenterScreen
Label	Name	Label1
	Font	Calibri
	ForeColor	&H8000000D&
	Caption	Form Data Barang
Textbox	Name	TxtCari
	Appearance	0-Flat
	Height	330
VBButton	Name	CmdSave
	ButtonType	4-Mac
	Caption	&Save
	Name	CmdCancel
	ButtonType	4-Mac
	Caption	&Cancel
	Name	CmdCari
	ButtonType	4-Mac
	Caption	&Cari
	Name	vbButton1
	ButtonType	3-WindowsXP
	Caption	-
	BackColor	&H00FFC0C0&
	Name	vbButton2
	ButtonType	3-WindowsXP
	Caption	X
	BackColor	&H00FFC0C0&
Timmer	Name	Timmer1
	Interval	9000
	Enabled	False
TDBGrid	Name	Grid
	DeadAreaColor	&H00FFC0C0&
	ColumnFooter	False
	MarqueeStyle	2-HighlightCell
TDBGrid. Column(0)	DataField	KodeBarang
	Caption	Kode Barang
TDBGrid. Column(1)	DataField	NamaBarang
	Caption	Nama Barang
TDBGrid. Column(2)	DataField	Jenis
	Caption	Jenis
TDBGrid. Column(3)	DataField	Satuan
	Caption	Satuan
TDBGrid. Column(4)	DataField	HargaBeli
	Caption	Harga Beli
TDBGrid. Column(5)	DataField	BiayaKirim
	Caption	Biaya Kirim
TDBGrid. Column(6)	DataField	HargaPokok
	Caption	Harga Pokok
TDBGrid. Column(7)	DataField	HargaGrosir
	Caption	Harga Grosir
TDBGrid. Column(8)	DataField	HargaEcer
	Caption	Harga Eceran
TDBGrid. Column(9)	DataField	StockMax
	Caption	Stock Max
TDBGrid. Column(10)	DataField	StockMin
	Caption	Stock Min
TDBGrid. Column(11)	DataField	Stock
	Caption	Stock

Tampilan design form data barang :

Tampilan form saat dijalankan :

Source Code :

Dim RsTemp As New ADODB.Recordset