【vfp开源代码栏目提醒】:网学会员vfp开源代码为您提供book_sub1.prg参考,解决您在book_sub1.prg学习中工作中的难题,参考学习。
#INCLUDE events.h
DEFINE CLASS booksub1 AS session OLEPUBLIC
IMPLEMENT Ibookpub IN foxbook_pub.bookpub
PROCEDURE Ibookpub_NewBook(cBookName AS string, nPrice AS currency)
STRTOFILE(TRANS(DATETIME()) + " (" + PROGRAM() + ") - ";
+ cBookName + ", ";
+ TRANSFORM(nPrice) + CRLF,;
LOGFILE,.T.)
ENDPROC
PROCEDURE Ibookpub_PriceChange(cBookName AS string, nPrice AS currency)
STRTOFILE(TRANS(DATETIME()) + " (" + PROGRAM() + ") - ";
+ cBookName + ", ";
+ TRANSFORM(nPrice) + CRLF,;
LOGFILE,.T.)
ENDPROC
ENDDEFINE