收藏
下载资源下载资源 加入VIP,免费下载

学生成绩管理系统源代码.docx

上传人：b****0 文档编号：18320389 上传时间：2023-08-15 格式：DOCX 页数：29 大小：321.68KB
下载 相关 举报
学生成绩管理系统源代码.docx_第1页
第1页 / 共29页
学生成绩管理系统源代码.docx_第2页
第2页 / 共29页
学生成绩管理系统源代码.docx_第3页
第3页 / 共29页
学生成绩管理系统源代码.docx_第4页
第4页 / 共29页
学生成绩管理系统源代码.docx_第5页
第5页 / 共29页
学生成绩管理系统源代码.docx_第6页
第6页 / 共29页
学生成绩管理系统源代码.docx_第7页
第7页 / 共29页
学生成绩管理系统源代码.docx_第8页
第8页 / 共29页
学生成绩管理系统源代码.docx_第9页
第9页 / 共29页
学生成绩管理系统源代码.docx_第10页
第10页 / 共29页
学生成绩管理系统源代码.docx_第11页
第11页 / 共29页
学生成绩管理系统源代码.docx_第12页
第12页 / 共29页
学生成绩管理系统源代码.docx_第13页
第13页 / 共29页
学生成绩管理系统源代码.docx_第14页
第14页 / 共29页
学生成绩管理系统源代码.docx_第15页
第15页 / 共29页
学生成绩管理系统源代码.docx_第16页
第16页 / 共29页
学生成绩管理系统源代码.docx_第17页
第17页 / 共29页
学生成绩管理系统源代码.docx_第18页
第18页 / 共29页
学生成绩管理系统源代码.docx_第19页
第19页 / 共29页
学生成绩管理系统源代码.docx_第20页
第20页 / 共29页
亲，该文档总共29页，到这儿已超出免费预览范围，如果喜欢就下载吧！
下载资源
资源描述

学生成绩管理系统源代码.docx

《学生成绩管理系统源代码.docx》由会员分享，可在线阅读，更多相关《学生成绩管理系统源代码.docx（29页珍藏版）》请在冰点文库上搜索。

学生成绩管理系统源代码.docx

学生成绩管理系统源代码

登录界面

图4.1登录界面

设计过程：

用于输入用户名和密码登录，选择相应的用户类型进入系统，若是用户类型选择错误则不能进入系统。

没有用户名的可注册用户名，如对系统操作有不了解的可点击帮助，进入帮助界面。

输入用户名和密码后点击确定判断数据库中的用户是否为合法用户。

设计代码：

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

'选择普通用户登录

IfMe.RadioButton1.CheckedThen

DimstrAsString

str="datasource=PC-201103171305\SQLEXPRESS;database=学生信息库;userid=sa;pwd="

DimconAsNewSqlClient.SqlConnection（str）

Try

con.Open（）

CatchexAsException

EndTry

DimsqlAsString="select*from普通用户where用户名='"&TextBox1.Text.ToString（）.Trim（）&"'and密码='"&TextBox2.Text.ToString（）.Trim（）&"'"

DimcmdAsNewSqlClient.SqlCommand（sql,con）

DimreaderAsSqlClient.SqlDataReader

Try

reader=cmd.ExecuteReader

Ifreader.Read（）=TrueThen

Dim学生成绩管理系统AsNew学生信息管理系统

学生成绩管理系统.添加DToolStripMenuItem.Enabled=False

学生成绩管理系统.修改KToolStripMenuItem.Enabled=False

学生成绩管理系统.删除DToolStripMenuItem.Enabled=False

学生成绩管理系统.添加ToolStripMenuItem.Enabled=False

学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled=False

学生成绩管理系统.Show（）

Me.Hide（）

Else

MsgBox（"对不起，用户名或密码错误！

重新输入（请正确选择用户类型）",16,"警告"）

Me.TextBox1.Text=""

Me.TextBox2.Text=""

TextBox1.Focus（）

EndIf

CatchexAsException

EndTry

EndIf

'选择高级用户登录

IfMe.RadioButton2.CheckedThen

DimstrAsString

str="datasource=PC-201103171305\SQLEXPRESS;database=学生信息库;userid=sa;pwd="

DimconAsNewSqlClient.SqlConnection（str）

Try

con.Open（）

CatchexAsException

EndTry

DimsqlAsString="select*from高级用户where用户名='"&TextBox1.Text.ToString（）.Trim（）&"'and密码='"&TextBox2.Text.ToString（）.Trim（）&"'"

DimcmdAsNewSqlClient.SqlCommand（sql,con）

DimreaderAsSqlClient.SqlDataReader

Try

reader=cmd.ExecuteReader

Ifreader.Read（）=TrueThen

Dim学生成绩管理系统AsNew学生信息管理系统

学生成绩管理系统.添加ToolStripMenuItem.Enabled=False

学生成绩管理系统.Show（）

Me.Hide（）

Else

MsgBox（"对不起，用户名或密码错误！

重新输入（请正确选择用户类型）",16,"警告"）

Me.TextBox1.Text=""

Me.TextBox2.Text=""

TextBox1.Focus（）

EndIf

CatchexAsException

EndTry

EndIf

'选择超级用户登录

IfMe.RadioButton3.CheckedThen

DimstrAsString

str="datasource=PC-201103171305\SQLEXPRESS;database=学生信息库;userid=sa;pwd="

DimconAsNewSqlClient.SqlConnection（str）

Try

con.Open（）

CatchexAsException

EndTry

DimsqlAsString="select*from超级用户where用户名='"&TextBox1.Text.ToString（）.Trim（）&"'and密码='"&TextBox2.Text.ToString（）.Trim（）&"'"

DimcmdAsNewSqlClient.SqlCommand（sql,con）

DimreaderAsSqlClient.SqlDataReader

Try

reader=cmd.ExecuteReader

Ifreader.Read（）=TrueThen

Dim学生成绩管理系统AsNew学生信息管理系统

学生成绩管理系统.Show（）

Me.Hide（）

Else

MsgBox（"对不起，用户名或密码错误！

重新输入（请正确选择用户类型）",16,"警告"）

Me.TextBox1.Text=""

Me.TextBox2.Text=""

TextBox1.Focus（）

EndIf

CatchexAsException

EndTry

EndIf

EndSub

学生成绩管理界面

图4.2学生成绩管理界面

设计过程：

所有功能都在菜单中打开来实现。

在登录时选择的用户类型限制本界面功能使用的权限，不同的用户类型所显示可用的功能不一样。

普通用户可使用界面管理功能、学生信息管理中的查询功能、登录用户管理中的普通用户管理功能；高级用户拥有普通用户所有功能使用的权限，外加登录用户管理中的高级用户管理功能；超级用户拥有高级用户所有的功能使用的权限，外加超级用户管理功能；所有登录的用户都可使用界面管理功能和帮助功能。

不同的权限拥有不同的功能。

设计代码：

PublicClass学生信息管理系统

PrivateSub添加DToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles添加DToolStripMenuItem.Click

DimtianjiaAsNew添加

tianjia.MdiParent=Me

tianjia.Show（）

EndSub

PrivateSub修改KToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles修改KToolStripMenuItem.Click

DimxiugaiAsNew修改

xiugai.MdiParent=Me

xiugai.Show（）

EndSub

PrivateSub删除DToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles删除DToolStripMenuItem.Click

DimshanchuAsNew删除

shanchu.MdiParent=Me

shanchu.Show（）

EndSub

PrivateSub退出XToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles退出XToolStripMenuItem.Click

End

EndSub

PrivateSub返回ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles返回ToolStripMenuItem.Click

登陆界面.Show（）

Me.Close（）

EndSub

PrivateSub信息查询ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）

DimchaxunAsNew查询

chaxun.MdiParent=Me

chaxun.Show（）

EndSub

PrivateSub添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles添加ToolStripMenuItem.Click

DimyonghuguanliAsNew用户信息管理

yonghuguanli.MdiParent=Me

yonghuguanli.Show（）

EndSub

PrivateSub查询ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles查询ToolStripMenuItem.Click

DimchaxunAsNew查询

chaxun.MdiParent=Me

chaxun.Show（）

EndSub

PrivateSub窗口层叠ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles窗口层叠ToolStripMenuItem.Click

Me.LayoutMdi（MdiLayout.Cascade）

EndSub

PrivateSub水平平铺ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles水平平铺ToolStripMenuItem.Click

Me.LayoutMdi（MdiLayout.TileHorizontal）

EndSub

PrivateSub垂直平铺ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles垂直平铺ToolStripMenuItem.Click

Me.LayoutMdi（MdiLayout.TileVertical）

EndSub

PrivateSub修改密码ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles修改密码ToolStripMenuItem.Click

Dim修改密码AsNew高级用户密码修改

修改密码.MdiParent=Me

修改密码.Show（）

EndSub

PrivateSub修改普通用户ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles修改普通用户ToolStripMenuItem.Click

Dim修改密码AsNew普通用户密码修改

修改密码.MdiParent=Me

修改密码.Show（）

EndSub

PrivateSub帮助ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles帮助ToolStripMenuItem.Click

Dim帮助AsNew帮助文件

帮助.MdiParent=Me

帮助.Show（）

EndSub

EndClass

学生信息管理

学生信息添加

图4.3.1学生信息添加

学生基本信息添加

设计过程：

选择学生信息添加，在相应的栏目填入或选择相应的内容，点击添加后数据存入学生信息表。

点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。

（选择学生信息添加后学生成绩添加为不可用）

设计代码：

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

IfMe.TextBox1.Text.Trim=String.EmptyThen

MessageBox.Show（"学号不能为空","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

ElseIfMe.TextBox2.Text.Trim=String.EmptyThen

MessageBox.Show（"姓名不能为空","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

Else

DimstrAsString="select*from学生信息表"&"where学号='"&Me.TextBox1.Text.Trim&"'"

Iflink（str）.Rows.Count=0Then

str=Nothing

str="insertinto学生信息表"&"（学号,姓名,年龄,班级,籍贯,性别）values（'"&Me.TextBox1.Text.Trim&"','"&Me.TextBox2.Text.Trim&"','"&Me.TextBox5.Text.Trim&"','"&ComboBox3.Text.Trim&"','"&Me.ComboBox2.Text.Trim&"','"&ComboBox1.Text.Trim&"'）"

link（str）

xuehao（）

EndIf

str="select*from成绩表"&"where学号='"&Me.TextBox1.Text.Trim&"'"

Iflink（str）.Rows.Count=0Then

str=Nothing

str="insertinto成绩表（学号,姓名）values（'"&Me.TextBox1.Text.Trim&"','"&Me.TextBox2.Text.Trim&"'）"

link（str）

xuehao（）

EndIf

str="select*from成绩表"&"where学号='"&Me.TextBox1.Text.Trim&"'"

Iflink（str）.Rows.Count=0Then

str=Nothing

str="insertinto成绩表（学号,姓名）values（'"&Me.TextBox1.Text.Trim&"','"&Me.TextBox2.Text.Trim&"'）"

link（str）

MessageBox.Show（"学生信息表记录"&Me.TextBox1.Text&"已成功","添加成功",MessageBoxButtons.OK,MessageBoxIcon.Information）

xuehao（）

Else

MessageBox.Show（"记录"&Me.TextBox1.Text&"已存在","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

EndIf

EndIf

EndSub

学生成绩信息添加

设计过程：

选择学生成绩添加，在相应的栏目选择添加内容（上学期、下学期、科目、学号、成绩），点击添加后数据存入学生成绩表（成绩表1或者成绩表2）。

点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。

（选择学生成绩添加后学生信息添加为不可用）

设计代码：

PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click

IfMe.txt_chengji.Text.Trim=String.EmptyThen

MessageBox.Show（"成绩不能为空","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

Else

IfMe.cb_xueqi.SelectedIndex=0Then

Str="update成绩表set"&Me.cb_kecheng.Text.Trim&"='"&Me.txt_chengji.Text.Trim&"'where学号='"&Me.cb_xuehao.Text.Trim&"'"

IfInt（Me.txt_chengji.Text.Trim）>=0AndInt（Me.txt_chengji.Text.Trim）<=100Then

link（Str）

MessageBox.Show（"记录添加已成功","添加成功",MessageBoxButtons.OK,MessageBoxIcon.Information）

xuehao（）

Else

MessageBox.Show（"记录成绩已存在","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

EndIf

ElseIfMe.cb_xueqi.SelectedIndex=1Then

Str="update成绩表set"&Me.cb_kecheng1.Text.Trim&"='"&Me.txt_chengji.Text.Trim&"'where学号='"&Me.cb_xuehao.Text.Trim&"'"

IfInt（Me.txt_chengji.Text.Trim）>=0AndInt（Me.txt_chengji.Text.Trim）<=100Then

link（Str）

MessageBox.Show（"记录添加已成功","添加成功",MessageBoxButtons.OK,MessageBoxIcon.Information）

xuehao（）

Else

MessageBox.Show（"记录成绩已存在","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）

EndIf

EndIf

EndIf

EndSub

学生信息修改

图4.3.2学生信息修改

学生基本信息修改

设计过程：

选择修改信息类型为学生信息，在相应的栏目选择或填入相应的内容（学号、类型、修改内容）。

点击修改读取数据库中的学生信息表的相应内容，改为填入的所要修改的内容。

设计代码：

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfMe.RadioButton3.CheckedThen

str="update学生信息表set"&Me.ComboBox4.Text.Trim&"='"&Me.TextBox1.Text.Trim&"'where学号='"&Me.ComboBox3.Text.Trim&"'"

EndIf

IfNotlink（str）.Rows.CountThen

MessageBox.Show（"修改成功！

","提示",MessageBoxButtons.OK,MessageBoxIcon.Question）

EndIf

EndSub

学生成绩信息修改

设计过程：

选择修改信息类型为学生成绩，在相应的栏目选择或填入相应的内容（学号、选择课程、改成绩）。

点击修改读取数据库中的成绩表的相应内容，改为填入的所要修改的内容。

设计代码：

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

IfMe.RadioButton1.CheckedThen

str="update成绩表set"&Me.ComboBox1.Text.Trim&"='"&Me.TextBox4.Text.Trim&"'where学号='"&Me.ComboBox5.Text.Trim&"'"

ElseIfMe.RadioButton2.CheckedThen

str="update成绩表set"&Me.ComboBox2.Text

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置：首页 > 总结汇报 > 学习总结

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2