Arsip: cara nyimpan data

more 18 years ago
putukaca
saya punya table Tmp dan Jual
Tmp isinya hasil scanning barcode sbg contoh hasilnya
barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml
10001 AD001 1 0 0 0 0 0 1 20000 20000
10001 AD001 0 0 1 0 0 0 1 20000 20000
10002 AC001 0 1 0 0 0 0 1 30000 30000
10002 AC001 0 0 0 1 0 0 1 30000 30000
isi tbTmp saya tampilkan di DBgrid dengan menggunakan query(qTmp) dengan sql
select barcode,kode,sum(tmp.s1) as s1,sum(tmp.s2) as s2,sum(tmp.s3) as s3,
sum(tmp.s4) as s4,sum(tmp.s5) as s5,sum(tmp.s6) as s6, sum(tmp.ttl) as ttl,
sum(tmp.jml)as jml, hrg from tmp group by barcode dan hasil sbb (di DBgrid):
barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml
10001 AD001 1 0 1 0 0 0 2 20000 40000
10002 AC001 0 1 0 1 0 0 2 30000 60000
nah saya ingin melakukan penyimpanan data ke table jual dengan isi sama seperti yang di dbgrid jadi data yang tersimpan sudah terkelompok. ada yang bisa bantu caanya gimana? saya pake D7, mysql dan Zeos.
thank's b4

more 18 years ago
DelphiExpert
Kalo ngga' salah tangkep nih, setelah select yg pertama, lakukan while not eof dan lakukan insert ke table jual

more 18 years ago
putukaca
mohon diperjelas soalnya baru kali ini nemu masalah ini udah 2 hari mikir nih. melakukan while not eof pada table yang mana? kalo bisa kasikan contohnya. saya melakukan proses penyimpanan data ke table jual pada event onClick dr tombol simpan yg ada di form.
mohon pencerahannya

more 18 years ago
masdi2t
klu dah keformat tampilan seperti itu tinggal tiup plus simsalabim dah kelar mas. bisa dicoba eksekusi SQL dibawah ini (dijamin tidak ada programming, while eof sama sekali)
insert into jual (barcode, kode, s1, s2, s3, s4, s5, s6, ttl, jml, hrg)
select barcode, kode, sum(tmp.s1) as s1, sum(tmp.s2) as s2, sum(tmp.s3) as s3, sum(tmp.s4) as s4, sum(tmp.s5) as s5, sum(tmp.s6) as s6, sum(tmp.ttl) as ttl, sum(tmp.jml) as jml, hrg from tmp group by barcode

more 18 years ago
putukaca
ada masalah lagi di table jual saya tambahkan field nonota shop dan ket jadi di form saya tambah edNoNota, edShop, edKet nah gimana cara nambahin isi dr semua edit tsb ke table jual. dimana tabel jual saya tambah fieldnya shg menjadi:
nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket
nonota merupakan primary key. saat saya pake kode di atas ada error duplicate entry '' for key 1 (karena merupakan primary key). sekarang saya ingin saat data disimpan maka di table jual akan terlihat sbb:
nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket
J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash
J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash
dst...
mohon batuannya.
thank's b4

more 18 years ago
arieq
@putukaca: nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash dst... thank's b4dari contoh di atas jelas nonota tidak bisa dibuat sebagai primary key karena datanya bisa sama yaitu J00001. Pemecahannya : - nonota bukan sebagai primary key - nonota tetap primary key tapi harus dibuat ke tabel baru yang terpisah, tabel baru tersebut kemudian di relationship ke tabel jual

more 18 years ago
putukaca
o gitu ya pantes setelah saya coba hilangkan primary keynya baru mau masuk. nah kalo mau memasukkan isi dari semua Tedit (edNonota,edShop,edKet) yg ada diform tsb ke tabel jual gimana caranya apa pake parameter. sehingga hasilnya mau seperti yg saya tulis sebelumnya. ato gimana?
thank's
yudi

more 18 years ago
arieq
Untuk memasukkan isi dari TEdit ke tabel, bisa dengan 2 cara :
1. Di tulis langsung dalam command SQLnya, contoh :
note : Karena ketiganya berupa string maka harus diperhatikan, untuk tipe data string dalam database yang digunakan apakah menggunakan petik tunggal(') atau petik ganda (")
Pada umumnya menggunakan petik tunggal, sehingga harus di tulis menjadi: QuotedStr (string)
SQL.TEXT := 'INSERT into TBJUAL VALUES ('+
QuotedStr (edNonota.text) + ', ' +
QuotedStr (edShop.text) + ', ' +
QuotedStr (edKet.text) + ')';
2. Ditulis dalam bentuk paramater (dalam hal ini tidak perlu QuotedStr) << RECOMENDED
SQL.TEXT := 'INSERT INTO TBJUAL VALUES (:NoNota, :Shop, :Ket)';
SQL.Parameters.ParamValues['NoNota'] := edNonota.text;
SQL.Parameters.ParamValues['Shop'] := edShop.text;
SQL.Parameters.ParamValues['Ket'] := edKet.text;
SQL.ExecSQL;

more 18 years ago
putukaca
thank's mas arieq. nah gimana cara gabungin kedua sql berikut ini
(dari arieq)
SQL.TEXT := 'INSERT INTO TBJUAL VALUES (:NoNota, :Shop, :Ket)';
SQL.Parameters.ParamValues['NoNota'] := edNonota.text;
SQL.Parameters.ParamValues['Shop'] := edShop.text;
SQL.Parameters.ParamValues['Ket'] := edKet.text;
SQL.ExecSQL;
dengan sql ini:
insert into jual (barcode, kode, s1, s2, s3, s4, s5, s6, ttl, jml, hrg)
select barcode, kode, sum(tmp.s1) as s1, sum(tmp.s2) as s2, sum(tmp.s3) as s3, sum(tmp.s4) as s4, sum(tmp.s5) as s5, sum(tmp.s6) as s6, sum(tmp.ttl) as ttl, sum(tmp.jml) as jml, hrg from tmp group by barcode
sehingga hasilnya mau spt posting saya sebelumnya:
nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket
J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash
J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash
dst...
thank's
yudi
more ...
- Pages:
- 1
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
- help me buat rsa .........
by CurutZ in Tip n Trik Pemrograman more 17 years ago - Window Always on Top for Ever !
by xerion in Tip n Trik Pemrograman more 18 years ago - data
by zsaZsa in Network, Files, I/O & System more 17 years ago - report dan Export
by galih in Tip n Trik Pemrograman more 18 years ago - LEBARAN SEBENTAR LAGI
by indobrainsoft in OOT more 17 years ago - cara kirim email ke banyak tujuan
by lumpurpanas in OOT more 18 years ago - Koneksi ke MS SQL Server
by diraf_seira in MsSQL more 19 years ago - masalah fast report lagi niiihhh..
by radhutz in Reporting more 15 years ago - E-BOOK Lumayan buat tambah ngelmu ...
by Manz in Hal umum tentang Pascal Indonesia more 18 years ago - auto refresh record/record yang di update saja?
by oloan_ac in Hal umum tentang Pascal Indonesia more 15 years ago