Question

VFP登陆界面后要运行下个表单的代码

if thisform.username.value=alltrim("user1").and.;
thisform.usepassword.value=alltrim(str(1314))
=messagebox("欢迎进入本系统！",0+48+0,"欢迎进入")
release thisform
else
=messagebox("对不起，你的密码错误请重新输入！！",0+48+0,"密码错误")
thisform.username.value=""
thisform.usepassword.value=""
thisform.username.setfocus
endif
上代码我想要用户名、密码进入后能运行下个表单要怎么样改？？？
能帮我写完整的代码吗~~？因为我对代码不是很了解~~只用用户名、密码进入后能运行下一个表单就行了~~谢谢了~~

Answer 1

if thisform.username.value=alltrim("user1").and.;
thisform.usepassword.value=alltrim(str(1314))
=messagebox("欢迎进入本系统！",0+48+0,"欢迎进入")
release thisform(这条不要)
DO (所要执行的表单的名称).mpr WITH THISFORM,.T. （加上这条）
else
=messagebox("对不起，你的密码错误请重新输入！！",0+48+0,"密码错误")
thisform.username.value=""
thisform.usepassword.value=""
thisform.username.setfocus
endif

Answer 2

很简单 登陆表单 public sID &用来区分权限 command控件下 如果是管理员 sID=8 学生 sID＝8 然后在主界面中加个 if或者do case语句 如果sid＝8，那么把其需要操作的控件enabled属性改为真，其他为假 sid