学时安排： 实验教学2学时。

　

实验目的：

进一步加深、巩固学生所学课程的基本理论知识，理论联系实际，进一步培养学生综合分析问题和解决问题的能力。

 

实验要求：
1. 每人一机，独立完成实验。
2. 每次实验完成将结果存入自己的U盘，或上传至信息中心个人网络U盘中保存。

　

实验设备：
硬件配置：计算机实验教学示范中心机房计算机。
软件配置：Windows操作系统，Visual Foxpro6.0系统。

　

实验内容及步骤：

一、设计题目：

登陆系统

二、设计步骤：

  1.设计表单功能结构

  2.设计表单各个控件属性设置及源程序代码

  3.上机调试

三、设计内容：
  登录系统是各个管理系统最常见的环节之一。本实验采用表单的形式，验证用户名及密码，控制登陆次数。

主要代码：

*验证密码

if select("account")=0   &&检查数据表是否打开

messagebox("数据表account不存在，请检查后再试！",0+16,"警告")

else

select account               &&选取account表

set order to UID    &&设置username为控制索引

seek allt(thisform.combouser.value) &&按索引查找当前所选user相关记录

if  allt(thisform.combouser.value)==allt(uid) &&检查是否在库找到该用户

  if allt(pwd)==allt(thisform.textpwd.value)

     messagebox("登陆成功！",0+64,"恭喜")

              thisform.release &&将来可以替换成调用系统登陆以后做的工作

    else

        i=i-1   &&公共变量i减量

        if i<=0 &&检查剩余重试次数

             messagebox("非法使用，程序即将关闭！",0+16,"警告")

                         thisform.release &&将来可以替换成关闭整个主程序

        endif

        messagebox("密码错误！请检查后重新输入，您还剩"+str(i)+"次机会",0+64,"错误")

        thisform.textpwd.setfocus

    endif

else

   messagebox("该用户不存在，请检查您的用户名！",0+64,"错误")

endif

endif