main.bak

一个客户管理软件

_screen.caption="医院工资管理系统"
_screen.closable=.f.
_screen.windowstate=2
_screen.icon="earth.ico"
modi window screen fill file dhj00.bmp  
set talk off
set century on
set date to ymd
set status bar off
set console off
********************************************* 
*不硬盘加密的软件去掉下面语句 
**********************************************
 if !file("kl.dbf")
	messagebox("程序为盗版，或密匙已被破坏！请与作者联系。"+chr(13)+"   电话：[phone]   段洪杰",64,"重要提示")
	quit
endif
use kl
if  sys(2007,sys(2022,"c:")+sys(17)+sys(2020))!=alltrim(kl.kl)	 
	messagebox("程序为盗版，或密匙已被破坏！请与作者联系。"+chr(13)+"   电话：[phone]   段洪杰",64,"重要提示")
	quit
endif
use 
*************************************
*没有口令功能的软件去掉下面这句！
************************************
do form pass 

*在pass表单中调用了自已定义的类form_pass_begin，与passuser数据库配套运行，
*表单类formset_modi_pass_all提供了超级用户和普通用户修改口令的代码。
*将“口令修改菜单”的“跳过”属性改为!m0    其它一级菜单分别为!M1  !m2  !m3.... 
*第一个二级为 !m11  !m12 ...第二个二级为  !m21  !m22 .....    
*定义公共变量：m?到m85(菜单标识),super(超级用户标识),passrecno(用户的记录号)
do menu.mpr
read even