LogFile Pakai Foxpro

Rekan2 yg terhormat jika anda ingin merekam aktifitas user (pemakai aplikasi) untuk alasan tertentu mungkin procedure dibawah ini bisa berguna.
Salam hangat,Rekan2 yg terhormat...berikut contoh programnya.*---------------------------*
(sumber www.fox-id.org)


PROCEDURE TOLOG LPARAMETERS inout,para01,para02,para03 && inout .t. = in / .f. = out
LOCAL p01,p02
declare integer WritePrivateProfileString in Win32API as WritePrivStr ;
string cSection, string cKey, string cValue, string cINIFile
p01 =IIF(EMPTY(para01)=.t.,_userid,para01)
if inout=.t.
p02 =IIF(EMPTY(para02)=.t.,_screen.Activeform.caption+' ( '+_kodept+'-
'+_kodeproyek+' In'+' )',para02)
else
p02 =IIF(EMPTY(para02)=.t.,_screen.Activeform.caption,para02)+' (
'+IIF(empty(_kodept)=.t.,'',_kodept)+'-'+_kodeproyek+' Out'+' )'
endif
lcValue = TTOC(DATETIME())
=WritePrivStr(p01, lcValue, ;
p02, CURDIR() + ‘LOGFILE’)
RETURN

Catatan :Variable _userid, _kodept,_kodeproyek bersifat global tercipta atau terisi pada saat login dan memilih pt serta proyek. Anda bisa ganti dg data lain yg bersifat string jika diperlukan.
Untuk menjalankannya anda tinggal ketik =TOLOG(.t.) di ‘Activate Event’ atau =TOLOG(.f.) dan ketik di Destroy Event. Anda bisa meletakkan procedure ini di event2 yg lain sebanyak informasi yg anda ingin rekam.
Maka aktifitas user akan terekam di file ‘LOGFILE’.
Asumsi user yg login program adalah adik kita ‘britni’.(_userid=’britni’)
Contoh isi file ‘LOGFILE’:
[britni]
28/10/1977 09:04:18 AM=Entri Buku Bank : ( A7-01 In )
28/10/1977 09:10:21 AM=Entri Buku Bank : ( A7-01 Out )
Dst…
Procedure ini dengan sedikit modifikasi juga bisa anda pergunakan untuk mencatat posisi form serta toolbar, saya adaptasi dari tastrade.Semoga tulisan ini memberikan inspirasi2 baru bagi rekan yg memerlukannya.Terima kasih. NSL.(aku hanya seorang pemulung ..yg berusaha mengolah limbah yg ada)