main.prg

来自「产品合格证标签打印源码」· PRG 代码 · 共 22 行

SET DEFAULT TO CURDIR()
SET CENTURY ON 
SET DATE ANSI
PUBLIC P_ini,AppPath,c单位名称
P_ini="标签.INI"
AppPath = ReadINI(CURDIR() +P_ini, "Program", "AppPath")
c单位名称 = ALLTRIM(ReadINI(CURDIR() +P_INI, "USER", "Company"))
c_key = ALLTRIM(ReadINI(CURDIR() +P_INI, "USER", "SerialNumber"))
L_User=LEN(c单位名称)
user=0
FOR ii=1 TO L_User STEP 1
    user = user + ASC(SUBSTR(c单位名称,ii,2))
ENDFOR 
IF user = VAL(c_key) 
	DO FORM main
	READ EVENTS  
ELSE 
	=MESSAGEBOX("此版本是非正式版本，请于作者联系。"+CHR(13)+"电子邮件：[e-mail]",16,"提示信息")
	CLEAR EVENTS 
	CLEAR ALL 
	QUIT 
ENDIF