学生成绩管理系统源代码

1、登录界面图4.1登录界面设计过程：用于输入用户名和密码登录，选择相应的用户类型进入系统，若是用户类型选择错误则不能进入系统。没有用户名的可注册用户名，如对系统操作有不了解的可点击帮助，进入帮助界面。输入用户名和密码后点击确定判断数据库中的用户是否为合法用户。设计代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '选择普通用户登录 If Me.RadioButton1.Checked Then Dim str As S

2、tring str = "data source=PC-201103171305SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 普通用户where 用户名='" & TextBox1.Text.ToString().Trim() & "&#

3、39; and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加DToolStripMenuItem.Enabled = Fa

4、lse 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起，用户名或密码错误！重新输入（请正确选择用户类型）", 16, "警告") Me.TextB

5、ox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = "data source=PC-201103171305SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConn

6、ection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql

7、, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起，用户名或密码错误！重新输入（请正确选择用户类型）", 16, "警告") Me.TextBox1.Text = &qu

8、ot;" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择超级用户登录 If Me.RadioButton3.Checked Then Dim str As String str = "data source=PC-201103171305SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Tr

9、y con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 超级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim rea

10、der As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起，用户名或密码错误！重新输入（请正确选择用户类型）", 16, "警告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus()

11、End If Catch ex As Exception End Try End If End Sub学生成绩管理界面图4.2学生成绩管理界面设计过程：所有功能都在菜单中打开来实现。在登录时选择的用户类型限制本界面功能使用的权限，不同的用户类型所显示可用的功能不一样。普通用户可使用界面管理功能、学生信息管理中的查询功能、登录用户管理中的普通用户管理功能；高级用户拥有普通用户所有功能使用的权限，外加登录用户管理中的高级用户管理功能；超级用户拥有高级用户所有的功能使用的权限，外加超级用户管理功能；所有登录的用户都可使用界面管理功能和帮助功能。不同的权限拥有不同的功能。设计代码：Public Cla

12、ss 学生信息管理系统Private Sub 添加DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加DToolStripMenuItem.Click Dim tianjia As New 添加 tianjia.MdiParent = Me tianjia.Show() End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.

13、EventArgs) Handles 修改KToolStripMenuItem.Click Dim xiugai As New 修改 xiugai.MdiParent = Me xiugai.Show() End SubPrivate Sub 删除DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除DToolStripMenuItem.Click Dim shanchu As New 删除 shanchu.MdiParent = Me shanchu.Sho

14、w() End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click End End SubPrivate Sub 返回ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陆界面.Show()

15、Me.Close() End SubPrivate Sub 信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查询 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripM

16、enuItem.Click Dim yonghuguanli As New 用户信息管理 yonghuguanli.MdiParent = Me yonghuguanli.Show() End SubPrivate Sub 查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripMenuItem.Click Dim chaxun As New 查询 chaxun.MdiParent = Me chaxun.Show() End SubPriv

17、ate Sub 窗口层叠ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗口层叠ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End SubPrivate Sub 水平平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平铺ToolStripMenuItem

18、.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End SubPrivate Sub 垂直平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End SubPrivate Sub 修改密码ToolStripMenuItem_Click(ByVal sender As System.Obje

19、ct, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click Dim 修改密码As New 高级用户密码修改 修改密码.MdiParent = Me 修改密码.Show() End SubPrivate Sub 修改普通用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改普通用户ToolStripMenuItem.Click Dim 修改密码As New 普通用户密码修改 修改密码

20、.MdiParent = Me 修改密码.Show() End SubPrivate Sub 帮助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助ToolStripMenuItem.Click Dim 帮助As New 帮助文件 帮助.MdiParent = Me 帮助.Show() End SubEnd Class学生信息管理学生信息添加图4.3.1学生信息添加学生基本信息添加设计过程：选择学生信息添加，在相应的栏目填入或选择相应的内容，点击添加后数据存

21、入学生信息表。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生信息添加后学生成绩添加为不可用）设计代码：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Me.TextBox1.Text.Trim = String.Empty Then MessageBox.Show("学号不能为空", "添加失败", MessageBoxButtons.OK, Message

22、BoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show("姓名不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim str As String = "select * from 学生信息表" & " where 学号='" & Me.TextBox1.Text.Trim & "'&q

23、uot; If link(str).Rows.Count = 0 Then str = Nothing str = "insert into 学生信息表" & " (学号,姓名,年龄,班级,籍贯,性别) values ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "','" & Me.TextBox5.Text.Trim & "

24、9;,'" & ComboBox3.Text.Trim & "','" & Me.ComboBox2.Text.Trim & "','" & ComboBox1.Text.Trim & "')" link(str) xuehao() End If str = "select * from 成绩表" & " where 学号='" & Me.TextBox1.Text.

25、Trim & "'" If link(str).Rows.Count = 0 Then str = Nothing str = "insert into 成绩表(学号,姓名) values ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "')" link(str) xuehao() End If str = "select * from 成绩表&qu

26、ot; & " where 学号='" & Me.TextBox1.Text.Trim & "'" If link(str).Rows.Count = 0 Then str = Nothing str = "insert into 成绩表(学号,姓名) values ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "')&quo

27、t; link(str) MessageBox.Show("学生信息表记录" & Me.TextBox1.Text & "已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show("记录" & Me.TextBox1.Text & "已存在", "添加失败", MessageBoxButtons.OK, Messag

28、eBoxIcon.Error) End If End IfEnd Sub学生成绩信息添加设计过程：选择学生成绩添加，在相应的栏目选择添加内容（上学期、下学期、科目、学号、成绩），点击添加后数据存入学生成绩表（成绩表1或者成绩表2）。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生成绩添加后学生信息添加为不可用）设计代码：Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Me.txt_chengji.T

29、ext.Trim = String.Empty Then MessageBox.Show("成绩不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) Else If Me.cb_xueqi.SelectedIndex = 0 Then Str = "update 成绩表set " & Me.cb_kecheng.Text.Trim & "= '" & Me.txt_chengji.Text.Trim & &quo

30、t;' where 学号='" & Me.cb_xuehao.Text.Trim & "'" If Int(Me.txt_chengji.Text.Trim) >= 0 And Int(Me.txt_chengji.Text.Trim) <= 100 Then link(Str) MessageBox.Show("记录添加已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else

31、 MessageBox.Show("记录成绩已存在", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) End If ElseIf Me.cb_xueqi.SelectedIndex = 1 Then Str = "update 成绩表set " & Me.cb_kecheng1.Text.Trim & "= '" & Me.txt_chengji.Text.Trim & "' where 学号=

32、9;" & Me.cb_xuehao.Text.Trim & "'" If Int(Me.txt_chengji.Text.Trim) >= 0 And Int(Me.txt_chengji.Text.Trim) <= 100 Then link(Str) MessageBox.Show("记录添加已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(&qu

33、ot;记录成绩已存在", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If End If End Sub学生信息修改图4.3.2学生信息修改学生基本信息修改设计过程：选择修改信息类型为学生信息，在相应的栏目选择或填入相应的内容（学号、类型、修改内容）。点击修改读取数据库中的学生信息表的相应内容，改为填入的所要修改的内容。设计代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve

34、ntArgs) Handles Button1.Click If Me.RadioButton3.Checked Then str = "update 学生信息表set " & Me.ComboBox4.Text.Trim & "='" & Me.TextBox1.Text.Trim & "' where 学号='" & Me.ComboBox3.Text.Trim & "'" End If If Not link(str).Rows.

35、Count Then MessageBox.Show("修改成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question) End IfEnd Sub学生成绩信息修改设计过程：选择修改信息类型为学生成绩，在相应的栏目选择或填入相应的内容（学号、选择课程、改成绩）。点击修改读取数据库中的成绩表的相应内容，改为填入的所要修改的内容。设计代码：Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArg

36、s) Handles Button3.Click If Me.RadioButton1.Checked Then str = "update 成绩表set " & Me.ComboBox1.Text.Trim & "='" & Me.TextBox4.Text.Trim & "' where 学号='" & Me.ComboBox5.Text.Trim & "'" ElseIf Me.RadioButton2.Checked Then

37、str = "update 成绩表set " & Me.ComboBox2.Text.Trim & "='" & Me.TextBox4.Text.Trim & "' where 学号='" & Me.ComboBox5.Text.Trim & "'" End If If Not link(str).Rows.Count Then If Int(Me.TextBox4.Text.Trim) >= 0 And Int(Me.Text

38、Box4.Text.Trim) <= 100 Then MessageBox.Show("修改成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question) Else MsgBox("对不起，您输入的成绩有误！请重新输入", 16, "警告") End If End If End Sub学生信息删除图4.3.3学生信息删除设计过程：选择所要删除的信息类型，在学号栏目选择相应的学号。点击删除，则在相应的表中删除信息。设计代码：Private Sub Butt

39、on1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton1.Checked Then Dim str As String = "delete from 成绩表where 学号='" & ComboBox1.Text.Trim & "'" link(str) MessageBox.Show("删除记录" & ComboBox1.Text

40、& "成功", "删除成功", MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If If Me.RadioButton2.Checked Then Dim str As String = "delete from 成绩表where 学号='" & ComboBox1.Text.Trim & "'" link(str) MessageBox.Show("删除记录" &am

41、p; ComboBox1.Text & "成功", "删除成功", MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If If Me.RadioButton3.Checked Then Dim str As String = "delete from 学生信息表where 学号='" & ComboBox1.Text.Trim & "'" link(str) MessageBox.Show(

42、"删除记录" & ComboBox1.Text & "成功", "删除成功", MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End IfEnd Sub5.3.4学生信息查询图4.3.4学生信息查询设计过程：选择查询的学生信息类型，输入所要查询的学生学号，点击查询即可，在下面会显示你所查询学生信息。点击刷新能及时更新最新的学生信息。设计代码：Private Sub Button1_Click(ByVal sender As System.O

43、bject, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton1.Checked Then xh = "select * from 成绩表where 学号='" & Me.TextBox2.Text.Trim & "' " ElseIf Me.RadioButton2.Checked Then xh = "select * from 成绩表where 学号='" & Me.TextBox2.Text.

44、Trim & "' " ElseIf Me.RadioButton3.Checked Then xh = "select * from 学生信息表where 学号='" & Me.TextBox2.Text.Trim & "' " End If tianxuehao()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Cl

45、ick Me.TextBox2.Text = "" If Me.RadioButton1.Checked Then xh = "select * from 成绩表" tianxuehao() ElseIf Me.RadioButton2.Checked Then xh = "select * from 成绩表" tianxuehao() ElseIf Me.RadioButton3.Checked Then xh = "select * from 学生信息表" tianxuehao() End IfEnd Sub登

46、录用户管理普通用户管理图4.4.1普通用户管理设计过程：在普通用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。设计代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xh = "select * from 普通用户 where 用户名='" & Me.TextBox1.Text.Trim & "' "

47、If Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show("密码不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) Else str = "update 普通用户 set 密码='" & Me.TextBox2.Text.Trim & "'where 用户名='" & Me.TextBox1.Text.Trim & "&#

48、39;" If Not link(str).Rows.Count Then MessageBox.Show("修改普通用户密码成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question) End If End IfEnd Sub高级用户管理图4.4.2高级用户管理设计过程：在高级用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。设计代码：Private Sub Button1_Click(ByVal sender As System.Ob

49、ject, ByVal e As System.EventArgs) Handles Button1.Click xh = "select * from 高级用户 where 用户名='" & Me.TextBox1.Text.Trim & "' " If Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show("密码不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Er

50、ror) Else Str = "update 高级用户 set 密码='" & Me.TextBox2.Text.Trim & "'where 用户名='" & Me.TextBox1.Text.Trim & "'" If Not link(Str).Rows.Count Then MessageBox.Show("修改高级用户密码成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Q

51、uestion) End If End IfEnd Sub超级用户管理图4.4.3超级用户管理设计过程：正确选择所要操作的用户类型，在用户信息管理界面可添加用户、修改用户、删除用户、查询用户等功能，这是一个只有超级用户才拥有的权限功能，这个界面功能可操作学生成绩管理系统的用户登录信息，方面了超级用户对用户名和密码的管理。设计代码：用户添加代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.TextBox1.Text

52、.Trim = String.Empty Then MessageBox.Show("用户名不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show("密码不能为空", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) End If If Me.RadioButton1.Ch

53、ecked Then Dim str As String = "select * from 普通用户" & " where 用户名='" & Me.TextBox1.Text.Trim & "'" If link(str).Rows.Count = 0 Then str = Nothing str = "insert into 普通用户" & " (用户名,密码) values ('" & Me.TextBox1.Text.Trim

54、 & "','" & Me.TextBox2.Text.Trim & "')" link(str) MessageBox.Show("普通用户" & Me.TextBox1.Text & "已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("记录" & Me.TextBox1.Text

55、& "已存在", "添加失败", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If If Me.RadioButton2.Checked Then Dim str As String = "select * from 高级用户" & " where 用户名='" & Me.TextBox1.Text.Trim & "'" If link(str).Rows.Count = 0 Then str = Nothing str = "insert into 高级用户" & " (用户名,密码) values ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "')" link(st