www.pudn.com > business.zip > main.prg

_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 year(date())>2000 
    messagebox("此软件的试用期已到，如果你觉得满意，请与编程者联系！"+chr(13)+"   Email:yours@ynmail.com  段洪杰",64,"重要提示") 
	quit 
endif    
************************************* 
*没有口令功能的软件去掉下面这句！ 
************************************ 
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