VFP案例源代码.docVIP

VFP第二周案例—登录窗口源代码 一、创建“登录”表单 建立“学生管理系统登录窗口”表单，如图所示。功能：连接到数据库中“口令”表验证用户名和密码，对输入情况做判定，并做相应提示，验证成功，提示等待下次程序制作。 图4-15 学生管理系统登录窗口 设置步骤如下： 在“项目管理器”的“文档”选项中选择“表单”，单击“新建”按钮，弹出“新建表单”对话框，单击“新建表单”按钮，弹出表单设计器。 在表单中添加3个标签，2个文本框，2个命令按钮。各控件主要属性修改如下： 表单form1： Caption属性：学生管理系统。 标签Label1： Caption属性：学生管理系统登录窗口； Forecolor属性：0, 255,0； Fontsize属性：20； Fontbold属性：.T。 标签Label2： Caption属性：用户名：； Fontsize属性：16； Fontbold属性：.T。 标签Label3： Caption属性：密码：； Fontsize属性：16； Fontbold属性：.T。 命令按钮command1： Caption属性：确认； Fontsize属性：16； Fontbold属性：.T。 命令按钮command2： Caption属性：退出； Fontsize属性：16； Fontbold属性：.T。 文本框text1： Fontsize属性：16； Fontbold属性：.T。 文本框text2： passwordchar属性：*； Fontsize属性：16； Fontbold属性：.T。 二、将欢迎窗口与登录窗口连接 双击“进入”按钮，写入下列代码：（右边部分是注释） do form 登录.scx 进入登录窗口 thisform.release 关闭本窗口 双击“退出”按钮，写入下列代码： ask=messagebox(确定要退出系统吗？,4+32+256,学生管理系统) if ask=6 close all quit else endif 三、创建学生管理数据库,保存在本项目文件夹内db文件夹下 单击“项目管理器”中的“数据”选项，选中数据库，单击“新建”按钮，在如图示的“新建数据库”话框中单击“新建数据库”按钮，在“创建”对话框中输入数据库文件名“学生管理”并确定数据库路径单击“保存”。路径定位在“子文件夹db”下面，数据库名称“学生管理” 四、创建“口令”数据表 单击“数据库设计器”中的第一个按钮或单击“项目管理器”中的“数据”选项，展开数据库，单击“表”选项，再单击“新建”按钮，在弹出的“新建表”对话框中，单击“新建表”按钮，路径定位在“子文件夹db”下面，数据表名称“口令”，确认保存路径，单击“保存”按钮，弹出如图所示的“表设计器”对话框。 设计完成，单击“确定”按钮，系统会提示是否现在录入数据，选择“是”，按照图录入原始数据。 五、在登录窗口编写表单的“登录”按钮（command1）的click事件，功能： 验证用户名和密码，并做相应提示 由于此处判断逻辑比较复杂，各位老师可根据实际情况做调整 代码： use db/口令 此路径是数据表文件“口令.dbf”相对于项目文件“”的路径 a=thisform.text1.value 获取用户名文本框内容 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.valu