Query Order-OrderDetail-Barang

A. Model Data:


B. Kondisi awal: Tabel di dalam database

tabel: Barang

kdBrg	NamaBrg	HrgSat
11111	Apel Manalagi	5000
11112	Apel Malang	4000
11114	Durian Bangkok	10000
11119	Belimbing	3000

tabel: Order

NoOrder	tgl	total
00001	10-agu-08	0
00002	10-agu-08	0
00003	10-agu-08	0
00012	11-agu-08	0
00013	11-agu-08	0
00014	11-agu-08	0
00015	11-agu-08	0

tabel: OrderDetail

NoOrder	kdBrg	Qty
00001	11111	5
00001	11114	3
00002	11111	3
00002	11112	5
00002	11114	10
00003	11119	10
00012	11114	5
00012	11119	5
00013	11111	10
00014	11112	8
00015	11119	12

C. Proses dengan Query

Query1

SELECT * FROM Order, Barang, OrderDetail WHERE ((Order.NoOrder = OrderDetail.NoOrder) and (Barang.Kdbrg = OrderDetail.Kdbrg))

Tujuan Query1 : untuk menampilkan semua rincian order dengan orderDetail-nya

Query2

SELECT Order.NoOrder, OrderDetail.kdBrg, Barang.NamaBrg, Barang.HrgSat, OrderDetail.Qty, (OrderDetail.Qty * Barang.HrgSat) AS subTotal FROM Order, Barang, OrderDetail WHERE ((Order.NoOrder = OrderDetail.NoOrder) and (Barang.Kdbrg = OrderDetail.Kdbrg))

Tujuan Query2 : untuk menampilkan semua rincian order dengan orderDetail-nya sambil menghitung subTotal per barang yang dibeli dalam suatu order.

Query3

SELECT Order.NoOrder, sum (OrderDetail.Qty * Barang.HrgSat) as Total FROM [Order], Barang, OrderDetail WHERE (((Order.NoOrder)=OrderDetail.NoOrder) AND ((Barang.kdBrg)=OrderDetail.Kdbrg)) group by Order.NoOrder;

Tujuan Query3 : untuk menampilkan semua order sambil menghitung Total per order.


D. Hasil Query

Hasil Query1


Hasil Query2


Hasil Query3


Anda tinggal memasukkan perintah query itu ke dalam perintah pemrograman Delphi Anda.

:-)