Hari ini :
Program ini dasarnya mirip dengan Program Puskesmas yang saya bahas sebelumnya, hanya saja kata kata item diganti dengan Barang dan sebagai supplier adalah toko.
Program ini dasarnya mirip dengan Program Puskesmas yang saya bahas sebelumnya, hanya saja kata kata item diganti dengan Barang dan sebagai supplier adalah toko.
-------------------------------------------------------
Public Sub Main()
Set conn = New ADODB.Connection
On Error GoTo Kesalahan
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False; Integrated Security=SSPI;" & _
"Initial Catalog=db_Inventaris;"
Utama.Show
FrmLogin.Show vbModal
Kesalahan:
If Err.Number = -2147467259 Then
MsgBox "Komputer Server tidak aktif." & Chr(13) & _
"Aktifkan komputer Server terlebih dahulu." & vbCrLf & _
"Atau hubungi Administrator." & vbCrLf & vbInformation, "Koneksi Error"
End If
End Sub
--------------------------------------
Dapat dilihat bahwa nama database yang digunakan adalah db_Inventaris, sesuai dengan tujuan program yaitu mengetahui stok barang-barang yang ada disekolah dan kemana saja barang ketika dipinjam.
Ketika dijalankan (F5) maka akan tampil Halaman Utama dengan background Bengkel karena data diambil dari SMK otomotif dan tidak lupa juga Pembatasan Hak Akses dengan tampilnya form Login. Dimana yang berhak mengakses semua halama hanya yang data loginya sama dengan data login yang ada di dalam database program dan bila data salah maka user akan diberikan kesempatan maksimal 3 kali mencoba bila tetap salah maka program otomatis tertutup.
1. Master Barang
Dapat diakses dari Data Master -> Barang, terdiri atas 2 form dimana form yang ke-2 akan tampil bila tombol �Tambah� atau �Ubah� ditambah. Digunakanya 2 form ini agar kesan professional dan simple tertampil dari program, tetapi bisa juga tetap dengan 1 form hanya saja dengan pengendalian Properties Visible. Hasilnya akan tetap sama hanya saja pada 2 form maka koding terletak di 2 form dan perlu kejelian untuk mengetahui jalur kodenya. Terkadang data yang di form-1 akan berpindah ke form-2 begitu pula sebaliknya. Sedang pada 1 form dengan Properties Visible komponen yang diubah-ubah maka koding akan menjadi lebih banyak di form tersebut.
Form Barang dengan 1 form
Form Barang dengan form ke-2 tampil
2. Master Toko Supplier
Dapat diakses dari Data Master -> Toko Supplier , hanya terdiri dari 1 form saja karena data yang masuk tidak terlalu banyak. Kode Toko akan secara otomatis trisi bila tombol �Tambah� ditekan. Data tidak akan disimpan bila data lain seperti nama toko, alamat atau telpon belum diisi. Untuk mengubah data cukup memilih data dari grid, maka tombol �Simpan� yang juga berfungsi sebagai tombol �Update� akan aktif. Untuk proses penghapusan juga begitu, harus ada dahulu data yang dipilih.
3. Data Transaksi Barang Masuk
Dapat diakses dari Data Transaksi -> Barang Masuk , terdiri dari 2 form, form yang pertama berfungsi untuk menampilkan data, sedang form ke-2 berfungsi sebagai Form Input atau Delete data. Dengan 2 form ini maka ada lebih banyak ruang untuk melihat data Barang Masuk dan Lebih banyak ruang juga untuk menginput barang.
4. Data Transaksi Barang Rusak
Dapat diakses dari Data Transaksi -> Barang Rusak , terdiri dari 1 form, yaitu untuk menampilkan Daftar Data Barang Rusak yang Masuk. Sedangkan untuk input barang rusaknya kita gunakan Frame yang disembunyikan atau kita atur melalui koding, Properties Visiblenya.
5. Data Transaksi Peminjaman Barang
Dapat diakses dari Data Transaksi -> Peminjaman Barang
6. Data Transaksi Stok Barang
Dapat diakses dari Data Transaksi -> Stok Barang
7. Pencarian
Di menu Pencarian, ada 3 macam pencarian: Pencarian Barang Masuk, Pencarian Barang Rusak dan Pencarian Peminjaman Barang, yang apabila ditampilkan maka semua pencarian akan seperti ini:
8. Laporan
Hasil akhir dari Program ini :
Sederhana ya laporannya, tapi sebenarnya ada kerumitan juga dalam kodinya, berikut penggalan koding untuk menampilkan Laporan diatas :
--------------------------------------------------------------------------------------------------------------
Private Sub CmdTampil_Click()
Dim VarBulanstok As Integer
If CboBulan.Text = "" Then
Exit Sub
ElseIf CboTahun.Text = "" Then
Exit Sub
End If
VarBulanstok = Val(VarBulan) - 1
sql = "select NmBarang, Satuan, Harga, " & _
"(Select Stok from TblBarangStok where KdBarang= TblBarang.KdBarang and Month(Tgl) = '" & Trim(VarBulanstok) & "' and " & _
"Year(Tgl) = '" & Trim(CboTahun.Text) & "' " & _
"and Urut = (Select Max (Urut) from TblBarangStok where KdBarang= TblBarang.KdBarang and Month(Tgl) = '" & Trim(VarBulanstok) & "' and " & _
"Year(Tgl) = '" & Trim(CboTahun.Text) & "' )) as JumlahAwal, " & _
"(Select Sum (JlhMasuk) from TblBarangMasukDetail inner join TblBarangMasuk on TblBarangMasuk.NoFaktur = TblBarangMasukdetail.NoFaktur " & _
"where TblBarangMasukDetail.KdBarang= TblBarang.KdBarang and Month(TblBarangMasuk.Tgl) = '" & Trim(VarBulan) & "' and " & _
"Year(TblBarangMasuk.Tgl) = '" & Trim(CboTahun.Text) & "') as JumlahMasuk, " & _
"(Select Sum (JlhRusak) from TblBarangRusak where TblBarangrusak.KdBarang= TblBarang.KdBarang and Month(Tgl) = '" & Trim(VarBulan) & "' and " & _
"Year(Tgl) = '" & Trim(CboTahun.Text) & "') as JumlahRusak, " & _
"(Select Sum (JlhPinjam) from TblBarangPinjam where TblBarangPinjam.KdBarang= TblBarang.KdBarang and Month(TglPinjam) = '" & Trim(VarBulan) & "' and " & _
"Year(TglPinjam) = '" & Trim(CboTahun.Text) & "' and Status = 'Dipinjam' ) as JumlahPinjam, " & _
"(Select Sum (JlhPinjam) from TblBarangPinjam where TblBarangPinjam.KdBarang= TblBarang.KdBarang and Month(TglKembali) = '" & Trim(VarBulan) & "' and " & _
"Year(TglKembali) = '" & Trim(CboTahun.Text) & "' and Status = 'Dikembalikan' ) as JumlahKembali " & _
"from TblBarang "
Set rsCetak = New ADODB.Recordset
rsCetak.CursorLocation = adUseClient
rsCetak.Open sql, conn, 3, 4
If rsCetak.RecordCount = 0 Then
MsgBox "Data Kosong!", vbExclamation, "Kosong"
Exit Sub
Else
Report.DiscardSavedData
Report.Database.SetDataSource rsCetak
PreviewStokBarang.CRViewer1.ReportSource = Report
Report.FormulaFields.Item(1).Text = Chr(34) & CboBulan.Text & Chr(34)
Report.FormulaFields.Item(2).Text = Chr(34) & CboTahun.Text & Chr(34)
PreviewStokBarang.CRViewer1.ViewReport
PreviewStokBarang.CRViewer1.Zoom (100)
PreviewStokBarang.CRViewer1.EnableGroupTree = False
PreviewStokBarang.CRViewer1.EnableExportButton = True
Set rsCetak = Nothing
PreviewStokBarang.Show
End If
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
