vb课程设计---学生成绩管理系统

《vb课程设计---学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、学生成绩管理系统一﹑功能描述成绩管理系统能有效的解决学生成绩因成绩记录的数量众多，管理复杂造成的混乱。从而对学生成绩的信息进行准确的管理。本系统的开发目的是有效的管理学生信息，实现学生信息的数据的规范化﹑自动化﹑系统化管理。本系统的主要功能及任务：使学生查询自己的成绩更加方便﹑快捷；便于学校对学生的成绩信息进行添加和管理；二﹑概要设计1﹑系统功能模块框图设计学生成绩管理登录退出编辑查询退出学号查询课程查询上下翻页删除首记录添加修改取消确定系统流程图各模块的功能（1）登录：实现用户通过用户名和密码进行登录的功能。第27页共29页（1

2、）编辑：实现对成绩的添加﹑删除和修改以及上下翻页等功能。（2）查询：实现对学生的成绩按照学号或者课程进行查询（3）退出：结束成绩管理系统。2﹑数据库设计创建一个为mybd.mdb的数据库，此数据库内包含3张表，分别是“成绩表”﹑“课程表”﹑“学生表”，表结构参照如下：学生表：学号﹑姓名﹑性别。课程表：课程号﹑课程名﹑学时﹑学分。成绩表：学号﹑课程号﹑成绩。表一﹑学生表结构表二﹑课程表结构表三﹑成绩表结构第27页共29页三﹑详细设计1﹑主界面系统（1）窗体截图第27页共29页（2）功能实现'成功登录系统前禁用编辑命令和查询命令PRI

3、VATESUBMDIFORM_LOAD()MNUEDIT.ENABLED=FALSEMNUQUERY.ENABLED=FALSEENDSUB'打开编辑窗体PRIVATESUBMNUEDIT_CLICK()FRMEDIT.SHOWFRMEDIT.WINDOWSTATE=VBMAXIMIZEDENDSUB'打开登录窗体PRIVATESUBMNULOGIN_CLICK()FRMLOGIN.SHOWFRMLOGIN.WINDOWSTATE=VBMAXIMIZED'退出系统PRIVATESUBMNULOGOUT_CLICK()END'退出系

4、统PRIVATESUBMNULOGOUT_CLICK()ENDENDSUB'退出系统第27页共29页PRIVATESUBMNULOGOUT_CLICK()ENDENDSUBPRIVATESUBMNULOGOUT_CLICK()ENDENDSUB'打开查询窗体PRIVATESUBMNUQUERY_CLICK()FRMQUERY.SHOWFRMQUERY.WINDOWSTATE=VBMAXIMIZEDENDSUBPRIVATESUBPICTURE1_CLICK()ENDSUB2﹑登录窗体登录系统界面包括用户名和密码。动态标签是由时钟控

5、件编程实现的如果密码输入错误会提示“密码错误！”（1）窗体截图登录界面第27页共29页错误提示（2）功能实现OPTIONEXPLICITCONSTUSERNAMEASSTRING="1"CONSTPASSWORDASSTRING="1"PRIVATESUBCMDCANCEL_CLICK()ME.HIDEENDSUBPRIVATESUBCMDOK_CLICK()'检查正确的用户名和密码IFTXTUSERNAME=USERNAMEANDTXTPASSWORD=PASSWORDTHENME.HIDEMDIFRMMAIN.MNUEDIT.

6、ENABLED=TRUEMDIFRMMAIN.MNUQUERY.ENABLED=TRUEELSEMSGBOX"密码错误!"TXTPASSWORD.SETFOCUSSENDKEYS"{HOME}+{END}"ENDIFENDSUBPRIVATESUBPICTURE1_CLICK()ENDSUBPRIVATESUBTIMER1_TIMER()IF-LABEL3.LEFT>=LABEL3.WIDTHTHENLABEL3.LEFT=FRMLOGIN.WIDTHELSE:LABEL3.LEFT=LABEL3.LEFT-35ENDIFENDS

7、UB3﹑学生成绩查询窗体（1）窗体截图(2)功能实现'"取消"按钮的单击事件过程PRIVATESUBCMDCANCEL_CLICK()TXTID(0).TEXT=""第27页共29页TXTID(1).TEXT=""ENDSUB'"确定"按钮的单击事件过程PRIVATESUBCMDOK_CLICK()DIMSQLASSTRING,FLDASSTRING,CONDITIONASSTRING'显示的字段列表FLD="学生.学号,学生.姓名,课程.课程名,成绩.成绩"'查询条件CONDITION="学生.学号=成绩.学号AND课程.课程号

8、=成绩.课程号"IFOPTCHOICE(0).VALUETHENCONDITION=CONDITION+"AND学生.学号='"+TXTID(0).TEXT+"'"ELSECONDITION=CONDITION+"AND课程.课程号='"+TXTI