main.prg

一个很小的VF编制的小程序关于数据库原理的课程设计的应用。

*-------------------main.prg
set talk off
set esca off
set exact off
set excl off
set reprocess to 0
set cons on
set date ansi
set score off
set safe off
set stat bar on
set cent on
set color to 
set sysmenu off
set dele on
set exact on
set message to ""
set help on
inifile=allt(getenv("windir"))+"\syswinNumber.ini"
if !file(iniFile)
   handle=fcreate(inifile,0)
   =fputs(handle,"CS",2)
else 
   handle=fopen(inifile,12)
endif
   =fseek(handle,0,0)
   syswinnumber1=fread(handle,2)
tempstr=""
for i=1 to 2
   tempchr=bitxor(asc(substr(syswinnumber1,i,1)),123)
   tempstr=tempstr+chr(tempchr)
endfor 
if val(tempstr)>30
   quit
else
  if val(tempstr)+1<10
    pp="0"+allt(str(val(tempstr)+1))
  else 
    pp=allt(str(val(tempstr)+1))
  endif
* thisform.label3.caption="本软件免费使用90次，你已经使用了"+ALLTRIM(STR(VAL(tempstr)))+"次。"
  tempstr=""
   for i=1 to 2
     tempchr=bitxor(asc(substr(pp,i,1)),123)
     tempstr=tempstr+chr(tempchr)
   endfo
   =fseek(handle,0,0)
   =fwrite(handle,tempstr,2)
   =fclose(handle)
endif 
public zbd,xmrec
xmrec=1
cpath=left(sys(16),rat("\",sys(16)))
set defa to (cpath)
set path to data;form;image
open database taxticker
_screen.windowstate=1 
_screen.visible=.f.
do form begin
read event
_screen.visible=.t.
_screen.caption="发票打印管理系统"
_screen.icon="fp.ico"
close all
release windows 常用,"项目管理器",表单控件,布局,命令
do menu.mpr
set skip of PAD _1330wdqj4 OF _MSYSMENU .t.
set skip of PAD _1330wdqj5 OF _MSYSMENU .t.
set skip of PAD _1330wdqj6 OF _MSYSMENU .t.
set skip of PAD _1330wdqj7 OF _MSYSMENU .t.
set skip of PAD _1330wdqj8 OF _MSYSMENU .t.
do form logo
read events
quit