VFP案例源代码.doc

VFP第二周案例登录窗口源代码一、创建“登录”表单建立“学生管理系统登录窗口”表单，如图所示。功能：连接到数据库中“口令”表验证用户名和密码，对输入情况做判定，并做相应提示，验证成功，提示等待下次程序制作。 图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；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 &关闭本窗口双击“退出”按钮，写入下列代码：ask=messagebox(确定要退出系统吗？,4+32+256,学生管理系统)if ask=6 close all quitelseendif 三、创建学生管理数据库,保存在本项目文件夹内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.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 &结束用户名为空的