?? 發布前執行.prg
字號:
*****發布前執行
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -