1、VF课程设计 学生成绩管理系统学生成绩管理系统 一. 需求分析(一) 数据分析1. 原始数据包括5个表:(1) 电子商务一班成绩单(2) 电子商务二班成绩单(3) 财务管理一班成绩单(4) 财务管理二班成绩单(5) 科技工程学院总成绩单2.表包括字段:学期年号(C),班号(C),姓名(C),学号(C),课程名称(C),考试性质(C),考试性质名(C),分数(N),课程号(N)等.(二)功能分析基本功能:1.编辑:增加记录,修改记录,删除记录2. 查询成绩:按照学号查询成绩,逐一浏览查询3. 统计成绩:统计各班各科的总分数,各班各科的平均分,按照学生学号汇总的分数二. 程序设计1主程序文件代码s
2、et talk offclose alldo form 封面modi wind screen titl 沈阳大学科技工程学院学生成绩管理系统clea do 菜单新.mprread event quit2.封面3.确定按钮代码:i=i+1if thisform.id.value=1 and thisform .password. value=111111thisform.releaseelseif i4messgaebox(密码输入错误,请重新输入!)thisform.password.value=thisform.password.setfocuselsemessagebox(密码输入错误,系
3、统关闭!)thisform.releaseendifendif4.退出按钮代码:(1)退出 (2)对话框提示(3)代码thisform.release5.用户名:1 密码:1111116.菜单设计器编辑 7.菜单一览8.系统菜单下,退出按钮的代码:ask=messagebox(确实要退出系统吗?,4+32+256,学生管理系统)if ask=6 close all clear all release all clear eventselse endif9.浏览按钮:10.浏览按钮的代码:1.use 成绩03-04-2.DBFbrow2. use dianshang1.dbfbrow3. use
4、 dianshang2.dbfbrow4. use caiguan1.dbfbrow5. use caiguan2.dbfbrow11.编辑菜单12.编辑菜单的主要代码1.use dianshang1.dbfappend2.use dianshang2.dbfappend3.use caiguan1.dbfappend4.use caiguan2.dbfappend13.统计菜单: 1.统计求和1. 2. 求和主要代码(仅以电子商务1班为例)1.close alluse dianshang1.dbf in 0sum 分数 for 课程名=高等数学2-2 to gssele 0?电子商务一班高等
5、数学2-2的全班总分是: ,gs2.close alluse dianshang1.dbf in 0sum 分数 for 课程名=英语4-2 to yysele 0?电子商务一班英语4-2的全班总分是: ,yy3.close alluse dianshang1.dbf in 0sum 分数 for 课程名=体育 to tysele 0?电子商务一班体育的全班总分是: ,ty4.close alluse dianshang1.dbf in 0sum 分数 for 课程名=政治经济学 to zzsele 0?电子商务一班政治经济学的全班总分是: ,zz5.close alluse dianshan
6、g1.dbf in 0sum 分数 for 考试性质名=选修 to gxsele 0?电子商务一班公共选修课的全班总分是: ,gx3. 统计实例4. 求平均分5. 平均代码:set talk offn=32 &学生人数S=0 &存放累加值的变量清零for i=1 to n &循环32次,步长值为1省略input 请输入要统计平均分的成绩(输入32人的成绩): to Y &输入 32位同学的成绩 S=S+YendforAverage=S/n &求平均分?该科的平均分为:,Average &输出6. 输入平均数:7. 汇总菜单8.汇总代码1.use dianshang1index on 学号 ta
7、g hzxhtotal to 电子商务一班汇总表 on 学号 fiel 分数use 电子商务一班汇总表list fiel 学年学期,学号,姓名,班号,分数2. cleause caiguan2index on 学号 tag hzxhcetotal to 财务管理二班汇总表 on 学号 fiel 分数use 财务管理二班汇总表disp all fiel 学年学期,学号,姓名,班号,分数8. 汇总表:9. 查询菜单10. 查询代码1.Use dianshang1.DBFDo While .T. Accept 请您输入要查询学生的学号(输入0结束查询): To xh If xh=0 Exit Endif Locate For Alltrim(学号) = xh If Found() Disp FOR Alltrim(学号) = xh EndifEnddo2. Use dianshang2.DBFDo While .T. Accept 请您输入要查询学生的学号(输入0结束查询): To xh If xh=0 Exit Endif Locate For Alltrim(学号) = xh If Found() Disp FOR Alltrim(学号) = xh Endif Enddo11. 查询结果12. 帮助菜单13. 帮助代码cleause 版本.dbflist14. 帮助信息显示
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1