Arsip: minta masukan, query ngecek buku ada atau lagi dipinjam...

more 18 years ago
imunk
dear mas2/mbak2 delphier...
datang lagi nih....
minta masukannya, aku lagi bikin query utk mengecek buku, apakah ada atau sedang dipinjam. database yg digunakan mySQL.
TABEL PINJAM
kode kdinv nim tgl
1 11 1 2006-11-08
2 11 1 2006-11-08
3 2 1 2006-11-08
3 11 1 2006-11-08
4 2 2 2006-11-08
5 11 2 2006-11-08
6 11 2 2006-11-08
TABEL KEMBALI
kode kdinv nim tgl
1 11 1 2006-11-09
2 11 1 2006-11-09
3 2 1 2006-11-09
3 11 1 2006-11-09
5 11 2 2006-11-09
6 11 2 2006-11-09
TABEL INVENTARIS
kode namabuku
11 Pemrograman Delphi 7
2 Delphi dan Mysql
QUERY
select kode,'1' as status from inventaris
where kode not in (select kdinv
from pinjam where concat(kode,kdinv) not in
(select concat(kode,kdinv) from kembali))
UNION
select kode,'0' as status from inventaris
where kode in (select kdinv
from pinjam where concat(kode,kdinv) not in
(select concat(kode,kdinv) from kembali))
order by kode
OUTPUT
kode status
11 1
2 0
ket status:
1 := ADA;
0 := DIPINJAM;
sampe saat ini OUTPUT tersebut dah betul (tp gak tau kalo data dah banyak), untuk itu tolong dong kritik dan saran dari QUERY yg kubuat apakah sudah bisa mengatasi atau perlu ada perbaikan, aku sendiri masih kurang puas dg QUERY tsb pengennya lebih simple lagi dan gak usah pake fungsi UNION segala.
makasih sebelumnya atas masukan dan pencerahannya.
mohon dukungannya supaya diriku bisa maju.....
more 18 years ago
kaka-delphi
bentar nich .... apa kode dari tabel pinjam dan tabel kembali merupakan primary key ... ?
Klo ya ... knapa ada double data yang sama ... ?

more 18 years ago
imunk
primary key untuk tabel PINJAM dan KEMBALI:
kode+kdinv+nim
primary key untuk tabel INVENTARIS:
kode

more 18 years ago
kaka-delphi
Apa ga ada field untuk stok buku .... ? mungkin untuk memudahan kita untuk mendeteksi stok buku.
Nah saat transaksi pinjam tinggal kurangkan, saat transaksi kembali tambahkan stok buku.
Mungkin itu bisa lebih mudah ....
Referensi :
http://www.delphi-id.org/thread/unknown/1393/view-old-thread/
http://www.delphi-id.org/thread/unknown/1415/view-old-thread/

more 18 years ago
aireda
menurutku si enakan pake view seperti referensi bung kaka... lebih enak si ngurusinnya..!
btw......betul ga..?

more 18 years ago
imunk
@kaka-delphi
gak ada mas, stok buku dicek lgs dr tbl pinjam dan kembali. menurutku lebih dinamis.
tapi kalo ada masukan dari rekan2 yg lain, dengan senang hati kuterima..:)

more 18 years ago
_lmz
Apakah mungkin bisa dibuat "IN clause"-nya dalam daftar kolom? Karena harusnya kan ... NOT IN ... hasilnya boolean...
select
kode,
( kode not in
(select kdinv from pinjam where concat(kode,kdinv) not in
(select concat(kode,kdinv) from kembali) ) ) as status
from inventaris
order by kode;

more 18 years ago
imunk
@_Imz
tenkyu abiz deh...:)
aku baru tau kalo klausa in bisa dijadiin kolom.. (ini ilmu baru bagiku).
utk kodenya running well deh........
@all
ternyata belajar ma yg ahlinya mengasikkan ya.....
kita selalu akan dapat tambahan ilmu....
thanks all.....
untuk maju emang harus berguru....

more 18 years ago
yayaretina
sekedar ngasih tambahan n saran.. soalnya aku jg habis nyelesain aplikasi kayak gitu..
gini...
tabel pinjam n tabel kembali bisa dijadiin satu n querynya tanpa memakai union...
seperti kata bung kaka :
Apa ga ada field untuk stok buku .... ? mungkin untuk memudahan kita untuk mendeteksi stok buku.tabel inventaris tinggal ditambahkan field stok. lalu pada setiap kali ada peminjam buku maka data pada field stok di kurangi satu.. apabila stok=0 maka buku keluar.. n jika stok>0 maka buku ada..
select from inventaris where stok<>'0'; //untuk mengecek buku yang ada
select from inventaris where stok='0'; //untukmengecek buku yang keluar
mungkin bisa jadi perbandingan..
---CMIIW---[/quote]
more 18 years ago
saysansay
@kaka-delphi gak ada mas, stok buku dicek lgs dr tbl pinjam dan kembali. menurutku lebih dinamis.Xiixixxi mas imunk apa Nga Kebalik..Menurut Pengalaman Ku,..malahan Lebih Nga Dinamis Pake Yg punya Mas Imunk... Misalkan Salah Satu Buku Iventaris Hilang,Rusak,Atau Nga Dibalik2in..Hayo...dimana mas Akan membuat status Bukunya ? Sekedar Saran Sebaiknya Bikin Tbale Stok Buku Beserta History Peminjam....Dan History Pengembalian...akan lebih Membantu...Jika Sudah Ada History...Apa Lagi kebiasaan Jelek Org Indonesia mau minjem Nga mau Ngembaliin..xixixixixi...Moga jadi bahan pertimbangan..Ok Semnagat
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- tip and trik develop aplikasi three tier
by ipaseti in Tip n Trik Pemrograman more 18 years ago - Kebiasaan para programmer
by budicysco in OOT more 17 years ago - nama file ketika di save bisa di ganti?
by gormet in Kritik & Saran more 18 years ago - non-rectangle + antialias + tranluency form?
by AIIA in Multimedia & Graphic Enhancement more 18 years ago - tanya cara ngitung tanggal
by budhie_yk in Hal umum tentang Pascal Indonesia more 16 years ago - ask : saat program running tdk bisa tekan alt+tab
by adhisyanda in Hal umum tentang Pascal Indonesia more 15 years ago - Numpang Tanya
by aseppala in Hal umum tentang Pascal Indonesia more 15 years ago - Aplikasi Apotik
by andip70 in Hal umum tentang Pascal Indonesia more 18 years ago - Licensi Delphi
by farhan_port in Hal umum tentang Pascal Indonesia more 17 years ago - FORMAT
by marsedho2005 in Enginering more 19 years ago