学生成绩管理系统课程设计.doc

学习Visual FoxPro的心得-关于学生成绩管理系统的自我编程设计通过一个学期对Visual FoxPro的认真学习，使我对一定的数据库知识有了一定的了解，而且通过相互的学习，我也能够编出一些简单的程序。虽然基本完成了课程设计，但是我还有很多的东西要学，所以在以后的生活中，我还是会不断的学习和运用Visual FoxPro的知识解决一些生活中的关于数据库的问题的！ 下面主要是我的课程设计内容：第一：是一个登录的程序，然后在这样的一人登录的程序启动后有一个 包括信息维护菜单，信息查询菜单，密码修改菜单的学生成绩管理系统。登录表，是由一个用户名，和一个密码组成的。还有两个按扭一个是确认，一个是取消。确认后的程序是：* 验证用户名和密码username=alltrim(thisform.txtuser.value)userpwd=alltrim(thisform.txtpwd.value)select 用户locate for alltrim(用户名)=username & 验证用户名if found()if alltrim(密码)=userpwd & 验证密码 loginuser=alltrim(用户名)& 存放登录的用户名 select 0 use 班级 select 0 use 学生 select 0 use 课程 select 0 use 成绩 _screen.show& 显示主程序窗口 _screen.caption=学生成绩管理系统 _screen.icon=xs.ico _screen.windowstate=2 do main.mpr& 执行主程序菜单 thisform.releaseelse messagebox(密码不正确！,0+16,学生成绩系统)thisform.txtpwd.setfocusendifelse gebox(非法用户名！,0+16,学生成绩系统)thisform.txtuser.setfocusendif取消的程序是：thisform.releasequit第二：信息维护菜单，其内容包括班级信息维护，学生信息维护，课程信息维护，成绩信息维护。 其中班级信息维护中有定位，删除，预览，退出，四个按扭。那么首先有一个用一个表单设计器设计一个有班级号，班级名，班主任名的一个表。然后对定位，删除，预览，退出，四个按扭进行编程。其程序分别是do form class_edit_subthisform.grid1.setfocus 删除程序：LPARAMETERS nError, cMethod, nLine= AERROR(aErrorArray)& 得到错误信息if aerrorarray(1)=1539 and aerrorarray(5)=3& 删除班级记录，而此班级在学生表中已引用时 =messagebox(此班级已在学生表中引用,不能删除！,0+16,学生成绩管理系统)Endif预览程序：* 建立一个报表反映查询的结果thisform.grid1.setfocus& 设置表格得到焦点，当前工作区为表格显示的数据源.create report _temp_print from dbf()report form _temp_print preview退出程序：* 退出前，检查表中是否存在无用数据,如存在,提示用户进行修改或删除select 班级locate for empty(班级号) or empty(班级名)if found()if empty(班级号)=messagebox(班级号不能为空！请对光标定位的记录进行修改或删除！,0+16,学生成绩管理系统)thisform.grid1.column1.text1.setfocuselse=messagebox(班级名不能为空！请对光标定位的记录进行修改或删除！,0+16,学生成绩管理系统)thisform.grid1.column2.text1.setfocusendifelsethisform.release endif 那么，学生信息维护，课程信息维护，成绩信息维护的设计方法就和上一个方法是同一个道理了！第三：信息查询菜单，它的子菜单包括的内容是班级信息查询，学生信息查询，课程，成绩，补考信息查询共五个子菜单，那么以课程信息查询的编程内容是：也是要在课程表的下方有三个按扭，一个是查询，一个是预览，还有一个是退出。那么这三个按扭下的程序分别 是：do form course_seek_sub to condstr & 调查查询条件对话框，查询对话框运行后将查询条件保存到变量condstr中。if !empty(condstr) & 如果用户进行了查询操作thisform.grid1.recordsource=condstr &指定表格显示数据源。thisform.grid1.refreshthisform.grid1.setfocus& 表格设置焦点后，当前工作区数据表是表格显示的数据源thisform.lblcount.caption=alltrim(str(reccount()& 统计当前查询结果记录数if reccount()0& 如果有查询结果，打印按钮起作用。thisform.cmdprint.enabled=.t.elsethisform.cmdprint.enabled=.f.endifelsethisform.grid1.setfocusendif预览的程序：* 建立一个报表反映查询的结果thisform.grid1.setfocus& 表格设置焦点后，当前工作区设置的是表格显示的数据源create report _temp_print from dbf()report form _temp_print preview退出的程序：thisform.release那么其它的几个同此程序！最后：密码修改菜单，它有修改密码的功能的子菜单。这样一个子菜单的形式是原密码，然后新密码，最后是确认新密码共三个以Label做出来。然后再做两个按扭一个是确定，一个是是取消。确定按扭的程序是：select 用户locate for alltrim(用户名)=LoginUserif alltrim(thisform.text1.value)=alltrim(密码)if alltrim(thisform.text2.value)=alltrim(thisform.text3.value)replace 密码 with alltrim(thisform.text3.value)thisform.releaseelse=messagebox(新密码与确认新密码输入不相同！,0+16,学生成绩系统)thisform.text2.value=thisform.text3.value=thisform.text2.setfocusendifelse=messagebox(原密码输入不正确！,0+16,学生成绩系统)thisform.text1.value=thisform.text1.setfocusendif取消的程序是：this