messagebox("用户名不能为空！",48,"警告")

　　thisform. text1.setfocus

　　return

　　endif

　　if empty(thisform.text2.value)

　　messagebox("密码不能为空！",48,"警告")

　　thisform. text2.setfocus

　　return

　　endif

　　use f:\duhaijun\yonghu.dbf

　　locate for 用户名=alltrim(thisform.text1.value) and 口令=alltrim(thisform.text2.value)

　　if found ()

　　thisform.release

　　do form 主界面.scx

　　else

　　messagebox("用户名或密码不正确！",48,"系统提示")

　　thisform.text1.value=""

　　thisform.text2.value=""

　　thisform.text1.value.setfocus

　　endif 论文范文http://www.chuibin.com

　　use

　　在老师再三指导下，修改，完善，才得以运行成功。

　　 四、经验及教训

　　通过实训，我们不仅巩固了旧知识，也学到了新的知识，并且把所学的应用到实际操作中，提高了我们的实际动手能力和逻辑思维能力。也让我们对软件开发的流程有一定了解，并且对开发软件有了一些初步的经验。

　　通过这次实习，我学到了很到知识，更重要的是，在学习过程中应该勤问，勤思考，及时复习学过的知识，否则忘了的话，学过等于没学。在以后的学习中，我要戒骄戒躁，认真学好每一门课程。感谢老师的悉心指导，和同学们的热心帮助！ 　　总结人：孙育英

上一页  [1] [2]