学生成绩管理系统源代码.docx
- 文档编号:18320389
- 上传时间:2023-08-15
- 格式:DOCX
- 页数:29
- 大小:321.68KB
学生成绩管理系统源代码.docx
《学生成绩管理系统源代码.docx》由会员分享,可在线阅读,更多相关《学生成绩管理系统源代码.docx(29页珍藏版)》请在冰点文库上搜索。
学生成绩管理系统源代码
登录界面
图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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 成绩管理系统 源代码