Sample VFP Calendar
Download SampleTanggal
Sample Add, Edit Delete & Navigasi VFP dengan Access Database.
Download VFP_ADO_Access
Cara mudah menjalankan aplikasi Visual Foxpro di Intranet. VFP nggak ada matinya dech.........
| Di antara keutamaan menuntut ilmu adalah: ~ Adakah sama antara orang-orang yang mengetahui dengan orang-orang yang tidak mengetahui? (Az-Zumar:9) ~ Allah akan meninggikan orang-orang yang beriman diantaramu dan orang-orang yang diberi ilmu pengetahuan beberapa derajat.” (Al-Mujadilah:11) ~ Barangsiapa berjalan di satu jalan dalam rangka menuntut ilmu, maka Allah mudahkan jalan menuju jannah. Dan sesungguhnya malaikat meletakkan sayap-sayapnya bagi penuntut ilmu tanda ridha dengan yang dia perbuat. (Dari hadits yang panjang riwayat Muslim) ~ Barangsiapa keluar dalam rangka thalabul ilmu (mencari ilmu), maka dia berada dalam sabilillah hingga kembali.” (HR. Tirmidzi, hasan) ~ Barangsiapa menempuh jalam untuk mencari ilmu, maka Allah mudahkan baginya jalan menuju surga.” (HR.Muslim) ~ Barangsiapa yang Allah kehendaki padanya kebaikan maka Allah akan pahamkan dia dalam (masalah) dien (agama).” (HR.Bukhari) Ibnu Qayyim Al-Jauziyah dalam “Buah Ilmu” |
Dear All,
Ini ada sample Cursor Adapter dengan Database MSSQL, dari kang ARI-KPFI. Semula akan di kirim ke Mas Taz, tapi berhubung Server Downloadnya masih [ngambek], makannya di taruh disini. OK teman, semoga sample ini bermanfaat, selamat belajar & berkarya.
Wassalam
Feihung
SAMPLE VFP-MySQL (dari Gregore ?)
Semoga Bermanfaat...........
|
"Khairunnas anfa’uhum linnas" "Sebaik-baik manusia diantaramu adalah yang paling banyak manfaatnya bagi orang lain." (HR. Bukhari dan Muslim). |
#INCLUDE Excel9.h
LOCAL loExcel, lcOldError, lcRange, lnSheets, lnCounter
LOCAL loTherm, lcTask, lnPercent, lnSeconds
loTherm = NewObject("_thermometer","_therm","","Exporting to Microsoft EXCEL, Please Wait.....")
RELEASE ALL LIKE o*
RELEASE LoExcel
LOCAL oExcel, oRange, oSheet, lcHead
LOCAL lnLastRow, lnTotalRow
SELECT CnByOtlet1
i=0
j=RECCOUNT('CnByOtlet1')
*-- Create the Object
lcOldError = ON("ERROR")
ON ERROR loExcel = .NULL.
loExcel = GetObject(, "Excel.Application")
ON ERROR &lcOldError
IF ISNULL(loExcel)
loExcel = CreateObject( "Excel.Application" )
ENDIF
WITH loExcel
.Workbooks.Add
.DisplayAlerts = .f.
lnSheets = .Sheets.Count
FOR lnCounter = 1 TO lnSheets - 1
.Sheets(1).Delete
ENDFOR
&& Rename Sheet
WITH .Sheets(1)
.Select
.Name = "Without DISC"
ENDWITH
&& Buat Judul
WITH .Range("A2")
.Value = "TRANSACTION WITHOUT DISCOUNT"
WITH .Font
.Bold = .T.
.Size = 14
.Underline = xlUnderlineStyleSingle
ENDWITH
ENDWITH
WITH .Range("A3")
.Value = tSubJudul
WITH .Font
.Bold = .T.
.Size = 12
.Underline = xlUnderlineStyleSingle
ENDWITH
ENDWITH
&& Buat Header
.Range("A5").Value = "Facno"
.Range("B5").Value = "tgl"
.Range("C5").Value = "Branch"
.Range("D5").Value = "Brid"
.Range("E5").Value = "Otgrp"
.Range("F5").Value = "Otid"
.Range("G5").Value = "Outlet Name"
.Range("H5").Value = "Qty"
.Range("I5").Value = "Sales"
loTherm.Show()
FOR i = 1 TO j
lnRow=6
SCAN
i=i+1
lnPercent = m.i/j*100
loTherm.Update(lnPercent, "Branch : "+brnama)
.Cells(lnRow, 1).Value = "'"+ALLTRIM(facno)
.Cells(lnRow, 2).Value = tgl
.Cells(lnRow, 3).Value = ALLTRIM(brnama1)
.Cells(lnRow, 4).Value = "'"+brid
.Cells(lnRow, 5).Value = [']+otgrp
.Cells(lnRow, 6).Value = "'"+ALLTRIM(otid)
.Cells(lnRow, 7).Value = ALLTRIM(otnama)
.Cells(lnRow, 8).Value = Qty
.Cells(lnRow, 9).Value = Sales
.Cells(lnRow, 8).NumberFormat = "0_);[Red](0)"
.Cells(lnRow, 9).NumberFormat = "0_);[Red](0)"
lnRow=lnRow+1
ENDSCAN
ENDFOR
loTherm.Complete()
lnLastRow = lnRow
lnTotalRow = lnLastRow + 1
.Cells( lnTotalRow,1 ) = "TOTAL"
.Cells( lnTotalRow,8 ).Formula = "=SUM(H6:H" + ALLTRIM(STR(lnLastRow)) + ")"
.Cells( lnTotalRow,9 ).Formula = "=SUM(I6:I" + ALLTRIM(STR(lnLastRow)) + ")"
.Columns("B:I").EntireColumn.AutoFit
.VISIBLE = .T. && Show Excel
ENDWITH