本系统是一款基于VB和SQL技术开发的学生成绩管理系统，支持学生信息录入、查询及成绩管理等功能，提高教学管理工作效率。
在VB与SQL的设计代码中：
```vb
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 = data source=PC-201103171305\SQLEXPRESS;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 cmd As New SqlClient.SqlCommand(sql, con)
Dim reader As SqlClient.SqlDataReader
Try
reader = cmd.ExecuteReader
If reader.Read() Then
操作学生成绩管理系统
Dim 学生成绩管理系统As New 学生信息管理系统
学生成绩管理系统.添加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()
End If
Catch ex As Exception
End Try
End If
选择高级用户登录
If Me.RadioButton2.Checked Then
Dim str As String = data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=
Dim con As New SqlClient.SqlConnection(str)
Try
con.Open()
Catch ex As Exception
End Try
以下代码省略，与普通用户登录相似
```
注意，在SQL查询语句中添加了单引号以正确使用字符串值。对于高级用户的登录部分的其余内容，请根据具体需求补充完成。
5星
