cp.prg

一个彩票销售软件

public bmmc
public snstr1
public snstr2
public tmpstra
bmmc=""
snstr1=""
snstr2=""
cc=sys(16)
nn=at_c('\',cc,2)
cc=substr(cc,1,nn)
set default to &cc
*设置主菜单最大化、字体、标题
with _screen
	.WindowState=2
	.fontsize=11
	.caption="海南彩票处理系统  设计人：陈博"
endwith


*计算系统ID值snstr1
!sng.exe
fhand1=fopen("hdisksn.txt",10)
snstr1=fgets(fhand1)
snstr1=alltrim(snstr1)
=fclose(fhand1)

if len(snstr1)>=1 
	i=len(snstr1)
	j=1
	tmpstr1=""
	do while j<=i
		tmpi=bitxor(asc(substr(snstr1,j,1)),185)
		tmpstr1=tmpstr1+chr(tmpi)
		j=j+1
	enddo
	
	
    ***********计算注册码	
	i=len(tmpstr1)
	j=1
	tmpstra=""
	do while j<=i
		tmpi=mod(mod(asc(substr(tmpstr1,j,1)),100),10)+97
		tmpstra=tmpstra+chr(tmpi)
		j=j+1
	enddo

    ******************************************
	
else
	close all
	quit
endif



***********获取用户输入的注册码
if file('zcm.txt')
	fhand2=fopen("zcm.txt",12)
	snstr2=fgets(fhand2)
	snstr2=alltrim(snstr2)
	=fclose(fhand2)
endif


if snstr2=tmpstra 
	do 菜单1.MPR
	read events

else
	do form getzcm
	read events
	clear all
	close all
	quit
endif