学生成绩管理系统源代码(共22页).doc

《学生成绩管理系统源代码(共22页).doc》由会员分享，可在线阅读，更多相关《学生成绩管理系统源代码(共22页).doc（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、str As String str = data source=PC-5SQLEXPRESS;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() & and 密码= & TextBox2.Text.ToString().Trim() & Dim

3、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 = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled =

4、False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 选择高级用户登录 If Me.RadioBut

5、ton2.Checked Then Dim str As String str = data source=PC-5SQLEXPRESS;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() & and 密码= & TextBox2.Text.To

6、String().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 学生信息管理系统 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型

7、）, 16, 警告) Me.TextBox1.Text = 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-5SQLEXPRESS;database=学生信息库;user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex

8、 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 reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学

9、生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If End Sub学生成绩管理界面图4.2学生成绩管理界面设计过程：所有功能都在菜单中打开来实现。在登录时选择的用户类型限制本界面功能使用的权限，不同的用户类型所显示可用的功能不一样。普通用户可使用界面管理功

10、能、学生信息管理中的查询功能、登录用户管理中的普通用户管理功能；高级用户拥有普通用户所有功能使用的权限，外加登录用户管理中的高级用户管理功能；超级用户拥有高级用户所有的功能使用的权限，外加超级用户管理功能；所有登录的用户都可使用界面管理功能和帮助功能。不同的权限拥有不同的功能。设计代码：Public Class 学生信息管理系统Private Sub 添加DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加DToolStripMenuItem.Click D

11、im tianjia As New 添加 tianjia.MdiParent = Me tianjia.Show() End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改KToolStripMenuItem.Click Dim xiugai As New 修改 xiugai.MdiParent = Me xiugai.Show() End SubPrivate Sub 删除DToolStripMenuItem_Cli

12、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除DToolStripMenuItem.Click Dim shanchu As New 删除 shanchu.MdiParent = Me shanchu.Show() End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click E

13、nd End SubPrivate Sub 返回ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陆界面.Show() Me.Close() End SubPrivate Sub 信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查询 chaxun.

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

15、nder As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripMenuItem.Click 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 窗口层叠ToolStripMenuItem.Click Me.LayoutMdi(M

16、diLayout.Cascade) End SubPrivate Sub 水平平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End SubPrivate Sub 垂直平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.Even

17、tArgs) Handles 垂直平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) 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 SubPrivate Sub 修改

18、普通用户ToolStripMenuItem_Click(ByVal sender As System.Object, 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 帮助Too

19、lStripMenuItem.Click Dim 帮助As New 帮助文件 帮助.MdiParent = Me 帮助.Show() End SubEnd Class学生信息管理学生信息添加图4.3.1学生信息添加学生基本信息添加设计过程：选择学生信息添加，在相应的栏目填入或选择相应的内容，点击添加后数据存入学生信息表。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生信息添加后学生成绩添加为不可用）设计代码：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventAr

20、gs) Handles Button2.Click If Me.TextBox1.Text.Trim = String.Empty Then MessageBox.Show(学号不能为空, 添加失败, MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(姓名不能为空, 添加失败, MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim str As String = select

21、* 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 & , & Me.TextBox5.Text.Trim & , & ComboBox3.Text.Trim & , & Me.ComboBox2.Text.Trim & , & ComboB

22、ox1.Text.Trim & ) link(str) xuehao() End If str = 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(str) xuehao() End If str = select * from 成绩表 & w

23、here 学号= & 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(str) MessageBox.Show(学生信息表记录 & Me.TextBox1.Text & 已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao()

24、 Else MessageBox.Show(记录 & Me.TextBox1.Text & 已存在, 添加失败, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End IfEnd Sub学生成绩信息添加设计过程：选择学生成绩添加，在相应的栏目选择添加内容（上学期、下学期、科目、学号、成绩），点击添加后数据存入学生成绩表（成绩表1或者成绩表2）。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生成绩添加后学生信息添加为不可用）设计代码：Private Sub Button4_Click(ByVal sender As

25、System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Me.txt_chengji.Text.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.Te

26、xt.Trim & where 学号= & Me.cb_xuehao.Text.Trim & If Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.TextBox4.Text.Trim) = 100 Then MessageBox.Show(修改成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) Else MsgBox(对不起，您输入的成绩有误

27、！请重新输入, 16, 警告) End If End If End Sub学生信息删除图4.3.3学生信息删除设计过程：选择所要删除的信息类型，在学号栏目选择相应的学号。点击删除，则在相应的表中删除信息。设计代码：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 String = delete from 成绩表where 学号= & ComboB

28、ox1.Text.Trim & link(str) MessageBox.Show(删除记录 & ComboBox1.Text & 成功, 删除成功, 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(删除记录 & ComboBox1.Text & 成功,

29、 删除成功, 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(删除记录 & ComboBox1.Text & 成功, 删除成功, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao

30、() End IfEnd Sub5.3.4学生信息查询图4.3.4学生信息查询设计过程：选择查询的学生信息类型，输入所要查询的学生学号，点击查询即可，在下面会显示你所查询学生信息。点击刷新能及时更新最新的学生信息。设计代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton1.Checked Then xh = select * from 成绩表where 学号= & Me.TextBox2.Te

31、xt.Trim & ElseIf Me.RadioButton2.Checked Then xh = select * from 成绩表where 学号= & Me.TextBox2.Text.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.Click 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()