广东海洋大学职业技术学院 共1 2 页 第1 页 班级：电商 092 学号：200936627204 学号：200936627202 姓名：陈家文 姓名：岑荣培 学号：200936627227 学号：200936627210 姓名：李木水 姓名：冯冠豪 学号：200936627258 姓名：姚子维 . 联系方式：****************日期：2011-5-31 广东海洋大学职业技术学院 共1 2 页 第2 页 一．“学生信息管理系统”功能分析。 学生管理系统的主要功能是：可以，查询，添加，删除，修改学生信息。 （流程图） 学生信息管理系信息查询 数据维护 统计报表 退出 学生成绩查询 课程信息查询 学生基本信息维护 学生成绩表维护 学生成绩报表 平均分统计报表 学生基本信息查询 课程信息表维护 广东海洋大学职业技术学院 共1 2 页 第3 页 （数据库中各表关系图） 二．系统结构 表单 主表单： 封面.scx 次表单： 查询.scx 修改.scx 添加.scx 删除.scx 广东海洋大学职业技术学院 共1 2 页 第4 页 （系统结构图） 三．部分程序模块化 １， 系统登录界面 由Label、Command、Combo1 和Timer(计时器）控件组成，其中，计时器主要用于控制实现封面表单在3s之后自动关闭 广东海洋大学职业技术学院 共1 2 页 第5 页 系统登录界面对象的事件过程代码如下： 按钮对象Command1(确认）的Click事件过程代码如下： Lname = ALLTRIM(thisform.text1.Value) pwd = ALLTRIM(thisform.text2.value) USE 管理员表 &&打开管理员表 LOCATE FOR ALLTRIM(用户名)==Lname 广东海洋大学职业技术学院 共1 2 页 第6 页 IF FOUND().and.ALLTRIM(密码)==pwd USE &&登陆成功，关闭数据表 thisform.Release &&关闭当前表单 DO main.mpr &&执行主菜单程序 ELSE MESSAGEBOX("用户名或密码错误，请重新输入！",0,"错误") thisform.text2.Value="" USE ENDIF 按钮对象Command2(退出)的Click事件过程代码如下： answer=MESSAGEBOX("是否确定要退出系统",4+32,"确定") IF answer=6 &&如果用户单击了“确定”按钮 thisform.release QUIT ELSE thisform.text1.SetFocus ENDIF ２，进入后查询： （1）按学号或姓名查询 广东海洋大学职业技术学院 共1 2 页 第7 页 按钮对象Command1(开始查询）的Click事件过程代码如下： sno=ALLTRIM(thisform.text1.value) SCAN IF 学生表.学号=sno.or.学生表.姓名=sno thisform.text1.Value...
