main.prg

撒撒娇快乐就好空间看了我忘了拍相片在来记录卡连接可卡拉上了塑料卡设计askalsdaslas

CLEAR ALL
SET TALK OFF
SET ESCAPE OFF
SET EXACT OFF
SET EXCLUSIVE OFF            &&共享打开数据
SET REPROCESS TO 3           &&设置尝试锁定次数据
SET CONSOLE ON
SET DATE ANSI
SET score off
SET SAFETY OFF
SET STATUS bar OFF
SET DELETE ON                &&不访问被删除的数据
SET CENTURY ON               &&4位年
SET MULTILOCKS ON            &&允许同时锁定多条记录
PUBLIC strSysPath AS String
strSysPath = JUSTPATH(SYS(16))
SET DEFAULT TO (strSysPath)
DO FORM login
READ EVENTS
*****************************************