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:[e-mail]  段洪杰",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