学生成绩管理系统源代码1.docx
《学生成绩管理系统源代码1.docx》由会员分享，可在线阅读，更多相关《学生成绩管理系统源代码1.docx（31页珍藏版）》请在冰点文库上搜索。
学生成绩管理系统源代码1
登录界面
图4.1登录界面
设计过程：
用于输入用户名和密码登录，选择相应的用户类型进入系统，若是用户类型选择错误则不能进入系统。
没有用户名的可注册用户名，如对系统操作有不了解的可点击帮助，进入帮助界面。
输入用户名和密码后点击确定判断数据库中的用户是否为合法用户。
设计代码：
PrivateSubButton1_Click（ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click
'选择普通用户登录
IfMeRadioButtonl.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
警告"）
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添加DToolStripMenultem_Click（ByVaisenderAsSystem.Object,ByVaieAs
System.EventArgs）Handles添加DToolStripMenuItem.Click
DimtianjiaAsNew添加
tianjia.MdiParent=Me
tianjia.Show（）
EndSub
PrivateSub修改KToolStripMenultem_Click（ByValsenderAsSystem.Object,ByValeAs
System.EventArgs）Handles修改KToolStripMenultem.Click
DimxiugaiAsNew修改xiugai.MdiParent=Mexiugai.Show（）EndSub
PrivateSub删除DToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles删除DToolStripMenuItem.Click
DimshanchuAsNew删除shanchu.MdiParent=Meshanchu.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=Mechaxun.Show（）EndSub
PrivateSub添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles添加ToolStripMenuItem.Click
DimyonghuguanliAsNew用户信息管理yonghuguanli.MdiParent=Meyonghuguanli.Show（）
EndSub
PrivateSub查询ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles查询ToolStripMenuItem.Click
DimchaxunAsNew查询chaxun.MdiParent=Mechaxun.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,ByValeAs
System.EventArgs）Handles帮助ToolStripMenuItem.Click
Dim帮助AsNew帮助文件
帮助.MdiParent=Me
帮助.Show（）
EndSub
EndClass
学生信息管理
学生信息添加
图4.3.1学生信息添加
学生基本信息添加
设计过程：
选择学生信息添加，在相应的栏目填入或选择相应的内容，点击添加后数据
存入学生信息表。
点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。
（选择学生信息添加后学生成绩添加为不可用）
设计代码：
PrivateSubButton2_Click（ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButton2.Click
IfMeTextBox1.Text.Trim=String.EmptyThen
MessageBox.Show（"学号不能为空"，"添加失败",MessageBoxButtons.OK,
MessageBoxIcon.Error）
ElselfMeTextBox2.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&"'
Ill
1
&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&
inn
Iflink（str）.Rows.Count
=0Then
str=Nothing
str="insert
into成绩表（学号,姓名）values
（'"
&Me.TextBox1.Text.Trim
&"',
&Me.TextBox2.Text.Trim&"'）"link（str）xuehao（）
EndIf
Iflink（str）.Rows.Count=0Then
str=Nothing
&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）<=100
Then
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）<=100
Then
link（Str）
MessageBox.Show（"记录添加已成功","添加成功",MessageBoxButtons.OK,MessageBoxIcon.Information）
xuehao（）
Else
MessageBox.Show（"记录成绩已存在","添加失败",MessageBoxButtons.OK,MessageBoxIcon.Error）
EndIf
EndIf
EndIf
EndSub
学生信息修改
图432学生信息修改
学生基本信息修改设计过程:
选择修改信息类型为学生信息，在相应的栏目选择或填入相应的内容（学号、
类型、修改内容）。
点击修改读取数据库中的学生信息表的相应内容，改为填入的所要修改的内容。
设计代码：
PrivateSubButton1_Click（ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs）Handles
Buttonl.Click
IfMeRadioButton3.CheckedThen
str="update学生信息表set"&MeComboBox4.Text.Trim&"='"&
MeTextBox1.Text.Trim&"'where学号='"&MeComboBox3.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.Trim&"='"&Me.TextBox4.Text.Trim
&"'where学号='"&Me.ComboBox5.Text.Trim&"'"
EndIf
IfNotlink（str）.Rows.CountThenIfInt（Me.TextBox4.Text.Trim）>=0AndInt（Me.TextBox4.Text.Trim）<=100Then
MessageBox.Show（"修改成功！
","提示",MessageBoxButtons.OK,MessageBoxIcon.Question）
Else
MsgBox（"对不起，您输入的成绩有误！
请重新输入",16,"警告"）
EndIf
EndIf
EndSub
学生信息删除
设计过程：
选择所要删除的信息类型，在学号栏目选择相应的学号。
点击删除，则在相
应的表中删除信息。
设计代码:
PrivateSubButton1_Click（ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click
IfMeRadioButtonl.CheckedThen
DimstrAsString="deletefrom成绩表where学号='"&ComboBox1.Text.Trim&link（str）
MessageBox.Show（"删除记录"&ComboBoxl.Text&"成功"，"删除成功"，
MessageBoxButtons.OK,MessageBoxIcon.Information）
tianxuehao（）
EndIf
IfMeRadioButton2.CheckedThen
DimstrAsString="deletefrom成绩表where学号='"&ComboBox1.Text.Trim&link（str）
MessageBoxButtons.OK,MessageBoxIcon」nformation）tianxuehao（）
EndIf
IfMeRadioButton3.CheckedThen
DimstrAsString="deletefrom学生信息表where学号='"&ComboBox1.Text.Trim&""'
link（str）
MessageBox.Show（
删除记录"&ComboBoxl.Text&"成功"，”删除成功
MessageBoxButtons.OK,MessageBoxIcon」nformation）tianxuehao（）
EndIf
EndSub
534学生信息查询
图434学生信息查询
设计过程：
选择查询的学生信息类型，输入所要查询的学生学号，点击查询即可，在下面会显示你所查询学生信息。
点击刷新能及时更新
升级会员 