vfp应用程序设计实例--学生学籍管理系统

《vfp应用程序设计实例--学生学籍管理系统》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VFP应用程序设计实例--学生学籍管理系统(1)电脑笔记  2007-10-2916:43  阅读2402   评论4 字号：大大 中中 小小    图1MIS是英文ManagementInformationSystem的英文缩写，意思是信息管理系统，该系统可用于中小型企事业单位业务处理和信息交流，从而大大提高了企业运作的效率。微软公司的Visual FoxPro可视化面向对象的编程软件是一个设计MIS系统即简单又快捷的好软件。下面，就以VFP6.0为开发环境，讲述设计学生学籍管理系统的详细设计过程，也

2、为在看过了前面非表单设计的学生学籍管理系统的朋友们继续了解并学习采用表单（Form）的方式设计MIS系统的方法。    一、设计思路：学生学籍管理系统的运行以封面表单开始，如图1所示，要求用户输入登录密码，并设置三次检查功能，若三次输入的密码均有错，则自动退出系统；否则出现系统菜单，接收用户的操作，操作完毕后用户可以从系统菜单中退出系统。 二、系统功能：系统的功能主要分成十个功能模块，它们是：录入数据、修改数据、删除数据、查询数据、统计数据、显示数据、打印数据、导出数据、导入数据和清空数据。录入数据可以

3、实现学生信息的录入；修改数据可以实现学生信息的修改；删除数据可以实现学生数据的删除；查询数据可以实现学生信息的查询；统计数据可以实现学生人数、党员人数、学生总平均成绩、高数平均成绩、英语平均成绩和VFP平均成绩的统计；显示数据可以实现以字段分布和二维表两种方式显示学生信息；打印数据可以实现用报表的形式打印学生的信息；导出数据可以实现学生数据的备份，防止数据丢失；导入数据可以实现学生数据的还原，保证数据的正确性；清空数据可以实现学生数据的清空操作。 三、菜单结构框架图 四、数据库结构：(可定义表名为xj.

4、dbf)字段名类型宽度小数位数学号字符型2 姓名字符型6 性别字符型2 出生年月字符型10　邮编字符型6　高数数值型51英语数值型51VFP数值型51是否党员字符型2　电话字符型8　通信地址字符型30　备注备注型4　 五、具体设计：(给出源代码，表单属性可参照图示在VFP属性框中设置，所有程序文件和表单文件均通过VFP项目管理器建立)1、学生学籍管理系统主程序源代码(可定义程序名为main.prg)_SCREEN.WINDOWSTATE=2 &&设置窗口规格为第2种系统窗口_SCREEN.CAPTION

5、="学生学籍管理系统" &&设置窗口标题为“学生学籍管理系统”_SCREEN.CLOSABLE=.T. &&去掉关闭按钮_SCREEN.CONTROLBOX=.F. &&去掉控制按钮_SCREEN.MAXBUTTON=.F. &&去掉最大化按钮_SCREEN.MINBUTTON=.F. &&去掉最小化按钮_SCREEN.BACKCOLOR=RGB(50,100,128) &&设置窗口的背景色CLOSEALLCLEARALLCLEARSETSYSMENUOFFSETSYSMENUTOSETTALKOFFS

6、ETSAFETYOFFSETSTATUSBAROFF &&关闭VisualFoxpro的状态栏DOFORMA:封面.SCX &&调用系统登录“封面”表单READEVENT &&响应用户输入DOA:菜单.MPX &&运行系统菜单READEVENTSETSYSMENUTODEFAULT &&恢复VisualFoxpro的系统菜单的默认值SETSYSMENUON &&显示VisualFoxpro的系统菜单SETSTATUSBARON &&显示VisualFoxpro的状态栏CLOSEALL &&关闭所有文

7、件CLEARALLRETURN &&返回2、封面表单源代码(A:封面.sct)PROCEDUREClick &&确定按   钮的单击事件过程SETEXACTON &&设置精确比较命令IFTHISFORM.text1.VALUE="8888" &&如果文本框的值是8888      THISFORM.RELEASE &&那么释放封面表单      DOA:菜单.MPX &&运行菜单程序ELSE &&否则      THISFORM.NO=THISFORM.NO+1 &&将自定义属性NO的值由0加1  

8、    IFTHISFORM.NO>=3 &&如果自定义属性NO的值为3      =MESSAGEBOX("密码三次输错，您不能使用本系统！",0+16+0,"学生学籍管理系统") &&那么弹出内容为“密码三次输错，您不能使用本系统！”的对话框      QUIT &&结束程序的运行      ELSE &&否则      =MESSAGEBOX("密码错误！",48+0+0,"警告") &&弹出内容为“密码错误！”的对话框      T