Aiska Blog

--- sherinalavenda wrote:
sebuah database berisi

Tgl Nama Barang StockAwal Masuk Keluar Akhir
1/1/08 barang A 10 2 0 12
5/1/08 barang A 12 0 1 11
10/1/08 barang A 11 5 0 16

ada yg bisa bantu syntax untuk mengetahui stock awal & stock akhir
tanggal 7/1/08(dtpicker)?
thank u.

-------------------------------------------------
Dear sherina,

Mungkin ada sedikit tambahan dan kritik dari saya.
Kalau saya bilang anda telah melakukan pemborosan terhadap data.
karena anda melakukan pembuatan field yang tidak perlu. sebaiknya anda
buang saja field. StockAwal, Masuk, Keluar, dan akhir. Dan diganti
dengan field qty (kuantitas). sehingga isi dari tabel menjadi seperi ini

tblBarang:
1. idBarang (LongInteger) auto increment, Primary Key
2. NamaBarang (nVarChar)

tblStock:
1. idStock (LongInteger) auto increment, Primary Key
2. idBarang (LongInteger)
3. Tanggal (date/time)
4. Qty (Long Integer)

Note:
Untuk barang masuk field qty adalah positif(+) dan untuk barang keluar
negatif(-).

Untuk mendapatkan stock awal, Transaksi Pada Hari tertentu atau Stock
Akhir anda dapat mengambilnya dengan menggunakan SUM.

contoh:

Melihat Stock Awal tanggal 1 Januari 2008:
"SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS StockAwal
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE tblStock.Tanggal<#1/1/2008#
GROUP BY tblBarang.NamaBarang"

Melihat Stock Akhir tanggal 31 Januari 2008:
"SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS StockAkhir
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE tblStock.Tanggal<#1/31/2008#
GROUP BY tblBarang.NamaBarang"

Melihat Barang Masuk Selama Bulan Januari 2008:
SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS BarangMasuk
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE Month([Tanggal])=1
AND Year([Tanggal])=2008
AND tblStock.qty>0
GROUP BY tblBarang.NamaBarang

Melihat Barang Keluar Selama Bulan Januari 2008:
SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS BarangKeluar
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE Month([Tanggal])=1
AND Year([Tanggal])=2008
AND tblStock.qty<0
GROUP BY tblBarang.NamaBarang

Ok, sekian tambahan dari saya. saya mohon maaf apabila anda
tersinggung dan mohon maaf apabila cara ini cukup membingungkan buat
anda tapi setidaknya anda dapat belajar untuk dapat mengoptimalkan
database dengan menggunakan Join Tabel.

Terima Kasih dan Selamat Mencoba.

Salam,

Aiska Hendra