Saya Coba Bantu ya....
Kalau data penjualan tidak ingin disimpan gunakan array seperti coding dibawah
ini:
Dim kdbrg() as string, Qty() as integer, Harga() as double
dim jml#
Private sub Form_Load()
jml=0
End Sub
Private sub commandsave_click()
jml=jml+1
redim preserve kdbrg(jml)
redim preserve Qty(jml)
redim preserve Harga(jml)
kdbrg(jml)=textkodebarang.text
Qty(jml)= val(textQty.text)
Harga(jml)=Val(TextHarga.text)
End Sub
itu salah satu contoh penggunaan array.
tapi biasanya untuk penjualan datanya selalu disimpan dan kalau ingin disimpan
gunakan tabel Penjualan dan Penjualan Detail, Misal:
Tabel Penjualan:KdPenjualan,Tanggal --> isi field
Tabel Penjualan Detail: KdPenjualan,Kdbrg,Qty,Harga --> isi field
Terus dengan menggunakan Report (Dalam Hal Report Saya biasa gunakan Crystal
Report) panggil saja kdPenjualannya.
Semoga Membantu^_^
mario <[EMAIL PROTECTED]> wrote:
Hmm,, tp gimana konsepnya ya mas?
Misal saya bikin table baru dgn nama cetak_struk
Nah table ini row nya gimana??
Berhubung item2 yg mw dibeli orang khan berbeda2 / dinamis.
Padahal katanya harus item2 tersebut harus dimasukan kedalam satu kode
penjualan
Apakah seperti ini:
Table = cetak struk
Field = qty, total_price, kode_penjualan
Jadi nanti pas mw nyetak panggil semua dr database order by kode_penjualan.
begitu ya?
CMIIW
---------------------------------
---------------------------------
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
