学生成绩管理系统源代码7说课讲解.docx
《学生成绩管理系统源代码7说课讲解.docx》由会员分享，可在线阅读，更多相关《学生成绩管理系统源代码7说课讲解.docx（24页珍藏版）》请在冰豆网上搜索。
学生成绩管理系统源代码7说课讲解
登录界面
图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,B
升级会员 