Beranda » Tanpa Kategori » :: PROGRAM PENGOLAHAN DATA BARANG ::

:: PROGRAM PENGOLAHAN DATA BARANG ::

Program Pengolahan Data Barang

URUTAN LANGKAH KERJA:

1. Buka Program Menu Utama yang telah Anda buat

2. Tambahkan Form Baru dengan cara : Klik menu Project, Klik Add Form, Klik Open

3. Simpan Form Tersebut dengan nama Fbarang (Lokasi penyimpanan sama dengan Menu Utama)

4. Desain Form Seperti Gambar Dibawah ini

5. Setting Object pada Form tersebut sesuai dengan nomor..pada tabel dibawah ini.

Objek	No	Properti	Setting
Form	1	Name Icon Caption	FBarang $Rectangular Callout: Cari icon di… C:\Program Files\Micrfosoft Visual Studio\Common\Graphic\icon\computer$ Pilih salah satu gambar (*.ico) Aplikasi Data Barang
Frame	2	Caption	Input Data
TextBox	3	Name Text	TxtKode
TextBox	4	Name Text	txtNama
TextBox	5	Name Text	txtSatuan
TextBox	6	Name Text	txtHargaBeli
TextBox	7	Name Text	txtHargaJual
TextBox	8	Name Text	txtStock
DBGrid	9	DataSource Caption Tab Action	Barang Tampilan Data Barang 2 – Grid Navigation
Frame	10	Captionn	Cari
OptionButton	11	Name Caption Index	OptSortir Kode 0
OptionButton	12	Name Caption Index	OptSortir Nama Brg 1 $Rectangular Callout: DatabaseName adalah menentuka dimana database disimpan dan apa nama databasenya.(A:\Transaksi) RecordSource adalah nama Tabel dari database Transaksi$
Data	13	Name Caption DatabaseName RecordSource RecordSetType	Barang Data Barang A:\Transaksi.MDB Barang 0 - Table
Frame	14	Captionn	Proses
CommandButton	15	Name Caption	CmdTambah &Tambah
CommandButton	16	Name Caption	CmdBatal &Batal
CommandButton	17	Name Caption	CmdSimpan &Simpan
Frame	18	Captionn	Cari
ComboBox	19	Name Text	cmbCari Kode
TextBox	20	Name Text	TxtCari
CommandButton	21	Name Caption	CmdKoreksi &Koreksi
CommandButton	22	Name Caption	CmdHapus &Hapus
CommandButton	23	Name Caption	CmdKeluar &Keluar

6. Setelah selesai pengaturan Objek-objek diatas, langkah selanjutnya aktifkan Jendela Code ( Klik Menu View, Klik Code) lalu ketiklah Program dibawah ini:

-------------------------------------------------------------------------------------------------------------------------------

Dim koreksi As String

-------------------------------------------------------------------------------------------------------------------------------

Private Sub Form_Activate()

txtKode.MaxLength = 5

tidakaktif

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()

cmbCari.AddItem "Kode"

cmbCari.AddItem "Nama Barang"

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub txtKode_Change()

If Len(Trim(txtKode.Text)) < 5 Then

Exit Sub

End If

barang.Recordset.Index = "KodeIdx"

barang.Recordset.Seek "=", txtKode.Text

If Not barang.Recordset.NoMatch Then

txtNama.Text = barang.Recordset!Nama

txtSatuan.Text = barang.Recordset!Satuan

txtHargaBeli.Text = barang.Recordset!hargabeli

txtHargaJual.Text = barang.Recordset!hargajual

txtStock.Text = barang.Recordset!stock

X = MsgBox("Data Barang sudah ada..mau di Koreksi ?? ", vbOKCancel, "Informasi")

If X = vbOK Then

koreksi = "ya"

aktif

End If

Exit Sub

End If

koreksi = "no"

aktif

kosongkan

txtNama.SetFocus

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdsimpan_Click()

If koreksi = "ya" Then

barang.Recordset.Edit

Else

barang.Recordset.AddNew

End If

barang.Recordset!Kode = txtKode.Text

barang.Recordset!Nama = txtNama.Text

barang.Recordset!Satuan = txtSatuan.Text

barang.Recordset!hargabeli = txtHargaBeli.Text

barang.Recordset!hargajual = txtHargaJual.Text

barang.Recordset!stock = txtStock.Text

barang.Recordset.Update

cmdBatal_Click

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdBatal_Click()

kosongkan

tidakaktif

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdtambah_Click()

txtKode.Enabled = True

txtKode.Text = ""

txtKode.BackColor = vbWhite

txtKode.SetFocus

cmdBatal.Enabled = True

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub optsortir_Click(Index As Integer)

Select Case Index

Case 0

barang.Recordset.Index = "kodeidx"

Case 1

barang.Recordset.Index = "namaidx"

End Select

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub txtCari_Change()

If cmbCari.Text = "Kode" Then

barang.Recordset.Index = "KodeIdx"

barang.Recordset.Seek "<=", Trim(txtCari.Text) & "zzz"

If barang.Recordset.NoMatch Then

If Len(Trim(txtCari.Text)) = 6 Then

Beep

End If

If cmbCari.Text = "Nama Barang" Then

barang.Recordset.Index = "NamaIdx"

barang.Recordset.Seek "<=", Trim(txtCari.Text) & "zzz"

If barang.Recordset.NoMatch Then

If Len(Trim(txtCari.Text)) = 50 Then

Beep

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdHapus_Click()

X = MsgBox("Betul akan dihapus?", vbYesNo, "Menghapus record")

If X = vbOK Then

barang.Recordset.Delete

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdkoreksi_Click()

aktif

txtKode.Text = barang.Recordset!Kode

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Private Sub cmdkeluar_Click()

Unload Me

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Rem-------------------------------------------------------------------------------------------------------------------------------

Rem -- Kumpulan Sub Program ---

Rem -------------------------------------------------------------------------------------------------------------------------------

Sub tidakaktif()

txtKode.Enabled = False

txtNama.Enabled = False

txtSatuan.Enabled = False

txtHargaBeli.Enabled = False

txtHargaJual.Enabled = False

txtStock.Enabled = False

txtKode.BackColor = vbGrayText

txtNama.BackColor = vbGrayText

txtSatuan.BackColor = vbGrayText

txtHargaBeli.BackColor = vbGrayText

txtHargaJual.BackColor = vbGrayText

txtStock.BackColor = vbGrayText

cmdsimpan.Enabled = False

cmdBatal.Enabled = False

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub aktif()

txtKode.Enabled = True

txtNama.Enabled = True

txtSatuan.Enabled = True

txtHargaBeli.Enabled = True

txtHargaJual.Enabled = True

txtStock.Enabled = True

txtKode.BackColor = vbWhite

txtNama.BackColor = vbWhite

txtSatuan.BackColor = vbWhite

txtHargaBeli.BackColor = vbWhite

txtHargaJual.BackColor = vbWhite

txtStock.BackColor = vbWhite

cmdsimpan.Enabled = True

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub kosongkan()

txtNama.Text = ""

txtSatuan.Text = ""

txtHargaBeli.Text = ""

txtHargaJual.Text = ""

txtStock.Text = ""

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Catatan:

Setelah selesai Anda ketik kode programnya, untuk menjalankan Aplikasi Barang. Hubungkan Program Barang dengan Program Menu:

Caranya:

· Buka program MENU

· Klik Menu File pada Menu yang anda buat tadi

· Klik Aplikasi Barang

· Buat seperti program dibawah ini…

……………………………………………………………

Private sub mnuBRG_click()

FBARANG.SHOW

End Sub

……………………………………………………………

7. Setelah Program Anda Selesai Isikan data-data dibawah ini:

Bunga Sakura

Music

Efek Mouse