发布前执行.prg

来自「爱师软件工作室的教材管理系统源码」· PRG 代码 · 共 27 行

*****发布前执行
set talk off
set safety off
close all
=setpath()
if !used('tmptscg')
   use .\data\tmptscg
endif
select tmptscg
go top
replace user with "admin",mima with allt(str(2131255*3+1)),dj with "7654321" ,dj2 with "7654321" ,dj3 with "1234567" 
skip
replace user with "user",mima with allt(str(123*3+1)),dj with "7654321" ,dj2 with "1234567" ,dj3 with "7654321" 
messagebox( 'ok,可以发布了...          ')
public yesnoreg
yesnoreg=.f.
save to .\data\jcglreg all like yesnoreg&&修改注册文件
copy file .\data\jcglreg.mem to .\data\jcglreg.yin
set talk on
set safety on
*!*	replace dj with '1234567' for allt(user)=='admin' and allt(dj2)=='7654321'and allt(dj3)=='1234567'   &&ok
FUNCTION SETPATH()
		   public lcSys16, lcProgram
		   lcSys16 = SYS(16)
		   lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
	CD LEFT(lcProgram, RAT("\", lcProgram))
ENDFUNC