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 上代码我想要用户名、密码进入后能运行下个表单要怎么样改???
问题补充: 能帮我写完整的代码吗~~?因为我对代码不是很了解~~只用用户名、密码进入 后能运行下一个表单就行了~~谢谢了~~
最佳答案 if thisform.username.value=alltrim("user1").and.; thisform.usepass
word.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