mycom1.ExecuteNonQuery()
MessageBox.Show("增加读者成功！", "恭喜", MessageBoxButtons.OK, MessageBoxIcon.Information)
mycon.Close()
8读者信息维护窗口
图9读者信息维护界面
通过此窗口进行读者信息维护 ，如果你不能确定是否需要修改读者信息，可以通过窗口上部的查询来确认是否需要进行修改读者信息。读者所有的信息都可以在这里进行修改（姓名，性别，最大借阅册数，最大借阅天数）点击更新就可以将新数据写入数据库，点击删除可以删除读者信息。点击退出可以退出本窗口。
首先对学号进行匹配检查如果检查成功就执行下列代码：
Try
If mycon.State = ConnectionState.Closed Then
mycon.Open()
End If
Dim Sex1 As String
If RadioButton1.Checked = True Then
Sex1 = "男"
Else
Sex1 = "女"
End If
Dim Sex As New SqlParameter("@Sex", SqlDbType.VarChar, 2)
Sex.Value = Sex1
Dim sqlstr As String = "update Students set SName='" & TextBox3.Text & "',Sex=@Sex,MaxNumber='" & TextBox4.Text & "',MaxDays='" & TextBox5.Text & "' Where Sno='" & TextBox2.Text & "'"
Dim mycom1 As New SqlCommand(sqlstr, mycon)
mycom1.Parameters.Add(Sex)
mycom1.ExecuteNonQuery()
MessageBox.Show("该学生信息更新成功!", "恭喜", MessageBoxButtons.OK, MessageBoxIcon.Information)
9借阅历史查看
图10借阅历史查看界面
在进行书籍借阅的时候需要确定读者是否还有借阅资格，就需要查明借阅书籍的历史看有多少书籍还没有归还以确定是否还能借阅。在查询的时候只需要输入学号就可以进行查阅。查询后的内容包括：书籍编号，书籍名称，借阅开始日期，书籍归还日期，书籍到期日期。
“查询”按钮的代码
If CheckData() = False Then
Exit Sub
End If
