1、第 1 页 共 29 页 学生成绩管理系统学生成绩管理系统 一功能描述 成绩管理系统能有效的解决学生成绩因成绩记录的数量众多， 管理复杂造成 的混乱。从而对学生成绩的信息进行准确的管理。本系统的开发目的是有效的管 理学生信息，实现学生信息的数据的规范化自动化系统化管理。 本系统的主要功能及任务： 使学生查询自己的成绩更加方便快捷； 便于学校对学生的成绩信息进行添加和管理； 二概要设计 1系统功能模块框图设计 系统流程图 各模块的功能 （1） 登录：实现用户通过用户名和密码进行登录的功能。 学生成绩管理 登录 编辑 查询 退出 确 定 取 消 添 加 修 改 删 除 首 记 录 上 下 翻 页
2、课 程 查 询 退 出 学 号 查 询 第 2 页 共 29 页 （2） 编辑：实现对成绩的添加删除和修改以及上下翻页等功能。 （3） 查询：实现对学生的成绩按照学号或者课程进行查询 （4） 退出：结束成绩管理系统。 2数据库设计 创建一个为 mybd.mdb 的数据库，此数据库内包含 3 张表，分别是“成绩表” “课程表”“学生表” ，表结构参照如下： 学生表：学号姓名性别。 课程表：课程号课程名学时学分。 成绩表：学号课程号成绩。 表一学生表结构 表二课程表结构 表三成绩表结构 第 3 页 共 29 页 三详细设计 1主界面系统 （1）窗体截图 第 4 页 共 29 页 （2）功能实现 成
3、功登录系统前禁用编辑命令和查询命令 PRIVATE SUB MDIFORM_LOAD() MNUEDIT.ENABLED = FALSE MNUQUERY.ENABLED = FALSE END SUB 打开编辑窗体 PRIVATE SUB MNUEDIT_CLICK() FRMEDIT.SHOW FRMEDIT.WINDOWSTATE = VBMAXIMIZED END SUB 打开登录窗体 PRIVATE SUB MNULOGIN_CLICK() FRMLOGIN.SHOW FRMLOGIN.WINDOWSTATE = VBMAXIMIZED 退出系统 PRIVATE SUB MNULOG
4、OUT_CLICK() END 退出系统 PRIVATE SUB MNULOGOUT_CLICK() END END SUB 退出系统 第 5 页 共 29 页 PRIVATE SUB MNULOGOUT_CLICK() END END SUB PRIVATE SUB MNULOGOUT_CLICK() END END SUB 打开查询窗体 PRIVATE SUB MNUQUERY_CLICK() FRMQUERY.SHOW FRMQUERY.WINDOWSTATE = VBMAXIMIZED END SUB PRIVATE SUB PICTURE1_CLICK() END SUB 2登录窗体
5、 登录系统界面包括用户名和密码。 动态标签是由时钟控件编程实现的如果密 码输入错误会提示“密码错误！ ” （1）窗体截图 登录界面 第 6 页 共 29 页 错误提示 （2）功能实现 OPTION EXPLICIT CONST USERNAME AS STRING = “1“ CONST PASSWORD AS STRING = “1“ PRIVATE SUB CMDCANCEL_CLICK() ME.HIDE END SUB PRIVATE SUB CMDOK_CLICK() 检查正确的用户名和密码 IF TXTUSERNAME = USERNAME AND TXTPASSWORD = PA
6、SSWORD THEN ME.HIDE MDIFRMMAIN.MNUEDIT.ENABLED = TRUE MDIFRMMAIN.MNUQUERY.ENABLED = TRUE ELSE MSGBOX “密码错误!“ TXTPASSWORD.SETFOCUS SENDKEYS “HOME+END“ END IF END SUB PRIVATE SUB PICTURE1_CLICK() END SUB PRIVATE SUB TIMER1_TIMER() IF -LABEL3.LEFT = LABEL3.WIDTH THEN LABEL3.LEFT = FRMLOGIN.WIDTH ELSE: LABEL3.LEFT = LABEL3.LEFT - 35 END IF END SUB 3学生成绩查询窗体 （1）窗体截图 (2)功能实现 “取消“ 按钮的单击事件过程 PRIVATE SUB CMDCANCEL_CLICK()
