VFP应用程序实例学生学籍管理(整理).docVIP

VFP应用程序设计实例--学生学籍管理系统（1） 电脑笔记 2007-10-29 16:43 阅读2402 评论4 字号：大中小 图1 MIS是英文Man ageme nt In formation System 的英文缩写，意思是信息管理系统，该系统可用 于 中小型企事业单位业务处理和信息交流，从而大大提高了企业运作的效率。微软公司的 Visua l FoxPro可视化面向对象的编程软件是一个设计 MIS系统即简单又快捷的好软件。下面，就以 VF P 6.0 为开发环境，讲述设计学生学籍管理系统的详细设计过程，也为在看过了前面非表单设计的学 生学 籍管理系统的朋友们继续了解并学习采用表单（ Form）的方式设计MIS系统的方法。 一、设计思路：学生学籍管理系统的运行以封面表单开始，如图 1所示，要求用户输 入登录密码， 并设置三次检查功能，若三次输入的密码均有错，则自动退岀系统；否则岀现系统菜单，接收 用户的 操作，操作完毕后用户可以从系统菜单中退出系统。 二、系统功能：系统的功能主要分成十个功能模块，它们是：录入数据、修改数据、删除数 据、查 询数据、统计数据、显示数据、打印数据、导出数据、导入数据和清空数据。录入数据可以实 现学生 信息的录入；修改数据可以实现学生信息的修改；删除数据可以实现学生数据的删除；查询数 据可以 实现学生信息的查询；统计数据可以实现学生人数、党员人数、学生总平均成绩、高数平均成 绩、英 语平均成绩和VFP平均成绩的统计；显示数据可以实现以字段分布和二维表两种方式显示学生 信息； 打印数据可以实现用报表的形式打印学生的信息；导岀数据可以实现学生数据的备份，防止数据丢 失；导入数据可以实现学生数据的还原，保证数据的正确性；清空数据可以实现学生数据的清空操 作。 三、菜单结构框架图 四、数据库结构：（可定义表名为xj.dbf） 字段名 类型 宽度 小数位数 学号 字符型 2 姓名 字符型 6 性别 字符型 2 出生年月 字符型 10 邮编 字符型 6 高数 数值型 5 1 英语 数值型 5 1 VFP 数值型 5 1 是否党员 字符型 2 电话 r 字符型 8 通信地址 字符型 30 备注 备注型 4 五、具体设计：（给岀源代码，表单属性可参照图示在 VFP属性框中设置，所有程序文 件和表单文件 均通过VFP工程管理器建立） 1、学生学籍管理系统主程序源代码 （可定义程序名为 main.prg） _SCREEN.WIND0WSTATE=2设置窗口规格为第 2种系统窗口 SCREEN.CAPTION孝生学籍管理系统“ 设置窗口标题为“学生学籍管理系统” _SCREEN.CLOSABLE=.T. 去掉关闭按钮 _SCREEN.CONTROLBOX=.F. 去掉控制按钮 _SCREEN.MAXBUTTON=.F. 去掉最大化按钮_SCREEN.MINBUTTON=.F. 去掉最小化按钮 SCREEN.BACKCOLOR=RGB（5O,1OO,128） 设置窗口的背景色 CLOSE ALL CLEAR ALL CLEAR SET SYSMENU OFF SET SYSMENU TO SET TALK OFF SET SAFETY OFF SET STATUS BAR OFF 关闭 Visual Foxpro 的状态栏 封面.sex 调用系统登录“封面”表单 READ EVENT 响应用户输入 菜单.MPX 运行系统菜单 READ EVENT SET SYSMENU TO DEFAULT 恢复 Visual Foxpro 的系统菜单的默认值 SET SYSMENU ON 显示 Visual Foxpro 的系统菜单 SET STATUS BAR ON 显示 Visual Foxpro 的状态栏 CLOSE ALL 关闭所有文件 CLEAR ALL RETURN 返回 2、封面表单源代码 封面.set) PROCEDURE Click 确定按 钮的单击事件过程 SET EXACT ON 设置精确比较命令 IF THISFORM.text1.VALUE=8888 如果文本框的值是 8888 THISFORM.RELEASE 那么释放封面表单 菜单.MPX 运行菜单程序 ELSE 否贝 U THISF0RM.N0=THISF0RM.N0+1 将自定义属性 NO的值由0力廿1 IF THISFORM.NO=3 如果自定义属性 NO的值为3 =MESSAGEBOX（密码三次输错，您不能使用本系统！ ,0+16+0,学生学籍管理系 统“） 那么弹岀内容为“密码三次输错，您不能使用本系统！ ”的对话框 QUIT 结束程序的运行 ELSE 否贝 U =MESSAGEBOX（密码错误！ ,48+0+0,警告） 弹岀