计算机VB+SQL学生成绩管理系统(8)

MessageBox.Show(\删除记录\ & ComboBox1.Text & \成功\, \删除成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If

End Sub

5.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 = \成绩表where 学号='\ & Me.TextBox2.Text.Trim & \ ElseIf Me.RadioButton2.Checked Then

xh = \成绩表where 学号='\ & Me.TextBox2.Text.Trim & \ ElseIf Me.RadioButton3.Checked Then

xh = \学生信息表where 学号='\ & Me.TextBox2.Text.Trim & \

End If tianxuehao()

End Sub

Private 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 = \成绩表\ tianxuehao()

ElseIf Me.RadioButton2.Checked Then xh = \成绩表\ tianxuehao()

ElseIf Me.RadioButton3.Checked Then xh = \学生信息表\ tianxuehao() End If

End Sub

5.4登录用户管理

5.4.1普通用户管理

图4.4.1普通用户管理

设计过程：

在普通用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xh = \普通用户 where 用户名='\ & Me.TextBox1.Text.Trim & \ If Me.TextBox2.Text.Trim = String.Empty Then

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

str = \普通用户 set 密码='\ & Me.TextBox2.Text.Trim & \用户名='\ & Me.TextBox1.Text.Trim & \

If Not link(str).Rows.Count Then

MessageBox.Show(\修改普通用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

End Sub

5.4.2高级用户管理

图4.4.2高级用户管理

设计过程：

在高级用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xh = \高级用户 where 用户名='\ & Me.TextBox1.Text.Trim & \ If Me.TextBox2.Text.Trim = String.Empty Then

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

Str = \高级用户 set 密码='\ & Me.TextBox2.Text.Trim & \用户名='\ & Me.TextBox1.Text.Trim & \

If Not link(Str).Rows.Count Then

MessageBox.Show(\修改高级用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

End Sub

5.4.3超级用户管理

图4.4.3超级用户管理

设计过程：

正确选择所要操作的用户类型，在用户信息管理界面可添加用户、修改用户、删除用户、查询用户等功能，这是一个只有超级用户才拥有的权限功能，这个界

面功能可操作学生成绩管理系统的用户登录信息，方面了超级用户对用户名和密码的管理。

设计代码： 用户添加代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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) End If

If Me.RadioButton1.Checked Then

Dim str As String = \普通用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

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

str = \into 普通用户\ & \(用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str) …… 此处隐藏：663字，全部文档内容请下载后查看。喜欢就下载吧 ……