鉴于大家对VFP毕业设计十分关注，我们编辑小组在此为大家搜集整理了“基于VFP学籍管理系统的设计”一文，供大家参考学习
1、创建学生信息编辑表单 新建空白表单，将它的Caption属性设置为“学生信息查询编辑主窗口”，表单的边框属性（BorderStyle）设置为“2-固定对话框”，将其ShowWindow属性设置为“2-作为顶层表单中”，其他属性默认。 为表单创建数据环境，并为5个数据表建立关联。建立关联的方法是：用鼠标将“学生数据信息表”中的索引字段“学号”拖到“学生成绩表”的索引字段“学号”处。完全建立好关联如图： 在“学生信息编辑表单”中插入所需控件，并为控件编辑过程代码。 “返回主窗口”命令按钮的过程代码 thisform.release() “编辑学生数据信息” 命令按钮的过程代码 do form e:\学籍管理系统\forms\学生信息数据编辑表单.scx “编辑学生成绩表” 命令按钮的过程代码 do form e:\学籍管理系统\forms\学生成绩编辑表单.scx “编辑学生课程表”命令按钮的过程代码 do form e:\学籍管理系统\forms\学生课程表编辑表单.scx “编辑学生奖惩数据登记表” 命令按钮的过程代码 do form e:\学籍管理系统\forms\学生奖惩登记表单.scx “编辑学生休、复、退学数据表” 命令按钮的过程代码 do form e:\学籍管理系统\forms\学生休、复、退学数据编辑表单.scx 为插入的命令按钮设计想关表单。 学生信息查询编辑主窗口的效果如图： 表单设计完成后，返回到系统主表单，为为调用该表单的命令按钮编制过程代码： do form e:\学籍管理系统\forms\学生信息编辑表单.scx 2、制作系统权限维护表单 新建表单将其Caption属性设置为“系统权限维护表单” 表单的边框属性（BorderStyle）设置为“2-固定对话框”，将其ShowWindow属性设置为“2-作为顶层表单中”，其他属性默认。 为表单建立数据环境，只需要涉及一个数据表“密码表”。将引用的“密码表”的独占属性Exclusive设置为真，同时需要设置它的缓冲模式 BuffModeOverride为“2-保守式行缓冲”。 在表单中插入所需的控件，并编制其过程代码。 设计完成后，效果如图： 为系统权限维护表单中的控件编制相关的过程代码： “添加新用户”命令按钮的过程代码 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if not found() messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) append blank thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. thisform.text1.value="" thisform.text3.value="" endif “删除新用户”命令按钮的过程代码 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if found()=.f. messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) thisform.refresh delete thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. endif “修改新用户”命令按钮的过程代码 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if found()=.f. messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) thisform.refresh thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. endif “确认添加”命令按钮的过程代码 thisform.refresh thisform.text1.enabled=.f. thisform.text3.enabled=.f. “确认删除”命令按钮的过程代码 if messagebox("是否确认删除当前记录！",32+4+256,"删除记录")=6 pack thisform.refresh endif “确认修改”命令按钮的过程代码 if messagebox("是否确认修改当前记录！",32+4+256,"修改确认")=6 thisform.refresh endif 系统权限维护表单是通过系统主表单中的“系统权限维护”命令按钮调用的，需要返回系统主表单中，为该命令按钮编制过程代码： do form e:\学籍管理系统\forms\系统权限维护表单.scx 3、制作一个About表单 新建一个空白表单，将其Caption属性设置为“About表单”，表单的边框属性（BorderStyle）设置为“2-固定对话框”，将其ShowWindow属性设置为“2-作为顶层表单中”，其他属性默认。 在 About表单中插入两个标签控件，将其Caption属性分别设置为“高校学生学籍管理系统”，“本系统未经允许，不得任意引用！” 返回系统主表单，为调用该表单的命令按钮编制过程代码如下： do form e:\学籍管理系统\forms\About表单.scx 4、制作系统主程序 一个主程序除对权限认证表单调用之外，通常还对系统的一些环境参数进行设置，以满足制作的系统在不同的用户机器上运行。 打开项目管理器，将页面切换到“代码”页面，如下图所示： 在“代码”页面中选择“程序”节点，单击“新建”按钮，出现一个新的程序编辑器，在程序编辑器中编辑系统主程序。其程序内容如下： hide window screen set debug off set exact on set path to e:\学籍管理系统\forms do form 权限认证表单.scx read events close all quit 将程序命名并保存在项目创建的目录文件“E:\学籍管理系统\PROGS”之中，其程序文件名称为“主程序”。并右击设为“设置主文件”，系统主程序编制完成。 主程序是否正确，可以通过VFP的主菜单，即“程序”菜单进行编译、运行或执行。 应用系统的每一个模块开发完后，需要用到应用系统的“连编”功能，可以为应用系统创建一个可执行文件。 在项目管理器中，单击“连编”按钮，出现连编的选项对话框。如下图： 在“连编选项”对话框中选择“连编Win32可执行文件”，这样，整个系统就可以通过可执行文件启动。 单击“确定”按钮，将连编的可执行文件保存在项目创建的目录文件结构“E:\学籍管理系统\PROGS”之中。 连编完成之后，在磁盘中相应的文件夹中，已经生成了一个可执行文件。如图所示： 三部分程序代码 返回主窗口 thisform.release() 添加 if this.caption="添加" this.caption="保存" this.parent.tag=str(recno()) append blank else this.caption="添加" this.parent.command2.caption="编辑" endif thisform.refresh 编辑 if this.caption="编辑" this.caption="取消" this.parent.command1.caption="保存" this.parent.tag=str(recno()) else this.caption="编辑" this.parent.command1.caption="添加" tablerevert() thisform.refresh endif go val(this.parent.tag) thisform.refresh 删除 if messagebox("是否确认删除当前记录！",32+4+256,"删除记录")=6 **this.tag=thisform.系科数据表.recordsource delete next 1 pack thisform.refresh **thisform.系科数据表.recordsource=this.tag endif 首条记录 go top messagebox(''记录已经在第一条'',0,''记录信息'') thisform.refresh 上一条 if recno()<>1 skip -1 thisform.refresh else messagebox(''记录已经在第一条'',0,''记录信息'') endif 下一条 if .not.eof() skip thisform.refresh else messagebox(''记录已经在末尾了'',0,''记录信息'') endif 最后一条 go bottom thisform.refresh messagebox(''记录在末尾了'',0,''记录信息'') 添加新用户 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if not found() messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) append blank thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. thisform.text1.value="" thisform.text3.value="" endif 删除新用户 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if found()=.f. messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) thisform.refresh delete thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. endif 修改新用户 locate all for alltrim(密码表.密码)==alltrim(thisform.text2.value) if found()=.f. messagebox("你不是原合法用户，不能添加新用户，请确认！","错误提示") else this.parent.tag=str(recno()) thisform.refresh thisform.text1.enabled=.t. thisform.text2.enabled=.f. thisform.text3.enabled=.t. endif 确认添加 thisform.refresh thisform.text1.enabled=.f. thisform.text3.enabled=.f. |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
