文档介绍：该【VFP案例源代码 】是由【小果冻】上传分享，文档一共【6】页，该文档可以免费在线阅读，需要了解更多关于【VFP案例源代码 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。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。mand1:Caption属性:确认;Fontsize属性:16;Fontbold属性:.T。mand2:Caption属性:退出;Fontsize属性:16;Fontbold属性:.T。文本框text1:Fontsize属性:16;Fontbold属性:.T。文本框text2:passwordchar属性:*;Fontsize属性:16;Fontbold属性:.T。二、将欢迎窗口与登录窗口连接双击“进入〞按钮,写入以下代码:〔右边局部是注释〕&&&&关闭本窗口双击“退出〞按钮,写入以下代码:ask=messagebox("确定要退出系统吗?",4+32+256,"学生管理系统")ifask=6closeallquitelseendif三、创立学生管理数据库,保存在本工程文件夹内db文件夹下单击“工程管理器〞中的“数据〞选项,选中数据库,单击“新建〞按钮,在如图示的“新建数据库〞话框中单击“新建数据库〞按钮,在“创立〞对话框中输入数据库文件名“学生管理〞并确定数据库路径单击“保存〞。路径定位在“子文件夹db〞下面,数据库名称“学生管理〞四、创立“口令〞数据表单击“数据库设计器〞中的第一个按钮或单击“工程管理器〞中的“数据〞选项,展开数据库,单击“表〞选项,再单击“新建〞按钮,在弹出的“新建表〞对话框中,单击“新建表〞按钮,路径定位在“子文件夹db〞下面,数据表名称“口令〞,确认保存路径,单击“保存〞按钮,弹出如下列图的“表设计器〞对话框。设计完成,单击“确定〞按钮,系统会提示是否现在录入数据,选择“是〞,按照图录入原始数据。五、在登录窗口编写表单的“登录〞mand1〕的click事件,功能:验证用户名和密码,并做相应提示由于此处判断逻辑比较复杂,各位老师可根据实际情况做调整代码:usedb/口令&&此路径是数据表文件“〞相对于工程文件“〞的路径a=&&获取用户名文本框内容b=&&获取密码文本框内容ifempty(a)&&没有输入用户名,如果用ifa=〞〞判断是否为空,程序执行有问题 m=messagebox("请输入用户名",4+32,"学生管理系统登录") docase casem=6&&选择了消息提示框的"是"按钮,表示重新输入用户名 =""&&清空用户名框的内容 &&将光标定位到用户名输入框casem=7&&选择了消息提示框的"否"按钮,表示不重新输入用户名 &&关闭当前窗口endcase&&结束窗口操作else&&输入了用户名? ifempty(b)&&未输入密码 n=messagebox("请输入密码",4+32,"学生管理系统登录") docase casen=6 ="" casen=7 endcase else locateforalltrim()==alltrim(a)&&定位到口令表中id=输入的用户名这条记录iffound()&&检查是否找到相关记录 ifalltrim()==alltrim(b)&&如果口令表中的密码=用户名对应的密码,表示验证成功 messagebox("登录成功,等待后期制作",0+64,"学生成绩管理系统")&&登录成功提示,下次案例需要在此处修改,翻开相应表单 &&关闭当前窗口 else&&密码不对messagebox("密码输入错误,请重新输入",64,"学生管理系统登录")=""&&结束密码判断 else&&未找到相关记录,表示用户名出错,提示用户不存在messagebox("用户不存在",64,"学生管理系统登录")=""&&结束判断是否找到相关用户记录endif&&结束密码为空的判断endif&&结束用户名为空的判断mand2〕的click件功能:退出当前运行环境代码:n=messagebox("确定退出?",4+32,"学生成绩管理系统")ifn=