Cetak Rekapitulasi Data Dengan Foxpro

Ok. kita berbagi lagi nih asyiikkk.

langsung aja nih,,gimana sih bikin rekap data dengan foxpro pertahu, ada 2 cara sih bisa bikin tabel baru saat klik atau langsung dari reportnya, gimana sih maksudnya. OK disimak nih

cara 1 :

pada tombol cetak1 procedure click ketik koding dibawah ini



SELECT cnik,cnama,dtglmasuk from siswa INTO CURSOR cursiswa
***bikin tabel baru dengan memnggunakan INTO TABLE
SELECT cnama FROM cursiswa GROUP BY cnama INTO TABLE tablesiswa
***bikin /sisipkan colom dengan ALTER TABLE dan ADD
Alter Table tablesiswa Add Column njan I(2)
Alter Table tablesiswa Add Column nfeb I(2)
Alter Table tablesiswa Add Column nmar I(2)
Alter Table tablesiswa Add Column napr I(2)
Alter Table tablesiswa Add Column nmei I(2)
Alter Table tablesiswa Add Column njun I(2)
Alter Table tablesiswa Add Column njul I(2)
Alter Table tablesiswa Add Column nagu I(2)
Alter Table tablesiswa Add Column nsep I(2)
Alter Table tablesiswa Add Column nokt I(2)
Alter Table tablesiswa Add Column nnov I(2)
Alter Table tablesiswa Add Column ndes I(2)
***gunakan scan untuk replace data
SCAN
lcnama=cnama
Select cnama From cursiswa Where Month(dtglmasuk)=1 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.njan With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=2 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nfeb With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=3 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nmar With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=4 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.napr With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=5 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nmei With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=6 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.njun With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=7 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.njul With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=8 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nagu With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=9 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nsep With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=10 AND cnama=lcnama  Into Cursor tmpbaru
Replace tablesiswa.nokt With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=11 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.nnov With Reccount("tmpbaru")
Select cnama From cursiswa Where Month(dtglmasuk)=12 AND cnama=lcnama Into Cursor tmpbaru
Replace tablesiswa.ndes With Reccount("tmpbaru")
endsca

***keluarkan tabel/cursor
Use In "cursiswa"
Use In "tmpbaru"
***cetak deh
Select tablesiswa
REPORT FORM cetak1 PREVIEW

cara 2
cara ini boleh dibilang gampang cuma bikin grouping NIK hehe lihat gambar

pada expression tulis gini
iif(month(siswa.dtglmasuk)=1,1,0)

naa untuk textbox selanjutnya tinggal ubah yang warna merah jadi 2,3,4,5 yaa berdasarkan bulan lah🙂
selanjutnya atur calculate type nya jad SUM

ok udah selesai

ok pada tombol cetak2 kodingnya

SELECT siswa
SET ORDER TO tag cnik
REPORT FORM cetak2 prev

lihat gambar

tombol cetak 1

tombol cetak2

bingung yaa hehe udah ni saya kasih contohnya

http://www.mediafire.com/?4q6uavxxuc6cw5a

semoga bermanfaat

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: