主程序如下，如何添加代码使得软件设置使用次数或使用日期？
SET SYSMENU OFF
SET SYSMENU TO
SET STATUS BAR OFF
SET TALK OFF
SET NOTIFY OFF
SET CLOCK STATUS
SET PALETTE OFF
SET BELL ON
SET SAFETY OFF
SET ESCAPE ON
SET KEYCOMP TO WINDOW
SET CARRY ON
SET CONFIRM ON
SET EXACT ON
SET NEAR ON
SET ANSI OFF
SET LOCK ON
SET EXCLUSIVE OFF
SET DELETED ON
SET MULTILOCKS ON
SET HEADING ON
SET DELETED OFF
SET OPTIMIZE ON
SET UNIQUE OFF
SET CPDIALOG OFF
SET REFRESH TO 0 , 5
SET ODOMETER TO 100
SET BLOCKSIZE TO 64
SET REPROCESS TO 0
SET DEFAULT TO SYS(5) + CURDIR()
SET PATH TO SYS(5) + CURDIR()
SET SYSFORMATS OFF
SET SECONDS ON
SET CENTURY ON
SET CURRENCY LEFT
SET CURRENCY TO 'NT$'
SET HOURS TO 12
SET DATE TO ymd
SET FDOW TO 1
SET FWEEK TO 1
SET MARK TO '.'
SET SEPARATOR TO ','
SET POINT TO '.'
With _Screen
.Visible=.f.
.WindowState=2
EndWith
LOCAL LCSYS16 , CPROGRAM
LCSYS16 = SYS(16)
LCPROGRAM = SUBSTR(LCSYS16,AT(':',LCSYS16) - 1)
CD LEFT(LCPROGRAM,RAT('\',LCPROGRAM))
SET DEFAULT TO SYS(5) + SYS(2003)
SET PATH TO
CLEAR ALL
CLOSE ALL
WITH ERROR(), ;
MESSAGE(), ;
MESSAGE(1), ;
PROGRAM(), ;
LINENO(1)
_SCREEN.VISIBLE = .F.
_SCREEN.WINDOWSTATE = 1
DECLARE INTEGER GetSystemMetrics IN win32api AS Get_sysc INTEGER
X = GET_SYSC(0)
Y = GET_SYSC(1)
IF X <> 1024 .OR. Y <> 768
IF MESSAGEBOX('本程序运行的最佳显示分辨率为1024*768,' + CHR(13) + CHR(13) + ;
'您是否决定自动将分辨率更改为1024*768',292,'提示信息') = ;
6
DECLARE INTEGER Fblz IN 'fBL.dll' INTEGER , INTEGER
X = 1024
Y = 768
XX = FBLZ(X,Y)
CLEAR DLLS
ENDIF
ENDIF
PUBLIC newuser,selcpbh,selpm,selgg,selkh,selkhdm,zztt,zzje,zzlje,ydw
oSysToolbars =NEWOBJECT('_SysToolbars','_app.vcx','',.T.)
on shutdown do usexit.prg
with _screen
.visible=.f.
endwith
do form login
read event
（主程序代码是参考别人的写的，有些都不知道什么意思，在此感谢天峰软件）
------解决方案--------------------------------------------------------
请参考：
http://www.yesky.com/20011119/205686.shtml