VB+SQL2008学生成绩管理系统_毕业论文

Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click End End Sub

Private Sub 返回ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陆界面.Show() Me.Close() End Sub

Private Sub 信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查询 chaxun.MdiParent = Me chaxun.Show() End Sub

Private 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 Sub

Private 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 Sub

Private Sub 窗口层叠ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗口层叠ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub

Private Sub 水平平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub

Private Sub 垂直平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub

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

Private Sub 修改普通用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles 修改普通用户ToolStripMenuItem.Click Dim 修改密码As New 普通用户密码修改 修改密码.MdiParent = Me 修改密码.Show() End Sub

Private Sub 帮助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助ToolStripMenuItem.Click Dim 帮助As New 帮助文件 帮助.MdiParent = Me 帮助.Show() End Sub End Class

5.3学生信息管理 5.3.1学生信息添加

图4.3.1学生信息添加

学生基本信息添加 设计过程：

选择学生信息添加，在相应的栏目填入或选择相应的内容，点击添加后数据存入学生信息表。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生信息添加后学生成绩添加为不可用） 设计代码：

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, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then

MessageBox.Show(\姓名不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

Dim str As String = \学生信息表\ & \学号='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then str = Nothing

str = \学生信息表\ & \学号,姓名,年龄,班级,籍贯,性别) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ & Me.TextBox5.Text.Trim & \ & ComboBox3.Text.Trim & \ & MeboBox2.Text.Trim & \ & ComboBox1.Text.Trim & \ link(str) xuehao() End If

str = \成绩表\ & \学号='\ & Me.TextBox1.Text.Trim & \ If link(str).Rows.Count = 0 Then str = Nothing

str = \成绩表(学号,姓名) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str) xuehao() End If

str = \成绩表\ & \学号='\ & Me.TextBox1.Text.Trim & \ If link(str).Rows.Count = 0 Then str = Nothing

str = \成绩表(学号,姓名) 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) End If End If

End Sub

学生成绩信息添加 设计过程：

选择学生成绩添加，在相应的栏目选择添加内容（上学期、下学期、科目、学号、成绩），点击添加后数据存入学生成绩表（成绩表1或者成绩表2）。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生成绩添加后学生信息添加为不可用） 设计代码：

Private Sub Button4_Click(ByVal sender As 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 = \成绩表set \ & Me.cb_kecheng.Text.Trim & \ & Me.txt_chengji.Text.Trim & \学号='\ & 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(\记录成绩已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If

ElseIf Me.cb_xueqi.SelectedIndex = 1 Then

Str = \成绩表set \ & Me.cb_kecheng1.Text.Trim & \'\ & Me.txt_chengji.Text.Trim & \学号='\ & 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(\记录成绩已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If End If End Sub