学生管理系统附源程序Word格式文档下载.docx
《学生管理系统附源程序Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《学生管理系统附源程序Word格式文档下载.docx（15页珍藏版）》请在冰豆网上搜索。
3.3--------------------------------------------------------------------14
4.详细参数，操作方法----------------------------------------------------------14
5.运行环境-------------------------------------------------------------------------14
6.参考资料-------------------------------------------------------------------------14
1.设计目的
本课程设计，旨在实现对学生成绩的集中管理，快捷方便的实现一些基本的功能，如：
学生成绩的录入，修改，查询，删除等工作，用一个简单的功能模块连接access，实现对数据库的操作，同时拥有学生查询功能和管理员模式，管理员可以对学生的成绩数据进行操作，实现简单方便的管理作用。
2.需求分析
本系统需要实现的功能：
2.1.管理员与学生的分块登陆
2.2.学生成绩的录入功能：
功能模块，在管理员和学生两种不同的模式下实现不同的功能，要学生模块不能进行操作，在管理员面板中需要加入：
学号、姓名、高数、英语、物理、c语言、计算机、总成绩、名次等模块
2.3.学生成绩的查询功能，学生面板支持学号，姓名查询，其中要包括各项成绩、总分、所处名次等信息，管理员面板与学生面板功能模块相同。
2.4.学生成绩的修改功能，此功能不能在学生面板通过学生实现，只能由管理员操作，提供一个管理员可对学生成绩数据进行修改的面板，其中要包括单独的各项成绩的模块、学生的姓名修改模块（虽然不常用到，但是如果出现姓名录入错误或者出现重名学生等时可以进行适当的修改）、学生学号修改模块。
2.5.学生成绩的删除功能：
此功能也不能通过学生端操作，只能由管理员操作。
需要提供每一项成绩的删除模块（由于某些学生的缺考或者成绩无效等情况的出现，所以有时需要对某个学生的某项成绩单独进行操作）、全部成绩的删除模块。
根据上述需求，可得到如下大致关系模型：
学生成绩管理系统
学生
管理员
删除学生
成绩查询
添加学生
查找学生
图2——1关系模型
3.功能实现
3.1：
登陆：
图3.1-1程序运行组件
利用vb的模块功能实现程序登陆界面如下图：
图3.1-2登陆欢迎界面
此模块的部分核心代码如下：
PrivateSub管理员_Click（）
UnloadMe
Form9.Show
pingbi3
EndSub
PrivateSub取消_Click（）
End
PrivateSub退出_Click（）
PrivateSub学生_Click（）
Form2.Visible=True
pingbi1
pingbi2
Form10.Command4.Visible=True
此处帮助信息可用，其代码为
PrivateSub帮助_Click（）
r=MsgBox（"
用户名：
张宇鹏.密码：
1,网信10—4张宇鹏"
64,"
帮助"
）
Form1.Show
功能如图所示：
图3.1-3帮助信息
此处默认管理员ID为：
张宇鹏；
密码为：
1
管理员登录界面如下：
图3.1-4管理员登录界面
代码：
PrivateSubcmdOK_Click（）
DimiAsInteger
StaticnAsInteger
IftxtUsername.Text=usernameAndtxtPassword.Text=passwordThen//此行为验证的核心，通过比对用户输入的值与数据库中存放的值进行比对，来确定是否是正确的登陆信息，如果不是，拒绝登陆并提示重新输入帐号、密码。
Form2.Show
UnloadForm1
UnloadMe
Else
n=n+1
Ifn<
3Then
i=MsgBox（"
用户名或密码错误，请重新输入！
"
vbCritical+vbRetryCancel+vbDefaultButton1,"
登录失败"
Ifi=vbRetryThen
txtUsername.Text="
txtPassword.Text="
txtUsername.SetFocus
End
EndIf
MsgBox"
三次错误，系统将退出！
vbOKOnly+vbExclamation,"
3.2：
登录后操作界面：
学生登录后可操作界面如下：
图3.2-1学生登陆后的操作界面
在学生登陆后，我们仅提供查找的功能，其他功能全部由管理员实现，也就是说学生只能查看。
管理员登陆后可进行如下操作：
图3.2-2管理员登录后的界面
管理员成功登录后可对数据进行修改、添加、删除、查找等一系列的工作。
3.3：
程序的修改、添加、删除、查找等操作：
图3.3–1查找界面
此查找界面学生和管理员通用，都能通过学号和姓名进行查找
核心代码：
//有数据
Open"
cj.dat"
ForRandomAs#1Len=Len（recordvar）
recordnumer=LOF
（1）/Len（recordvar）
Forn=1Torecordnumer
Get#1,n,recordvar
Comp1=Trim（textfindname.Text）
temptext.Text=recordvar.stname
Comp2=Trim（temptext.Text）
//无数据
EndIf
Nextn
Close#1
Label1.Caption="
一共找到"
+Str（F）+"
条记录"
IfF=0Then
MsgBox"
没有该记录"
vbInformation,"
提示"
图3.3—2管理员添加数据界面
核心代码为：
Subpaixu（）
Forn=1Torecordnumer-1
Form=1Torecordnumer
Get#1,m,recordvar1
Get#1,m+1,recordvar2
Ifrecordvar2.average>
recordvar1.averageThen
recordvar.stnum=recordvar1.stnum
recordvar.stname=recordvar1.stname
recordvar.gaoshu=recordvar1.gaoshu
recordvar.yingyu=recordvar1.yingyu
recordvar.wuli=recordvar1.wuli
recordvar.cyuyan=recordvar1.cyuyan
recordvar.jisuanji=recordvar1.jisuanji
recordvar.average=recordvar1.average
Put#1,m,recordvar2
Put#1,m+1,recordvar
Nextm
//打开dat库并且向其中输入上面添加的数据
recordvar.stnum=Text1.Text
recordvar.stname=Text2.Text
recordvar.gaoshu=Text3.Text
recordvar.yingyu=Text4.Text
recordvar.wuli=Text5.Text
recordvar.cyuyan=Text6.Text
recordvar.jisuanji=Text7.Text
recordvar.average=recordvar.gaoshu*2+recordvar.yingyu*2+recordvar.wuli*1.5+recordvar.cyuyan*1.5+recordvar.jisuanji
recordnumer=recordnumer+1
Put#1,recordnumer,recordvar
Paixu
图3.3—3管理员删除数据界面
//打开存储学生信息的cj.dat的操作
repeat:
Get#1,position+1,recordvar
IfLoc
（1）>
recordnumerThenGoTofinish
Put#1,position,recordvar
position=position+1
GoTorepeat
//删除的操作
finish:
recordnumer=recordnumer-1
cj1.dat"
ForRandomAs#2Len=Len（recordvar）
Fori=1Torecordnumer
Get#1,i,recordvar
Put#2,i,recordvar
Nexti
Close#2
Kill"
cj.da
升级会员 