if allt(pwd)==allt(thisform.textpwd.value) else
i=i-1 &&公共变量i减量 if i<=0 &&检查剩余重试次数
messagebox("非法使用，程序即将关闭！",0+16,"警告") thisform.release &&将来可以替换成关闭整个主程序 messagebox("登陆成功！",0+64,"恭喜") do form 主界面
thisform.release &&将来可以替换成调用系统登陆以后做的工作
endif
messagebox("密码错误！请检查大写锁定键后重新输入，您还剩"+str(i)+"次机
会",0+64,"错误")
else
messagebox("该用户不存在，请检查您的用户名！",0+64,"错误")
thisform.textpwd.setfocus
endif
endif
endif
提单信息管理中[添加]按钮：
http://www.77cn.com.cnmand2.enabled=.F. http://www.77cn.com.cnmand3.enabled=.T. thisform.txt品名.value=""