| Author |
Message |
Soni |
| Location: |
|
Post subject: Grouping Quick Report
 Posted: 04/Jan/2007 07:27
|
|
onNovice
Joined: 04-Jan-2007
Posts: 14
Status: Offline
|
|
Hai, semua .... aku member baru nich ....
Aku mau membuat Laporan menggunakan QReport nich ...
nah query yang ku buat seperti berikut :
[sql:1:af8e248ccb]
SELECT
'Penjualan' AS KATEGORI,
0 AS GRUP,
SUM(JUMLAH * HARGA) AS NILAI
FROM A
UNION ALL
SELECT
'Pembelian' AS KATEGORI,
1 AS GRUP,
SUM(JUMLAH * HARGA) AS NILAI
FROM B
UNION ALL
SELECT
NamaBiaya AS KATEGORI,
2 AS GRUP,
SUM(NILAI)
FROM C
GROUP BY NamaBiaya
[/sql:1:af8e248ccb]
Trus aku tambahkan komponen QRGroup serta QRExpr. Tampilan report yang diinginkan :
Semua Penjualan
Penjualan 500000
Semua Pembelian
Pembelian 100000
Semua Biaya
Transport 50000
Bonus 50000
Lainnya 50000
Gimana yach skrip yang baiknya supaya mendapatkan hasil report seperti itu, saya udah coba di QRExpr memmasukkan ekspresi :
Code:
IF(GRUP=0,'Semua Penjualan','Semua Pembelian')
tetapi hasilnya di grup biaya yang seharusnya berjudul 'Semua Biaya', menjadi 'Semua Pembelian'. Aku ngerti ini karena ekspresi IF() yang cuman punya 2 pilihan saja. Aku otak atik pada ekspresinya tapi tetep aja ga bisa (misal: IF(GRUP=0,IF(GRUP=1,'Semua Penjualan','Semua Pembelian'),'Semua Biaya'). Apakah ekpsresi IF di QRExpr cuman muat IF aja tidak dengan ELSE - nya ?
Mohon pencerahannya .... !
//Mohon maaf klo ada salah kata |
|
|
| |
|
|
|
 |
|
Soni |
| Location: |
|
|
Post subject:
Posted: 04/Jan/2007 13:35
|
|
onNovice
Joined: 04-Jan-2007
Posts: 14
Status: Offline
|
|
Mohon Pencerahannya dari Master dan Suhu disini ...  |
|
|
| |
|
|
|
|
|
cyber_hecker |
| Location: Ponti Hot City |
|
|
Post subject:
Posted: 04/Jan/2007 16:21
|
|
onProfessional
Joined: 19-May-2005
Posts: 981
Location: Ponti Hot City
Status: Offline
|
|
sehubungan gak ada delphinya di kompi ini, ku beri ancang-ancang se inget ku ajah yach
untuk group band nya kita group berdasarkan field grup
untuk judulnya dengan menggunakan QRExpr bisa gak dipake expresi kira-kira = 'semua '+kategori.
klo salah maap ya, cuma membantu sedikit sebisa ku  |
_________________
|
| |
|
|
|
|
|
Soni |
| Location: |
|
 |
Post subject: RE: Grouping Quick Report (PLEASE URGENT) !!!
Posted: 04/Jan/2007 18:45
|
|
onNovice
Joined: 04-Jan-2007
Posts: 14
Status: Offline
|
|
Terima kasih .... ternyata ada yang respon juga ... 
Oh ... yach ... skrip sql saya khan menggabungkan 3 tabel dalam 1 laporan (report), yang di tampilkan itu :
1. Tabel A yang hanya menjumlahkan (SUM) semua jumlah * harga (tidak ada group by), otomatis hanya 1 hasil yang di tampilkan. Misal :
[sql:1:eb9ca433dd]
SELECT
'Penjualan' AS KATEGORI,
0 AS GRUP,
SUM(JUMLAH * HARGA) AS NILAI
FROM A
[/sql:1:eb9ca433dd]
Hasil :
[sql:1:eb9ca433dd]
+-----------+------+--------+
| KATEGORI | GRUP | NILAI |
+-----------+------+--------+
| Penjualan | 0 | 800000 |
+-----------+------+--------+
[/sql:1:eb9ca433dd]
2. Tabel B juga yang hanya menjumlahkan (SUM) semua jumlah * harga (tidak ada group by), otomatis hanya 1 hasil yang di tampilkan. Misal :
[sql:1:eb9ca433dd]
SELECT
'Pembelian' AS KATEGORI,
1 AS GRUP,
SUM(JUMLAH * HARGA) AS NILAI
FROM B
[/sql:1:eb9ca433dd]
Hasil :
[sql:1:eb9ca433dd]
+-----------+------+--------+
| KATEGORI | GRUP | NILAI |
+-----------+------+--------+
| Pembelian | 1 | 300000 |
+-----------+------+--------+
[/sql:1:eb9ca433dd]
3. Tabel C menjumlahkan beberapa macam dan ada group by nya, Misal :
[sql:1:eb9ca433dd]
SELECT
NamaBiaya AS KATEGORI,
2 AS GRUP,
SUM(NILAI)
FROM C
GROUP BY NamaBiaya
[/sql:1:eb9ca433dd]
Hasil :
[sql:1:eb9ca433dd]+----------------------------+------+--------+
| KATEGORI | GRUP | NILAI |
+----------------------------+------+--------+
| Biaya Transport | 2 | 50000 |
| Biaya Bonus | 2 | 50000 |
| Biaya Lainnya | 2 | 50000 |
+----------------------------+------+--------+[/sql:1:eb9ca433dd]
Nah, apabila dengan pencerahan soudara cyber_hecker, hasil yang keluar di report akan menjadi :
Semua Penjualan 500000
Semua Pembelian 100000
Semua Biaya Transport 50000
Semua Biaya Bonus 50000
Semua Biaya Lainnya 50000
Sementara yang saya inginkan serperti ini :
Semua Penjualan
Penjualan 500000
Semua Pembelian
Pembelian 100000
Semua Biaya
Transport 50000
Bonus 50000
Lainnya 50000
Kuncinya sich seleksi di GRUP itu, misal logikanya :
Code:
if (GRUP = 0) then 'Semua Penjualan' else
if (GRUP = 1) then 'Semua Pembelian' else
'Semua Biaya'
karena buat apa saya bikin keterangan GRUP klo ga ada gunanya.
Yang membuat saya bingung itu gimana caranya ekspresi di QReport itu ,.,.,.,.,.,.,.,.,.
Mohon pencerahannya lagi, sangat mepet nich ....  |
Last edited by Soni on 04/Jan/2007; edited 1 time in total
|
| |
|
|
|
|
|
kaka-delphi |
| Location: Taziex |
|
|
Post subject:
Posted: 04/Jan/2007 22:14
|
|
onElite
Joined: 12-Oct-2005
Posts: 1050
Location: Taziex
|
|
Wah coba klo memakai FastReport ... mungkin lebih kaya dengan ekspresi ....
{ Maaf, tidak memberi solusi ...
BTW CH baru muncul nich .....  |
|
|
| |
|
|
|
|
|
Soni |
| Location: |
|
|
|
Post subject:
Posted: 04/Jan/2007 22:56
|
|
onNovice
Joined: 04-Jan-2007
Posts: 14
Status: Offline
|
|
Makasih atas saran om kaka-delphi
Tapi sekarang udah terlanjur pakai Quick Report sich, dan kalaupun dirubah memakai FasReport, kayaknya ga mungkin sempet.
Please ... Some Body Help Me ... !!! |
|
|
| |
|
|
|
|
|
ferok |
| Location: |
|
|
Post subject:
Posted: 05/Jan/2007 11:34
|
|
onConfident
Joined: 27-Nov-2006
Posts: 16
Status: Offline
|
|
Saya udah coba.. dan gak perlu pake QRExpr mas...
Untuk menghasilkan report seperti yang dibawah :
Semua Penjualan
Penjualan 500000
Semua Pembelian
Pembelian 100000
Semua Biaya
Transport 50000
Bonus 50000
Lainnya 50000
Caranya :
1. di QuickReport ada 2 band : QrGroup dan Detail Band
2. di Band QrGroup masukan QrLabel ( untuk menampilkan Group "Biaya Penjualan","Biaya Pembelian","Biaya lainnya"
3. di Band QrGroup, Event BeforePrint tuliskan script seperti contoh dibawah:
If ADOQuery1.FieldByName('Kategori').AsString = 'Penjualan' then
QRLabel1.Caption := 'Semua Penjualan'
else
If ADOQuery1.FieldByName('Kategori').AsString = 'Pembelian' then
QRLabel1.Caption := 'Semua Pembelian'
else
QRLabel1.Caption := 'Semua Biaya';
4. Properti Expression = grup
5. di DetailBand , masukan 2 qrDBText , yg datafieldnya : Kategori dan Nilai
6. Run QuickRep nya
Semoga berhasil
( saya udah coba dan berhasil sesuai report yang diinginkan ) |
|
|
| |
|
|
|
|
|
Soni |
| Location: |
|
|
Post subject:
Posted: 05/Jan/2007 11:50
|
|
onNovice
Joined: 04-Jan-2007
Posts: 14
Status: Offline
|
|
Wah ... ternyata hasil 'ulekan' saya sama dengan mas ferok, saya juga baru menemukan triknya dan ternyata Emang seperti yang mas ferok jelaskan.
Tetapi saya tetap menggunakan GRUP untuk menyeleksinya, seperti berikut :
code : pascal procedure TfLap1.QRGroup1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin case dm.Query1Grup.AsInteger of 0: QRlblJudulGrup.Caption:= 'Semua Pendapatan'; 1: QRlblJudulGrup.Caption:= 'Semua Pembelian'; 2: QRlblJudulGrup.Caption:= 'Semua Biaya'; end; end;
dan hasilnya seperti yang diinginkan :
Semua Penjualan
Penjualan 500000
Semua Pembelian
Pembelian 100000
Semua Biaya
Transport 50000
Bonus 50000
Lainnya 50000
Thank's for All ,.,.,.,.,.,.,.,.,.,.,. |
|
|
| |
|
|
|
|
|
xproof |
| Location: |
|
|
Post subject:
Posted: 15/Mar/2009 13:47
|
|
onKnowledgeable
Joined: 18-Feb-2008
Posts: 150
Status: Offline
|
|
Saya angkat lagi deh topik ini, walaupun permasalahannya berbeda....
Tabel absen
nis int(10)
tanggal datetime
jam datetime
status varchar(10)
Contoh datanya :
-------------------------------------------------------------------------
nis | tanggal | Jam | status |
-------------------------------------------------------------------------
1 | 12/03/2009 | 06:30:00 | Masuk |
1 | 13/03/2009 | 00:00:00 | Izin |
1 | 14/03/2009 | 00:00:00 | Tanpa Keterangan|
1 | 15/03/2009 | 00:00:00 | Tanpa Keterangan|
1 | 16/03/2009 | 06:45:00 | Masuk |
Saya ingin membuat report dari data diatas dan menghasilkan tampilannya seperti ini
------------------------------------------------------------------------------
nis | Masuk | Izin | Sakit | Tanpa Keterangan |
-------------------------------------------------------------------------------
1 | 2 | 1 | 0 | 2 |
-------------------------------------------------------------------------------
Kira-kira query nya gimana yah? |
|
|
| |
|
|
|
|
|
xproof |
| Location: |
|
|
Post subject:
Posted: 15/Mar/2009 14:12
|
|
onKnowledgeable
Joined: 18-Feb-2008
Posts: 150
Status: Offline
|
|
| Nahh masalahnya sama kaya di <a href:http://delphi-id.org/dpr/Forum-viewtopic-t-143-highlight-group.pas>sini</a> |
|
|
| |
|
|
|
|
|
|
