Tutorial Microsoft Access Full Aplikasi Input Stok Barang
Aplikasi Stock Barang dengan Microsoft Access
Aplikasi STOK DENGAN MS. ACCESS
1. Membuat Tabulasi A. Tabel Dagangan Struktur tabulasi :
Isi Tabel : Kode_Barang
Nama_Barang
Harga_Beli
Harga_Jual
HW01
Mainboard
Rp 500.000
Rp 600.000
HW02
Processor
Rp 700.000
Rp 800.000
HW03
Harddisk
Rp 600.000
Rp 650.000
HW04
Monitor
Rp 1.000.000
Rp 1.200.000
HW05
RAM
Rp 350.000
Rp 450.000
HW06
CDROM
Rp 120.000
Rp 150.000
HW07
Cassing
Rp 100.000
Rp 120.000
HW08
Floppy
Rp 20.000
Rp 30.000
HW09
Keyboard
Rp 75.000
Rp 90.000
HW10
Mouse
Rp 15.000
Rp 25.000
HW11
Card Reader
Rp 45.000
Rp 50.000
HW12
Bluetooth
Rp 50.000
Rp 55.000
1
Aplikasi Stock Barang dengan Microsoft Access B. Tabel STOCK_AWAL Struktur tabulasi :
Isi tabulasi : Kode_Barang
Jumlah_Awal
Harga_Beli_Awal
HW01
100
Rp 500.000
HW02
100
Rp 700.000
HW03
100
Rp 600.000
HW04
100
Rp 1.000.000
HW05
100
Rp 350.000
HW06
100
Rp 120.000
HW07
100
Rp 10.000
HW08
100
Rp 20.000
HW09
100
Rp 75.000
HW10
100
Rp 15.000
HW11
100
Rp 45.000
HW12
100
Rp 50.000
C. Tabel DATA BELI Struktur tabel :
2
Aplikasi Stock Dagangan dengan Microsoft Access
Isi tabel : No_Faktur
Kode_Barang
Jumlah_Satuan
Harga_Beli
FB01
HW01
10
Rp 600.000
FB02
HW02
10
Rp 800.000
FB03
HW03
10
Rp 650.000
FB04
HW04
10
Rp 1.200.000
FB05
HW05
10
Rp 450.000
FB06
HW06
10
Rp 150.000
FB07
HW07
10
Rp 120.000
FB07
HW08
10
Rp 30.000
FB07
HW09
10
Rp 90.000
FB07
HW10
10
Rp 25.000
3
Aplikasi Stock Barang dengan Microsoft Access D. DATA JUAL Struktur diagram :
Lookup menggunakan combo box
Isi tabel : No_Faktur
Kode_Barang
Jumlah_Satuan
HJ
FJ01
HW01
3
Rp 600.000
FJ01
HW02
3
Rp 800.000
FJ01
HW03
3
Rp 650.000
FJ01
HW04
5
Rp 1.200.000
FJ02
HW04
5
Rp 1.200.000
FJ02
HW05
5
Rp 450.000
FJ02
HW06
5
Rp 150.000
FJ03
HW01
10
Rp 600.000
FJ03
HW02
10
Rp 800.000
FJ03
HW03
10
Rp 650.000
FJ03
HW04
10
Rp 1.200.000
FJ03
HW05
10
Rp 450.000
FJ04
HW08
5
Rp 30.000
FJ04
HW09
5
Rp 90.000
FJ04
HW10
5
Rp 25.000
FJ05
HW04
1
Rp 1.200.000
FJ06
HW01
1
Rp 600.000
FJ06
HW02
1
Rp 800.000
FJ07
HW05
10
Rp 450.000
4
Aplikasi Stock Barang dengan Microsoft Access FJ08
HW02
5
Rp 800.000
FJ08
HW03
3
Rp 650.000
FJ08
HW06
2
Rp 150.000
FJ09
HW01
5
Rp 600.000
FJ09
HW04
6
Rp 1.200.000
FJ10
HW01
1
Rp 600.000
FJ11
HW10
20
Rp 25.000
FJ12
HW11
11
Rp 50.000
E. BELI Struktur tabel :
Isi tabel : No_Faktur
Tanggal
FB01
05/05/2004
FB02
08/05/2004
FB03
09/05/2004
FB04
11/05/2004
5
Petisi Stock Produk dengan Microsoft Access FB05
12/05/2004
FB06
15/05/2004
FB07
15/05/2004
F. JUAL Stuktur tabel :
ISI Tabulasi : No_Faktur
Tanggal
FJ01
16/05/2004
FJ02
18/05/2004
FJ03
19/05/2004
FJ04
19/05/2004
FJ05
21/05/2004
FJ06
22/05/2004
FJ07
25/05/2004
FJ08
26/05/2004
FJ09
28/05/2004
FJ10
30/05/2004
FJ11
06/08/2008
FJ12
07/08/2008
6
Tuntutan Stock Barang dengan Microsoft Access 2. Kerjakan RELATIONSHIP Tools > Relationship
3. MEMBUAT QUERY A. QUERY JUMLAH TOTAL PER ITEM Create query by design view :
Jumlah_Total: [STOCK_AWAL]![Jumlah_Awal]*[STOCK_AWAL]![Harga_Beli_Awal]
Hasil : Q JML Besaran PER ITEM Kode_Barang
Nama_Barang
Jumlah_Awal
Harga_Beli_Awal
Jumlah_Total
HW01
Mainboard
100
Rp 500.000
Rp 50.000.000
HW02
Processor
100
Rp 700.000
Rp 70.000.000
HW03
Harddisk
100
Rp 600.000
Rp 60.000.000
HW04
Monitor
100
Rp 1.000.000
Rp 100.000.000
7
Aplikasi Stock Komoditas dengan Microsoft Access HW05
RAM
100
Rp 350.000
Rp 35.000.000
HW06
CDROM
100
Rp 120.000
Rp 12.000.000
HW07
Cassing
100
Rp 10.000
Rp 1.000.000
HW08
Floppy
100
Rp 20.000
Rp 2.000.000
HW09
Keyboard
100
Rp 75.000
Rp 7.500.000
HW10
Mouse
100
Rp 15.000
Rp 1.500.000
HW11
Card Reader
100
Rp 45.000
Rp 4.500.000
HW12
Bluetooth
100
Rp 50.000
Rp 5.000.000
B. QUERY Besaran Jumlah STOCK Design view :
Hasil : Q JML TOTAL STOCK SumOfJumlah_Total Rp 348.500.000
C. QUERY TRANSAKSI BELI Design view :
8
Aplikasi Stock Barang dengan Microsoft Access
Jumlah: [DATA_BELI]![Jumlah_Satuan]*[DATA_BELI]![Harga_Beli]
Hasil : Q TRANS BELI No_ Faktur
Tanggal
Kode_
Nama_
Jumlah_
Barang
Barang
Rincih
Harga_Beli
Kuantitas
FB01
05/05/2004
HW01
Mainboard
10
Rp 600.000
Rp 6.000.000
FB02
08/05/2004
HW02
Processor
10
Rp 800.000
Rp 8.000.000
FB03
09/05/2004
HW03
Harddisk
10
Rp 650.000
Rp 6.500.000
FB04
11/05/2004
HW04
Monitor
10
Rp 1.200.000
Rp 12.000.000
FB05
12/05/2004
HW05
RAM
10
Rp 450.000
Rp 4.500.000
FB06
15/05/2004
HW06
CDROM
10
Rp 150.000
Rp 1.500.000
FB07
15/05/2004
HW07
Cassing
10
Rp 120.000
Rp 1.200.000
FB07
15/05/2004
HW08
Floppy
10
Rp 30.000
Rp 300.000
FB07
15/05/2004
HW09
Keyboard
10
Rp 90.000
Rp 900.000
FB07
15/05/2004
HW10
Mouse
10
Rp 25.000
Rp 250.000
D. QUERY TRANS JUAL Design view :
Kuantitas: DATA_JUAL!Jumlah_Satuan*DATA_JUAL!HJ
9
Tuntutan Stock Komoditas dengan Microsoft Access Hasil : Q TRANS JUAL No_ Faktur
Tanggal
Kode_
Nama_
Jumlah_
Komoditas
Barang
Satuan
HJ
Jumlah
FJ01
16/05/2004
HW01
Mainboard
3
Rp 600.000
Rp 1.800.000
FJ06
22/05/2004
HW01
Mainboard
1
Rp 600.000
Rp 600.000
FJ09
28/05/2004
HW01
Mainboard
5
Rp 600.000
Rp 3.000.000
FJ03
19/05/2004
HW01
Mainboard
10
Rp 600.000
Rp 6.000.000
FJ10
30/05/2004
HW01
Mainboard
1
Rp 600.000
Rp 600.000
FJ01
16/05/2004
HW02
Processor
3
Rp 800.000
Rp 2.400.000
FJ03
19/05/2004
HW02
Processor
10
Rp 800.000
Rp 8.000.000
FJ06
22/05/2004
HW02
Processor
1
Rp 800.000
Rp 800.000
FJ08
26/05/2004
HW02
Processor
5
Rp 800.000
Rp 4.000.000
FJ01
16/05/2004
HW03
Harddisk
3
Rp 650.000
Rp 1.950.000
FJ03
19/05/2004
HW03
Harddisk
10
Rp 650.000
Rp 6.500.000
FJ08
26/05/2004
HW03
Harddisk
3
Rp 650.000
Rp 1.950.000
FJ02
18/05/2004
HW04
Monitor
5
Rp 1.200.000
Rp 6.000.000
FJ03
19/05/2004
HW04
Monitor
10
Rp 1.200.000
Rp 12.000.000
FJ05
21/05/2004
HW04
Monitor
1
Rp 1.200.000
Rp 1.200.000
FJ09
28/05/2004
HW04
Monitor
6
Rp 1.200.000
Rp 7.200.000
FJ02
18/05/2004
HW05
RAM
5
Rp 450.000
Rp 2.250.000
FJ03
19/05/2004
HW05
RAM
10
Rp 450.000
Rp 4.500.000
FJ07
25/05/2004
HW05
RAM
10
Rp 450.000
Rp 4.500.000
FJ02
18/05/2004
HW06
CDROM
5
Rp 150.000
Rp 750.000
FJ08
26/05/2004
HW06
CDROM
2
Rp 150.000
Rp 300.000
FJ04
19/05/2004
HW08
Floppy
5
Rp 30.000
Rp 150.000
FJ04
19/05/2004
HW09
Keyboard
5
Rp 90.000
Rp 450.000
FJ04
19/05/2004
HW10
Mouse
5
Rp 25.000
Rp 125.000
FJ11
06/08/2008
HW10
Mouse
20
Rp 25.000
Rp 500.000
FJ12
07/08/2008
HW11
Card Reader
11
Rp 50.000
Rp 550.000
FJ01
16/05/2004
HW04
Monitor
5
Rp 1.200.000
Rp 6.000.000
10
Aplikasi Stock Dagangan dengan Microsoft Access E. QUERY CETAK (QUERY PENJUALAN DENGAN KRITERIA) Design view :
Field
: No_Faktur
Criteria : [Forms]![FJUAL]![No_Faktur]
Besaran: DATA_JUAL!Jumlah_satuan*DATA_JUAL!HJ
Hasil :
Teoretis masukkan no faktur FJ01
11
Aplikasi Stock Barang dengan Microsoft Access Hasil : QCETAK No_Faktur
Tanggal
Kode_
Nama_
Jumlah_
Barang
Komoditas
Satuan
HJ
Jumlah
FJ01
16/05/2004
HW01
Mainboard
3
Rp 600.000
1800000
FJ01
16/05/2004
HW02
Processor
3
Rp 800.000
2400000
FJ01
16/05/2004
HW03
Harddisk
3
Rp 650.000
1950000
FJ01
16/05/2004
HW04
Monitor
5
Rp 1.200.000
6000000
F. QUERY CETAK2 (QCETAK Sonder Penanda) Design view seimbang dengan query E diatas semata-mata bedanya Pada kolom criteria dikosongkan, hasil : QCETAK2 No_ Faktur
Tanggal
Kode_
Nama_
Jumlah_
Barang
Dagangan
Satuan
HJ
Jumlah
FJ01
16/05/2004
HW01
Mainboard
3
Rp 600.000
1800000
FJ06
22/05/2004
HW01
Mainboard
1
Rp 600.000
600000
FJ09
28/05/2004
HW01
Mainboard
5
Rp 600.000
3000000
FJ03
19/05/2004
HW01
Mainboard
10
Rp 600.000
6000000
FJ10
30/05/2004
HW01
Mainboard
1
Rp 600.000
600000
FJ01
16/05/2004
HW02
Processor
3
Rp 800.000
2400000
FJ03
19/05/2004
HW02
Processor
10
Rp 800.000
8000000
FJ06
22/05/2004
HW02
Processor
1
Rp 800.000
800000
FJ08
26/05/2004
HW02
Processor
5
Rp 800.000
4000000
FJ01
16/05/2004
HW03
Harddisk
3
Rp 650.000
1950000
FJ03
19/05/2004
HW03
Harddisk
10
Rp 650.000
6500000
FJ08
26/05/2004
HW03
Harddisk
3
Rp 650.000
1950000
FJ02
18/05/2004
HW04
Monitor
5
Rp 1.200.000
6000000
FJ03
19/05/2004
HW04
Monitor
10
Rp 1.200.000
12000000
FJ05
21/05/2004
HW04
Monitor
1
Rp 1.200.000
1200000
FJ09
28/05/2004
HW04
Monitor
6
Rp 1.200.000
7200000
FJ02
18/05/2004
HW05
RAM
5
Rp 450.000
2250000
FJ03
19/05/2004
HW05
RAM
10
Rp 450.000
4500000
FJ07
25/05/2004
HW05
RAM
10
Rp 450.000
4500000
FJ02
18/05/2004
HW06
CDROM
5
Rp 150.000
750000
FJ08
26/05/2004
HW06
CDROM
2
Rp 150.000
300000
FJ04
19/05/2004
HW08
Floppy
5
Rp 30.000
150000
12
Aplikasi Stock Barang dengan Microsoft Access FJ04
19/05/2004
HW09
Keyboard
5
Rp 90.000
450000
FJ04
19/05/2004
HW10
Mouse
5
Rp 25.000
125000
FJ11
06/08/2008
HW10
Mouse
20
Rp 25.000
500000
FJ12
07/08/2008
HW11
Card Reader
11
Rp 50.000
550000
FJ01
16/05/2004
HW04
Monitor
5
Rp 1.200.000
6000000
G. QUERY JUAL Design view :
Jumlah: DATA_JUAL!Jumlah_satuan*DATA_JUAL!HJ Hasil : QJUAL No_
Kode_
Nama_
Jumlah_
Faktur
Dagangan
Barang
Satuan
HJ
Besaran
Harga_ Jual
FJ01
HW01
Mainboard
3
Rp 600.000
1800000
Rp 600.000
FJ06
HW01
Mainboard
1
Rp 600.000
600000
Rp 600.000
FJ09
HW01
Mainboard
5
Rp 600.000
3000000
Rp 600.000
FJ03
HW01
Mainboard
10
Rp 600.000
6000000
Rp 600.000
FJ10
HW01
Mainboard
1
Rp 600.000
600000
Rp 600.000
FJ01
HW02
Processor
3
Rp 800.000
2400000
Rp 800.000
FJ03
HW02
Processor
10
Rp 800.000
8000000
Rp 800.000
FJ06
HW02
Processor
1
Rp 800.000
800000
Rp 800.000
FJ08
HW02
Processor
5
Rp 800.000
4000000
Rp 800.000
FJ01
HW03
Harddisk
3
Rp 650.000
1950000
Rp 650.000
FJ03
HW03
Harddisk
10
Rp 650.000
6500000
Rp 650.000
FJ08
HW03
Harddisk
3
Rp 650.000
1950000
Rp 650.000
FJ02
HW04
Monitor
5
Rp 1.200.000
6000000
Rp 1.200.000
FJ03
HW04
Monitor
10
Rp 1.200.000
12000000
Rp 1.200.000
FJ05
HW04
Monitor
1
Rp 1.200.000
1200000
Rp 1.200.000
FJ09
HW04
Monitor
6
Rp 1.200.000
7200000
Rp 1.200.000
13
Aplikasi Stock Barang dengan Microsoft Access FJ01
HW04
Monitor
5
Rp 1.200.000
6000000
Rp 1.200.000
FJ02
HW05
RAM
5
Rp 450.000
2250000
Rp 450.000
FJ03
HW05
RAM
10
Rp 450.000
4500000
Rp 450.000
FJ07
HW05
RAM
10
Rp 450.000
4500000
Rp 450.000
FJ02
HW06
CDROM
5
Rp 150.000
750000
Rp 150.000
FJ08
HW06
CDROM
2
Rp 150.000
300000
Rp 150.000
FJ04
HW08
Floppy
5
Rp 30.000
150000
Rp 30.000
FJ04
HW09
Keyboard
5
Rp 90.000
450000
Rp 90.000
FJ04
HW10
Mouse
5
Rp 25.000
125000
Rp 25.000
FJ11
HW10
Mouse
20
Rp 25.000
500000
Rp 25.000
FJ12
HW11
Card Reader
11
Rp 50.000
550000
Rp 50.000
3. BUAT FORM
A. Membuat Form Barang
Create form by using wizard dari Tabel Barang
Pilih tabel Dagangan
Pilih semua Field
Membeda-bedakan layout Memperbedakan style
14
Aplikasi Stock Barang dengan Microsoft Access
Pasrah nama : FORM BARANG
Buatlah DML Button cak bagi fungsi ADD, FIND, DELETE, SAVE, EXIT ADD : Record operation > add new record Lalu untuk menurunkan kursor sedarun pada teksbox pertama (kode komoditas) maka masukkan rumus berikut, prinsip :
Klik Build event
Masukkan rumus berikut : Private Sub Command5_Click() On Error GoTo Err_Command5_Click
DoCmd.GoToRecord , , acNewRec Kode_barang.SetFocus
Exit_Command5_Click: Exit Sub 15
Aplikasi Stock Barang dengan Microsoft Access
Err_Command5_Click: MsgBox Err.Description Resume Exit_Command5_Click
End Sub
Tampilan keseluruhan form dagangan :
B. Membentuk FORM FAKTUR PENJUALAN Create form by using wizard > tabel barang
16
Tuntutan Stock Barang dengan Microsoft Access
Kemudian :
Insert Subform
Insert Qjual
17
Aplikasi Stock Barang dengan Microsoft Access
Beri merek: TXT_JUMTOTAL Masukkan rumus = Sum([Jumlah])
18
Petisi Stock Komoditas dengan Microsoft Access
TXTTERBILANG
Besaran Nan harus dibayar (txttotal)
1.
Pula (txtkembali) dibayar
Kuantitas Yang HARUS DIBAYAR (TXTTOTAL) : =[QJUAL
subform].Form!TXTJUM_TOTAL
19
Aplikasi Stock Barang dengan Microsoft Access 2. Lagi=[TXTBAYAR]-[TXTTOTAL]
3. TERBILANG > KLIK KANAN > BUILD EVENT
Masukkan rumus berikut : Public Function TERBILANG(Sejumlah)
Dim angka(20), pembukaan, bil, satu, dua, tiga, gabung, belas As String Dim sa, du, ti, hitung, jumhuruf As Byte angka(0) = “” angka(1) = “Satu” poin(2) = “Dua” angka(3) = “Tiga” angka(4) = “Empat” angka(5) = “Lima” 20
Aplikasi Stock Barang dengan Microsoft Access angka(6) = “Enam” nilai(7) = “Sapta” angka(8) = “Delapan” ponten(9) = “Sembilan” ponten(10) = “Sepuluh” angka(11) = “Sebelas” angka(12) = “Dua belas” nilai(13) = “Tiga belas” angka(14) = “Empat belas” angka(15) = “Lima belas” skor(16) = “Enam belas” biji(17) = “Tujuh belas” angka(18) = “Delapan belas” ponten(19) = “Sembilan belas” bil = Str(BILANG) jumhuruf = Len(bil) bil = String(12 – jumhuruf, ” “) + bil pengenalan = “” bebat = “” sa = 1 du = 2 ti = 3 hitung = 1 Do While hitung < 5 satu = Mid(bil, sa, 1) dua = Mid(bil, du, 1) tiga = Mid(bil, ti, 1) balut = satu + dua + tiga If Val(satu) = 1 Then kata = kata + angka(Val(satu)) + ” Ratus” End If If Val(dua) = 1 Then 21
Aplikasi Stock Dagangan dengan Microsoft Access belas = dua + tiga pembukaan = pengenalan + ponten(Val(belas)) Else If Val(dua) > 1 Then alas kata = introduksi + angka(Val(dua)) + ” Puluh” + angka(Val(tiga)) Else If Val(dua) = 0 And Val(tiga) > 0 Then If (hitung = 3 And gabung = “001”) Or (hitung = 3 And ikat = “1”) Then kata = prolog + ” seribu” Else kata = kata + skor(Val(tiga)) End If End If End If End If If hitung = 1 And Val(jaras) > 0 Then kata = perkenalan awal + ” Milyard” End If If hitung = 2 And Val(gabung) > 0 Then pembukaan = kata + ” Juta” End If If hitung = 3 And Val(bebat) > 0 Then If gabung = “001” Or gabung = ” 1″ Then prolog = kata + ” ” Else pembukaan = kata + ” ribu” End If End If hitung = hitung + 1 sa = sa + 3 du = du + 3 ti = ti + 3 22
Aplikasi Stock Barang dengan Microsoft Access Loop pembukaan = kata + ” Ringgit” TERBILANG = kata End Function
Kemudian masukkan rumus berikut : =TERBILANG(TXTTOTAL.Value+0)
3. MEMBUAT REPORT A. MEMBUAT REPORT Barang 1. Create report by Design view
23
Tuntutan Stock Komoditas dengan Microsoft Access
2. Next > pilih layout, sort order, style dan kemudian beri nama Report Barang
Hasil :
2. REPORT CETAK
Dibuat terbit query cetak No. faktur dan tanggal dari tabulasi jual
24
Aplikasi Stock Barang dengan Microsoft Access
3. Kerjakan Report stock tadinya dari Grafik stock awal
25
Aplikasi Stock Komoditas dengan Microsoft Access
4. Buat Report trans beli bermula query trans beli
5. Untuk Report trans jual dari query trans jual
26
Aplikasi Stock Barang dengan Microsoft Access 4. Menciptakan menjadikan SWITCHBOARD
27
Permohonan Stock Produk dengan Microsoft Access
28
Aplikasi Stock Barang dengan Microsoft Access
29
Permohonan Stock Produk dengan Microsoft Access
30
Aplikasi Stock Produk dengan Microsoft Access
HASIL :
31
Aplikasi Stock Produk dengan Microsoft Access
32
Aplikasi Stock Barang dengan Microsoft Access 5. MENAMPILAKAN SWITCHBOARD PADA STARTUP
CATATAN : Cara MENDISAIN LAYOUT TAMPILAN FORM / REPORT
Untuk mengatur warna background suatu label, textbox, font, dan effect dari logo
33
Aplikasi Stock Barang dengan Microsoft Access Untuk membagi gambar background pada form :
Pilih Form Pilih File gambar Memperbedakan stretch agar matra gambar sesuai dengan ukuran form
Selesai sudah cara membuat Sistem Informasi Stock Komoditas Apabila kurang jelas.. Zoom saja previewnya Terima kasih
34
Source: https://adoc.pub/aplikasi-stok-dengan-ms-access.html
