《用vfp6.0编写应用系统登录的密码验证程序》由会员分享，可在线阅读，更多相关《用vfp6.0编写应用系统登录的密码验证程序（2页珍藏版）》请在金锄头文库上搜索。
1、用用 VFP6.0VFP6.0 编写应用系统登录的密码验证程序编写应用系统登录的密码验证程序 安徽省计划生育学校安徽省计划生育学校 王翼王翼 - 我们在开发网络下的文档调阅系统时，为了实现不同级别的用户具有不同的使用权限，从而实现系统的安全和保密。最简单的权限分为两级，即系统管理员级和普通用户级。例如系统管理员可以全权操纵密码数据库包括添加用户、删除用户、修改用户名和用户密码等，而普通用户则没有这些权限。这里关键是必须编写一个密码验证程序。我们用 VFP6.0 编写一个简单实用的密码设置程序，供大家参考。具体步骤如下。 - 首先，建立密码资料数据表（密码.DBF），字段如下： 用户名： CHA
2、R 8 密码： CHAR 8 - 第二步，根据密码.DBF，利用 VFP6.0 的表单向导生成密码表单，只有系统管理员具有访问该表单的所有权力。区分系统管理员和用户可在主程序中加一条判断语句来实现。 - 第三步，编写密码验证程序。利用表单向导创建密码验证表单如下： 1.建立两标签，它们名字分别为“请输入用户名”，“请输入密码”，建立两文本框，名字分别为“用户名”，“密码”，建立两个按钮，名字分别为 CMDOK，CMDCAECEL 2.在“用户名”的 LOSTFOCUS 事件下输入如下代码： 3. PUBLIC oword 4. SELE 3 5.USE 密码.dbf 6.SET order t
3、o NAME 7.SEEK thisform.用户名.value 8.IF found() 9.oword=c- 密码 10.ELSE 11.=messagebox(“无此用户！“,48,“提示窗口“) 12.thisform.用户名.value= 13.ENDIF以上代码先在密码.DBF 中搜索此该用户是否存在，只有存在，才能输入密码。 14. 在“密码”的 LOSTFOCUS 事件中录入如下代码： 15. IF empty(thisform.密码.value) 16.thisform.cmdok.enabled=.f. 17.ELSE 18.thisform.cmdok.enabled=.
4、t. 19.ENDIF 20. 这段程序用于控制 CMDOK 是否可用） 21. 22. 在 CMDOK 的 CLICK 事件中输入如下代码： 23.IF allt(thisform.密码.value)=oword 24.Release thisform 25.USE 26.DO main.prg 密码正确，运行主程序 main.prg 27.ELSE 28.messagebox(“密码不正确！请重新输入！“, 29.64,“密码提示窗口“) 30.thisform.密码.value= 31.thisform.密码.setfocus() 32.ENDIF这段代码说明：输入的用户名存在后，才到密码.DBF 中检查该用户对应的密码，只有用户名和密码都正确后，才允许进入系统。 33. 在 CMDCANCEL 事件中录入如下代码： 34. thisform.release 35.Clea event 36.QUIT - 以上的程序代码精炼实用，当然还可在此基础上加以改进，比如增加用户的操作级别、密码录入次数限制以及在表单上嵌入登录图象标志等。
