Sie-sie master... jurusmu akan aku praktekan dirumah, tapi jangan kapok yah buat bantuin aqiew...
tararengkiew.. dedi --- In [email protected], Bace - Bace <[EMAIL PROTECTED]> wrote: > > klu aku senangnya memberikan konsep, source code usaha sendiri...gitu lho...but (tp lagi) krn newbie(knp ngk bilang dri awal...hiehehhi..). > > Saya anggap kamu memakai ADODB dan databasenya menggunakan acces, jika databasenya lain yang dirubah hanya Hubungan.ConnectionString pada sub Mulai Hubungan. > > Dim Hubungan As New ADODB.Connection > Dim RsSaldoAwal As New ADODB.Recordset > Dim RsPembelian As New ADODB.Recordset > Dim RsPenjualan As New ADODB.Recordset > > Dim SaldoAwal as double > Dim Pembelian as double > Dim Penjualan as double > > Sub MulaiHubungan() > If Hubungan.State = adStateOpen Then > Hubungan.Close > Set Hubungan = Nothing > End If > Hubungan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Namadatabase.mdb;Mode=ReadWrite;Persist Security Info=False" > On Error Resume Next > Hubungan.Open > If Err Then > MsgBox "Program tidak dapat berjalan, Database tidak ada" > Exit Sub > End If > end sub > > Anggap tanggal sekarang adalah tanggal 24/2/07 dengan isi data tabel seperti didalam email kemarin. > > Sub AmbilSaldoAwal() > 'ambil data dari saldo awal sekali dari tabel saldo awal, saldo ini diisi hanya sekali pada waktu program mulai dipergunakan > > > If RsSaldoAwal .State = adStateOpen Then > RsSaldoAwal .Close > Set RsSaldoAwal = Nothing > End If > RsSaldoAwal .ActiveConnection = Hubungan > RsSaldoAwal .CursorType = adOpenStatic > RsSaldoAwal .CursorLocation = adUseClient > RsSaldoAwal .LockType = adLockOptimistic > RsSaldoAwal .Open "select c_saldoawal from tbl_saldoawal where id = 23 ' anggap id 23 = oli MEDISTRAN > If RsSaldoAwal .RecordCount = 0 Then > SaldoAwal = 0 > else > SaldoAwal = RsSaldoAwal ("c_saldoawal") > end if > 'kode diatas akan menghasilkan saldo awal = 100 > > > If RsPembelian.State = adStateOpen Then > RsPembelian.Close > Set RsPembelian= Nothing > End If > RsPembelian.ActiveConnection = Hubungan > RsPembelian.CursorType = adOpenStatic > RsPembelian.CursorLocation = adUseClient > RsPembelian.LockType = adLockOptimistic > RsPembelian.Open "select sum(c_jumlahbeli) as JumlahBeliBarang from tbl_pembelian where id = 23 and tglbeli < #24/02/2007# ' anggap id 23 = oli MEDISTRAN > If isnull(RsPembelian("JumlahBeliBarang")) = true Then > Pembelian = 0 > else > Pembelian = RsPembelian("JumlahBeliBarang") > end if > 'kode diatas akan menghasilkan jumlah pembelian = 10 > > > If RsPenjualan.State = adStateOpen Then > RsPenjualan.Close > Set RsPenjualan= Nothing > End If > RsPenjualan.ActiveConnection = Hubungan > RsPenjualan.CursorType = adOpenStatic > RsPenjualan.CursorLocation = adUseClient > RsPenjualan.LockType = adLockOptimistic > RsPenjualan.Open "select sum(c_jumlahjual) as JumlahJualBarang from tbl_pengeluaran where id = 23 and tglkeluar < #24/02/2007# ' anggap id 23 = oli MEDISTRAN > If isnull(RsPenjualan("JumlahBeliBarang")) = true Then > Pembelian = 0 > else > Pembelian = RsPenjualan("JumlahJualBarang") > end if > 'kode diatas akan menghasilkan jumlah pengeluaran = 6 > > > 'sekarang sudah diketahui saldo awal sekali, jumlah semua pembelian dan pengeluarannya sebelum tgl 24/02/2007. untuk mengetahu saldo awal tgl 24/02/2007 tinggal mengurainya aja: > > SaldoAwalBaru = SaldoAwal + Pembelian - Penjualan > 100 + 10 -6 > > 'kode diatas akan menghasilkan saldo awal baru = 104 > > Sekarang tinggal mencari penjualan dan pengeluaran untuk tanggal 24/02/2007, gunakan kode diatas (untuk pembelian dan penjualan, ganti tanda < menjadi tanda = di perintah SQL nya) > Hasil yang diperoleh nantinya > > Pembelian : 0 > Penjualan : 12 > > 'untuk mengetahu saldo akhir ya tinggal menjumlahkan lagi > > SaldoAkhir = SaldoAwalBaru + Pembelian - Penjualan > 104 + 0 - 12 > > 'Hasil SaldoAkhir = 92 > > kamu tinggal menampilkannya di laporan yang dibuat... > > end sub > > > Semoga membantu: =(oVo)= > ==================== > BaceInside Publisher > Copyright @2007 > Not for reproduced, republished. > Thank You > ==================== > > > > ----- Original Message ---- > From: dedi_gunawan1711 <[EMAIL PROTECTED]> > To: [email protected] > Sent: Thursday, May 3, 2007 6:08:11 PM > Subject: [Programmer-VB] Re: Buat Saldo Awal dan Akhir > > mas Bace, ketiga tabel yang anda maksud sudah ada, tetapi yang > jadi masalahnya bagaimana syntax untuk mengetahui saldo-saldo > tersebut (maklum newbie). > > Saya sangat berharap anda dapat membantu. > Terima Kasih > > Dedi > > --- In Programmer-VB@ yahoogroups. com, Bace - Bace <bace01@> wrote: > > > > Semoga membantu: =(oVo)= > > ============ ======== > > BaceInside Publisher > > Copyright @2007 > > Not for reproduced, republished. > > Thank You > > ============ ======== > > > > Sebenarnya permasalahan saldo awal dan saldo akhir harus ditunjang > oleh datababase yang baik, untuk menghasilkan saldo awal dan akhir > untuk suatu data, minimal di butuhkan 3 tabel yaitu > > > > Tabel penerimaan/pembelia n, isinya kolomnya: > > id produk tgl penerimaan/beli jumlah > > 01 03/02/2007 10 > > 01 28/02/2007 18 > > > > Tabel pemakaian/pengeluar an, isinya kolomnya: > > id produk tgl pemakaian/keluar jumlah > > 01 06/02/2007 6 (sebelumnya 8, salah tulis) > > 01 24/02/2007 12 > > 01 20/03/2007 23 > > > > > > Tabel saldo awal produk, isinya kolomnya: > > id produk tgl saldo awal jumlah > > (tabel ini hanya di isi sekali saja untuk untuk setiap produk diawal > sekali, misalnya untuk produk OLI MEDISTRAN saldo awalnya di awal > tahun 2007 berjumlah 100) > > > > 01 01/01/2007 100 > > > > Klu untuk mengetahui posisi saldo awal dan akhir pertanggal 24/02/2007 > > saldo awal sebelum 24/02/2007 = 100 (saldo awal tahun) + 10 > (pembelian 03/02/2007) - 6 (pengeluaran 06/02/2007 ) = 104 > > > > > Pembelian tgl 24/02/2007 = 0 > > Peneluaran tgl 24/02/2007 = 12 > > > > Saldo akhir pertanggal tgl 24/02/2007 = 104-12 = 92 > > > > Jadi klu ketiga tabel diatas ada dan dilengkapi tanggal, untuk > tanggal berapapun dapat diketahui saldo awal dan akhirnya, sehinnga > dapat digunakan oleh program untuk menghasilkan laporan seperti yang > dibutuhkan. > > > > ----- Original Message ---- > > From: dedi_gunawan1711 <dedi_gunawan1711@ ...> > > To: Programmer-VB@ yahoogroups. com > > Sent: Monday, April 30, 2007 10:39:07 AM > > Subject: [Programmer- VB] Buat Saldo Awal dan Akhir > > > > Dear all, > > Saya mo nanya neh, buat master2 vb tolongin dong... > > > > Bagaimana cara membuat saldo awal dan akhir untuk stok yang > > tanggalnya berdasarkan inputan > > > > Outputnya: > > > > Laporan Stock Periode : .......... s/d ......... > > Kode :O-001 > > Nama :OLI MEDISTRAN > > Satuan:LITER > > ============ ========= ========= ========= > > S_Awal IN OUT OTHER S_Akhir > > ============ ========= ========= ========= > > > > ------------ --------- --------- --------- > > ...... ..... ..... ..... ........ > > ============ ========= ========= ========= > > > > > > > > > > ____________ _________ _________ _________ _________ __ > > Do You Yahoo!? > > Tired of spam? Yahoo! Mail has the best spam protection around > > http://mail. yahoo.com > > > > > > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com >
