VFP案例源代码

精品文档 1欢迎下载 VFPVFP 第二周案例第二周案例 登录窗口源代码登录窗口源代码 一 创建一 创建 登录登录 表单表单 建立 学生管理系统登录窗口 表单 如图所示 功能 连接到数据库中 口令 表 验证用户名和密码 对输入情况做判定 并做相应提示 验证成功 提示等待下次程序制 作 图 4 15 学生管理系统登录窗口 设置步骤如下 设置步骤如下 1 在 项目管理器 的 文档 选项中选择 表单 单击 新建 按钮 弹出 新建表 单 对话框 单击 新建表单 按钮 弹出表单设计器 2 在表单中添加 3 个标签 2 个文本框 2 个命令按钮 各控件主要属性修改如下 1 表单 form1 Caption 属性 学生管理系统 2 标签 Label1 Caption 属性 学生管理系统登录窗口 Forecolor 属性 0 255 0 Fontsize 属性 20 Fontbold 属性 T 3 标签 Label2 Caption 属性 用户名 Fontsize 属性 16 精品文档 2欢迎下载 Fontbold 属性 T 4 标签 Label3 Caption 属性 密码 Fontsize 属性 16 Fontbold 属性 T 5 命令按钮 command1 Caption 属性 确认 Fontsize 属性 16 Fontbold 属性 T 6 命令按钮 command2 Caption 属性 退出 Fontsize 属性 16 Fontbold 属性 T 7 文本框 text1 Fontsize 属性 16 Fontbold 属性 T 8 文本框 text2 passwordchar 属性 Fontsize 属性 16 Fontbold 属性 T 二 将欢迎窗口与登录窗口连接二 将欢迎窗口与登录窗口连接 双击双击 进入进入 按钮 写入下列代码 右边部分是注释 按钮 写入下列代码 右边部分是注释 do form 登录 scx 进入登录窗口 thisform release 关闭本窗口 精品文档 3欢迎下载 双击双击 退出退出 按钮 写入下列代码 按钮 写入下列代码 ask messagebox 确定要退出系统吗 4 32 256 学生管理系统 if ask 6 close all quit else endif 三 创建学生管理数据库三 创建学生管理数据库 保存在本项目文件夹内保存在本项目文件夹内 dbdb 文件文件 夹下夹下 单击 项目管理器 中的 数据 选项 选中数据库 单击 新建 按钮 在如图示的 新建数据库 话框中单击 新建数据库 按钮 在 创建 对话框中输入数据库文件名 学生管理 并确定数据库路径单击 保存 路径定位在 子文件夹子文件夹 db db 下面 数据库 名称 学生管理学生管理 四 创建四 创建 口令口令 数据表数据表 单击 数据库设计器 中的第一个按钮或单击 项目管理器 中的 数据 选项 展 开数据库 单击 表 选项 再单击 新建 按钮 在弹出的 新建表 对话框中 单击 精品文档 4欢迎下载 新建表 按钮 路径定位在 子文件夹子文件夹 db db 下面 数据表名称 口令口令 确认保存路径 单击 保存 按钮 弹出如图所示的 表设计器 对话框 设计完成 单击 确定 按钮 系统会提示是否现在录入数据 选择 是 按照图 录入原始数据 五 在登录窗口编写表单的五 在登录窗口编写表单的 登录登录 按钮 按钮 command1command1 的 的 clickclick 事件 功能 事件 功能 验证用户名和密码 并做相应提示验证用户名和密码 并做相应提示 由于此处判断逻辑比较复杂 各位老师可根据实际情况做调整 代码 代码 useuse db db 口令口令 此路径是数据表文件 口令 dbf 相对于项目文件 的路径 a thisform text1 value 获取用户名文本框内容 精品文档 5欢迎下载 b thisform text2 value 获取密码文本框内容 if empty a 没有输入用户名 如果用 if a 判断是否为空 程序执行有问题 m messagebox 请输入用户名 4 32 学生管理系统登录 do case case m 6 选择了消息提示框的 是 按钮 表示重新输入用户名 thisform text1 value 清空用户名框的内容 thisform text1 setfocus 将光标定位到用户名输入框 case m 7 选择了消息提示框的 否 按钮 表示不重新输入用户名 thisform release 关闭当前窗口 endcase 结束窗口操作 else 输入了用户名 if empty b 未输入密码 n messagebox 请输入密码 4 32 学生管理系统登录 do case case n 6 thisform text2 value thisform text2 setfocus case n 7 thisform release endcase else locate for alltrim 口令 id alltrim a 定位到口令表中 id 输入的用户名这条记 录 if found 检查是否找到相关记录 if alltrim 口令 ps alltrim b 如果口令表中的密码 用户名对应的密 码 表示验证成功 messagebox 登录成功 等待后期制作 0 64 学生成绩管理系统 登录成功提示 下次案例需要在此处修改 打开相应表单 thisform release 关闭当前窗口 else 密码不对 messagebox 密码输入错误 请重新输入 64 学生管理系统登录 thisform text2 value thisform text2 setfocus endif 结束密码判断 else 未找到相关记录 表示用户名出错 提示用户不存在 messagebox 用户不存在 64 学生管理系统登录 thisform text1 value thisform text1 setfocus endif 结束判断是否找到相关用户记录 endif 结束密码为空的判断 endif 结束用户名为空的判断 登录表单退出按钮 登录表单退出按钮 command2command2 的 的 clickclick 件功能 退出当前运行环件功能 退出当前运行环 精品文档 6欢迎下载 境境 代码 n messagebox 确定退出 4