vfp做管理系统时,zhumenu.mpr是什么
这是我登陆表单的确定键代码,下面有个执行主菜单zhumenu.mpr。。但是我看老师给我的教程,上面没有说zhumenu.mpr是怎么做的。。。后面退出系统菜单的代码里有...
这是我登陆表单的确定键代码,下面有个执行主菜单zhumenu.mpr。。但是我看老师给我的教程,上面没有说zhumenu.mpr是怎么做的。。。后面退出系统菜单的代码里有也个这个。。最后无法连编,提示没有这个主菜单文件。。
PRIVATE zg,mm,ST &&定义私有变量 zg (输入的职工号),mm(输入的密码),ST(提示信息)
ST='密码不正确,请重新输入! ' &&提示信息“密码不正确,请重新输入!”
Zg=alltrim(THISFORM.no.Value) &&把输入的密码赋值给变量zg
mm=alltrim(THISFORM.password1.Value) &&把输入的密码赋值给变量mm
LOCATE FOR zg==alltrim(操作员.职工号) &&查找操作员表中与zg相等的职工号
IF FOUND() AND alltrim(操作员.密码)==mm &&如果找到相同的职工号再比较密码是否相同
caozuoyuan=alltrim(操作员.职工号) &&变量caozuoyuan的值为操作员表中的职工号
THISFORM.Visible=.F. &&如果职工号和密码都增强,该界面不再显示
DO zhumenu.mpr &&执行主菜单zhumenu.mpr
&&READ Event &&READ EVENTS命令可以控制事件的循环
&&THISFORM.Visible=.T. &&显示登陆界面
&&THIS.Parent.no.Value=' ' &&职工号内容为空
&&EXIT &&退出程序
ELSE
WAIT WINDOWS ST TIMEOUT 2 &&程序运行等待2秒,显示密码不正确的提示信息
THISFORM.password1.value=' ' &&密码文本框为空
THISFORM.password1.SetFocus &&密码文本框获得焦点
ENDIF 展开
PRIVATE zg,mm,ST &&定义私有变量 zg (输入的职工号),mm(输入的密码),ST(提示信息)
ST='密码不正确,请重新输入! ' &&提示信息“密码不正确,请重新输入!”
Zg=alltrim(THISFORM.no.Value) &&把输入的密码赋值给变量zg
mm=alltrim(THISFORM.password1.Value) &&把输入的密码赋值给变量mm
LOCATE FOR zg==alltrim(操作员.职工号) &&查找操作员表中与zg相等的职工号
IF FOUND() AND alltrim(操作员.密码)==mm &&如果找到相同的职工号再比较密码是否相同
caozuoyuan=alltrim(操作员.职工号) &&变量caozuoyuan的值为操作员表中的职工号
THISFORM.Visible=.F. &&如果职工号和密码都增强,该界面不再显示
DO zhumenu.mpr &&执行主菜单zhumenu.mpr
&&READ Event &&READ EVENTS命令可以控制事件的循环
&&THISFORM.Visible=.T. &&显示登陆界面
&&THIS.Parent.no.Value=' ' &&职工号内容为空
&&EXIT &&退出程序
ELSE
WAIT WINDOWS ST TIMEOUT 2 &&程序运行等待2秒,显示密码不正确的提示信息
THISFORM.password1.value=' ' &&密码文本框为空
THISFORM.password1.SetFocus &&密码文本框获得焦点
ENDIF 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询