学籍管理之VFP应用程序设计实例.doc
《学籍管理之VFP应用程序设计实例.doc》由会员分享,可在线阅读,更多相关《学籍管理之VFP应用程序设计实例.doc(11页珍藏版)》请在咨信网上搜索。
1、VFP应用程序设计实例-学生学籍管理系统(1)图1MIS是英文Management Information System的英文缩写,意思是信息管理系统,该系统可用于中小型企事业单位业务处理和信息交流,从而大大提高了企业运作的效率。微软公司的Visual FoxPro可视化面向对象的编程软件是一个设计MIS系统即简单又快捷的好软件.下面,就以VFP 6。0为开发环境,讲述设计学生学籍管理系统的详细设计过程,也为在看过了前面非表单设计的学生学籍管理系统的朋友们继续了解并学习采用表单(Form)的方式设计MIS系统的方法。 一、设计思路:学生学籍管理系统的运行以封面表单开始,如图1所示,要求用户输入
2、登录密码,并设置三次检查功能,若三次输入的密码均有错,则自动退出系统;否则出现系统菜单,接收用户的操作,操作完毕后用户可以从系统菜单中退出系统。 二、系统功能:系统的功能主要分成十个功能模块,它们是:录入数据、修改数据、删除数据、查询数据、统计数据、显示数据、打印数据、导出数据、导入数据和清空数据.录入数据可以实现学生信息的录入;修改数据可以实现学生信息的修改;删除数据可以实现学生数据的删除;查询数据可以实现学生信息的查询;统计数据可以实现学生人数、党员人数、学生总平均成绩、高数平均成绩、英语平均成绩和VFP平均成绩的统计;显示数据可以实现以字段分布和二维表两种方式显示学生信息;打印数据可以实
3、现用报表的形式打印学生的信息;导出数据可以实现学生数据的备份,防止数据丢失;导入数据可以实现学生数据的还原,保证数据的正确性;清空数据可以实现学生数据的清空操作。 三、菜单结构框架图 四、数据库结构:(可定义表名为xj。dbf)字段名 类型 宽度 小数位数 学号 字符型 2姓名 字符型 6性别 字符型 2出生年月字符型10邮编字符型6高数数值型51英语数值型51VFP数值型51是否党员字符型2电话字符型8通信地址字符型30备注备注型4 五、具体设计:(给出源代码,表单属性可参照图示在VFP属性框中设置,所有程序文件和表单文件均通过VFP项目管理器建立)1、学生学籍管理系统主程序源代码(可定义程
4、序名为main。prg)_SCREEN.WINDOWSTATE=2 &设置窗口规格为第2种系统窗口_SCREEN.CAPTION=”学生学籍管理系统 设置窗口标题为“学生学籍管理系统”_SCREEN。CLOSABLE=.T。 去掉关闭按钮_SCREEN。CONTROLBOX=。F. &去掉控制按钮_SCREEN。MAXBUTTON=。F。 去掉最大化按钮_SCREEN.MINBUTTON=.F. &去掉最小化按钮_SCREEN。BACKCOLOR=RGB(50,100,128) &设置窗口的背景色CLOSE ALLCLEAR ALLCLEARSET SYSMENU OFFSET SYSMENU
5、 TOSET TALK OFFSET SAFETY OFFSET STATUS BAR OFF &关闭Visual Foxpro的状态栏DO FORM A:封面.SCX &调用系统登录“封面表单READ EVENT &响应用户输入DO A:菜单.MPX &运行系统菜单READ EVENTSET SYSMENU TO DEFAULT &恢复Visual Foxpro的系统菜单的默认值SET SYSMENU ON 显示Visual Foxpro的系统菜单SET STATUS BAR ON &显示Visual Foxpro的状态栏CLOSE ALL 关闭所有文件CLEAR ALLRETURN &返回
6、2、封面表单源代码(A:封面。sct)PROCEDURE Click 确定按 钮的单击事件过程SET EXACT ON 设置精确比较命令IF THISFORM。text1.VALUE=”8888” &如果文本框的值是8888 THISFORM.RELEASE 那么释放封面表单 DO A:菜单。MPX &运行菜单程序ELSE &否则 THISFORM.NO=THISFORM.NO+1 &将自定义属性NO的值由0加1 IF THISFORM.NO=3 如果自定义属性NO的值为3 =MESSAGEBOX(”密码三次输错,您不能使用本系统!”,0+16+0,学生学籍管理系统”) 那么弹出内容为“密码三
7、次输错,您不能使用本系统!的对话框 QUIT &结束程序的运行 ELSE &否则 =MESSAGEBOX(”密码错误!”,48+0+0,警告) &弹出内容为“密码错误!的对话框 THISFORM。text1。VALUE=” &设置文本框的内容为空 THISFORM。text1.SETFOCUS &并将光标定位到文本框中 THISFORM.REFRESH 刷新封面表单 ENDIFENDIFSET EXACT OFF &设置关闭精确比较命令ENDPROCPROCEDURE Click &取消按钮的单击事件过程THISFORM。RELEASE &释放封面表单CLOSE ALL 关闭所有文件CLEAR
8、 EVENTquitVFP应用程序设计实例-学生学籍管理系统(2)图23、录入数据表单源代码(A:录入。sct,如图2所示)PROCEDURE Init &录入数据表单的初始化事件过程SET TALK OFFTHISFORM.commandgroup1。command4.ENABLED=.f. &设置第四个按钮为不可用状态THISFORMmand5.ENABLED=.f。 设置第五个按钮为不可用状态THISFORM.txt学号。ENABLED=。f。 &设置学号文本框为不可用状态THISFORM.txt姓名。ENABLED=。f. &设置姓名文本框为不可用状态THISFORM.combo1.E
9、NABLED=。f. &设置组合框1为不可用状态THISFORM。combo2。ENABLED=.f. &设置组合框2为不可用状态THISFORM。combo3。ENABLED=。f。 &设置组合框3为不可用状态THISFORM.combo4.ENABLED=。f。 &设置组合框4为不可用状态THISFORM。txt邮编.ENABLED=。f。 &设置邮编文本框为不可用状态THISFORM.txt高数。ENABLED=。f。 设置高数文本框为不可用状态THISFORM。txt英语。ENABLED=。f. &设置英语文本框为不可用状态THISFORM.txtVfp.ENABLED=。f. &设置
10、VFP文本框为不可用状态THISFORM。combo5。ENABLED=.f。 &设置组合框5为不可用状态THISFORM.txt电话。ENABLED=。f. 设置电话文本框为不可用状态THISFORM.txt通信地址。ENABLED=。f。 &设置通信地址文本框为不可用状态THISFORM。edt备注。ENABLED=。f。 设置备注编辑框为不可用状态ENDPROCPROCEDURE Load 录入数据表单的加载事件过程CLOSE DATA &关闭所有数据库USE A:XJ存 打开A盘中的XJ.DBF表文件SET MULTILOCKS ON 设置锁定一组记录=CURSORSETPROP(bu
11、ffering,5,XJ) &打开开放式表缓冲ENDPROCPROCEDURE InteractiveChange &录入数据表单的交互改变事件过程REPL 出生年月 WITH THISFORM。combo2。displayvalue+”。+THISFORM.combo3。displayvalue+”。”+THISFORM.combo4。displayvalue &用组合框的值替换出生年月字段THISFORM。REFRESH &刷新录入数据表单ENDPROCPROCEDURE Command1.Click &单击命令按钮1的事件过程APPEND BLANK &添加一空白记录THISFORM.R
12、EFRESH 刷新录入数据表单THISFORM。mand1。ENABLED=.f. 设置命令按钮1为不可用状态THISFORMmand2。ENABLED=。f。 &设置命令按钮2为不可用状态THISFORMmand3。ENABLED=。f。 设置命令按钮3为不可用状态THISFORM。mand4。ENABLED=。t。 设置命令按钮4为可用状态THISFORM.commandgroup1。command5。ENABLED=.t。 设置命令按钮5为可用状态THISFORM.commandgroup1。command6.ENABLED=。f。 &设置命令按钮6为不可用状态THISFORM。txt学
13、号.ENABLED=.t.THISFORM。txt姓名。ENABLED=.t。THISFORM。combo1.ENABLED=。t。THISFORM。combo2。ENABLED=.t.THISFORM.combo3。ENABLED=.t.THISFORM。combo4.ENABLED=。t。THISFORM。txt邮编。ENABLED=.t。THISFORM.txt高数。ENABLED=.t。THISFORM。txt英语.ENABLED=。t。THISFORM.txtVfp.ENABLED=.t.THISFORM。combo5。ENABLED=.t。THISFORM。txt电话.ENABLE
14、D=。t。THISFORM。txt通信地址。ENABLED=。t。THISFORM。edt备注.ENABLED=。t.THISFORM.txt学号.SETFOCUSENDPROCPROCEDURE Command2。Click 单击命令按钮2的事件过程SET DELETE ON &设置打开删除命令DELETE &删除当前记录YN=MESSAGEBOX(确实要删除这条记录?,4+32+256,删除确认) &弹出内容为“确实要删除这条记录?”的对话框DO CASE 运行条件判断语句CASE YN=6 &当单击“是”按钮时=TABLEUPDATE(。T.) &执行更新表函数,删除当前记录CASE Y
15、N=7 &当单击“否按钮时RECALL &恢复已作了删除标记的当前记录ENDCASETHISFORM.REFRESHENDPROCPROCEDURE Command3.Click &单击命令按钮3的事件过程THISFORM.commandgroup1。command1.ENABLED=.f.THISFORM。mand2.ENABLED=。f.THISFORM。commandgroup1。command3。ENABLED=。f.THISFORM。commandgroup1。command4。ENABLED=。t。THISFORM.commandgroup1。command5。ENABLED=。t
16、.THISFORM.commandgroup1。command6。ENABLED=。f。ENDPROCPROCEDURE Command4.Click &单击命令按钮4的事件过程=TABLEUPDATE(。T。)THISFORM。commandgroup1。command1。ENABLED=.t。THISFORM。commandgroup1。command2。ENABLED=。t.THISFORM.commandgroup1。command3。ENABLED=。t。THISFORM。mand4。ENABLED=。f.THISFORM。mand5.ENABLED=。f。THISFORM。comm
17、andgroup1。command6。ENABLED=。t。ENDPROCPROCEDURE Command5。Click &单击命令按钮5的事件过程=TABLEREVERT(。T。)THISFORM。commandgroup1。command1。ENABLED=。t.THISFORM.commandgroup1。command2。ENABLED=。t.THISFORM。mand3。ENABLED=。t。THISFORM。commandgroup1。command4.ENABLED=.f。THISFORM。mand5.ENABLED=.f。THISFORMmand6.ENABLED=。t。EN
18、DPROCPROCEDURE Command6。Click 单击命令按钮6的事件过程SELE 1 &选择1号工作区USE A:XJ EXCLUSIVE 打开A盘中的XJ。DBF数据表PACK &彻底删除已作了删除标记的记录THISFORM.RELEASE 释放录入数据表单ENDPROCPROCEDURE InteractiveChangeREPL 是否党员 WITH THISFORM.combo5。DISPLAYVALUE &用组合框的值替换是否党员字段THISFORM。REFRESHENDPROC4、修改数据表单源代码(A:修改.sct)图3PROCEDURE Command1。ClickI
19、F NOT BOF() &如果记录指针没有到记录的开头SKIP 1 &向上跳转一个记录THISFORM.REFRESHTHISFORM。commandgroup1。command2.ENABLED=.t.ELSEWAIT WINDOW 已经是第一条记录了! &系统给出内容为“已经是第一条记录了!”提示窗口ENDIFENDPROCPROCEDURE Command2.ClickIF NOT EOF() 如果记录指针没有到记录的结尾SKIP &向下跳转一个记录THISFORM。REFRESHTHISFORM。mand1。ENABLED=。t。ELSEWAIT WINDOW 已经是最后一条记录了!E
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学籍 管理 VFP 应用 程序设计 实例
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【人****来】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【人****来】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。