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

图 安全性设置

第三步：服务器属性设置，右击服务器属性，进行安全性设置。

图 服务器属性设置

第四步：重启服务器。右击服务器，选择重启服务器。

图 重启服务器

4.3数据库调试

数据库成功附加、安全性设置、重启。

数据库

图

第5章 主要内容

5.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 String

str = \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 = \普通用户where 用户名='\ &

TextBox1.Text.ToString().Trim() & \密码='\ & 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 = 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