- Beranda
- Programmer Forum
no run like fox [sharing foxpro]
...
TS
wismbuh
no run like fox [sharing foxpro]
buat temen2 pengguna, pemerhati & pakar foxpro, mari kumpul disini.
daripada trit pada loncat kemanamana, kenapa tidak kumpul disini, this is our home!
kalo mo ask or share, mari gan.
daftar pengunjung:
wismbuh,wc_bukan_kafe,aberta,SwingerQueen,fauzijabbar,Vaaaan,GetFreak,magnumjkt,hunter_XV,attasiagian,seydaney dan masih akan bertambah gan
[Klik tulisan "Klik" untuk versi lengkapnya]
daripada trit pada loncat kemanamana, kenapa tidak kumpul disini, this is our home!
kalo mo ask or share, mari gan.
daftar pengunjung:
wismbuh,wc_bukan_kafe,aberta,SwingerQueen,fauzijabbar,Vaaaan,GetFreak,magnumjkt,hunter_XV,attasiagian,seydaney dan masih akan bertambah gan
[Klik tulisan "Klik" untuk versi lengkapnya]
- isu
- Self Running, RunTime ato foldernya ato kalo mo langusng bisa download installernya di sini.
- nyembunyiin SCREEN VFP
- login menggunakan user&password MySQL ato klik disini
- Persiapan CRUD dgn MySQL
- Report Listener & REPORT FORM
- INSERT FROM NAME
- tidak semua perintah dalam *.prg bisa untuk command prompt
- Text Merge
- INSERT..SELECT
- membaca file ini
- menampilkan isi tabel dalam form pake textbox
- Membuat Form Transparan
- membuat customize grid
- export ke excell menggunakan "macro", menggunakan cursor untuk keperluan export
- Filter berdasarkan absensi (jam masuk dan keluar)
- backup menggunakan software 7-zip
- ngePrint Barcode ato bikin barcode
- variabel alternatip dalam form, nggak perlu public..
- webcam
- mengeja huruf dan bersuara
- ebook
- SPT, SQL Pass Throught
- hurup bolak balik, kanan ke kiri
- coding pendeteksi error
- mapWindow, contoh penggunaanya klik disini
- enskripsi pake Cipher50.fll
- IP Address & login by IP
- cari file dengan wildcard sampe subfolder
- print langsung ke printer
- gammu
- menjalan eksternal exe yg keren
- start, stop servicenya windows
- tutorial, intermeso nih: vmWareThinApp
- mempercantik form
- Grid BerHalaman [[I]paging[/I]]
- entri 01/02/2011; diubah menjadi 1 Februari 2011
- menghapus data ganda
- mengarahkan record diatas sesuai pencarian
- PHP
- link download DeCompiler VFP
- bikin LOG gile
- Cloud Computing [vfp2iis & foxincloud]
- Membaca Registry Komputer lain
- Format Tanggal GMT
- ShutDown, Restart ddl [satu, dua dan tiga]
- Transaction SQL
- Class di PRG, bikin object
- bikin custom casting
- kirim email, cek internet & kirim email lagi.
- VFP2IIS (Direct Aplikasi Desktop To WEB)
- report ke excell
- report ke pdf atau pake PRIMO
Diubah oleh wismbuh 10-08-2013 17:23
nona212 memberi reputasi
1
159.6K
2.6K
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.9KAnggota
Tampilkan semua post
Amandit
#2165
Quote:
Original Posted By caat►Siang Master vfp... Mohon bantuannya..saya sedang ada kendala mengenai cara buat report dengan model seperti gambar ini 
. Bagaimana dalam foxpro dpt membuat report seperti gambar..
mohon pencerahannya.. klo ada contohnya.. mohon untuk di share...
tks
. Bagaimana dalam foxpro dpt membuat report seperti gambar.. mohon pencerahannya.. klo ada contohnya.. mohon untuk di share...
tks
silahkan dicoba
Code:
Create Cursor curCompany (Company C(20),code c(4), satu L, dua L, tiga L, empat L)
INSERT INTO curcompany(company,code,satu,dua,tiga,empat);
values("A","01",.t.,.f.,.t.,.f.)
INSERT INTO curcompany(company,code,satu,dua,tiga,empat);
values("B","02",.f.,.f.,.t.,.f.)
INSERT INTO curcompany(company,code,satu,dua,tiga,empat);
values("C","03",.t.,.f.,.f.,.f.)
INSERT INTO curcompany(company,code,satu,dua,tiga,empat);
values("D","04",.t.,.t.,.t.,.f.)
INSERT INTO curcompany(company,code,satu,dua,tiga,empat);
values("E","05",.t.,.f.,.t.,.t.)
* Excel: HorizontalAlignment
* 2 = Left
* 3 = Center
* 4 = Right
Local oExcel, oSheet
oExcel = Createobject([Excel.Application])
oExcel.Visible = .T.
oExcel.Workbooks.Add()
oSheet = oExcel.ActiveSheet
lnRow = 0
Select curCompany
Go Top
Do While Not Eof()
lnRow = lnRow + 1
If lnRow = 1
oSheet.Cells(lnRow,1).Value = []
oSheet.Cells(3,1).Value = [NAMA BULAN]
oSheet.Cells(3,1).HorizontalAlignment = 3
oSheet.Range("A3","B3").Merge
oSheet.Cells(3,3).Value = [TANDA TERIMA REKAP HARIAN USER]
oSheet.Cells(3,3).HorizontalAlignment = 3
oSheet.Range("C3","J3").Merge
oSheet.Cells(4,3).Value = [TANGGAL]
oSheet.Cells(4,3).HorizontalAlignment = 3
oSheet.Range("C4","J4").Merge
oSheet.Cells(4,1).Value = [NAMA CABANG]
oSheet.Range("A4","A5").Merge
oSheet.Cells(4,2).Value = [KODE BARANG]
oSheet.Range("B4","B5").Merge
lnRow = 5
lnCol = 3
oSheet.Cells(lnRow,lnCol).Value = [SATU]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
*oSheet.Cells(lnRow,lnCol).HorizontalAlignment = xlCenter
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnCol = lnCol + 1
oSheet.Cells(lnRow,lnCol).Value = [DUA]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
*oSheet.Cells(lnRow,lnCol).HorizontalAlignment = xlCenter
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnCol = lnCol + 1
oSheet.Cells(lnRow,lnCol).Value = [TIGA]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
*oSheet.Cells(lnRow,lnCol).HorizontalAlignment = xlCenter
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnCol = lnCol + 1
oSheet.Cells(lnRow,lnCol).Value = [EMPAT]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
*oSheet.Cells(lnRow,lnCol).HorizontalAlignment = xlCenter
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnRow = 6
lnBeginRange = lnRow
Endif
oSheet.Cells(lnRow,1).Value = curCompany.Company
oSheet.Cells(lnRow,2).Value = curCompany.CODE
oSheet.Cells(lnRow,3).Value = curCompany.SATU
oSheet.Cells(lnRow,4).Value = curCompany.dua
oSheet.Cells(lnRow,5).Value = curCompany.tiga
oSheet.Cells(lnRow,6).Value = curCompany.empat
oSheet.Range("A3:j10").Borders(1).Weight = 3
oSheet.Range("A3:j10").Borders(2).Weight = 3
oSheet.Range("A3:j10").Borders(3).Weight = 3
oSheet.Range("A3:j10").Borders(4).Weight = 3
Skip
Enddo
bukan solusi tp pencerahan
semoga ada pencerahannya
0